OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
st_qaprint_driver.F File Reference
#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "lagmult.inc"
#include "param_c.inc"
#include "scr03_c.inc"
#include "scr17_c.inc"
#include "scr23_c.inc"
#include "tabsiz_c.inc"
#include "sphcom.inc"
#include "com_xfem1.inc"
#include "fxbcom.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine st_qaprint_driver (igeo, geo, bufgeo, ipm, pm, bufmat, nom_opt, inom_opt, numloadp, iloadp, lloadp, loadp, ibcl, forc, ipres, pres, npby, lpby, rby, ibcr, fradia, ibcv, fconv, ibftemp, fbftemp, igrv, lgrv, agrv, ibfflux, fbfflux, itab, v, vr, w, icode, iskew, icfield, lcfield, cfield, dampr, temp, ibcslag, ipari, intbuf_tab, clusters, ibox, ipmas, ibfvel, fbfvel, nimpacc, laccelm, accelm, nom_sect, nstrf, secbuf, skew, iskwn, xframe, t_monvol, t_monvol_metadata, i2rupt, areasl, intbuf_fric_tab, npfricorth, mat_elem, pfricorth, irepforth, phiforth, vforth, xrefc, xreftg, xrefs, tagxref, ixs, ixc, ixtg, rwbuf, nprw, lprw, ithvar, ipart, subsets, ipartth, nthgrpmx, nimpdisp, nimpvel, detonators, ibcscyc, npc, pld, table, npts, irbe3, lrbe3, frbe3, mgrby, ixs10, isolnod, ixr, r_skew, ixp, ixt, x, thke, sh4ang, thkec, sh3ang, set, lsubmodel, igrnod, igrpart, igrbric, igrsh4n, igrsh3n, igrquad, igrbeam, igrtruss, igrspring, igrsurf, igrslin, ixq, ispcond, rtrans, irand, alea, xseed, xlas, las, irbe2, lrbe2, kxsp, ipartsp, drape, ixr_kj, iactiv, factiv, unitab, npbyl, lpbyl, rbyl, xyzref, sensors, func2d, inicrack, ipreload, preload, iflag_bpreload, ibmpc, ibmpc2, ibmpc3, ibmpc4, rbmpc, ljoint, nnlink, lnlink, bufsf, sbufsf_, pm_stack, geo_stack, igeo_stack, iparg, ipadmesh, padmesh, liflow, lrflow, iflow, rflow, sh4tree, sh3tree, sh4trim, sh3trim, qp_iperturb, qp_rperturb, llinal, linale, fvm_inivel, gjbufi, gjbufr, ms, in, lgauge, gauge, kxx, ixx, ipartx, ixri, ixs16, iexmad, fxbipm, fxbfile_tab, eigipm, eigrpm, isphio, vsphio, ebcs_tab, inimap1d, inimap2d, nsigsh, sigsh, nsigi, sigsp, nsigs, sigi, nsigbeam, sigbeam, nsigtruss, sigtruss, nsigrs, sigrs, merge_node_tab, merge_node_tol, imerge, nmerge_tot, iexlnk, drapeg, user_windows, output, defaults, glob_therm, pblast, ibeam_vector, rbeam_vector, damp_range_part)

Function/Subroutine Documentation

◆ st_qaprint_driver()

