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

Go to the source code of this file.

Functions/Subroutines

subroutine io_type24 (ido, iout, igap, ipen0, i_stok, inacti, multimp, nmn, nrtm, nrtm0, nrtm_sh, nrtse, nsn, nsn0, nsne, numels, numels8, numels10, numels16, numels20, numnod, b_i_stok, icont_i, ipartns, irectm, irtlm, irtse, is2se, is2pt, itab, mbinflg, msegtyp24, msr, mwa, nbinflg, nod2els, knod2els, nseg, nsv, ixs, ixs10, ixs16, ixs20, mvoisin, variables, x, cand_e, cand_n, gap_m, gap_nm, gap_s, pene_old, penmin, stfm, stfns, stif_old, xfic, rwa)
subroutine io_int (scalar, iout, flag)
subroutine io_iarray (array, length, iout, flag)
subroutine io_rarray (array, length, iout, flag)

Function/Subroutine Documentation

◆ io_iarray()

subroutine io_iarray ( integer, dimension(length), intent(inout) array,
integer, intent(in) length,
integer, intent(in) iout,
logical, intent(in) flag )

Definition at line 366 of file io_type24.F.

367C============================================================================
368C-----------------------------------------------
369C M o d u l e s
370C-----------------------------------------------
371C-----------------------------------------------
372C I m p l i c i t T y p e s
373C-----------------------------------------------
374#include "implicit_f.inc"
375C-----------------------------------------------
376C G l o b a l P a r a m e t e r s
377C-----------------------------------------------
378
379 INTEGER, INTENT(IN) :: LENGTH,IOUT
380 INTEGER, INTENT(INOUT):: ARRAY(LENGTH)
381 LOGICAL, INTENT(IN) :: FLAG
382C-----------------------------------------------
383C L o c a l V a r i a b l e s
384C-----------------------------------------------
385 INTEGER :: I
386C-----------------------------------------------
387C S o u r c e L i n e s
388C-----------------------------------------------
389 ! Integer
390 IF(flag) THEN
391 DO i=1,length
392 WRITE(iout,'(I20.11)' ) array(i)
393c WRITE(700,*) "W",I,ARRAY(I)
394 ENDDO
395 ELSE
396 DO i=1,length
397 READ(iout,'(I20.11)' ) array(i)
398c WRITE(6,*) I,ARRAY(I)
399 ENDDO
400 ENDIF
401 RETURN

◆ io_int()

subroutine io_int ( integer, intent(inout) scalar,
integer, intent(in) iout,
logical, intent(in) flag )

Definition at line 326 of file io_type24.F.

327C============================================================================
328C-----------------------------------------------
329C M o d u l e s
330C-----------------------------------------------
331C-----------------------------------------------
332C I m p l i c i t T y p e s
333C-----------------------------------------------
334#include "implicit_f.inc"
335C-----------------------------------------------
336C G l o b a l P a r a m e t e r s
337C-----------------------------------------------
338
339 INTEGER, INTENT(IN) :: IOUT
340 INTEGER, INTENT(INOUT):: SCALAR
341 LOGICAL, INTENT(IN) :: FLAG
342C-----------------------------------------------
343C L o c a l V a r i a b l e s
344C-----------------------------------------------
345 INTEGER :: I
346C-----------------------------------------------
347C S o u r c e L i n e s
348C-----------------------------------------------
349 ! Integer
350 IF(flag) THEN
351 WRITE(iout,'(I20.11)' ) scalar
352c WRITE(700,*) "W",SCALAR,LOC(SCALAR)
353 ELSE
354 READ(iout,'(I20.11)' ) scalar
355c WRITE(6,*) SCALAR
356 ENDIF
357c CALL FLUSH(700)
358 RETURN

◆ io_rarray()

subroutine io_rarray ( dimension(length), intent(inout) array,
integer, intent(in) length,
integer, intent(in) iout,
logical, intent(in) flag )

Definition at line 409 of file io_type24.F.

