OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
read_db.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| read_db ../common_source/tools/input_output/read_db.F
25!||--- called by ------------------------------------------------------
26!|| alelag_rrest ../engine/source/output/restart/rdresb.F
27!|| allocbuf_auto ../engine/source/elements/elbuf/allocbuf_auto.F
28!|| cfieldrest ../engine/source/output/restart/rdresb.F
29!|| convrrest ../engine/source/output/restart/rdresb.F
30!|| crkxfem_rrestanim ../engine/source/output/restart/rdresb.F
31!|| decompress_r_nnz ../common_source/comm/decompress_nnz.F
32!|| drape_rrest ../engine/source/output/restart/rdresb.F
33!|| dsrrest ../engine/source/output/restart/rdresb.F
34!|| eigrrest ../engine/source/output/restart/rdresb.F
35!|| fvrrest ../engine/source/output/restart/rdresb.F
36!|| fxbresb ../engine/source/output/restart/rdresb.F
37!|| fxfluxrrest ../engine/source/constraints/thermic/fxfluxrrest.F
38!|| fxtemprrest ../engine/source/output/restart/rdresb.F
39!|| imprrest ../engine/source/output/restart/rdresb.F
40!|| intbuf_ini ../common_source/interf/intbuf_ini.F
41!|| intfric_rrestr ../common_source/modules/interfaces/intbuf_fric_mod.F90
42!|| intstamp_rrestr ../engine/share/modules/intstamp_mod.F
43!|| knotlocelrest ../engine/source/output/restart/rdresb.F
44!|| knotlocpcrest ../engine/source/output/restart/rdresb.F
45!|| knotrest ../engine/source/output/restart/rdresb.F
46!|| lec_inimap1d_file ../starter/source/initial_conditions/inimap/lec_inimap1d_file.F
47!|| lec_inimap2d_file ../starter/source/initial_conditions/inimap/lec_inimap2d_file.F
48!|| loadprest ../engine/source/output/restart/rdresb.F
49!|| nfrrest ../engine/source/output/restart/rdresb.F
50!|| nitscherrest ../engine/source/output/restart/rdresb.F
51!|| pblast_load ../common_source/modules/loads/pblast_mod.F90
52!|| plyxfem_ravuply ../engine/source/output/restart/rdresb.F
53!|| plyxfem_rrest ../engine/source/output/restart/rdresb.F
54!|| r_bufbric_22 ../engine/source/interfaces/int22/r_bufbric_22.F
55!|| radiarrest ../engine/source/output/restart/rdresb.F
56!|| rdresb ../engine/source/output/restart/rdresb.F
57!|| read_ale_grid ../engine/source/output/restart/read_ale_grid.F90
58!|| read_bcs_wall ../engine/source/output/restart/read_bcs_wall.F90
59!|| read_cluster ../engine/source/output/cluster/read_cluster.F
60!|| read_data_nrf ../common_source/modules/boundary_conditions/ebcs_mod.F90
61!|| read_data_propellant ../common_source/modules/boundary_conditions/ebcs_mod.F90
62!|| read_elgroup_param ../engine/source/output/restart/read_elgroup_param.F
63!|| read_eosparam ../engine/source/output/restart/read_eosparam.F90
64!|| read_failparam ../engine/source/output/restart/read_failparam.F
65!|| read_inivel ../engine/source/output/restart/read_inivel.F90
66!|| read_mat_table ../engine/source/materials/tools/read_mat_table.F
67!|| read_matparam ../engine/source/output/restart/read_matparam.F
68!|| read_nloc_struct ../engine/source/output/restart/read_nloc_struct.F
69!|| read_pcyl ../engine/source/output/restart/read_pcyl.F
70!|| read_rrbe3pen ../engine/source/output/restart/restart_rbe3pen.F90
71!|| read_sensors ../engine/source/output/restart/read_sensors.F
72!|| read_thermparam ../engine/source/output/restart/read_thermparam.F90
73!|| read_units ../common_source/comm/write_units.F
74!|| read_viscparam ../engine/source/output/restart/read_viscparam.F
75!|| rmatrrest ../engine/source/output/restart/rdresb.F
76!|| rthbufrest ../engine/source/output/restart/rdresb.F
77!|| spmd_inisph ../engine/source/mpi/sph/spmd_sptool.F
78!|| spmd_initfi ../engine/source/mpi/interfaces/spmd_i7tool.F
79!|| stack_rrest ../engine/source/output/restart/rdresb.F
80!|| table_rrestr ../engine/source/tools/curve/table_tools.F
81!|| thcrrest ../engine/source/output/restart/rdresb.F
82!|| userwi_read ../engine/source/user_interface/userwindow_interface_routines.F
83!|| wigerest ../engine/source/output/restart/rdresb.F
84!||--- calls -----------------------------------------------------
85!|| read_db_c ../common_source/tools/input_output/write_routtines.c
86!||====================================================================
87 SUBROUTINE read_db(A,N)
88C lecture nombre reel : routine tampon
89C-----------------------------------------------
90C I m p l i c i t T y p e s
91C-----------------------------------------------
92#include "implicit_f.inc"
93C-----------------------------------------------
94C D u m m y A r g u m e n t s
95C-----------------------------------------------
96 INTEGER N
97C REAL
98 my_real
99 . a(*)
100C-----------------------------------------------
101C C o m m o n B l o c k s
102C-----------------------------------------------
103#include "scr05_c.inc"
104C-----------------------------------------------
105C L o c a l V a r i a b l e s
106C-----------------------------------------------
107 INTEGER I,J,K,N1,N2
108 DOUBLE PRECISION R8(1000)
109 REAL R4(1000)
110C-----------------------------------------------
111C S o u r c e L i n e s
112C-----------------------------------------------
113 k=0
114 n1=n/1000
115 IF(icray==1)THEN
116C fortran double precision : 128 bits C double : 64 bits
117C fortran real : 64 bits C double : 64 bits
118 DO i = 1, n1
119 CALL read_db_c(r4,1000)
120 DO j = 1, 1000
121 k=k+1
122 a(k) = r4(j)
123 ENDDO
124 ENDDO
125 n2=n1*1000
126 IF(n2/=n)THEN
127 CALL read_db_c(r4,n-n2)
128 DO j = 1, n-n2
129 k=k+1
130 a(k) = r4(j)
131 ENDDO
132 ENDIF
133 ELSE
134C fortran double precision : 64 bits C double : 64 bits
135 DO i = 1, n1
136 CALL read_db_c(r8,1000)
137 DO j = 1, 1000
138 k=k+1
139 a(k) = r8(j)
140 ENDDO
141 ENDDO
142 n2=n1*1000
143 IF(n2/=n)THEN
144 CALL read_db_c(r8,n-n2)
145 DO j = 1, n-n2
146 k=k+1
147 a(k) = r8(j)
148 ENDDO
149 ENDIF
150 ENDIF
151C
152 RETURN
153 END
154!||====================================================================
155!|| read_db_array ../common_source/tools/input_output/read_db.F
156!||--- called by ------------------------------------------------------
157!|| intfric_rrestr ../common_source/modules/interfaces/intbuf_fric_mod.F90
158!|| read_common_data ../common_source/modules/boundary_conditions/ebcs_mod.F90
159!|| read_data_fluxout ../common_source/modules/boundary_conditions/ebcs_mod.F90
160!|| read_data_gradp0 ../common_source/modules/boundary_conditions/ebcs_mod.F90
161!|| read_data_inip ../common_source/modules/boundary_conditions/ebcs_mod.F90
162!|| read_data_iniv ../common_source/modules/boundary_conditions/ebcs_mod.F90
163!|| read_data_inlet ../common_source/modules/boundary_conditions/ebcs_mod.F90
164!|| read_data_normv ../common_source/modules/boundary_conditions/ebcs_mod.F90
165!|| read_data_nrf ../common_source/modules/boundary_conditions/ebcs_mod.F90
166!|| read_data_pres ../common_source/modules/boundary_conditions/ebcs_mod.F90
167!|| read_data_propellant ../common_source/modules/boundary_conditions/ebcs_mod.F90
168!|| read_data_valvin ../common_source/modules/boundary_conditions/ebcs_mod.F90
169!|| read_data_valvout ../common_source/modules/boundary_conditions/ebcs_mod.F90
170!|| read_data_vel ../common_source/modules/boundary_conditions/ebcs_mod.F90
171!||--- calls -----------------------------------------------------
172!||====================================================================
173 SUBROUTINE read_db_array(A,N)
174C lecture nombre reel : routine tampon
175C-----------------------------------------------
176C I m p l i c i t T y p e s
177C-----------------------------------------------
178#include "implicit_f.inc"
179C-----------------------------------------------
180C D u m m y A r g u m e n t s
181C-----------------------------------------------
182 INTEGER N
183C REAL
184 my_real
185 . a(*)
186C-----------------------------------------------
187C C o m m o n B l o c k s
188C-----------------------------------------------
189#include "scr05_c.inc"
190C-----------------------------------------------
191C L o c a l V a r i a b l e s
192C-----------------------------------------------
193 INTEGER I,J,K,N1,N2
194 DOUBLE PRECISION R8(1000)
195 REAL R4(1000)
196C-----------------------------------------------
197C S o u r c e L i n e s
198C-----------------------------------------------
199 k=0
200 n1=n/1000
201 IF(icray==1)THEN
202C fortran double precision : 128 bits C double : 64 bits
203C fortran real : 64 bits C double : 64 bits
204 DO i = 1, n1
205 CALL read_db_array_c(r4,1000)
206 DO j = 1, 1000
207 k=k+1
208 a(k) = r4(j)
209 ENDDO
210 ENDDO
211 n2=n1*1000
212 IF(n2/=n)THEN
213 CALL read_db_array_c(r4,n-n2)
214 DO j = 1, n-n2
215 k=k+1
216 a(k) = r4(j)
217 ENDDO
218 ENDIF
219 ELSE
220C fortran double precision : 64 bits C double : 64 bits
221 DO i = 1, n1
222 CALL read_db_array_c(r8,1000)
223 DO j = 1, 1000
224 k=k+1
225 a(k) = r8(j)
226 ENDDO
227 ENDDO
228 n2=n1*1000
229 IF(n2/=n)THEN
230 CALL read_db_array_c(r8,n-n2)
231 DO j = 1, n-n2
232 k=k+1
233 a(k) = r8(j)
234 ENDDO
235 ENDIF
236 ENDIF
237C
238 RETURN
239 END
240!||====================================================================
241!|| read_dpdb ../common_source/tools/input_output/read_db.F
242!||--- called by ------------------------------------------------------
243!|| allocbuf_auto ../engine/source/elements/elbuf/allocbuf_auto.F
244!|| intstamp_rrestr ../engine/share/modules/intstamp_mod.F
245!|| rdresb ../engine/source/output/restart/rdresb.F
246!|| read_sensors ../engine/source/output/restart/read_sensors.F
247!||--- calls -----------------------------------------------------
248!|| read_db_c ../common_source/tools/input_output/write_routtines.c
249!||====================================================================
250 SUBROUTINE read_dpdb(A,N)
251C lecture nombre reel : routine tampon
252C-----------------------------------------------
253C I m p l i c i t T y p e s
254C-----------------------------------------------
255#include "implicit_f.inc"
256C-----------------------------------------------
257C D u m m y A r g u m e n t s
258C-----------------------------------------------
259 INTEGER N
260 DOUBLE PRECISION A(*)
261C-----------------------------------------------
262C L o c a l V a r i a b l e s
263C-----------------------------------------------
264 INTEGER I,J,K,N1,N2
265 DOUBLE PRECISION R8(1000)
266C-----------------------------------------------
267C S o u r c e L i n e s
268C-----------------------------------------------
269 k=0
270 n1=n/1000
271C fortran double precision : 64 bits C double : 64 bits
272 DO i = 1, n1
273 CALL read_db_c(r8,1000)
274 DO j = 1, 1000
275 k=k+1
276 a(k) = r8(j)
277 ENDDO
278 ENDDO
279 n2=n1*1000
280 IF(n2/=n)THEN
281 CALL read_db_c(r8,n-n2)
282 DO j = 1, n-n2
283 k=k+1
284 a(k) = r8(j)
285 ENDDO
286 ENDIF
287C
288 RETURN
289 END
my_real
#define my_real
Definition cppsort.cpp:32
read_db_array
subroutine read_db_array(a, n)
Definition read_db.F:174
read_dpdb
subroutine read_dpdb(a, n)
Definition read_db.F:251
read_db
subroutine read_db(a, n)
Definition read_db.F:88
read_db_c
void read_db_c(double *w, int *len)
Definition write_routtines.c:711
read_db_array_c
void read_db_array_c(double *w, int *len)