OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
upgrade_remnode.F File Reference
#include "implicit_f.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine upgrade_remnode (ipari, nremnode, intbuf_tab, nty)
subroutine upgrade_remnode2 (ni, nremnode, intbuf_tab, nty)
subroutine upgrade_remnode_edg (ipari, nremnode, intbuf_tab)
subroutine upgrade_remnode_edg2 (ipari, nremnode, intbuf_tab)
subroutine upgrade_remnode_e2s (ipari, nremnode, intbuf_tab)

Function/Subroutine Documentation

◆ upgrade_remnode()

subroutine upgrade_remnode ( integer, dimension(*) ipari,
integer nremnode,
type(intbuf_struct_) intbuf_tab,
integer nty )

Definition at line 32 of file upgrade_remnode.F.

33C-----------------------------------------------
34C M o d u l e s
35C-----------------------------------------------
36 USE intbufmod
37 USE intbufdef_mod
38C-------------------------------------------------------
39C I m p l i c i t T y p e s
40C-----------------------------------------------
41#include "implicit_f.inc"
42C-----------------------------------------------
43C D u m m y A r g u m e n t s
44C-----------------------------------------------
45 INTEGER NI,NREMNODE,IPARI(*)
46C-----------------------------------------------
47C L o c a l V a r i a b l e s
48C-----------------------------------------------
49 INTEGER I,OLD_SIZE ,NTY
50
51 TYPE(INTBUF_STRUCT_) INTBUF_TAB
52 INTEGER, DIMENSION (:), ALLOCATABLE :: OLD_TAB
53C======================================================================|
54C Set Global parameters
55C Set the new NREMNODE parameter for the given Interface
56 ipari(62) = nremnode
57
58 old_size = intbuf_tab%S_REMNODE
59 ALLOCATE (old_tab(old_size))
60 !save values
61 DO i=1,old_size
62 old_tab(i)=intbuf_tab%REMNODE(i)
63 ENDDO
64 DEALLOCATE(intbuf_tab%REMNODE)
65
66 !reallocate with new size and copy saved values
67 intbuf_tab%S_REMNODE = nremnode
68 ALLOCATE(intbuf_tab%REMNODE(intbuf_tab%S_REMNODE))
69 intbuf_tab%REMNODE(1:intbuf_tab%S_REMNODE)=0
70 DO i=1,old_size
71 intbuf_tab%REMNODE(i) = old_tab(i)
72 ENDDO
73C
74 DEALLOCATE(old_tab)
75C
76 IF(nty == 25 ) THEN
77
78 intbuf_tab%KREMNOR(1:intbuf_tab%S_KREMNOR)=0
79
80 old_size = intbuf_tab%S_REMNOR
81 ALLOCATE (old_tab(old_size))
82 !save values
83 DO i=1,old_size
84 old_tab(i)=intbuf_tab%REMNOR(i)
85 ENDDO
86 DEALLOCATE(intbuf_tab%REMNOR)
87 !reallocate with new size and copy saved values
88 intbuf_tab%S_REMNOR = nremnode
89 ipari(81) = nremnode
90
91 ALLOCATE(intbuf_tab%REMNOR(intbuf_tab%S_REMNOR))
92 intbuf_tab%REMNOR(1:intbuf_tab%S_REMNOR)=0
93 DO i=1,old_size
94 intbuf_tab%REMNOR(i) = old_tab(i)
95 ENDDO
96
97 DEALLOCATE(old_tab)
98 ENDIF
99

◆ upgrade_remnode2()

subroutine upgrade_remnode2 ( integer ni,
integer nremnode,
type(intbuf_struct_) intbuf_tab,
integer nty )

Definition at line 111 of file upgrade_remnode.F.