subroutine st_qaprint_driver ( integer, dimension(npropgi,numgeo), intent(in) igeo,
dimension(npropg,numgeo), intent(in) geo,
dimension(*), intent(in) bufgeo,
integer, dimension(npropmi,nummat), intent(in) ipm,
dimension(npropm,nummat), intent(in) pm,
dimension(*), intent(in) bufmat,
integer, dimension(lnopt1,snom_opt1), intent(in) nom_opt,
integer, dimension(sinom_opt), intent(in) inom_opt,
integer, intent(in) numloadp,
integer, dimension(sizloadp,nloadp), intent(in) iloadp,
integer, dimension(numloadp), intent(in) lloadp,
dimension(lfacload,nloadp), intent(in) loadp,
integer, dimension(nibcld,nconld-npreld), intent(in) ibcl,
dimension(lfaccld,nconld-npreld), intent(in) forc,
integer, dimension(nibcld,npreld), intent(in) ipres,
dimension(lfaccld,npreld), intent(in) pres,
integer, dimension(nnpby,nrbykin), intent(in) npby,
integer, dimension(*), intent(in) lpby,
dimension(nrby,nrbykin), intent(in) rby,
integer, dimension(glob_therm%niradia,glob_therm%numradia), intent(in) ibcr,
dimension(glob_therm%lfacther,glob_therm%numradia), intent(in) fradia,
integer, dimension(glob_therm%niconv,glob_therm%numconv), intent(in) ibcv,
dimension(glob_therm%lfacther,glob_therm%numconv), intent(in) fconv,
integer, dimension(glob_therm%nift,glob_therm%nfxtemp), intent(in) ibftemp,
dimension(glob_therm%lfacther,glob_therm%nfxtemp), intent(in) fbftemp,
integer, dimension(nigrv,ngrav), intent(in) igrv,
integer, dimension(*), intent(in) lgrv,
dimension(lfacgrv,ngrav), intent(in) agrv,
integer, dimension(glob_therm%nitflux,glob_therm%nfxflux), intent(in) ibfflux,
dimension(glob_therm%lfacther,glob_therm%nfxflux), intent(in) fbfflux,
integer, dimension(numnod), intent(in) itab,
dimension(3,numnod), intent(in) v,
dimension(svr), intent(in) vr,
dimension(sw), intent(in) w,
integer, dimension(numnod), intent(in) icode,
integer, dimension(numnod), intent(in) iskew,
integer, dimension(sizfield,nloadc), intent(in) icfield,
integer, dimension(slcfield), intent(in) lcfield,
dimension(lfacload,nloadc), intent(in) cfield,
dimension(nrdamp,*), intent(in) dampr,
dimension(numnod), intent(in) temp,
integer, dimension(5,nbcslag), intent(in) ibcslag,
integer, dimension(npari,ninter), intent(in) ipari,
type(intbuf_struct_), dimension(*) intbuf_tab,
type (cluster_), dimension(ncluster) clusters,
type (box_), dimension(nbbox), intent(in) ibox,
type (admas_), dimension(nodmas), intent(in) ipmas,
integer, dimension(nifv,nfxvel), intent(in) ibfvel,
dimension(lfxvelr,nfxvel), intent(in) fbfvel,
integer, intent(in) nimpacc,
integer, dimension(3, naccelm), intent(in) laccelm,
dimension(llaccelm, naccelm), intent(in) accelm,
integer, dimension(snom_sect), intent(in) nom_sect,
integer, dimension(snstrf), intent(in) nstrf,
dimension(ssecbuf), intent(in) secbuf,
dimension(lskew,*), intent(in) skew,
integer, dimension(liskn,*), intent(in) iskwn,
dimension(nxframe,*), intent(in) xframe,
type(monvol_struct_), dimension(nvolu), intent(in) t_monvol,
type(monvol_metadata_), intent(in) t_monvol_metadata,
dimension(6,*), intent(in) i2rupt,
dimension(*), intent(in) areasl,
type(intbuf_fric_struct_), dimension(*) intbuf_fric_tab,
integer, intent(in) npfricorth,
type(mat_elem_), intent(in) mat_elem,
integer, dimension(*), intent(in) pfricorth,
integer, dimension(*), intent(in) irepforth,
dimension(*), intent(in) phiforth,
dimension(3,*), intent(in) vforth,
dimension(4,3,numelc), intent(in) xrefc,
dimension(3,3,numeltg), intent(in) xreftg,
dimension(8,3,numels8), intent(in) xrefs,
integer, dimension(numnod), intent(in) tagxref,
integer, dimension(nixs,*), intent(in) ixs,
integer, dimension(nixc,*), intent(in) ixc,
integer, dimension(nixtg,*), intent(in) ixtg,
dimension(nrwlp,nrwall), intent(in) rwbuf,
integer, dimension(nrwall,nnprw), intent(in) nprw,
integer, dimension(slprw), intent(in) lprw,
integer, dimension(sithvar), intent(in) ithvar,
integer, dimension(lipart1*(npart+nthpart)), intent(in) ipart,
type(subset_), dimension(nsubs), intent(in) subsets,
integer, dimension(18*(npart+nthpart)), intent(in) ipartth,
integer, intent(in) nthgrpmx,
integer, intent(in) nimpdisp,
integer, intent(in) nimpvel,
type(detonators_struct_) detonators,
integer, dimension(*), intent(in) ibcscyc,
integer, dimension(*), intent(in) npc,
dimension(*), intent(in) pld,
type(ttable), dimension(*) table,
integer, intent(in) npts,
integer, dimension(*), intent(in) irbe3,
integer, dimension(*), intent(in) lrbe3,
dimension(sfrbe3), intent(in) frbe3,
integer, dimension(nmgrby,smgrby), intent(in) mgrby,
integer, dimension(6,*), intent(in) ixs10,
integer, dimension(numels), intent(in) isolnod,
integer, dimension(nixr,*), intent(in) ixr,
integer, dimension(*), intent(in) r_skew,
integer, dimension(nixp,*), intent(in) ixp,
integer, dimension(nixt,*), intent(in) ixt,
dimension(3,numnod), intent(in) x,
dimension(*), intent(in) thke,
dimension(*), intent(in) sh4ang,
dimension(*), intent(in) thkec,
dimension(*), intent(in) sh3ang,
type (set_), dimension(nsets) set,
type(submodel_data), dimension(*), intent(in) lsubmodel,
type (group_), dimension(ngrnod), intent(in) igrnod,
type (group_), dimension(ngrpart), intent(in) igrpart,
type (group_), dimension(ngrbric), intent(in) igrbric,
type (group_), dimension(ngrshel), intent(in) igrsh4n,
type (group_), dimension(ngrsh3n), intent(in) igrsh3n,
type (group_), dimension(ngrquad), intent(in) igrquad,
type (group_), dimension(ngrbeam), intent(in) igrbeam,
type (group_), dimension(ngrtrus), intent(in) igrtruss,
type (group_), dimension(ngrspri), intent(in) igrspring,
type (surf_), dimension(nsurf), intent(in) igrsurf,
type (surf_), dimension(nslin), intent(in) igrslin,
integer, dimension(nixq,*), intent(in) ixq,
integer, dimension(nispcond,*), intent(in) ispcond,
dimension(ntransf,*), intent(in) rtrans,
integer, dimension(*), intent(in) irand,
dimension(*), intent(in) alea,
dimension(*), intent(in) xseed,
dimension(*), intent(in) xlas,
integer, dimension(*), intent(in) las,
integer, dimension(*), intent(in) irbe2,
integer, dimension(*), intent(in) lrbe2,
integer, dimension(nisp,*), intent(in) kxsp,
integer, dimension(*), intent(in) ipartsp,
type (drape_), dimension(numelc_drape + numeltg_drape) drape,
integer, dimension(5,*), intent(in) ixr_kj,
integer, dimension(lactiv,*), intent(in) iactiv,
dimension(lractiv,*), intent(in) factiv,
type (unit_type_) unitab,
integer, dimension(nnpby,nrbylag), intent(in) npbyl,
integer, dimension(*), intent(in) lpbyl,
dimension(nrby,nrbylag), intent(in) rbyl,
dimension(sx), intent(in) xyzref,
type (sensors_), intent(in) sensors,
type(func2d_struct), dimension(nfunc2d), intent(in) func2d,
type (inicrack_), dimension(ninicrack) inicrack,
integer, dimension(3,*), intent(in) ipreload,
dimension(6,*), intent(in) preload,
integer, dimension(*), intent(in) iflag_bpreload,
integer, dimension(nummpc), intent(in) ibmpc,
integer, dimension(lmpc), intent(in) ibmpc2,
integer, dimension(lmpc), intent(in) ibmpc3,
integer, dimension(lmpc), intent(in) ibmpc4,
dimension(srbmpc), intent(in) rbmpc,
integer, dimension(*), intent(in) ljoint,
integer, dimension(10,snnlink), intent(in) nnlink,
integer, dimension(slnlink), intent(in) lnlink,
dimension(sbufsf), intent(in) bufsf,
integer, intent(in) sbufsf_,
dimension(20,ns_stack), intent(in) pm_stack,
dimension(6*npt_stack+1,ns_stack), intent(in) geo_stack,
integer, dimension(4* npt_stack+2,ns_stack), intent(in) igeo_stack,
integer, dimension(nparg,ngroup), intent(in) iparg,
integer, dimension(kipadmesh,*), intent(in) ipadmesh,
dimension(kpadmesh,*), intent(in) padmesh,
integer, intent(in) liflow,
integer, intent(in) lrflow,
integer, dimension(liflow), intent(in) iflow,
intent(in) rflow,
integer, dimension(ksh4tree,*), intent(in) sh4tree,
integer, dimension(ksh3tree,*), intent(in) sh3tree,
integer, dimension(*), intent(in) sh4trim,
integer, dimension(*), intent(in) sh3trim,
integer, dimension(nperturb,6), intent(in) qp_iperturb,
dimension(nperturb,4), intent(in) qp_rperturb,
integer, intent(in) llinal,
integer, dimension(llinal), intent(in) linale,
type (fvm_inivel_struct), dimension(ninvel), intent(in) fvm_inivel,
integer, dimension(lkjni,*), intent(in) gjbufi,
dimension(lkjnr,*), intent(in) gjbufr,
dimension(*), intent(in) ms,
dimension(*), intent(in) in,
integer, dimension(3,nbgauge), intent(in) lgauge,
dimension(llgauge,nbgauge), intent(in) gauge,
integer, dimension(nixx,*), intent(in) kxx,
integer, dimension(*), intent(in) ixx,
integer, dimension(*), intent(in) ipartx,
integer, dimension(4,*), intent(in) ixri,
integer, dimension(8,*), intent(in) ixs16,
integer, dimension(*), intent(in) iexmad,
integer, dimension(nbipm,nfxbody), intent(in) fxbipm,
character, dimension(nfxbody) fxbfile_tab,
integer, dimension(*), intent(in) eigipm,
dimension(*), intent(in) eigrpm,
integer, dimension(nisphio,nsphio) isphio,
vsphio,
type(t_ebcs_tab), intent(in) ebcs_tab,
type(inimap1d_struct), dimension(ninimap1d), intent(in) inimap1d,
type(inimap2d_struct), dimension(ninimap2d), intent(in) inimap2d,
integer, intent(in) nsigsh,
dimension(max(1,nsigsh),*), intent(in) sigsh,
integer, intent(in) nsigi,
dimension(nsigi,*), intent(in) sigsp,
integer, intent(in) nsigs,
dimension(nsigs,*), intent(in) sigi,
integer, intent(in) nsigbeam,
dimension(nsigbeam,*), intent(in) sigbeam,
integer, intent(in) nsigtruss,
dimension(nsigtruss,*), intent(in) sigtruss,
integer, intent(in) nsigrs,
dimension(nsigrs,*), intent(in) sigrs,
integer, dimension(*), intent(in) merge_node_tab,
dimension(*), intent(in) merge_node_tol,
integer, dimension(*), intent(in) imerge,
integer, intent(in) nmerge_tot,
integer, dimension(nr2r,*), intent(in) iexlnk,
type (drapeg_) drapeg,
type(user_windows_), intent(in) user_windows,
type(output_), intent(in) output,
type(defaults_), intent(in) defaults,
type(glob_therm_), intent(in) glob_therm,
type(pblast_), intent(in) pblast,
integer, dimension(numelp), intent(in) ibeam_vector,
dimension(3,numelp), intent(in) rbeam_vector,
integer, dimension(npart), intent(in) damp_range_part )
Parameters
[in]damp_range_partflag to compute the damping range
[in]defaultsDefaults mod

