OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
intstamp_mod Module Reference

Data Types

type  intstamp_data

Functions/Subroutines

subroutine intstamp_zero (intstamp)
subroutine intstamp_wresti (intstamp, leni, nodlocal)
subroutine intstamp_wrestr (intstamp, leni)
subroutine intstamp_rresti (intstamp)
subroutine intstamp_rrestr (intstamp)
subroutine intstamp_wresti (intstamp)
subroutine intstamp_wrestr (intstamp)

Function/Subroutine Documentation

◆ intstamp_rresti()

subroutine intstamp_mod::intstamp_rresti ( type(intstamp_data), dimension(*) intstamp)

Definition at line 273 of file intstamp_mod.F.

274C-----------------------------------------------
275C I m p l i c i t T y p e s
276C-----------------------------------------------
277#include "implicit_f.inc"
278C-----------------------------------------------
279C C o m m o n B l o c k s
280C-----------------------------------------------
281#include "com01_c.inc"
282#include "intstamp_c.inc"
283#include "units_c.inc"
284C-----------------------------------------------
285C D u m m y A r g u m e n t s
286C-----------------------------------------------
287 TYPE(INTSTAMP_DATA) INTSTAMP(*)
288C-----------------------------------------------
289C L o c a l V a r i a b l e s
290C-----------------------------------------------
291 INTEGER LEN, N, NCOND, J, STAT
292C--------------------------------------
293C ECRITURE DES DIMENSIONS
294C--------------------------------------
295 DO n=1,nintstamp
296 len =1
297 CALL read_i_c(intstamp(n)%NOINTER,len)
298 len =1
299 CALL read_i_c(intstamp(n)%IRB,len)
300 len =1
301 CALL read_i_c(intstamp(n)%MSR,len)
302 len =1
303 CALL read_i_c(intstamp(n)%IROT,len)
304 len =1
305 CALL read_i_c(intstamp(n)%INTDAMP,len)
306 END DO
307 RETURN
read_i_c
void read_i_c(int *w, int *len)
Definition write_routtines.c:805

◆ intstamp_rrestr()

subroutine intstamp_mod::intstamp_rrestr ( type(intstamp_data), dimension(*) intstamp)

Definition at line 313 of file intstamp_mod.F.

314C-----------------------------------------------
315C I m p l i c i t T y p e s
316C-----------------------------------------------
317#include "implicit_f.inc"
318C-----------------------------------------------
319C C o m m o n B l o c k s
320C-----------------------------------------------
321#include "com01_c.inc"
322#include "intstamp_c.inc"
323#include "units_c.inc"
324C-----------------------------------------------
325C D u m m y A r g u m e n t s
326C-----------------------------------------------
327 TYPE(INTSTAMP_DATA) INTSTAMP(*)
328C-----------------------------------------------
329C L o c a l V a r i a b l e s
330C-----------------------------------------------
331 INTEGER LEN, N, NCOND, J, STAT
332C--------------------------------------
333 DO n=1,nintstamp
334 len =1
335 CALL read_db(intstamp(n)%MASS,len)
336 len =3
337 CALL read_dpdb(intstamp(n)%XG,len)
338 len =3
339 CALL read_db(intstamp(n)%IN,len)
340 len =9
341 CALL read_db(intstamp(n)%ROT,len)
342 len =1
343 CALL read_db(intstamp(n)%DAMP,len)
344 len =1
345 CALL read_db(intstamp(n)%DAMPR,len)
346 len =3
347 CALL read_dpdb(intstamp(n)%D,len)
348 len =3
349 CALL read_db(intstamp(n)%V,len)
350 len =3
351 CALL read_dpdb(intstamp(n)%DR,len)
352 len =3
353 CALL read_db(intstamp(n)%VR,len)
354 len =1
355 CALL read_db(intstamp(n)%DW,len)
356 len =3
357 CALL read_db(intstamp(n)%BRACKET,len)
358 END DO
359 RETURN
read_dpdb
subroutine read_dpdb(a, n)
Definition read_db.F:251
read_db
subroutine read_db(a, n)
Definition read_db.F:88

◆ intstamp_wresti() [1/2]

subroutine intstamp_mod::intstamp_wresti ( type(intstamp_data), dimension(*) intstamp)

Definition at line 181 of file intstamp_mod.F.