112C-----------------------------------------------
113C M o d u l e s
114C-----------------------------------------------
115 USE restmod
116 USE intbufmod
117 USE intbufdef_mod
118C-------------------------------------------------------
119C I m p l i c i t T y p e s
120C-----------------------------------------------
121#include "implicit_f.inc"
122C-----------------------------------------------
123C C o m m o n B l o c k s
124C-----------------------------------------------
125#include "param_c.inc"
126C-----------------------------------------------
127C D u m m y A r g u m e n t s
128C-----------------------------------------------
129 INTEGER NI,NREMNODE,NTY
130C-----------------------------------------------
131C L o c a l V a r i a b l e s
132C-----------------------------------------------
133 INTEGER I,OLD_SIZE, NRTM, NSN, NEDGE
134
135 TYPE(INTBUF_STRUCT_) INTBUF_TAB
136 INTEGER, DIMENSION (:), ALLOCATABLE :: OLD_TAB
137C======================================================================|
138C Set Global parameters
139C Set the new NREMNODE parameter for the given Interface
140 ipari(npari*(ni-1)+62) = nremnode
141 ipari(npari*(ni-1)+81) = nremnode ! NREMNOR for T25
142 ipari(npari*(ni-1)+63) = 2
143 nrtm = ipari(npari*(ni-1)+4)
144 nsn = ipari(npari*(ni-1)+5)
145
146 !save old size and values for KREMNODE array
147 old_size = intbuf_tab%S_KREMNODE
148 ALLOCATE (old_tab(old_size))
149 !save values
150 DO i=1,old_size
151 old_tab(i)=intbuf_tab%KREMNODE(i)
152 ENDDO
153 DEALLOCATE(intbuf_tab%KREMNODE)
154
155 !reallocate with new size and copy saved values for KREMNODE array
156 intbuf_tab%S_KREMNODE = 2*(nrtm + 1)
157 ALLOCATE(intbuf_tab%KREMNODE(intbuf_tab%S_KREMNODE))
158 intbuf_tab%KREMNODE(1:intbuf_tab%S_KREMNODE)=0
159 DO i=1,old_size
160 intbuf_tab%KREMNODE(i) = old_tab(i)
161 ENDDO
162 DEALLOCATE(old_tab)
163
164 !save old size and values for REMNODE array
165 old_size = intbuf_tab%S_REMNODE
166 ALLOCATE (old_tab(old_size))
167 !save values
168 DO i=1,old_size
169 old_tab(i)=intbuf_tab%REMNODE(i)
170 ENDDO
171 DEALLOCATE(intbuf_tab%REMNODE)
172
173 !reallocate with new size and copy saved values for REMNODE array
174 intbuf_tab%S_REMNODE = nremnode
175 ALLOCATE(intbuf_tab%REMNODE(intbuf_tab%S_REMNODE))
176 intbuf_tab%REMNODE(1:intbuf_tab%S_REMNODE)=0
177 DO i=1,old_size
178 intbuf_tab%REMNODE(i) = old_tab(i)
179 ENDDO
180 DEALLOCATE(old_tab)
181C
182 IF(nty == 25 ) THEN
183
184 ! KREMNOR and REMNOR will be rebuilt after, from scratch !
185
186 DEALLOCATE(intbuf_tab%KREMNOR)
187 !reallocate with new size and initialize
188 intbuf_tab%S_KREMNOR = nsn + 1
189 ALLOCATE(intbuf_tab%KREMNOR(intbuf_tab%S_KREMNOR))
190 intbuf_tab%KREMNOR(1:intbuf_tab%S_KREMNOR)=0
191
192 DEALLOCATE(intbuf_tab%REMNOR)
193 !reallocate with new size and initialize
194 intbuf_tab%S_REMNOR = nremnode
195 ALLOCATE(intbuf_tab%REMNOR(intbuf_tab%S_REMNOR))
196 intbuf_tab%REMNOR(1:intbuf_tab%S_REMNOR)=0
197
198 IF(ipari(npari*(ni-1)+58) > 0.AND.intbuf_tab%S_KREMNODE_EDG ==0 ) THEN
199 nedge = ipari(npari*(ni-1)+68)
200 DEALLOCATE(intbuf_tab%KREMNODE_EDG)
201 intbuf_tab%S_KREMNODE_EDG = 2*(nedge + 1)
202 ALLOCATE(intbuf_tab%KREMNODE_EDG(intbuf_tab%S_KREMNODE_EDG))
203 intbuf_tab%KREMNODE_EDG(1:intbuf_tab%S_KREMNODE_EDG)=0
204 ENDIF
205 IF(ipari(npari*(ni-1)+58) > 0.AND.intbuf_tab%S_KREMNODE_E2S ==0 ) THEN
206 DEALLOCATE(intbuf_tab%KREMNODE_E2S)
207 intbuf_tab%S_KREMNODE_E2S= 2*(nrtm + 1)
208 ALLOCATE(intbuf_tab%KREMNODE_E2S(intbuf_tab%S_KREMNODE_E2S))
209 intbuf_tab%KREMNODE_E2S(1:intbuf_tab%S_KREMNODE_E2S)=0
210 ENDIF
211
212 END IF
213C
214 RETURN
restmod::ipari
integer, dimension(:), allocatable, target ipari
Definition restart_mod.F:60

