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_nrf ../engine/source/output/restart/read_bcs_nrf.F90
59!|| read_bcs_wall ../engine/source/output/restart/read_bcs_wall.F90
60!|| read_cluster ../engine/source/output/cluster/read_cluster.F
61!|| read_data_nrf ../common_source/modules/boundary_conditions/ebcs_mod.F90
62!|| read_data_propellant ../common_source/modules/boundary_conditions/ebcs_mod.F90
63!|| read_elgroup_param ../engine/source/output/restart/read_elgroup_param.F
64!|| read_eosparam ../engine/source/output/restart/read_eosparam.F90
65!|| read_failparam ../engine/source/output/restart/read_failparam.F
66!|| read_inivel ../engine/source/output/restart/read_inivel.F90
67!|| read_mat_table ../engine/source/materials/tools/read_mat_table.F
68!|| read_matparam ../engine/source/output/restart/read_matparam.F
69!|| read_nloc_struct ../engine/source/output/restart/read_nloc_struct.F
70!|| read_pcyl ../engine/source/output/restart/read_pcyl.F
71!|| read_rrbe3pen ../engine/source/output/restart/restart_rbe3pen.F90
72!|| read_rrwallpen ../engine/source/output/restart/restart_rwallpen.F90
73!|| read_sensors ../engine/source/output/restart/read_sensors.F
74!|| read_thermparam ../engine/source/output/restart/read_thermparam.F90
75!|| read_units ../common_source/comm/write_units.F
76!|| read_viscparam ../engine/source/output/restart/read_viscparam.F
77!|| rmatrrest ../engine/source/output/restart/rdresb.F
78!|| rthbufrest ../engine/source/output/restart/rdresb.F
79!|| spmd_inisph ../engine/source/mpi/sph/spmd_sptool.F
80!|| spmd_initfi ../engine/source/mpi/interfaces/spmd_i7tool.F
81!|| stack_rrest ../engine/source/output/restart/rdresb.F
82!|| table_rrestr ../engine/source/tools/curve/table_tools.F
83!|| thcrrest ../engine/source/output/restart/rdresb.F
84!|| userwi_read ../engine/source/user_interface/userwindow_interface_routines.F
85!|| wigerest ../engine/source/output/restart/rdresb.F
86!||--- calls -----------------------------------------------------
87!|| read_db_c ../common_source/tools/input_output/write_routines.c
88!||====================================================================
89 SUBROUTINE read_db(A,N)
90C Reading Real Number: wrapper Routine
91C-----------------------------------------------
92C I m p l i c i t T y p e s
93C-----------------------------------------------
94#include "implicit_f.inc"
95C-----------------------------------------------
96C D u m m y A r g u m e n t s
97C-----------------------------------------------
98 INTEGER N
99C REAL
100 my_real
101 . a(*)
102C-----------------------------------------------
103C C o m m o n B l o c k s
104C-----------------------------------------------
105#include "scr05_c.inc"
106C-----------------------------------------------
107C L o c a l V a r i a b l e s
108C-----------------------------------------------
109 INTEGER I,J,K,N1,N2
110 DOUBLE PRECISION R8(1000)
111 REAL R4(1000)
112C-----------------------------------------------
113C S o u r c e L i n e s
114C-----------------------------------------------
115 k=0
116 n1=n/1000
117 IF(icray==1)THEN
118C Fortran Double precision: 128 bits C'double: 64 bits
119C fortran real : 64 bits C double : 64 bits
120 DO i = 1, n1
121 CALL read_db_c(r4,1000)
122 DO j = 1, 1000
123 k=k+1
124 a(k) = r4(j)
125 ENDDO
126 ENDDO
127 n2=n1*1000
128 IF(n2/=n)THEN
129 CALL read_db_c(r4,n-n2)
130 DO j = 1, n-n2
131 k=k+1
132 a(k) = r4(j)
133 ENDDO
134 ENDIF
135 ELSE
136C Fortran Double precision: 64 bits C'double: 64 bits
137 DO i = 1, n1
138 CALL read_db_c(r8,1000)
139 DO j = 1, 1000
140 k=k+1
141 a(k) = r8(j)
142 ENDDO
143 ENDDO
144 n2=n1*1000
145 IF(n2/=n)THEN
146 CALL read_db_c(r8,n-n2)
147 DO j = 1, n-n2
148 k=k+1
149 a(k) = r8(j)
150 ENDDO
151 ENDIF
152 ENDIF
153C
154 RETURN
155 END
156!||====================================================================
157!|| read_db_array ../common_source/tools/input_output/read_db.F
158!||--- called by ------------------------------------------------------
159!|| intfric_rrestr ../common_source/modules/interfaces/intbuf_fric_mod.F90
160!|| read_common_data ../common_source/modules/boundary_conditions/ebcs_mod.F90
161!|| read_data_fluxout ../common_source/modules/boundary_conditions/ebcs_mod.F90
162!|| read_data_gradp0 ../common_source/modules/boundary_conditions/ebcs_mod.F90
163!|| read_data_inip ../common_source/modules/boundary_conditions/ebcs_mod.F90
164!|| read_data_iniv ../common_source/modules/boundary_conditions/ebcs_mod.F90
165!|| read_data_inlet ../common_source/modules/boundary_conditions/ebcs_mod.F90
166!|| read_data_normv ../common_source/modules/boundary_conditions/ebcs_mod.F90
167!|| read_data_nrf ../common_source/modules/boundary_conditions/ebcs_mod.F90
168!|| read_data_pres ../common_source/modules/boundary_conditions/ebcs_mod.F90
169!|| read_data_propellant ../common_source/modules/boundary_conditions/ebcs_mod.F90
170!|| read_data_valvin ../common_source/modules/boundary_conditions/ebcs_mod.F90
171!|| read_data_valvout ../common_source/modules/boundary_conditions/ebcs_mod.F90
172!|| read_data_vel ../common_source/modules/boundary_conditions/ebcs_mod.F90
173!||--- calls -----------------------------------------------------
174!||====================================================================
175 SUBROUTINE read_db_array(A,N)
176C Reading Real Number: wrapper Routine
177C-----------------------------------------------
178C I m p l i c i t T y p e s
179C-----------------------------------------------
180#include "implicit_f.inc"
181C-----------------------------------------------
182C D u m m y A r g u m e n t s
183C-----------------------------------------------
184 INTEGER N
185C REAL
186 my_real
187 . a(*)
188C-----------------------------------------------
189C C o m m o n B l o c k s
190C-----------------------------------------------
191#include "scr05_c.inc"
192C-----------------------------------------------
193C L o c a l V a r i a b l e s
194C-----------------------------------------------
195 INTEGER I,J,K,N1,N2
196 DOUBLE PRECISION R8(1000)
197 REAL R4(1000)
198C-----------------------------------------------
199C S o u r c e L i n e s
200C-----------------------------------------------
201 k=0
202 n1=n/1000
203 IF(icray==1)THEN
204C Fortran Double precision: 128 bits C'double: 64 bits
205C fortran real : 64 bits C double : 64 bits
206 DO i = 1, n1
207 CALL read_db_array_c(r4,1000)
208 DO j = 1, 1000
209 k=k+1
210 a(k) = r4(j)
211 ENDDO
212 ENDDO
213 n2=n1*1000
214 IF(n2/=n)THEN
215 CALL read_db_array_c(r4,n-n2)
216 DO j = 1, n-n2
217 k=k+1
218 a(k) = r4(j)
219 ENDDO
220 ENDIF
221 ELSE
222C Fortran Double precision: 64 bits C'double: 64 bits
223 DO i = 1, n1
224 CALL read_db_array_c(r8,1000)
225 DO j = 1, 1000
226 k=k+1
227 a(k) = r8(j)
228 ENDDO
229 ENDDO
230 n2=n1*1000
231 IF(n2/=n)THEN
232 CALL read_db_array_c(r8,n-n2)
233 DO j = 1, n-n2
234 k=k+1
235 a(k) = r8(j)
236 ENDDO
237 ENDIF
238 ENDIF
239C
240 RETURN
241 END
242!||====================================================================
243!|| read_dpdb ../common_source/tools/input_output/read_db.F
244!||--- called by ------------------------------------------------------
245!|| allocbuf_auto ../engine/source/elements/elbuf/allocbuf_auto.F
246!|| intstamp_rrestr ../engine/share/modules/intstamp_mod.F
247!|| rdresb ../engine/source/output/restart/rdresb.F
248!|| read_sensors ../engine/source/output/restart/read_sensors.F
249!||--- calls -----------------------------------------------------
250!|| read_db_c ../common_source/tools/input_output/write_routines.c
251!||====================================================================
252 SUBROUTINE read_dpdb(A,N)
253C Reading Real Number: wrapper Routine
254C-----------------------------------------------
255C I m p l i c i t T y p e s
256C-----------------------------------------------
257#include "implicit_f.inc"
258C-----------------------------------------------
259C D u m m y A r g u m e n t s
260C-----------------------------------------------
261 INTEGER N
262 DOUBLE PRECISION A(*)
263C-----------------------------------------------
264C L o c a l V a r i a b l e s
265C-----------------------------------------------
266 INTEGER I,J,K,N1,N2
267 DOUBLE PRECISION R8(1000)
268C-----------------------------------------------
269C S o u r c e L i n e s
270C-----------------------------------------------
271 k=0
272 n1=n/1000
273C Fortran Double precision: 64 bits C'double: 64 bits
274 DO i = 1, n1
275 CALL read_db_c(r8,1000)
276 DO j = 1, 1000
277 k=k+1
278 a(k) = r8(j)
279 ENDDO
280 ENDDO
281 n2=n1*1000
282 IF(n2/=n)THEN
283 CALL read_db_c(r8,n-n2)
284 DO j = 1, n-n2
285 k=k+1
286 a(k) = r8(j)
287 ENDDO
288 ENDIF
289C
290 RETURN
291 END
my_real
#define my_real
Definition cppsort.cpp:32
rdresb
subroutine rdresb(af, iaf, lvarrea, irunn, multi_fvm, h3d_data, pinch_data, ale_connectivity, t_monvol, sensors, ebcs_tab, dynain_data, user_windows, output, interfaces, loads, mat_elem, python, iflow, skews, rflow, liflow, lrflow, impl_s0, forneqs, unitab, stack, drape_sh4n, drape_sh3n, drapeg, ndrape, glob_therm, pblast, element, nodes, rbe3, rwall)
Definition rdresb.F:166
radiarrest
subroutine radiarrest(ibcr, fradia, glob_therm)
Definition rdresb.F:2790
read_db_array
subroutine read_db_array(a, n)
Definition read_db.F:176
read_dpdb
subroutine read_dpdb(a, n)
Definition read_db.F:253
read_db
subroutine read_db(a, n)
Definition read_db.F:90
read_db_c
void read_db_c(double *w, int *len)
Definition write_routines.c:711
read_db_array_c
void read_db_array_c(double *w, int *len)