182C-----------------------------------------------
183C I m p l i c i t T y p e s
184C-----------------------------------------------
185#include "implicit_f.inc"
186C-----------------------------------------------
187C C o m m o n B l o c k s
188C-----------------------------------------------
189#include "com01_c.inc"
190#include "intstamp_c.inc"
191#include "scr05_c.inc"
192#include "units_c.inc"
193C-----------------------------------------------
194C D u m m y A r g u m e n t s
195C-----------------------------------------------
196 TYPE(INTSTAMP_DATA) INTSTAMP(*)
197C-----------------------------------------------
198C L o c a l V a r i a b l e s
199C-----------------------------------------------
200 INTEGER LEN, N, J, NCOND
201C--------------------------------------
202C ECRITURE DES DIMENSIONS
203C--------------------------------------
204 DO n=1,nintstamp
205 len =1
206 CALL write_i_c(intstamp(n)%NOINTER,len)
207 len =1
208 CALL write_i_c(intstamp(n)%IRB,len)
209 len =1
210 CALL write_i_c(intstamp(n)%MSR,len)
211 len =1
212 CALL write_i_c(intstamp(n)%IROT,len)
213 len =1
214 CALL write_i_c(intstamp(n)%INTDAMP,len)
215 END DO
216 RETURN
write_i_c
void write_i_c(int *w, int *len)
Definition write_routtines.c:645

◆ intstamp_wresti() [2/2]

subroutine intstamp_mod::intstamp_wresti ( type(intstamp_data), dimension(*) intstamp,
integer leni,
integer, dimension(*) nodlocal )

Definition at line 165 of file intstamp_mod.F.

166C-----------------------------------------------
167C I m p l i c i t T y p e s
168C-----------------------------------------------
169#include "implicit_f.inc"
170C-----------------------------------------------
171C C o m m o n B l o c k s
172C-----------------------------------------------
173#include "com01_c.inc"
174#include "intstamp_c.inc"
175#include "units_c.inc"
176C-----------------------------------------------
177C D u m m y A r g u m e n t s
178C-----------------------------------------------
179 INTEGER LENI, NODLOCAL(*)
180 TYPE(INTSTAMP_DATA) INTSTAMP(*)
181C-----------------------------------------------
182C L o c a l V a r i a b l e s
183C-----------------------------------------------
184 INTEGER LEN, N, J, NCOND
185C--------------------------------------
186C ECRITURE DES DIMENSIONS
187C--------------------------------------
188 leni=0
189 DO n=1,nintstamp
190 len =1
191 CALL write_i_c(intstamp(n)%NOINTER,len)
192 len =1
193 CALL write_i_c(intstamp(n)%IRB,len)
194 len =1
195 CALL write_i_c(nodlocal(intstamp(n)%MSR),len)
196 len =1
197 CALL write_i_c(intstamp(n)%IROT,len)
198 len =1
199 CALL write_i_c(intstamp(n)%INTDAMP,len)
200 END DO
201 RETURN

◆ intstamp_wrestr() [1/2]

subroutine intstamp_mod::intstamp_wrestr ( type(intstamp_data), dimension(*) intstamp)

Definition at line 226 of file intstamp_mod.F.

227C-----------------------------------------------
228C I m p l i c i t T y p e s
229C-----------------------------------------------
230#include "implicit_f.inc"
231C-----------------------------------------------
232C C o m m o n B l o c k s
233C-----------------------------------------------
234#include "com01_c.inc"
235#include "intstamp_c.inc"
236#include "scr05_c.inc"
237#include "units_c.inc"
238C-----------------------------------------------
239C D u m m y A r g u m e n t s
240C-----------------------------------------------
241 TYPE(INTSTAMP_DATA) INTSTAMP(*)
242C-----------------------------------------------
243C L o c a l V a r i a b l e s
244C-----------------------------------------------
245 INTEGER LEN, N, J, NCOND
246C--------------------------------------
247 DO n=1,nintstamp
248 len =1
249 CALL write_db(intstamp(n)%MASS,len)
250 len =3
251 CALL write_dpdb(intstamp(n)%XG,len)
252 len =3
253 CALL write_db(intstamp(n)%IN,len)
254 len =9
255 CALL write_db(intstamp(n)%ROT,len)
256 len =1
257 CALL write_db(intstamp(n)%DAMP,len)
258 len =1
259 CALL write_db(intstamp(n)%DAMPR,len)
260 len =3
261 CALL write_dpdb(intstamp(n)%D,len)
262 len =3
263 CALL write_db(intstamp(n)%V,len)
264 len =3
265 CALL write_dpdb(intstamp(n)%DR,len)
266 len =3
267 CALL write_db(intstamp(n)%VR,len)
268 len =1
269 CALL write_db(intstamp(n)%DW,len)
270 len =3
271 CALL write_db(intstamp(n)%BRACKET,len)
272 END DO
273 RETURN
write_db
subroutine write_db(a, n)
Definition write_db.F:140
write_dpdb
subroutine write_dpdb(a, n)
Definition write_db.F:302