410C-----------------------------------------------
411C M o d u l e s
412C-----------------------------------------------
413C-----------------------------------------------
414C I m p l i c i t T y p e s
415C-----------------------------------------------
416#include "implicit_f.inc"
417C-----------------------------------------------
418C G l o b a l P a r a m e t e r s
419C-----------------------------------------------
420
421 INTEGER, INTENT(IN) :: LENGTH,IOUT
422 my_real, INTENT(INOUT):: array(length)
423 LOGICAL, INTENT(IN) :: FLAG
424C-----------------------------------------------
425C L o c a l V a r i a b l e s
426C-----------------------------------------------
427 INTEGER :: I
428C-----------------------------------------------
429C S o u r c e L i n e s
430C-----------------------------------------------
431 IF(flag) THEN
432 DO i=1,length
433 WRITE(iout,'(Z20)' ) array(i)
434C WRITE(700,*) "W",I,ARRAY(I)
435 ENDDO
436 ELSE
437 DO i=1,length
438 READ(iout,'(Z20)' ) array(i)
439c WRITE(6,*) I,ARRAY(I)
440 ENDDO
441 ENDIF
442 RETURN
my_real
#define my_real
Definition cppsort.cpp:32

◆ io_type24()

subroutine io_type24 ( integer ido,
integer iout,
integer igap,
integer ipen0,
integer i_stok,
integer inacti,
integer multimp,
integer nmn,
integer nrtm,
integer nrtm0,
integer nrtm_sh,
integer nrtse,
integer nsn,
integer nsn0,
integer nsne,
integer numels,
integer numels8,
integer numels10,
integer numels16,
integer numels20,
integer numnod,
integer, dimension(*) b_i_stok,
integer, dimension(*) icont_i,
integer, dimension(*) ipartns,
integer, dimension(*) irectm,
integer, dimension(*) irtlm,
integer, dimension(*) irtse,
integer, dimension(*) is2se,
integer, dimension(*) is2pt,
integer, dimension (*) itab,
integer, dimension(*) mbinflg,
integer, dimension(*) msegtyp24,
integer, dimension(*) msr,
integer, dimension(*) mwa,
integer, dimension(*) nbinflg,
integer nod2els,
integer, dimension(*) knod2els,
integer, dimension(*) nseg,
integer, dimension(*) nsv,
integer, dimension(*) ixs,
integer, dimension(*) ixs10,
integer, dimension(*) ixs16,
integer, dimension (*) ixs20,
integer, dimension(*) mvoisin,
real(8), dimension(38) variables,
real(8), dimension(*) x,
integer, dimension(*) cand_e,
integer, dimension(*) cand_n,
real(8), dimension(*) gap_m,
real(8), dimension(*) gap_nm,
real(8), dimension(*) gap_s,
real(8), dimension(*) pene_old,
real(8), dimension(*) penmin,
real(8), dimension (*) stfm,
real(8), dimension(*) stfns,
real(8), dimension(*) stif_old,
real(8), dimension(*) xfic,
real(8), dimension (*) rwa )

Definition at line 29 of file io_type24.F.

