OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
gendynain.F File Reference
#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "units_c.inc"
#include "scr17_c.inc"
#include "chara_c.inc"
#include "task_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine gendynain (x, elbuf_tab, bufel, ixc, ixtg, iparg, ipm, igeo, itab, ipart, pm, geo, ipartc, iparttg, leng, lengc, lengtg, weight, nodglob, thke, npby, lpby, stack, drape_sh4n, drape_sh3n, dynain_data, drapeg, mat_param)

Function/Subroutine Documentation

◆ gendynain()

subroutine gendynain ( x,
type (elbuf_struct_), dimension(ngroup), target elbuf_tab,
bufel,
integer, dimension(nixc,*) ixc,
integer, dimension(nixtg,*) ixtg,
integer, dimension(*) iparg,
integer, dimension(*) ipm,
integer, dimension(*) igeo,
integer, dimension(*) itab,
integer, dimension(lipart1,*) ipart,
pm,
geo,
integer, dimension(*) ipartc,
integer, dimension(*) iparttg,
integer leng,
integer lengc,
integer lengtg,
integer, dimension(*) weight,
integer, dimension(*) nodglob,
thke,
integer, dimension(nnpby,*) npby,
integer, dimension(*) lpby,
type (stack_ply) stack,
type (drape_), dimension(numelc_drape) drape_sh4n,
type (drape_), dimension(numeltg_drape) drape_sh3n,
type (dynain_database), intent(inout) dynain_data,
type (drapeg_) drapeg,
type (matparam_struct_), dimension(nummat), intent(in) mat_param )

Definition at line 50 of file gendynain.F.

