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

Go to the source code of this file.

Functions/Subroutines

subroutine write_db (a, n)
subroutine write_db_array (a, n)
subroutine write_dpdb (a, n)

Function/Subroutine Documentation

◆ write_db()

subroutine write_db ( a,
integer n )

Definition at line 139 of file write_db.F.

140C ecriture nombre reel : routine tampon
141C-----------------------------------------------
142C I m p l i c i t T y p e s
143C-----------------------------------------------
144#include "implicit_f.inc"
145C-----------------------------------------------
146C D u m m y A r g u m e n t s
147C-----------------------------------------------
148 INTEGER N
149C REAL
150 my_real
151 . a(*)
152C-----------------------------------------------
153C C o m m o n B l o c k s
154C-----------------------------------------------
155#include "scr05_c.inc"
156C-----------------------------------------------
157C L o c a l V a r i a b l e s
158C-----------------------------------------------
159 INTEGER I,J,K,N1,N2
160 DOUBLE PRECISION R8(1000)
161 REAL R4(1000)
162C-----------------------------------------------
163C S o u r c e L i n e s
164C-----------------------------------------------
165 k=0
166 n1=n/1000
167 IF(icray==1)THEN
168C fortran double precision : 128 bits C double : 64 bits
169C fortran real : 64 bits C double : 64 bits
170 DO i = 1, n1
171 DO j = 1, 1000
172 k=k+1
173 r4(j) = a(k)
174 ENDDO
175 CALL write_db_c(r4,1000)
176 ENDDO
177 n2=n1*1000
178 IF(n2/=n)THEN
179 DO j = 1, n-n2
180 k=k+1
181 r4(j) = a(k)
182 ENDDO
183 CALL write_db_c(r4,n-n2)
184 ENDIF
185 ELSE
186C fortran double precision : 64 bits C double : 64 bits
187 DO i = 1, n1
188 DO j = 1, 1000
189 k=k+1
190 r8(j) = a(k)
191 ENDDO
192 CALL write_db_c(r8,1000)
193 ENDDO
194 n2=n1*1000
195 IF(n2/=n)THEN
196 DO j = 1, n-n2
197 k=k+1
198 r8(j) = a(k)
199 ENDDO
200 CALL write_db_c(r8,n-n2)
201 ENDIF
202 ENDIF
203C
204 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
write_db_c
void write_db_c(double *w, int *len)
Definition write_routtines.c:553

◆ write_db_array()

subroutine write_db_array ( a,
integer n )

Definition at line 217 of file write_db.F.

218C ecriture nombre reel : routine tampon
219C-----------------------------------------------
220C I m p l i c i t T y p e s
221C-----------------------------------------------
222#include "implicit_f.inc"
223C-----------------------------------------------
224C D u m m y A r g u m e n t s
225C-----------------------------------------------
226 INTEGER N
227C REAL
228 my_real
229 . a(*)
230C-----------------------------------------------
231C C o m m o n B l o c k s
232C-----------------------------------------------
233#include "scr05_c.inc"
234C-----------------------------------------------
235C L o c a l V a r i a b l e s
236C-----------------------------------------------
237 INTEGER I,J,K,N1,N2
238 DOUBLE PRECISION R8(1000)
239 REAL R4(1000)
240C-----------------------------------------------
241C S o u r c e L i n e s
242C-----------------------------------------------
243 k=0
244 n1=n/1000
245 IF(icray==1)THEN
246C fortran double precision : 128 bits C double : 64 bits
247C fortran real : 64 bits C double : 64 bits
248 DO i = 1, n1
249 DO j = 1, 1000
250 k=k+1
251 r4(j) = a(k)
252 ENDDO
253 CALL write_db_array_c(r4,1000)
254 ENDDO
255 n2=n1*1000
256 IF(n2/=n)THEN
257 DO j = 1, n-n2
258 k=k+1
259 r4(j) = a(k)
260 ENDDO
261 CALL write_db_array_c(r4,n-n2)
262 ENDIF
263 ELSE
264C fortran double precision : 64 bits C double : 64 bits
265 DO i = 1, n1
266 DO j = 1, 1000
267 k=k+1
268 r8(j) = a(k)
269 ENDDO
270 CALL write_db_c(r8,1000)
271 ENDDO
272 n2=n1*1000
273 IF(n2/=n)THEN
274 DO j = 1, n-n2
275 k=k+1
276 r8(j) = a(k)
277 ENDDO
278 CALL write_db_c(r8,n-n2)
279 ENDIF
280 ENDIF
281C
282 RETURN
write_db_array_c
void write_db_array_c(double *w, int *len)

◆ write_dpdb()

subroutine write_dpdb ( double precision, dimension(*) a,
integer n )

Definition at line 301 of file write_db.F.

302C ecriture nombre reel : routine tampon
303C-----------------------------------------------
304C I m p l i c i t T y p e s
305C-----------------------------------------------
306#include "implicit_f.inc"
307C-----------------------------------------------
308C D u m m y A r g u m e n t s
309C-----------------------------------------------
310 INTEGER N
311 double precision
312 . a(*)
313C-----------------------------------------------
314C L o c a l V a r i a b l e s
315C-----------------------------------------------
316 INTEGER I,J,K,N1,N2
317 DOUBLE PRECISION R8(1000)
318 REAL R4(1000)
319C-----------------------------------------------
320C S o u r c e L i n e s
321C-----------------------------------------------
322 k=0
323 n1=n/1000
324C fortran double precision : 64 bits C double : 64 bits
325 DO i = 1, n1
326 DO j = 1, 1000
327 k=k+1
328 r8(j) = a(k)
329 ENDDO
330 CALL write_db_c(r8,1000)
331 ENDDO
332 n2=n1*1000
333 IF(n2/=n)THEN
334 DO j = 1, n-n2
335 k=k+1
336 r8(j) = a(k)
337 ENDDO
338 CALL write_db_c(r8,n-n2)
339 ENDIF
340C
341 RETURN