86C============================================================================
87C-----------------------------------------------
88C M o d u l e s
89C-----------------------------------------------
90C-----------------------------------------------
91C I m p l i c i t T y p e s
92C-----------------------------------------------
93#include "implicit_f.inc"
94C-----------------------------------------------
95C D u m m y A r g u m e n t s
96C-----------------------------------------------
97 INTEGER :: IDO ! 0 => WRITE
98 ! 1 => READ SIZES
99 ! 2 => READ VALUES
100C=======================================================================
101 INTEGER :: IOUT
102 INTEGER :: IGAP
103 INTEGER :: IPEN0
104 INTEGER :: I_STOK
105 INTEGER :: INACTI
106 INTEGER :: MULTIMP
107 INTEGER :: NMN
108 INTEGER :: NRTM
109 INTEGER :: NRTM0
110 INTEGER :: NRTM_SH
111 INTEGER :: NRTSE
112 INTEGER :: NSN
113 INTEGER :: NSN0
114 INTEGER :: NSNE
115 INTEGER :: NUMELS
116 INTEGER :: NUMELS8
117 INTEGER :: NUMELS10
118 INTEGER :: NUMELS16
119 INTEGER :: NUMELS20
120 INTEGER :: NUMNOD
121C ============================================
122 INTEGER :: B_I_STOK(*)
123 INTEGER :: ICONT_I(*)
124 INTEGER :: IPARTNS(*)
125 INTEGER :: IRECTM(*)
126 INTEGER :: IRTLM(*)
127 INTEGER :: IRTSE(*)
128 INTEGER :: IS2SE(*)
129 INTEGER :: IS2PT(*)
130 INTEGER :: ITAB (*)
131 INTEGER :: MBINFLG(*)
132 INTEGER :: MSEGTYP24(*)
133 INTEGER :: MSR(*)
134 INTEGER :: MWA(*)
135 INTEGER :: NBINFLG(*)
136 INTEGER :: NOD2ELS,KNOD2ELS(*)
137 INTEGER :: NSEG(*)
138 INTEGER :: NSV(*)
139 INTEGER :: IXS(*)
140 INTEGER :: IXS10(*)
141 INTEGER :: IXS16(*)
142 INTEGER :: IXS20 (*)
143 INTEGER :: MVOISIN(*)
144 REAL(8) :: VARIABLES(38)
145 REAL(8) :: X(*)
146 INTEGER :: CAND_E(*)
147 INTEGER :: CAND_N(*)
148 REAL(8) :: GAP_M(*)
149 REAL(8) :: GAP_NM(*)
150 REAL(8) :: GAP_S(*)
151 REAL(8) :: PENE_OLD(*)
152 REAL(8) :: PENMIN(*)
153 REAL(8) :: STFM (*)
154 REAL(8) :: STFNS(*)
155 REAL(8) :: STIF_OLD(*)
156 REAL(8) :: XFIC(*)
157 REAL(8) :: RWA (*)
158C-----------------------------------------------
159C L o c a l V a r i a b l e s
160C-----------------------------------------------
161 INTEGER :: SIZ_B_I_STOK
162 INTEGER :: SIZ_ICONT_I
163 INTEGER :: SIZ_IPARTNS
164 INTEGER :: SIZ_IRECTM
165 INTEGER :: SIZ_IRTLM
166 INTEGER :: SIZ_IRTSE
167 INTEGER :: SIZ_IS2SE
168 INTEGER :: SIZ_IS2PT
169 INTEGER :: SIZ_ITAB
170 INTEGER :: SIZ_MBINFLG
171 INTEGER :: SIZ_MSEGTYP24
172 INTEGER :: SIZ_MSR
173 INTEGER :: SIZ_MWA
174 INTEGER :: SIZ_NBINFLG
175 INTEGER :: SIZ_NOD2ELS
176 INTEGER :: SIZ_KNOD2ELS
177 INTEGER :: SIZ_NSEG
178 INTEGER :: SIZ_NSV
179 INTEGER :: SIZ_IXS
180 INTEGER :: SIZ_IXS10
181 INTEGER :: SIZ_IXS16
182 INTEGER :: SIZ_IXS20
183 INTEGER :: SIZ_MVOISIN
184 INTEGER :: SIZ_X
185 INTEGER :: SIZ_CAND_E
186 INTEGER :: SIZ_CAND_N
187 INTEGER :: SIZ_GAP_M
188 INTEGER :: SIZ_GAP_NM
189 INTEGER :: SIZ_GAP_S
190 INTEGER :: SIZ_PENE_OLD
191 INTEGER :: SIZ_PENMIN
192 INTEGER :: SIZ_STFM
193 INTEGER :: SIZ_STFNS
194 INTEGER :: SIZ_STIF_OLD
195 INTEGER :: SIZ_XFIC
196 INTEGER :: SIZ_RWA
197 LOGICAL :: FLAG
198 INTEGER :: IEDGE
199 INTEGER :: IEDGE4
200 INTEGER :: ILEV
201
202C=======================================================================
203 iedge = 0
204 iedge4= 0
205 ilev = 1
206 flag = .false. !write
207
208 IF(ido==0) flag = .true. !read
209
210C============================ SIZES
211 IF(ido == 0 .OR. ido == 1) THEN
212 WRITE(6,*)"IGAP " ; CALL io_int(igap ,iout ,flag); CALL flush(6)
213 WRITE(6,*)"IPEN0 " ; CALL io_int(ipen0 ,iout ,flag); CALL flush(6)
214 WRITE(6,*)"I_STOK " ; CALL io_int(i_stok ,iout ,flag); CALL flush(6)
215 WRITE(6,*)"INACTI " ; CALL io_int(inacti ,iout ,flag); CALL flush(6)
216c WRITE(6,*)"MULTIMP " ; CALL IO_INT(MULTIMP ,IOUT ,FLAG); CALL FLUSH(6)
217 WRITE(6,*)"NMN " ; CALL io_int(nmn ,iout ,flag); CALL flush(6)
218 WRITE(6,*)"NRTM " ; CALL io_int(nrtm ,iout ,flag); CALL flush(6)
219 WRITE(6,*)"NRTM0 " ; CALL io_int(nrtm0 ,iout ,flag); CALL flush(6)
220 WRITE(6,*)"NRTM_SH " ; CALL io_int(nrtm_sh ,iout ,flag); CALL flush(6)
221 WRITE(6,*)"NRTSE " ; CALL io_int(nrtse ,iout ,flag); CALL flush(6)
222 WRITE(6,*)"NSN " ; CALL io_int(nsn ,iout ,flag); CALL flush(6)
223 WRITE(6,*)"NSN0 " ; CALL io_int(nsn0 ,iout ,flag); CALL flush(6)
224 WRITE(6,*)"NSNE " ; CALL io_int(nsne ,iout ,flag); CALL flush(6)
225 WRITE(6,*)"NUMELS " ; CALL io_int(numels ,iout ,flag); CALL flush(6)
226 WRITE(6,*)"NUMELS8 " ; CALL io_int(numels8 ,iout ,flag); CALL flush(6)
227 WRITE(6,*)"NUMELS10" ; CALL io_int(numels10 ,iout ,flag); CALL flush(6)
228 WRITE(6,*)"NUMELS16" ; CALL io_int(numels16 ,iout ,flag); CALL flush(6)
229 WRITE(6,*)"NUMELS20" ; CALL io_int(numels20 ,iout ,flag); CALL flush(6)
230 WRITE(6,*)"NUMNOD " ; CALL io_int(numnod ,iout ,flag); CALL flush(6)
231 ENDIF
232
233
234C============================= lengths
235 IF(ido == 0 .OR. ido ==2) THEN
236 siz_b_i_stok =1
237 siz_icont_i =nsn
238 siz_ipartns =nsn
239 siz_irectm =4 * nrtm
240 siz_irtlm =2 * nsn
241 siz_irtse = 0
242 siz_is2se = 0
243 IF(iedge4>0) siz_irtse =5 * nsne
244 IF(iedge4>0) siz_is2se =2 * nsne
245 siz_is2pt =nsne
246 siz_itab =numnod
247 siz_mbinflg = 0
248 IF(iedge >0 .OR. ilev == 2) siz_mbinflg =nrtm
249 siz_msegtyp24 =nrtm
250 siz_msr =nmn
251 siz_mwa =6*max(numnod,nrtm+100)
252 siz_nbinflg = 0
253 IF(iedge >0 .OR. ilev == 2) siz_nbinflg =nmn
254 siz_nod2els =8*numels+6*numels10+12*numels20+8*numels16
255 siz_knod2els =numnod + 1
256 siz_nseg =1+nmn
257 siz_nsv =nsn
258 siz_ixs =numels*11
259 siz_ixs10 =numels10*6
260 siz_ixs16 =numels20*12
261 siz_ixs20 =numels16*8
262 siz_mvoisin =nrtm*4
263 siz_x =numnod*3
264 siz_cand_e =(nsn * multimp)
265 siz_cand_n =(nsn * multimp )
266 siz_gap_m =0
267 IF(igap > 0 ) siz_gap_m =nrtm
268 siz_gap_nm =12*nrtm
269 siz_gap_s = 0
270 IF(igap > 0 ) siz_gap_s =nsn
271 siz_pene_old =5 *nsn
272 siz_penmin =nsn
273 siz_stfm =nrtm
274 siz_stfns =nsn
275 siz_stif_old =2*nsn
276 siz_xfic =3*nsne
277 siz_rwa =6*numnod
278
279C======================== INTEGERS
280 WRITE(6,*) " IPARTNS ";CALL io_iarray (ipartns ,siz_ipartns ,iout ,flag)
281 WRITE(6,*) " IRECTM ";CALL io_iarray (irectm ,siz_irectm ,iout ,flag)
282c WRITE(6,*) " IRTLM ";CALL IO_IARRAY (IRTLM ,SIZ_IRTLM ,IOUT ,FLAG)
283 WRITE(6,*) " IRTSE ";CALL io_iarray (irtse ,siz_irtse ,iout ,flag)
284 WRITE(6,*) " IS2SE ";CALL io_iarray (is2se ,siz_is2se ,iout ,flag)
285 WRITE(6,*) " IS2PT ";CALL io_iarray (is2pt ,siz_is2pt ,iout ,flag)
286 WRITE(6,*) " ITAB ";CALL io_iarray (itab ,siz_itab ,iout ,flag)
287 WRITE(6,*) " MBINFLG ";CALL io_iarray (mbinflg ,siz_mbinflg ,iout ,flag)
288 WRITE(6,*) " MSEGTYP24 ";CALL io_iarray (msegtyp24,siz_msegtyp24,iout ,flag)
289 WRITE(6,*) " MSR ";CALL io_iarray (msr ,siz_msr ,iout ,flag)
290c WRITE(6,*) " MWA ";CALL IO_IARRAY (MWA ,SIZ_MWA ,IOUT ,FLAG)
291 WRITE(6,*) " NBINFLG ";CALL io_iarray (nbinflg ,siz_nbinflg ,iout ,flag)
292 WRITE(6,*) " NOD2ELS ";CALL io_iarray (nod2els ,siz_nod2els ,iout ,flag)
293 WRITE(6,*) " KNOD2ELS ";CALL io_iarray (knod2els ,siz_knod2els ,iout ,flag)
294c WRITE(6,*) " NSEG ";CALL IO_IARRAY (NSEG ,SIZ_NSEG ,IOUT ,FLAG)
295 WRITE(6,*) " NSV ";CALL io_iarray (nsv ,siz_nsv ,iout ,flag)
296 WRITE(6,*) " ICONT_I ";CALL io_iarray (icont_i ,siz_icont_i ,iout ,flag)
297 WRITE(6,*) " IXS ";CALL io_iarray (ixs ,siz_ixs ,iout ,flag)
298 WRITE(6,*) " IXS10 ";CALL io_iarray (ixs10 ,siz_ixs10 ,iout ,flag)
299 WRITE(6,*) " IXS16 ";CALL io_iarray (ixs16 ,siz_ixs16 ,iout ,flag)
300 WRITE(6,*) " IXS20 ";CALL io_iarray (ixs20 ,siz_ixs20 ,iout ,flag)
301 WRITE(6,*) " MVOISIN ";CALL io_iarray (mvoisin ,siz_mvoisin ,iout ,flag)
302 WRITE(6,*) " CAND_E ";CALL io_iarray (cand_e ,siz_cand_e ,iout ,flag)
303 WRITE(6,*) " CAND_N ";CALL io_iarray (cand_n ,siz_cand_n ,iout ,flag)
304C=============================;=========================
305 WRITE(6,*) " VARIABLES ";CALL io_rarray (variables,38 ,iout ,flag)
306 WRITE(6,*) " X ";CALL io_rarray (x ,siz_x ,iout ,flag)
307 WRITE(6,*) " GAP_M ";CALL io_rarray (gap_m ,siz_gap_m ,iout ,flag)
308 WRITE(6,*) " GAP_NM ";CALL io_rarray (gap_nm ,siz_gap_nm ,iout ,flag)
309 WRITE(6,*) " GAP_S ";CALL io_rarray (gap_s ,siz_gap_s ,iout ,flag)
310c WRITE(6,*) " PENE_OLD ";CALL IO_RARRAY (PENE_OLD ,SIZ_PENE_OLD ,IOUT ,FLAG)
311c WRITE(6,*) " STFM ";CALL IO_RARRAY (STFM ,SIZ_STFM ,IOUT ,FLAG)
312c WRITE(6,*) " STFNS ";CALL IO_RARRAY (STFNS ,SIZ_STFNS ,IOUT ,FLAG)
313c WRITE(6,*) " STIF_OLD ";CALL IO_RARRAY (STIF_OLD ,SIZ_STIF_OLD ,IOUT ,FLAG)
314 WRITE(6,*) " XFIC ";CALL io_rarray (xfic ,siz_xfic ,iout ,flag)
315c WRITE(6,*) " RWA ";CALL IO_RARRAY (RWA ,SIZ_RWA ,IOUT ,FLAG)
316
317 ENDIF
318 CALL flush(6)
319 CALL flush(iout)
320
321 RETURN
io_rarray
subroutine io_rarray(array, length, iout, flag)
Definition io_type24.F:410
io_int
subroutine io_int(scalar, iout, flag)
Definition io_type24.F:327
io_iarray
subroutine io_iarray(array, length, iout, flag)
Definition io_type24.F:367
max
#define max(a, b)
Definition macros.h:21