OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
st_qaprint_madymo.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| st_qaprint_madymo ../starter/source/output/qaprint/st_qaprint_madymo.F
25!||--- called by ------------------------------------------------------
26!|| st_qaprint_driver ../starter/source/output/qaprint/st_qaprint_driver.f
27!||--- calls -----------------------------------------------------
28!||--- uses -----------------------------------------------------
29!||====================================================================
30 SUBROUTINE st_qaprint_madymo(IEXMAD,ITAB,IPART,IXS,IXC,IXTG)
31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34 USE qa_out_mod
35 USE groupdef_mod
36 use element_mod , only : nixs,nixc,nixtg
37C-----------------------------------------------
38C I m p l i c i t T y p e s
39C-----------------------------------------------
40#include "implicit_f.inc"
41C-----------------------------------------------
42C C o m m o n B l o c k s
43C-----------------------------------------------
44#include "com04_c.inc"
45#include "scr17_c.inc"
46C-----------------------------------------------
47C D u m m y A r g u m e n t s
48C-----------------------------------------------
49 INTEGER, INTENT(IN) :: IEXMAD(*)
50 INTEGER, INTENT(IN) :: ITAB(*)
51 INTEGER, INTENT(IN) :: IPART(LIPART1,*)
52 INTEGER, INTENT(IN) :: IXS(NIXS,*)
53 INTEGER, INTENT(IN) :: IXC(NIXC,*)
54 INTEGER, INTENT(IN) :: IXTG(NIXTG,*)
55C--------------------------------------------------
56C L o c a l V a r i a b l e s
57C-----------------------------------------------
58 LOGICAL :: OK_QA
59 CHARACTER (LEN=255) :: VARNAME
60 INTEGER I
61C-----------------------------------------------
62C S o u r c e L i n e s
63C-----------------------------------------------
64 IF (myqakey('/MADYMO') ) THEN
65 DO i=1,nmadprt
66 WRITE(varname,'(a,i0)') 'madymo_part_',I
67 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IPART(4,IEXMAD(I)),0.0_8)
68 ENDDO
69C
70 DO I=NMADPRT+1,NMADPRT+NMADSH4
71 WRITE(VARNAME,'(a,i0)') 'madymo_sh4_',I
72 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IXC(NIXC,IEXMAD(I)),0.0_8)
73 ENDDO
74C
75 DO I=NMADPRT+NMADSH4+1,NMADPRT+NMADSH4+NMADSH3
76 WRITE(VARNAME,'(a,i0)') 'madymo_sh3_',I
77 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IXTG(NIXTG,IEXMAD(I)),0.0_8)
78 ENDDO
79C
80 DO I=NMADPRT+NMADSH4+NMADSH3+1,NMADPRT+NMADSH4+NMADSH3+NMADSOL
81 WRITE(VARNAME,'(a,i0)') 'madymo_sol_',I
82 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),IXS(NIXS,IEXMAD(I)),0.0_8)
83 ENDDO
84C
85 DO I=NMADPRT+NMADSH4+NMADSH3+NMADSOL+1,NMADPRT+NMADSH4+NMADSH3+NMADSOL+NMADNOD
86 WRITE(VARNAME,'(a,i0)') 'madymo_nod_',I
87 CALL QAPRINT(VARNAME(1:LEN_TRIM(VARNAME)),ITAB(IEXMAD(I)),0.0_8)
88 ENDDO
89 ENDIF
90C-----------------------------------------------
91 RETURN
92 END
93
logical function myqakey(value)
@purpose Check if a given value is part of the values set by env variable Useful to make a condition ...
Definition qa_out_mod.F:694
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)
subroutine st_qaprint_madymo(iexmad, itab, ipart, ixs, ixc, ixtg)
program starter
Definition starter.F:39