◆ upgrade_remnode_e2s()

subroutine upgrade_remnode_e2s ( integer, dimension(npari), intent(inout) ipari,
integer, intent(in) nremnode,
type(intbuf_struct_) intbuf_tab )

Definition at line 346 of file upgrade_remnode.F.

347C-----------------------------------------------
348C M o d u l e s
349C-----------------------------------------------
350 USE intbufmod
351 USE intbufdef_mod
352C-------------------------------------------------------
353C I m p l i c i t T y p e s
354C-----------------------------------------------
355#include "implicit_f.inc"
356C-----------------------------------------------
357C C o m m o n B l o c k s
358C-----------------------------------------------
359#include "param_c.inc"
360C-----------------------------------------------
361C D u m m y A r g u m e n t s
362C-----------------------------------------------
363 INTEGER , INTENT(IN) :: NREMNODE
364 INTEGER , INTENT(INOUT) :: IPARI(NPARI)
365C-----------------------------------------------
366C L o c a l V a r i a b l e s
367C-----------------------------------------------
368 INTEGER I,OLD_SIZE ,NRTM
369
370 TYPE(INTBUF_STRUCT_) INTBUF_TAB
371 INTEGER, DIMENSION (:), ALLOCATABLE :: OLD_TAB
372C======================================================================|
373C Set Global parameters
374C Set the new NREMNODE parameter for the given Interface
375 ipari(96) = nremnode
376 nrtm = ipari(4)
377
378 DEALLOCATE(intbuf_tab%KREMNODE_E2S)
379
380 !reallocate with new size and copy saved values for KREMNODE array
381 intbuf_tab%S_KREMNODE_E2S = 2*(nrtm + 1)
382 ALLOCATE(intbuf_tab%KREMNODE_E2S(intbuf_tab%S_KREMNODE_E2S))
383 intbuf_tab%KREMNODE_E2S(1:intbuf_tab%S_KREMNODE_E2S)=0
384
385 old_size = intbuf_tab%S_REMNODE_E2S
386 ALLOCATE (old_tab(old_size))
387 !save values
388 DO i=1,old_size
389 old_tab(i)=intbuf_tab%REMNODE_E2S(i)
390 ENDDO
391 DEALLOCATE(intbuf_tab%REMNODE_E2S)
392
393 !reallocate with new size and copy saved values
394 intbuf_tab%S_REMNODE_E2S = nremnode
395 ALLOCATE(intbuf_tab%REMNODE_E2S(intbuf_tab%S_REMNODE_E2S))
396 intbuf_tab%REMNODE_E2S(1:intbuf_tab%S_REMNODE_E2S)=0
397 DO i=1,old_size
398 intbuf_tab%REMNODE_E2S(i) = old_tab(i)
399 ENDDO
400C
401 DEALLOCATE(old_tab)
402C
403

◆ upgrade_remnode_edg()

subroutine upgrade_remnode_edg ( integer, dimension(*) ipari,
integer nremnode,
type(intbuf_struct_) intbuf_tab )

Definition at line 224 of file upgrade_remnode.F.