Definition at line 74 of file st_qaprint_driver.F.

120C-----------------------------------------------
121C M o d u l e s
122C-----------------------------------------------
123 USE qa_out_mod
124 USE intbufdef_mod
125 USE cluster_mod
126 USE optiondef_mod
127 USE monvol_struct_mod
128 USE intbuf_fric_mod
129 USE groupdef_mod
130 USE detonators_mod
131 USE table_mod
132 USE setdef_mod
133 USE submodel_mod
134 USE drape_mod
135 USE unitab_mod
136 USE ale_ebcs_mod
137 USE sensor_mod
138 USE func2d_mod
139 USE multi_fvm_mod
140 USE ebcs_mod
141 USE inimap1d_mod
142 USE inimap2d_mod
143 USE user_windows_mod
144 USE output_mod
145 USE mat_elem_mod
146 USE defaults_mod
147 USE names_and_titles_mod , ONLY : nchartitle
148 use glob_therm_mod
149 USE pblast_mod
150 use element_mod , only : nixs,nixq,nixc,nixt,nixp,nixr,nixtg
151C-----------------------------------------------
152C I m p l i c i t T y p e s
153C-----------------------------------------------
154#include "implicit_f.inc"
155C-----------------------------------------------
156C C o m m o n B l o c k s
157C-----------------------------------------------
158#include "com01_c.inc"
159#include "com04_c.inc"
160#include "lagmult.inc"
161#include "param_c.inc"
162#include "scr03_c.inc"
163#include "scr17_c.inc"
164#include "scr23_c.inc"
165#include "tabsiz_c.inc"
166#include "sphcom.inc"
167#include "com_xfem1.inc"
168#include "fxbcom.inc"
169C-----------------------------------------------
170C D u m m y A r g u m e n t s
171C-----------------------------------------------
172 INTEGER, INTENT(IN) :: NOM_OPT(LNOPT1,SNOM_OPT1), INOM_OPT(SINOM_OPT)
173 INTEGER, INTENT(IN) :: ITAB(NUMNOD),IXR_KJ(5,*)
174 INTEGER, INTENT(IN) :: NNLINK(10,SNNLINK), LNLINK(SLNLINK)
175 TYPE (CLUSTER_) ,DIMENSION(NCLUSTER) :: CLUSTERS
176 INTEGER,INTENT(IN) :: NOM_SECT(SNOM_SECT),NSTRF(SNSTRF),IGEO_STACK(4* NPT_STACK+2,NS_STACK)
177 my_real,INTENT(IN) :: secbuf(ssecbuf)
178 TYPE(MONVOL_STRUCT_), DIMENSION(NVOLU), INTENT(IN) :: T_MONVOL
179 TYPE(MONVOL_METADATA_), INTENT(IN) :: T_MONVOL_METADATA
180 TYPE(SUBSET_), DIMENSION(NSUBS), INTENT(IN) :: SUBSETS
181 TYPE(DETONATORS_STRUCT_) :: DETONATORS
182 my_real, INTENT(IN) :: xlas(*)
183 INTEGER, INTENT(IN) :: LAS(*)
184 TYPE (DRAPE_) :: DRAPE(NUMELC_DRAPE + NUMELTG_DRAPE)
185 TYPE (DRAPEG_) :: DRAPEG
186 INTEGER, INTENT(IN) :: IACTIV(LACTIV,*)
187 my_real, INTENT(IN) :: factiv(lractiv,*),geo_stack(6*npt_stack+1,ns_stack),pm_stack(20,ns_stack)
188 TYPE (UNIT_TYPE_) ::UNITAB
189 my_real, INTENT(IN) :: xyzref(sx)
190 TYPE (SENSORS_) ,INTENT(IN) :: SENSORS
191 TYPE(FUNC2D_STRUCT), DIMENSION(NFUNC2D), INTENT(IN) :: FUNC2D
192 TYPE (INICRACK_) , DIMENSION(NINICRACK) :: INICRACK
193 INTEGER, INTENT(IN) :: LLINAL
194 INTEGER, DIMENSION(LLINAL), INTENT(IN) :: LINALE
195 my_real, INTENT(IN) :: qp_rperturb(nperturb,4)
196 INTEGER, INTENT(IN) :: QP_IPERTURB(NPERTURB,6)
197 TYPE (FVM_INIVEL_STRUCT), DIMENSION(NINVEL), INTENT(IN) :: FVM_INIVEL
198 INTEGER, INTENT(IN) :: LGAUGE(3,NBGAUGE)
199 my_real, INTENT(IN) :: gauge(llgauge,nbgauge)
200 INTEGER, INTENT(IN) :: KXX(NIXX,*)
201 INTEGER, INTENT(IN) :: IXX(*)
202 INTEGER, INTENT(IN) :: IXRI(4,*)
203 INTEGER, INTENT(IN) :: FXBIPM(NBIPM,NFXBODY),EIGIPM(*)
204 my_real, INTENT(IN) :: eigrpm(*)
205 CHARACTER, DIMENSION(NFXBODY) :: FXBFILE_TAB*2148
206 INTEGER ISPHIO(NISPHIO,NSPHIO)
207 my_real
208 . vsphio(svsphio)
209 TYPE(t_ebcs_tab), INTENT(IN) :: EBCS_TAB
210 TYPE(INIMAP1D_STRUCT), DIMENSION(NINIMAP1D), INTENT(IN) :: INIMAP1D
211 TYPE(INIMAP2D_STRUCT), DIMENSION(NINIMAP2D), INTENT(IN) :: INIMAP2D
212 INTEGER, INTENT(IN) :: NSIGSH,NSIGI,NSIGS,NSIGBEAM,NSIGTRUSS,NSIGRS
213 my_real, INTENT(IN) :: sigsh(max(1,nsigsh),*),sigsp(nsigi,*),sigi(nsigs,*),
214 . sigbeam(nsigbeam,*),sigtruss(nsigtruss,*),
215 . sigrs(nsigrs,*)
216 INTEGER, INTENT(IN) :: IMERGE(*),MERGE_NODE_TAB(*),NMERGE_TOT
217 my_real, INTENT(IN) :: merge_node_tol(*)
218 INTEGER,INTENT(IN) :: IPARG(NPARG,NGROUP)
219 INTEGER, INTENT(IN) :: IBEAM_VECTOR(NUMELP)
220 my_real, INTENT(IN) :: rbeam_vector(3,numelp)
221 INTEGER ,INTENT(IN) :: DAMP_RANGE_PART(NPART) !< flag to compute the damping range
222 TYPE(USER_WINDOWS_),INTENT(IN) :: USER_WINDOWS
223 TYPE(OUTPUT_) ,INTENT(IN) :: OUTPUT
224 TYPE(MAT_ELEM_) ,INTENT(IN) :: MAT_ELEM
225 TYPE(DEFAULTS_) ,INTENT(IN) :: DEFAULTS !< Defaults mod
226 TYPE(glob_therm_) ,intent(in) :: glob_therm
227 TYPE(PBLAST_) ,INTENT(IN) :: PBLAST
228C-----------------------------------------------
229C NOM_OPT(LNOPT1,SNOM_OPT1)
230C * Possibly, NOM_OPT(1) = ID
231C NOM_OPT(LNOPT1-LTITL+1:LTITL) <=> TITLES of the OPTIONS
232C--------------------------------------------------
233C SNOM_OPT1= NRBODY+NACCELM+NVOLU+NINTER+NINTSUB+
234C + NRWALL+NJOINT+NSECT+NLINK+
235C + NUMSKW+1+NUMFRAM+1+NFXBODY+NFLOW+NRBE2+
236C + NRBE3+NSUBMOD+NFXVEL+NUMBCS+NUMMPC+
237C + NGJOINT+NUNIT0+NFUNCT+NADMESH+
238C + NSPHIO+NSPCOND+NRBYKIN+NEBCS+
239C + NINICRACK+NODMAS+NBGAUGE+NCLUSTER+NINTERFRIC+
240C + NRBMERGE
241C-----------------------------------------------
242C INOM_OPT(SINOM_OPT)
243C--------------------------------------------------
244C INOM_OPT(1) = NRBODY
245C INOM_OPT(2) = INOM_OPT(1) + NACCELM
246C INOM_OPT(3) = INOM_OPT(2) + NVOLU
247C INOM_OPT(4) = INOM_OPT(3) + NINTER
248C INOM_OPT(5) = INOM_OPT(4) + NINTSUB
249C INOM_OPT(6) = INOM_OPT(5) + NRWALL
250C INOM_OPT(7) = INOM_OPT(6)
251C INOM_OPT(8) = INOM_OPT(7) + NJOINT
252C INOM_OPT(9) = INOM_OPT(8) + NSECT
253C INOM_OPT(10)= INOM_OPT(9) + NLINK
254C INOM_OPT(11)= INOM_OPT(10)+ NUMSKW+1+NUMFRAM+1+NSUBMOD
255C INOM_OPT(12)= INOM_OPT(11)+ NFXBODY
256C INOM_OPT(13)= INOM_OPT(12)+ NFLOW
257C INOM_OPT(14)= INOM_OPT(13)+ NRBE2
258C INOM_OPT(15)= INOM_OPT(14)+ NRBE3
259C INOM_OPT(16)= INOM_OPT(15)+ NFXVEL
260C INOM_OPT(17)= INOM_OPT(16)+ NUMBCS
261C INOM_OPT(18)= INOM_OPT(17)+ NUMMPC
262C INOM_OPT(19)= INOM_OPT(18)+ NGJOINT
263C INOM_OPT(20)= INOM_OPT(19)+ NUNIT0
264C INOM_OPT(21)= INOM_OPT(20)+ NFUNCT
265C INOM_OPT(22)= INOM_OPT(21)+ NADMESH
266C INOM_OPT(23)= INOM_OPT(22)+ NSPHIO
267C INOM_OPT(24)= INOM_OPT(23)+ NSPCOND
268C INOM_OPT(25)= INOM_OPT(24)+ NEBCS
269C INOM_OPT(26)= INOM_OPT(25)+ NINICRACK
270C INOM_OPT(27)= INOM_OPT(26)+ NODMAS
271C INOM_OPT(28)= INOM_OPT(27)+ NBGAUGE
272C INOM_OPT(29)= INOM_OPT(28)+ NCLUSTER
273C INOM_OPT(30)= INOM_OPT(29)+ NINTERFRIC
274C INOM_OPT(31)= INOM_OPT(30)+ NRBMERGE
275C .. TO BE MAINTAINED (cf doc/inom_opt.txt) ..
276C-----------------------------------------------
277 INTEGER, INTENT(IN) :: NIMPDISP,NIMPVEL,NIMPACC
278 INTEGER, INTENT(IN) :: IGEO(NPROPGI,NUMGEO),IPM(NPROPMI,NUMMAT)
279 INTEGER, INTENT(IN) :: NUMLOADP, ILOADP(SIZLOADP,NLOADP), LLOADP(NUMLOADP)
280 INTEGER, INTENT(IN) :: ICFIELD(SIZFIELD,NLOADC), LCFIELD(SLCFIELD)
281 INTEGER, INTENT(IN) :: IBCL(NIBCLD,NCONLD-NPRELD), IPRES(NIBCLD,NPRELD)
282 INTEGER, INTENT(IN) :: IGRV(NIGRV,NGRAV), LGRV(*)
283 INTEGER, INTENT(IN) :: NPBY(NNPBY,NRBYKIN), NPBYL(NNPBY,NRBYLAG), LPBY(*), LPBYL(*)
284 INTEGER, INTENT(IN) :: IBCR(GLOB_THERM%NIRADIA,GLOB_THERM%NUMRADIA)
285 INTEGER, INTENT(IN) :: IBCV(GLOB_THERM%NICONV,GLOB_THERM%NUMCONV)
286 INTEGER, INTENT(IN) :: IBFTEMP(GLOB_THERM%NIFT,GLOB_THERM%NFXTEMP)
287 INTEGER, INTENT(IN) :: IBFFLUX(GLOB_THERM%NITFLUX,GLOB_THERM%NFXFLUX)
288 INTEGER, INTENT(IN) :: IBFVEL(NIFV,NFXVEL)
289 INTEGER, INTENT(IN) :: ICODE(NUMNOD), ISKEW(NUMNOD)
290 INTEGER, INTENT(IN) :: IBCSLAG(5,NBCSLAG)
291 INTEGER, INTENT(IN) :: IPARI(NPARI,NINTER)
292 INTEGER, INTENT(IN) :: LACCELM(3, NACCELM)
293 INTEGER, INTENT(IN) :: ISKWN(LISKN,*)
294 INTEGER, INTENT(IN) :: NPFRICORTH , PFRICORTH(*) , IREPFORTH(*)
295 INTEGER, INTENT(IN) :: TAGXREF(NUMNOD),IXC(NIXC,*),IXTG(NIXTG,*),IXS(NIXS,*), IXS10(6,*),
296 . IXS16(8,*)
297 INTEGER, INTENT(IN) :: ISOLNOD(NUMELS),IXR(NIXR,*), R_SKEW(*),IXP(NIXP,*),IXT(NIXT,*),
298 . IXQ(NIXQ,*),KXSP(NISP,*),IPARTSP(*),IPARTX(*)
299 INTEGER, INTENT(IN) :: NPRW(NRWALL,NNPRW),LPRW(SLPRW)
300 INTEGER, INTENT(IN) :: ITHVAR(SITHVAR),
301 . IPART(LIPART1*(NPART+NTHPART)),
302 . IPARTTH(18*(NPART+NTHPART)),NTHGRPMX,IBCSCYC(*)
303 INTEGER, INTENT(IN) :: NPTS,NPC(*),IRBE3(*),LRBE3(*),IRBE2(*),LRBE2(*)
304 INTEGER, INTENT(IN) :: MGRBY(NMGRBY,SMGRBY)
305 INTEGER, INTENT(IN) :: ISPCOND(NISPCOND,*),LJOINT(*),GJBUFI(LKJNI,*)
306 INTEGER, INTENT(IN) :: IRAND(*)
307 INTEGER, INTENT(IN) :: IPRELOAD(3,*), IFLAG_BPRELOAD(*)
308 INTEGER, INTENT(IN) :: IBMPC(NUMMPC),IBMPC2(LMPC),IBMPC3(LMPC),IBMPC4(LMPC)
309 INTEGER, INTENT(IN) :: IPADMESH(KIPADMESH,*)
310 INTEGER, INTENT(IN) :: SH4TREE(KSH4TREE,*), SH3TREE(KSH3TREE,*),
311 . SH4TRIM(*),SH3TRIM(*)
312 INTEGER, INTENT(IN) :: IEXMAD(*),IEXLNK(NR2R,*)
313
314 my_real, INTENT(IN) ::
315 . geo(npropg,numgeo), bufgeo(*), pm(npropm,nummat), bufmat(*)
316 my_real, INTENT(IN) ::
317 . loadp(lfacload,nloadp), cfield(lfacload,nloadc),
318 . forc(lfaccld,nconld-npreld), pres(lfaccld,npreld),
319 . agrv(lfacgrv,ngrav),preload(6,*)
320 my_real, INTENT(IN) :: rby(nrby,nrbykin),rbyl(nrby,nrbylag),frbe3(sfrbe3)
321 my_real, INTENT(IN) :: gjbufr(lkjnr,*),ms(*),in(*)
322 my_real, INTENT(IN) :: fradia(glob_therm%LFACTHER,glob_therm%NUMRADIA)
323 my_real, INTENT(IN) :: fconv(glob_therm%LFACTHER,glob_therm%NUMCONV)
324 my_real, INTENT(IN) :: fbftemp(glob_therm%LFACTHER,glob_therm%NFXTEMP)
325 my_real, INTENT(IN) :: fbfflux(glob_therm%LFACTHER,glob_therm%NFXFLUX)
326 my_real, INTENT(IN) :: fbfvel(lfxvelr,nfxvel)
327 my_real, INTENT(IN) :: v(3,numnod), vr(svr) , ! SVR=3*NUMNOD*IRODDL
328 . w(sw) ! SW=3*NUMNOD*IALE
329 my_real, INTENT(IN) ::
330 . dampr(nrdamp,*)
331 my_real, INTENT(IN) ::
332 . temp(numnod)
333 my_real, INTENT(IN) ::
334 . accelm(llaccelm, naccelm)
335 my_real, INTENT(IN) ::
336 . skew(lskew,*)
337 my_real, INTENT(IN) ::
338 . xframe(nxframe,*)
339 my_real, INTENT(IN) ::
340 . i2rupt(6,*),areasl(*)
341 my_real, INTENT(IN) :: phiforth(*), vforth(3,*)
342 my_real, INTENT(IN) ::
343 . xrefc(4,3,numelc),xreftg(3,3,numeltg),xrefs(8,3,numels8)
344 my_real, INTENT(IN) ::
345 . rwbuf(nrwlp,nrwall)
346 my_real, INTENT(IN) ::
347 . pld(*)
348 my_real, INTENT(IN) ::
349 . x(3,numnod),
350 . thke(*),thkec(*),sh4ang(*),sh3ang(*)
351 my_real, INTENT(IN) ::
352 . rtrans(ntransf,*)
353 my_real, INTENT(IN) ::
354 . alea(*),xseed(*)
355 my_real, INTENT(IN) ::
356 . rbmpc(srbmpc)
357
358 my_real, INTENT(IN) :: bufsf(sbufsf)
359 INTEGER,INTENT(IN) :: SBUFSF_
360
361 my_real, INTENT(IN) :: padmesh(kpadmesh,*)
362
363 TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
364 TYPE (BOX_) ,DIMENSION(NBBOX) ,INTENT(IN) :: IBOX
365 TYPE (ADMAS_) ,DIMENSION(NODMAS) ,INTENT(IN) :: IPMAS
366 TYPE(INTBUF_FRIC_STRUCT_) INTBUF_FRIC_TAB(*)
367 TYPE(TTABLE) TABLE(*)
368!
369 TYPE (SET_) , DIMENSION(NSETS) :: SET
370 TYPE(SUBMODEL_DATA),INTENT(IN)::LSUBMODEL(*)
371 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRNOD) :: IGRNOD
372 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRPART) :: IGRPART
373 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRBRIC) :: IGRBRIC
374 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRSHEL) :: IGRSH4N
375 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRSH3N) :: IGRSH3N
376 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRQUAD) :: IGRQUAD
377 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRBEAM) :: IGRBEAM
378 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRTRUS) :: IGRTRUSS
379 TYPE (GROUP_) , INTENT(IN), DIMENSION(NGRSPRI) :: IGRSPRING
380 TYPE (SURF_) , INTENT(IN), DIMENSION(NSURF) :: IGRSURF
381 TYPE (SURF_) , INTENT(IN), DIMENSION(NSLIN) :: IGRSLIN
382 INTEGER, INTENT(IN) :: LIFLOW, LRFLOW
383 INTEGER, DIMENSION(LIFLOW), INTENT(IN) :: IFLOW
384 my_real, DIMENSION(LRFLOW), INTENT(IN) :: rflow
385C--------------------------------------------------
386C L o c a l V a r i a b l e s
387C-----------------------------------------------
388
389 ! doqa is set in QA_OUT_MOD depending on DO_QA env variable setting
390 ! we skip the specific QAPRINT treatment if doqa is != 1
391
392 IF ( doqa /= 1 ) RETURN
393
394 CALL st_qaprint_materials(mat_elem ,ipm ,pm ,bufmat )
395
396 CALL st_qaprint_properties(igeo ,geo ,bufgeo ,
397 . pm_stack ,geo_stack ,igeo_stack)
398
399 CALL st_qaprint_initial_conditions(
400 1 nom_opt ,inom_opt ,itab ,v ,vr ,
401 2 w ,temp ,inicrack ,fvm_inivel,
402 3 inimap1d, inimap2d)
403
404 CALL st_qaprint_constraints(nom_opt ,inom_opt ,npby ,lpby ,rby ,
405 2 ibftemp ,fbftemp ,ibfflux ,fbfflux ,itab ,
406 3 icode ,iskew ,ibcslag ,ibfvel ,fbfvel ,
407 4 nimpdisp ,nimpvel ,nimpacc ,rwbuf ,nprw ,
408 5 lprw ,ibcscyc ,irbe3 ,lrbe3 ,frbe3 ,
409 6 mgrby ,ispcond ,irbe2 ,lrbe2 ,npbyl ,
410 7 lpbyl ,rbyl ,ibmpc ,ibmpc2 ,ibmpc3 ,
411 8 ibmpc4 ,rbmpc ,ljoint ,nnlink ,lnlink,
412 9 llinal ,linale ,gjbufi ,gjbufr ,ms ,
413 9 in ,fxbipm ,fxbfile_tab,glob_therm)
414
415 CALL st_qaprint_loads(nom_opt ,inom_opt ,numloadp ,iloadp ,lloadp ,
416 2 loadp ,ibcl ,forc ,ipres ,pres ,
417 3 ibcr ,fradia ,ibcv ,fconv ,igrv ,
418 4 lgrv ,agrv ,icfield ,lcfield ,cfield ,
419 5 ipreload ,preload ,iflag_bpreload,
420 6 liflow, lrflow, iflow,rflow ,isphio ,vsphio,
421 7 glob_therm ,pblast )
422
423 CALL st_qaprint_general_controls(nom_opt ,inom_opt ,dampr, irand, alea,
424 1 xseed ,unitab ,qp_iperturb ,
425 2 qp_rperturb,eigipm , eigrpm, defaults ,
426 3 damp_range_part)
427 CALL st_qaprint_interfaces(nom_opt ,inom_opt ,ipari ,intbuf_tab,i2rupt ,
428 1 areasl,glob_therm%INTHEAT)
429 CALL st_qaprint_clusters(nom_opt ,inom_opt ,clusters)
430 CALL st_qaprint_output_databases(nom_opt, inom_opt, laccelm ,accelm,lgauge,gauge)
431 CALL st_qaprint_model_tools(nom_opt, inom_opt, ibox, ipmas, nom_sect, nstrf, secbuf ,
432 . skew , iskwn , xframe, npc,pld,table,npts,
433 . iactiv , factiv ,sensors,func2d)
434 CALL st_qaprint_monvol(t_monvol, t_monvol_metadata)
435 CALL st_qaprint_friction(nom_opt,inom_opt,intbuf_fric_tab,npfricorth,pfricorth ,irepforth,phiforth,vforth)
436 CALL st_qaprint_reference_state(xrefc ,xreftg ,xrefs ,tagxref ,
437 1 ixs ,ixc ,ixtg )
438
439 CALL st_qaprint_time_histories(output%TH ,ithvar ,ipart ,subsets ,
440 1 ipartth ,nthgrpmx )
441
442 CALL st_qaprint_dfs_detonators(detonators)
443
444 CALL st_qaprint_dfs_lasers(xlas,las)
445
446 CALL st_qaprint_nodes(itab ,x,imerge,merge_node_tol, merge_node_tab,nmerge_tot,ms)
447
448 CALL st_qaprint_element(ixs ,ixs10 ,ipm ,igeo ,itab ,
449 1 isolnod,ixr,r_skew,iskwn,ixp,
450 2 ixt ,x ,ixc ,ixtg ,thke,
451 3 sh4ang ,thkec,sh3ang,kxsp,ipartsp,
452 4 ipart ,ixr_kj,kxx, ixx ,ipartx,
453 5 ixri ,ixs16 ,ixq, ibeam_vector,rbeam_vector)
454
455!
456 CALL st_qaprint_set(set ,lsubmodel,itab ,igrnod ,igrpart,
457 . ipart ,igrbric ,igrsh4n ,igrsh3n,igrquad,
458 . igrbeam,igrtruss ,igrspring,igrsurf,igrslin,
459 . ixc ,ixtg ,ixq ,ixp ,ixt ,
460 . ixr ,ixs )
461 CALL st_qaprint_transformations(rtrans,lsubmodel,igrnod)
462 CALL st_qaprint_composite_options(drape,drapeg)
463 CALL st_qaprint_ale_options_driver
464 CALL st_qaprint_inivol()
465 CALL st_qaprint_refsta(xrefc ,xreftg ,xrefs ,tagxref ,ixs ,ixc ,ixtg ,itab, xyzref)
466 CALL st_qaprint_ebcs(ebcs_tab)
467 CALL st_qaprint_groups(igrnod ,igrpart ,igrbric ,igrsh4n ,igrsh3n ,
468 . igrquad,igrbeam ,igrtruss ,igrspring)
469 CALL st_qaprint_surf(igrsurf, igrslin, bufsf, sbufsf_)
470 CALL st_qaprint_admesh(ipart ,ipadmesh,padmesh,sh4tree,sh3tree,
471 . ixc ,ixtg ,sh4trim,sh3trim )
472 CALL st_qaprint_madymo(iexmad ,itab ,ipart ,ixs ,ixc ,ixtg )
473 CALL st_qaprint_seatbelts(itab)
474 CALL st_qaprint_initial_state(
475 . nsigsh ,sigsh ,nsigi ,sigsp ,nsigs ,
476 . sigi ,nsigbeam ,sigbeam ,nsigtruss,sigtruss,
477 . nsigrs ,sigrs )
478 CALL st_qaprint_multidomains(ipart,iexlnk,igrnod)
479 CALL st_qaprint_userwi(user_windows)
480 CALL st_qaprint_internal_groups(iparg)
481C-----------------------------------------------------------------------
482
483 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
i2rupt
subroutine i2rupt(x, v, a, ms, in, stifn, fsav, weight, irect, nsv, msr, irtl, irupt, crst, mmass, miner, smass, siner, area, uvar, xsm0, dsm, fsm, prop, ipari, nsn, nmn, nuvar, igtyp, pid, npf, tf, itab, fncont, pdama2, isym, inorm, h3d_data, fncontp, ftcontp)
Definition int2rupt.F:122
max
#define max(a, b)
Definition macros.h:21
ale_ebcs_mod
Definition ale_ebcs_mod.F:40
cluster_mod
Definition cluster_mod.F:40
detonators_mod
Definition detonators_mod.F:80
drape_mod
Definition drape_mod.F:54
func2d_mod
Definition func2d_mod.F:35
groupdef_mod
Definition groupdef_mod.F:668
inimap1d_mod
Definition inimap1d_mod.F:35
inimap2d_mod
Definition inimap2d_mod.F:35
monvol_struct_mod
Definition monvol_struct_mod.F:66
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1008
optiondef_mod
Definition optiondef_mod.F:90
qa_out_mod
Definition qa_out_mod.F:78
qa_out_mod::doqa
integer doqa
Definition qa_out_mod.F:84
setdef_mod
Definition setdef_mod.F:107
submodel_mod
Definition submodel_mod.F:717
table_mod
Definition table_mod.F:113
unitab_mod
Definition unitab_mod.F:517
user_windows_mod
Definition user_windows_mod.F:48
st_qaprint_admesh
subroutine st_qaprint_admesh(ipart, ipadmesh, padmesh, sh4tree, sh3tree, ixc, ixtg, sh4trim, sh3trim)
Definition st_qaprint_admesh.F:32
st_qaprint_ale_options_driver
subroutine st_qaprint_ale_options_driver
Definition st_qaprint_ale_options_driver.F:31
st_qaprint_clusters
subroutine st_qaprint_clusters(nom_opt, inom_opt, clusters)
Definition st_qaprint_clusters.F:33
st_qaprint_composite_options
subroutine st_qaprint_composite_options(drape, drapeg)
Definition st_qaprint_composite_options.F:32
st_qaprint_constraints
subroutine st_qaprint_constraints(nom_opt, inom_opt, npby, lpby, rby, ibftemp, fbftemp, ibfflux, fbfflux, itab, icode, iskew, ibcslag, ibfvel, fbfvel, nimpdisp, nimpvel, nimpacc, rwbuf, nprw, lprw, ibcscyc, irbe3, lrbe3, frbe3, mgrby, ispcond, irbe2, lrbe2, npbyl, lpbyl, rbyl, ibmpc, ibmpc2, ibmpc3, ibmpc4, rbmpc, ljoint, nnlink, lnlink, llinal, linale, gjbufi, gjbufr, ms, in, fxbipm, fxbfile_tab, glob_therm)
Definition st_qaprint_constraints.F:42
st_qaprint_dfs_detonators
subroutine st_qaprint_dfs_detonators(detonators)
Definition st_qaprint_dfs_detonators.F:32
st_qaprint_dfs_lasers
subroutine st_qaprint_dfs_lasers(xlas, ilas)
Definition st_qaprint_dfs_lasers.F:31
st_qaprint_ebcs
subroutine st_qaprint_ebcs(ebcs_tab)
Definition st_qaprint_ebcs.F:32
st_qaprint_element
subroutine st_qaprint_element(ixs, ixs10, ipm, igeo, itab, isolnod, ixr, r_skew, iskwn, ixp, ixt, x, ixc, ixtg, thke, sh4ang, thkec, sh3ang, kxsp, ipartsp, ipart, ixr_kj, kxx, ixx, ipartx, ixri, ixs16, ixq, ibeam_vector, rbeam_vector)
Definition st_qaprint_element.F:37
st_qaprint_friction
subroutine st_qaprint_friction(nom_opt, inom_opt, intbuf_fric_tab, npfricorth, pfricorth, irepforth, phiforth, vforth)
Definition st_qaprint_friction.F:33
st_qaprint_general_controls
subroutine st_qaprint_general_controls(nom_opt, inom_opt, dampr, irand, alea, xseed, unitab, qp_iperturb, qp_rperturb, eigipm, eigrpm, defaults, damp_range_part)
Definition st_qaprint_general_controls.F:34
st_qaprint_groups
subroutine st_qaprint_groups(igrnod, igrpart, igrbric, igrsh4n, igrsh3n, igrquad, igrbeam, igrtruss, igrspring)
Definition st_qaprint_groups.F:33
st_qaprint_initial_conditions
subroutine st_qaprint_initial_conditions(nom_opt, inom_opt, itab, v, vr, w, temp, inicrack, fvm_inivel, inimap1d, inimap2d)
Definition st_qaprint_initial_conditions.F:37
st_qaprint_initial_state
subroutine st_qaprint_initial_state(nsigsh, sigsh, nsigi, sigsp, nsigs, sigi, nsigbeam, sigbeam, nsigtruss, sigtruss, nsigrs, sigrs)
Definition st_qaprint_initial_state.F:34
st_qaprint_inivol
subroutine st_qaprint_inivol()
Definition st_qaprint_inivol.F:32
st_qaprint_interfaces
subroutine st_qaprint_interfaces(nom_opt, inom_opt, ipari, intbuf_tab, i2rupt, areasl, intheat)
Definition st_qaprint_interfaces.F:33
st_qaprint_internal_groups
subroutine st_qaprint_internal_groups(iparg)
Definition st_qaprint_internal_groups.F:32
st_qaprint_loads
subroutine st_qaprint_loads(nom_opt, inom_opt, numloadp, iloadp, lloadp, loadp, ibcl, forc, ipres, pres, ibcr, fradia, ibcv, fconv, igrv, lgrv, agrv, icfield, lcfield, cfield, ipreload, preload, iflag_bpreload, liflow, lrflow, iflow, rflow, isphio, vsphio, glob_therm, pblast)
Definition st_qaprint_loads.F:38
st_qaprint_madymo
subroutine st_qaprint_madymo(iexmad, itab, ipart, ixs, ixc, ixtg)
Definition st_qaprint_madymo.F:31
st_qaprint_materials
subroutine st_qaprint_materials(mat_elem, ipm, pm, bufmat)
Definition st_qaprint_materials.F:32
st_qaprint_model_tools
subroutine st_qaprint_model_tools(nom_opt, inom_opt, ibox, ipmas, nom_sect, nstrf, secbuf, skew, iskwn, xframe, npc, pld, table, npts, iactiv, factiv, sensors, func2d)
Definition st_qaprint_model_tools.F:39
st_qaprint_monvol
subroutine st_qaprint_monvol(t_monvol, t_monvol_metadata)
Definition st_qaprint_monvol.F:32
st_qaprint_multidomains
subroutine st_qaprint_multidomains(ipart, iexlnk, igrnod)
Definition st_qaprint_multidomains.F:32
st_qaprint_nodes
subroutine st_qaprint_nodes(itab, x, imerge, merge_node_tol, merge_node_tab, nmerge_tot, ms)
Definition st_qaprint_nodes.F:32
st_qaprint_output_databases
subroutine st_qaprint_output_databases(nom_opt, inom_opt, laccelm, accelm, lgauge, gauge)
Definition st_qaprint_output_databases.F:32
st_qaprint_properties
subroutine st_qaprint_properties(igeo, geo, bufgeo, pm_stack, geo_stack, igeo_stack)
Definition st_qaprint_properties.F:33
st_qaprint_reference_state
subroutine st_qaprint_reference_state(xrefc, xreftg, xrefs, tagxref, ixs, ixc, ixtg)
Definition st_qaprint_reference_state.F:33
st_qaprint_refsta
subroutine st_qaprint_refsta(xrefc, xreftg, xrefs, tagxref, ixs, ixc, ixtg, itab, xyzref)
Definition st_qaprint_refsta.F:32
st_qaprint_seatbelts
subroutine st_qaprint_seatbelts(itab)
Definition st_qaprint_seatbelts.F:31
st_qaprint_set
subroutine st_qaprint_set(set, lsubmodel, itab, igrnod, igrpart, ipart, igrbric, igrsh4n, igrsh3n, igrquad, igrbeam, igrtruss, igrspring, igrsurf, igrslin, ixc, ixtg, ixq, ixp, ixt, ixr, ixs)
Definition st_qaprint_set.F:44
st_qaprint_surf
subroutine st_qaprint_surf(igrsurf, igrslin, bufsf, sbufsf)
Definition st_qaprint_surf.F:32
st_qaprint_time_histories
subroutine st_qaprint_time_histories(th, ithvar, ipart, subsets, ipartth, nthgrpmx)
Definition st_qaprint_time_histories.F:33
st_qaprint_transformations
subroutine st_qaprint_transformations(rtrans, lsubmodel, igrnod)
Definition st_qaprint_transformations.F:32
st_qaprint_userwi
subroutine st_qaprint_userwi(user_windows)
Definition st_qaprint_userwi.F:31