OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
w_tabmat_prop.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/.
23C
24!||====================================================================
25!|| w_tabmat_prop ../starter/source/restart/ddsplit/w_tabmat_prop.f
26!||--- called by ------------------------------------------------------
27!|| ddsplit ../starter/source/restart/ddsplit/ddsplit.F
28!||--- calls -----------------------------------------------------
29!||--- uses -----------------------------------------------------
30!|| mid_pid_mod ../starter/share/modules1/mid_pid_mod.F
31!||====================================================================
32 SUBROUTINE w_tabmat_prop(IPARG,IXC,IXTG,IXS,PROC,NGROUP_L,
33 . POIN_PART_SHELL,POIN_PART_TRI,POIN_PART_SOL,
34 . MID_PID_SHELL,MID_PID_TRI,MID_PID_SOL,
35 . IPARTC,IPARTG,IPARTS)
36 USE mid_pid_mod
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 "param_c.inc"
45#include "com01_c.inc"
46#include "com04_c.inc"
47C-----------------------------------------------
48C D u m m y A r g u m e n t s
49C-----------------------------------------------
50 INTEGER, DIMENSION(*), INTENT(IN) :: IPARTC,IPARTG,IPARTS
51 INTEGER, DIMENSION(2,NPART), INTENT(IN) :: POIN_PART_SHELL,POIN_PART_TRI
52 INTEGER, DIMENSION(2,NPART,7), INTENT(IN) :: POIN_PART_SOL
53 TYPE(mid_pid_type), DIMENSION(NUMMAT), INTENT(IN) :: MID_PID_SHELL,MID_PID_TRI
54 TYPE(mid_pid_type), DIMENSION(NUMMAT,7), INTENT(IN) :: MID_PID_SOL
55 INTEGER IPARG(NPARG,*)
56 INTEGER IXC(NIXC,NUMELC),IXTG(NIXTG,NUMELTG),IXS(NIXS,NUMELS)
57 INTEGER NGROUP_L,PROC
58C-----------------------------------------------
59C L o c a l V a r i a b l e s
60C-----------------------------------------------
61 my_real tab_mat(ngroup_l)
62 INTEGER NG_L,NG,P,MID,PID,NFT,ISOL,INDI,ITY,ILAW
63 INTEGER :: POIN_ELM_TYP,POIN_MID,POIN_PID,POIN_PART
64C-----------------------------------------------
65! write the element cost
66! for LAW = 0, write ZERO (because the array MID_PID_[X] does not exist)
67 ng_l=0
68 tab_mat(1:ngroup_l)=zero
69 DO ng=1,ngroup
70 p = iparg(32,ng)
71
72 IF(p==proc)THEN
73 ng_l = ng_l+1
74 nft = iparg(3,ng)+1
75 ity = iparg(5,ng)
76 ilaw = iparg(1,ng)
77
78 IF(ity==1) THEN
79 mid = ixs(1,nft)
80 pid = ixs(10,nft)
81 isol = iparg(28,ng)
82
83 IF(isol==4) THEN
84 indi = 6
85 poin_elm_typ = 6
86 ELSEIF(isol==6) THEN
87 indi = 5
88 poin_elm_typ = 5
89 ELSEIF(isol==8) THEN
90 indi = 1
91 poin_elm_typ = 7
92 ELSEIF(isol==10) THEN
93 indi = 2
94 poin_elm_typ = 2
95 ELSEIF(isol==16) THEN
96 indi = 3
97 poin_elm_typ = 3
98 ELSEIF(isol==20) THEN
99 indi = 4
100 poin_elm_typ = 4
101 ELSE
102 indi = 7
103 poin_elm_typ = 1
104 ENDIF
105
106 indi = indi+2
107 poin_part = iparts(nft)
108 poin_mid = poin_part_sol(1,poin_part,poin_elm_typ)
109 poin_pid = poin_part_sol(2,poin_part,poin_elm_typ)
110 IF(ilaw/=0) THEN
111 tab_mat(ng_l) = mid_pid_sol(poin_mid,poin_elm_typ)%COST1D(poin_pid)
112 ELSE
113 tab_mat(ng_l) = zero
114 ENDIF
115
116 ELSEIF(ity==3) THEN
117 mid = ixc(1,nft)
118 pid = ixc(6,nft)
119 poin_part = ipartc(nft)
120 poin_mid = poin_part_shell(1,poin_part)
121 poin_pid = poin_part_shell(2,poin_part)
122 IF(ilaw/=0) THEN
123 tab_mat(ng_l)= mid_pid_shell(poin_mid)%COST1D(poin_pid)
124 ELSE
125 tab_mat(ng_l) = zero
126 ENDIF
127
128 ELSEIF(ity==7) THEN
129 mid = ixtg(1,nft)
130 pid = ixtg(5,nft)
131 poin_part = ipartg(nft)
132 poin_mid = poin_part_tri(1,poin_part)
133 poin_pid = poin_part_tri(2,poin_part)
134 IF(ilaw/=0) THEN
135 tab_mat(ng_l)= mid_pid_tri(poin_mid)%COST1D(poin_pid)
136 ELSE
137 tab_mat(ng_l) = zero
138 ENDIF
139 ENDIF
140 ENDIF
141 ENDDO
142
143 CALL write_db(tab_mat,ngroup_l)
144C-----------------------------------------------
145 END
#define my_real
Definition cppsort.cpp:32
subroutine ddsplit(p, cep, cel, igeo, mat_elem, ipm, icode, iskew, iskn, insel, ibcslag, ipart, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, detonators, ipartx, npc, ixtg, group_param_tab, ixtg6, ixs, ixs10, ixs20, ixs16, ixq, ixc, ixt, ixp, ixr, itab, itabm1, gjbufi, nale, ale_connectivity, kxx, ixx, ibcl, ibfv, las, laccelm, nnlink, lllink, iparg, igrav, lgrav, ibvel, lbvel, iactiv, factiv, kinet, ipari, nprw, lprw, iexmad, npby, lpby, ixri, nstrf, ljoint, pornod, monvol, icontact, lagbuf, fr_iad, x, d, v, vr, dr, thke, dampr, damp, ms, in, tf, pm, skew, xframe, geo, eani, bufmat, bufgeo, bufsf, brmpc, gjbufr, w, veul, fill, dfill, wb, dsav, asav, msnf, spbuf, fac, vel, fsav, fzero, xlas, accelm, fbvel, gravfac, fr_wave, failwave, parts0, elbuf, rwl, rwsav, rby, rivet, secbuf, rvolu, rconx, nloc_dmg, fvmain, libagale, lenthg, lbufmat, lbufgeo, lbufsf, lenxlas, lnom_opt, lenlas, lenvolu, npts, cne, lcne, addcne, cni2, lcni2g, addcni2, cepi2, celi2, i2nsnt, probint, ddstat, pm1shf, dd_iad, kxsp, ixsp, nod2sp, cepsp, nthwa, nairwa, nmnt, l_mul_lag1, l_mul_lag, lwaspio, ipartsp, ispcond, pm1sph, wma, eigipm, eigibuf, eigrpm, iflow, rflow, memflow, iexlnk, fasolfr, iparth, fxbipm, fxbrpm, fxbnod, fxbmod, fxbglm, fxbcpm, fxbcps, fxblm, fxbfls, fxbdls, fxbdep, fxbvit, fxbacc, fxbelm, fxbsig, fxbgrvi, fxbgrvr, iadll, lll, ibmpc, lambda, lrbagale, iskwp, nskwp, isensp, nsensp, iaccp, naccp, ipart_state, mcp, temp, unitab, intstamp, iframe, clusters, partsav, ibft, fbft, ibcv, fconv, irbe3, lrbe3, frbe3, front_rm, rbym, irbym, lcrbym, inoise, fnoise, ms0, admsms, nom_sect, ispsym, sh4tree, sh3tree, ipadmesh, ibfflux, fbfflux, sh4trim, sh3trim, padmesh, msc, mstg, inc, intg, ptg, mcpc, mcptg, rcontact, acontact, pcontact, mscnd, incnd, mssa, mstr, msp, msrt, ibcr, fradia, dmelc, dmeltg, dmels, dmeltr, dmelp, dmelrt, res_sms, isphio, lprtsph, lonfsph, vsphio, sphveln, alph, ifill, ims, irbe2, lrbe2, ms_ply, zi_ply, inod_pxfem, iel_pxfem, icodply, iskwply, addcne_pxfem, cne_pxfem, cel_pxfem, ithvar, xdp, table, celsph, icfield, lcfield, cfield, msz2, itask, diag_sms, iloadp, lloadp, loadp, inod_crkxfem, iel_crkxfem, addcne_crkxfem, cne_crkxfem, cel_crkxfem, ibufssg_io, intercep, ibordnode, iedgesh, ibordedge, linale, nodedge, iedge, cep_crkxfem, iedge_tmp, crknodiad, elbuf_tab, nom_opt, lgauge, gauge, igaup, ngaup, nodlevxf, frontb_r2r, dflow, vflow, wflow, sph2sol, sol2sph, irst, elcutc, nodenr, kxfenod2elc, enrtag, intbuf_tab, i11flag, xfem_tab, lenthgr, rthbuf, ixig3d, kxig3d, knot, ipartig3d, wige, ncrkpart, indx_crk, crklvset, crkshell, crksky, crkavx, crkedge, sensors, stack, xfem_phantom, t8, tab_ump, poin_ump, sol2sph_typ, addcsrect, csrect, drape, loads, itagnd, icnds10, addcncnd, cepcnd, celcnd, cncnd, nativ_sms, i24maxnsne, multi_fvm, segquadfr, intbuf_fric_tab, subset, igrnod, igrbric, igrquad, igrsh4n, igrsh3n, igrtruss, igrbeam, igrspring, igrpart, igrsurf, igrslin, poin_part_shell, poin_part_tri, poin_part_sol, mid_pid_shell, mid_pid_tri, mid_pid_sol, tag_nm, nindx_nm, indx_nm, tag_scratch, nindx_scrt, indx_scrt, flag_24_25, numnod_l, tag_skn, multiple_skew, igrsurf_proc, knotlocpc, knotlocel, ale_elm, size_ale_elm, pinch_data, tag_skins6, ibcscyc, lbcscyc, t_monvol, indx_s, indx_q, indx_tg, face_elm_s, face_elm_q, face_elm_tg, nbr_th_monvol, ebcs_tab, kloadpinter, loadpinter, dgaploadint, s_loadpinter, len_cep, dynain_data, drapeg, user_windows, output, interfaces, number_load_cyl, loads_per_proc, python, dpl0cld, vel0cld, names_and_titles, bcs_per_proc, constraint_struct, glob_therm, pblast)
Definition ddsplit.F:336
program starter
Definition starter.F:39
subroutine w_tabmat_prop(iparg, ixc, ixtg, ixs, proc, ngroup_l, poin_part_shell, poin_part_tri, poin_part_sol, mid_pid_shell, mid_pid_tri, mid_pid_sol, ipartc, ipartg, iparts)
subroutine write_db(a, n)
Definition write_db.F:140