225C-----------------------------------------------
226C M o d u l e s
227C-----------------------------------------------
228 USE intbufmod
229 USE intbufdef_mod
230C-------------------------------------------------------
231C I m p l i c i t T y p e s
232C-----------------------------------------------
233#include "implicit_f.inc"
234C-----------------------------------------------
235C D u m m y A r g u m e n t s
236C-----------------------------------------------
237 INTEGER NI,NREMNODE,IPARI(*)
238C-----------------------------------------------
239C L o c a l V a r i a b l e s
240C-----------------------------------------------
241 INTEGER I,OLD_SIZE ,NTY
242
243 TYPE(INTBUF_STRUCT_) INTBUF_TAB
244 INTEGER, DIMENSION (:), ALLOCATABLE :: OLD_TAB
245C======================================================================|
246C Set Global parameters
247C Set the new NREMNODE parameter for the given Interface
248 ipari(94) = nremnode
249
250 old_size = intbuf_tab%S_REMNODE_EDG
251 ALLOCATE (old_tab(old_size))
252 !save values
253 DO i=1,old_size
254 old_tab(i)=intbuf_tab%REMNODE_EDG(i)
255 ENDDO
256 DEALLOCATE(intbuf_tab%REMNODE_EDG)
257
258 !reallocate with new size and copy saved values
259 intbuf_tab%S_REMNODE_EDG = nremnode
260 ALLOCATE(intbuf_tab%REMNODE_EDG(intbuf_tab%S_REMNODE_EDG))
261 intbuf_tab%REMNODE_EDG(1:intbuf_tab%S_REMNODE_EDG)=0
262 DO i=1,old_size
263 intbuf_tab%REMNODE_EDG(i) = old_tab(i)
264 ENDDO
265C
266 DEALLOCATE(old_tab)
267C
268

◆ upgrade_remnode_edg2()

subroutine upgrade_remnode_edg2 ( integer, dimension(npari), intent(inout) ipari,
integer, intent(in) nremnode,
type(intbuf_struct_) intbuf_tab )

Definition at line 279 of file upgrade_remnode.F.

280C-----------------------------------------------
281C M o d u l e s
282C-----------------------------------------------
283 USE intbufmod
284 USE intbufdef_mod
285C-------------------------------------------------------
286C I m p l i c i t T y p e s
287C-----------------------------------------------
288#include "implicit_f.inc"
289C-----------------------------------------------
290C C o m m o n B l o c k s
291C-----------------------------------------------
292#include "param_c.inc"
293C-----------------------------------------------
294C D u m m y A r g u m e n t s
295C-----------------------------------------------
296 INTEGER , INTENT(IN) :: NREMNODE
297 INTEGER , INTENT(INOUT) :: IPARI(NPARI)
298C-----------------------------------------------
299C L o c a l V a r i a b l e s
300C-----------------------------------------------
301 INTEGER I,OLD_SIZE ,NEDGE
302
303 TYPE(INTBUF_STRUCT_) INTBUF_TAB
304 INTEGER, DIMENSION (:), ALLOCATABLE :: OLD_TAB
305C======================================================================|
306C Set Global parameters
307C Set the new NREMNODE parameter for the given Interface
308 ipari(94) = nremnode
309 nedge = ipari(68)
310
311 DEALLOCATE(intbuf_tab%KREMNODE_EDG)
312
313 !reallocate with new size and copy saved values for KREMNODE array
314 intbuf_tab%S_KREMNODE_EDG = 2*(nedge + 1)
315 ALLOCATE(intbuf_tab%KREMNODE_EDG(intbuf_tab%S_KREMNODE_EDG))
316 intbuf_tab%KREMNODE_EDG(1:intbuf_tab%S_KREMNODE_EDG)=0
317
318 old_size = intbuf_tab%S_REMNODE_EDG
319 ALLOCATE (old_tab(old_size))
320 !save values
321 DO i=1,old_size
322 old_tab(i)=intbuf_tab%REMNODE_EDG(i)
323 ENDDO
324 DEALLOCATE(intbuf_tab%REMNODE_EDG)
325
326 !reallocate with new size and copy saved values
327 intbuf_tab%S_REMNODE_EDG = nremnode
328 ALLOCATE(intbuf_tab%REMNODE_EDG(intbuf_tab%S_REMNODE_EDG))
329 intbuf_tab%REMNODE_EDG(1:intbuf_tab%S_REMNODE_EDG)=0
330 DO i=1,old_size
331 intbuf_tab%REMNODE_EDG(i) = old_tab(i)
332 ENDDO
333C
334 DEALLOCATE(old_tab)
335C
336