◆ intstamp_wrestr() [2/2]

subroutine intstamp_mod::intstamp_wrestr ( type(intstamp_data), dimension(*) intstamp,
integer leni )

Definition at line 209 of file intstamp_mod.F.

210C-----------------------------------------------
211C I m p l i c i t T y p e s
212C-----------------------------------------------
213#include "implicit_f.inc"
214C-----------------------------------------------
215C C o m m o n B l o c k s
216C-----------------------------------------------
217#include "com01_c.inc"
218#include "intstamp_c.inc"
219#include "units_c.inc"
220C-----------------------------------------------
221C D u m m y A r g u m e n t s
222C-----------------------------------------------
223 INTEGER LENI
224 TYPE(INTSTAMP_DATA) INTSTAMP(*)
225C-----------------------------------------------
226C L o c a l V a r i a b l e s
227C-----------------------------------------------
228 INTEGER LEN, N, J, NCOND
229C--------------------------------------
230 leni=0
231 DO n=1,nintstamp
232 len =1
233 CALL write_db(intstamp(n)%MASS,len)
234 leni =leni+1
235 len =3
236 CALL write_dpdb(intstamp(n)%XG,len)
237 leni =leni+6
238 len =3
239 CALL write_db(intstamp(n)%IN,len)
240 leni =leni+3
241 len =9
242 CALL write_db(intstamp(n)%ROT,len)
243 leni =leni+9
244 len =1
245 CALL write_db(intstamp(n)%DAMP,len)
246 len =1
247 CALL write_db(intstamp(n)%DAMPR,len)
248 len =3
249 CALL write_dpdb(intstamp(n)%D,len)
250 leni =leni+6
251 len =3
252 CALL write_db(intstamp(n)%V,len)
253 leni =leni+3
254 len =3
255 CALL write_dpdb(intstamp(n)%DR,len)
256 leni =leni+6
257 len =3
258 CALL write_db(intstamp(n)%VR,len)
259 leni =leni+3
260 len =1
261 CALL write_db(intstamp(n)%DW,len)
262 leni =leni+1
263 len =3
264 CALL write_db(intstamp(n)%BRACKET,len)
265 leni =leni+3
266 END DO
267 RETURN

◆ intstamp_zero()

subroutine intstamp_mod::intstamp_zero ( type(intstamp_data), dimension(*) intstamp)

Definition at line 94 of file intstamp_mod.F.

95C-----------------------------------------------
96C I m p l i c i t T y p e s
97C-----------------------------------------------
98#include "implicit_f.inc"
99C-----------------------------------------------
100C C o m m o n B l o c k s
101C-----------------------------------------------
102#include "com01_c.inc"
103#include "intstamp_c.inc"
104#include "units_c.inc"
105C-----------------------------------------------
106C D u m m y A r g u m e n t s
107C-----------------------------------------------
108 TYPE(INTSTAMP_DATA) INTSTAMP(*)
109C-----------------------------------------------
110C L o c a l V a r i a b l e s
111C-----------------------------------------------
112 INTEGER N, J, K
113C--------------------------------------
114C ECRITURE DES DIMENSIONS
115C--------------------------------------
116 DO n=1,nintstamp
117 intstamp(n)%NOINTER=0
118 intstamp(n)%IRB =0
119 intstamp(n)%MSR =0
120 intstamp(n)%IROT =0
121 intstamp(n)%INTDAMP=0
122 intstamp(n)%MASS =zero
123 DO j=1,3
124 intstamp(n)%XG(j) =zero
125 END DO
126 DO j=1,3
127 intstamp(n)%IN(j) =zero
128 END DO
129 DO j=1,9
130 intstamp(n)%ROT(j) =zero
131 END DO
132 intstamp(n)%DAMP =zero
133 intstamp(n)%DAMPR=zero
134 DO j=1,3
135 intstamp(n)%V(j)=zero
136 intstamp(n)%D(j)=zero
137 intstamp(n)%VR(j)=zero
138 intstamp(n)%DR(j)=zero
139 intstamp(n)%FC(j)=zero
140 intstamp(n)%MC(j)=zero
141 DO k=1,6
142 intstamp(n)%FC6(k,j)=zero
143 intstamp(n)%MC6(k,j)=zero
144 END DO
145 END DO
146 intstamp(n)%DW =zero
147 DO j=1,3
148 intstamp(n)%BRACKET(j) =zero
149 END DO
150 intstamp(n)%STF=zero
151 intstamp(n)%STR=zero
152 DO k=1,6
153 intstamp(n)%ST6(k) =zero
154 intstamp(n)%STR6(k)=zero
155 END DO
156 END DO
157 RETURN