56C-----------------------------------------------
57C M o d u l e s
58C-----------------------------------------------
59 USE elbufdef_mod
60 USE matparam_def_mod
61 USE message_mod
62 USE inoutfile_mod
63 USE stack_mod
64 USE drape_mod
65 USE state_mod
66C-----------------------------------------------
67C I m p l i c i t T y p e s
68C-----------------------------------------------
69#include "implicit_f.inc"
70C-----------------------------------------------
71C C o m m o n B l o c k s
72C-----------------------------------------------
73#include "com01_c.inc"
74#include "com04_c.inc"
75#include "param_c.inc"
76#include "units_c.inc"
77#include "scr17_c.inc"
78#include "chara_c.inc"
79#include "task_c.inc"
80C-----------------------------------------------
81C D u m m y A r g u m e n t s
82C-----------------------------------------------
83 INTEGER IPARG(*),
84 . IXC(NIXC,*),IXTG(NIXTG,*),IPM(*),IGEO(*),
85 . ITAB(*) ,IPART(LIPART1,*) ,IPARTC(*) ,IPARTTG(*),
86 . WEIGHT(*), NODGLOB(*), NPBY(NNPBY,*), LPBY(*)
87 INTEGER LENG,LENGC,LENGTG
88 my_real
89 . x(*), bufel(*),
90 . pm(npropm,*), geo(npropg,*) ,thke(*)
91 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
92 TYPE (STACK_PLY) :: STACK
93 TYPE (DRAPE_) :: DRAPE_SH4N(NUMELC_DRAPE),DRAPE_SH3N(NUMELTG_DRAPE)
94 TYPE (DRAPEG_) :: DRAPEG
95 TYPE (DYNAIN_DATABASE), INTENT(INOUT) :: DYNAIN_DATA
96 TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MAT_PARAM
97C-----------------------------------------------
98C L o c a l V a r i a b l e s
99C-----------------------------------------------
100 CHARACTER CHSTAT*4,FILNAM*100,T10*10,MES*40
101 INTEGER FILEN,I,INNODA,IERR,J,N
102 INTEGER LENR,SIZLOC,SIZP0
103 INTEGER , DIMENSION(:),ALLOCATABLE :: ITABG, NODTAG ,DYNAIN_INDXC ,
104 . DYNAIN_INDXTG
105 INTEGER CTEXT(2149)
106 double precision
107 . , DIMENSION(:),ALLOCATABLE :: wa,wap0
108
109 INTEGER :: LEN_TMP_NAME
110 CHARACTER(len=2148) :: TMP_NAME
111 LOGICAL IS_FILE_TO_BE_WRITTEN
112 CHARACTER*100 LINE
113C-----------------------------------------------
114C S o u r c e L i n e s
115C-----------------------------------------------
116C===============================================|
117C OPEN FILE
118C-----------------------------------------------
119 IF(dynain_data%IDYNAINF>=10000)dynain_data%IDYNAINF=1
120 WRITE(chstat,'(I4.4)')dynain_data%IDYNAINF
121 IF(dynain_data%ZIPDYNAIN==0) THEN ! Not zipped file
122 filnam=rootnam(1:rootlen)//'_'//chstat//'.dynain'
123 filen = rootlen + 12
124 len_tmp_name = outfile_name_len + filen
125 tmp_name=outfile_name(1:outfile_name_len)//filnam(1:filen)
126 IF(ispmd == 0) THEN
127 OPEN(unit=iudynain,file=tmp_name(1:len_tmp_name),access='SEQUENTIAL',form='FORMATTED',status='UNKNOWN')
128 WRITE(iudynain,'(2A)')'$RADIOSS DYNAIN FILE ',filnam(1:filen)
129 END IF
130 ELSE ! zipped file
131 filnam=rootnam(1:rootlen)//'_'//chstat//'.dynain'
132 filen = rootlen + 12
133 len_tmp_name = outfile_name_len + filen
134 tmp_name=outfile_name(1:outfile_name_len)//filnam(1:filen)
135 DO i=1,len_tmp_name
136 ctext(i)=ichar(tmp_name(i:i))
137 CALL cur_fil_c(0)
138 ENDDO
139 IF(ispmd == 0) THEN
140 CALL open_c(ctext,len_tmp_name,6)
141 WRITE(line,'(2A)') '$RADIOSS DYNAIN FILE ',filnam(1:filen)
142 CALL strs_txt50(line,100)
143 ENDIF
144 ENDIF
145
146c
147
148C-----------------------
149C Allocation Tabs
150C-----------------------
151 ALLOCATE(nodtag(numnod),stat=ierr)
152 ALLOCATE(itabg(leng),stat=ierr)
153 ALLOCATE(dynain_indxc(2*lengc),stat=ierr)
154 ALLOCATE(dynain_indxtg(2*lengtg),stat=ierr)
155C-----------------------------------------------
156C CONNECTIVITIES + NODAL COORDINATES
157C-----------------------------------------------
158c
159 IF (nspmd > 1)CALL spmd_outpitab(itab,weight,nodglob,itabg)
160
161 nodtag=0
162
163 dynain_data%DYNAIN_NUMELC =0
164 dynain_data%DYNAIN_NUMELTG =0
165
166 IF(nspmd == 1)THEN
167 ! - shells -
168 CALL dynain_shel_mp(itab ,itabg ,leng ,igeo ,ixc ,
169 . ixtg ,ipartc ,iparttg ,dynain_data ,
170 . nodtag ,dynain_indxc,dynain_indxtg,iparg ,
171 . elbuf_tab,thke ,ipart )
172 dynain_data%DYNAIN_NUMELC_G =dynain_data%DYNAIN_NUMELC
173 dynain_data%DYNAIN_NUMELTG_G =dynain_data%DYNAIN_NUMELTG
174 ELSE
175 ! - shells -
176 CALL dynain_shel_spmd(itab ,itabg ,leng ,igeo ,ixc ,
177 . ixtg ,ipartc ,iparttg ,dynain_data ,
178 . nodtag ,dynain_indxc,dynain_indxtg,iparg ,
179 . elbuf_tab,thke ,lengc ,lengtg ,ipart )
180 END IF
181
182
183C-----------------------------------------------
184C RIGID BODY'S PRIMARY NODE IS OUTPUTTED IF ONE OF ITS SECONDARY NODES ARE
185C-----------------------------------------------
186 DO i=1,nrbody
187 DO j=1,npby(2,i)
188 n=lpby(npby(11,i)+j)
189 IF (nodtag(n)/=0) THEN
190 nodtag(npby(1,i)) = 1
191 EXIT
192 END IF
193 ENDDO
194 ENDDO
195C-----------------------------------------------
196 CALL dynain_node(x,numnod,itab,itabg,leng,nodglob,weight,nodtag,dynain_data)
197
198C-----------------------------------------------
199 CALL dynain_size_c(iparg ,elbuf_tab, sizp0 ,sizloc ,dynain_data )
200
201C-----------------------------------------------
202C ALLOCATION OF TABLES
203C-----------------------------------------------
204 ierr = 0
205 IF(sizloc >= 1) THEN
206 ALLOCATE(wa(sizloc),stat=ierr)
207 ELSE
208 ALLOCATE(wa(1))
209 ENDIF
210 IF(ierr/=0)THEN
211 CALL ancmsg(msgid=252,anmode=aninfo,
212 . i1=ierr)
213 CALL arret(2)
214 END IF
215
216 ierr = 0
217 sizp0 = max(1,sizp0)
218 ALLOCATE(wap0(sizp0),stat=ierr)
219 IF(ierr/=0)THEN
220 CALL ancmsg(msgid=252,anmode=aninfo,
221 . i1=ierr)
222 CALL arret(2)
223 END IF
224C-----------------------------------------------
225C SHELL SCALAR
226C-----------------------------------------------
227
228
229 IF(dynain_data%DYNAIN_C(4)==1) THEN
230 CALL dynain_c_strsg(
231 1 elbuf_tab ,iparg ,igeo ,ixc ,
232 2 ixtg ,wa ,wap0 ,ipartc,iparttg,
233 3 dynain_data,dynain_indxc,dynain_indxtg,sizp0 ,
234 4 geo ,stack ,drape_sh4n ,drape_sh3n,x ,
235 5 thke , drapeg ,nummat ,mat_param )
236 ENDIF
237C------------------------------------------
238
239 IF(dynain_data%DYNAIN_C(5)==1) THEN
240 CALL dynain_c_strag(
241 1 elbuf_tab ,iparg ,ipm ,igeo ,ixc ,
242 2 ixtg ,wa ,wap0 ,ipartc,iparttg,
243 3 dynain_data,dynain_indxc,dynain_indxtg,sizp0 ,
244 4 geo ,stack ,drape_sh4n ,drape_sh3n,x ,
245 5 thke ,drapeg)
246 ENDIF
247
248C-----------------------------------------------
249
250 IF(sizloc >= 1) DEALLOCATE(wa)
251 IF(sizp0 >= 1) DEALLOCATE(wap0)
252C-----------------------
253C DEAllocation Tabs
254C-----------------------
255 DEALLOCATE(nodtag,itabg,dynain_indxc,dynain_indxtg)
256C-----------------------------------------------
257C END
258C-----------------------------------------------
259 IF(ispmd==0) THEN
260 IF(dynain_data%ZIPDYNAIN==0) THEN
261 WRITE(iudynain,'(A)')'*END '
262 CLOSE(UNIT=IUDYNAIN)
263 ELSE
264 CALL STRS_TXT50('*END ',7)
265 CALL CLOSE_C()
266 ENDIF
267
268 WRITE (IOUT,1000) FILNAM(1:FILEN)
269 WRITE (ISTDO,1000) FILNAM(1:FILEN)
270 ENDIF
271
272
273 1000 FORMAT (4X,' DYNAIN FILE:',1X,A,' WRITTEN')
274C
275 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
dynain_c_strag
subroutine dynain_c_strag(elbuf_tab, iparg, ipm, igeo, ixc, ixtg, wa, wap0, ipartc, iparttg, dynain_data, dynain_indxc, dynain_indxtg, sizp0, geo, stack, drape_sh4n, drape_sh3n, x, thke, drapeg)
Definition dynain_c_strag.F:47
dynain_c_strsg
subroutine dynain_c_strsg(elbuf_tab, iparg, igeo, ixc, ixtg, wa, wap0, ipartc, iparttg, dynain_data, dynain_indxc, dynain_indxtg, sizp0, geo, stack, drape_sh4n, drape_sh3n, x, thke, drapeg, nummat, mat_param)
Definition dynain_c_strsg.F:48
dynain_node
subroutine dynain_node(x, numnod, itab, itabg, leng, nodglob, weight, nodtag, dynain_data)
Definition dynain_node.F:35
dynain_shel_mp
subroutine dynain_shel_mp(itab, itabg, leng, igeo, ixc, ixtg, ipartc, iparttg, dynain_data, nodtag, dynain_indxc, dynain_indxtg, iparg, elbuf_tab, thke, ipart)
Definition dynain_shel_mp.F:38
dynain_shel_spmd
subroutine dynain_shel_spmd(itab, itabg, leng, igeo, ixc, ixtg, ipartc, iparttg, dynain_data, nodtag, dynain_indxc, dynain_indxtg, iparg, elbuf_tab, thke, lengc, lengtg, ipart)
Definition dynain_shel_spmd.F:40
dynain_size_c
subroutine dynain_size_c(iparg, elbuf_tab, p0ars, wasz, dynain_data)
Definition dynain_size.F:34
max
#define max(a, b)
Definition macros.h:21
drape_mod
Definition drape_mod.F:54
inoutfile_mod
Definition inoutfile_mod.F:96
inoutfile_mod::outfile_name
character(len=outfile_char_len) outfile_name
Definition inoutfile_mod.F:111
inoutfile_mod::outfile_name_len
integer outfile_name_len
Definition inoutfile_mod.F:109
message_mod
Definition message_mod.F:1249
stack_mod
Definition stack_mod.F:72
state_mod
Definition state_mod.F:54
spmd_outpitab
subroutine spmd_outpitab(v, weight, nodglob, vglob)
Definition spmd_outp.F:1077
strs_txt50
subroutine strs_txt50(text, length)
Definition sta_txt.F:87
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:889
arret
subroutine arret(nn)
Definition arret.F:87
cur_fil_c
void cur_fil_c(int *nf)
Definition write_routtines.c:477
open_c
void open_c(int *ifil, int *len, int *mod)
Definition write_routtines.c:180