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