OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
read_th_restart.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_th_restart ../engine/source/output/th/read_th_restart.F
25!||--- called by ------------------------------------------------------
26!|| rdresb ../engine/source/output/restart/rdresb.F
27!||--- calls -----------------------------------------------------
28!|| read_i_c ../common_source/tools/input_output/write_routtines.c
29!|| th_alloc ../common_source/modules/output/time_history_mod.F
30!||--- uses -----------------------------------------------------
31!|| time_history_mod ../common_source/modules/output/time_history_mod.F
32!||====================================================================
33 SUBROUTINE read_th_restart(TH)
34 ! -----------------------------------------------
35 ! ROUTINE DESCRIPTION :
36 ! ========================
37 ! Read Time History buffer
38C-----------------------------------------------
39C M o d u l e s
40C-----------------------------------------------
41 USE time_history_mod
42C-----------------------------------------------
43C I m p l i c i t T y p e s
44C-----------------------------------------------
45#include "implicit_f.inc"
46C-----------------------------------------------
47C D u m m y A r g u m e n t s
48C-----------------------------------------------
49 TYPE(th_),INTENT(INOUT) :: TH ! TH Type
50C-----------------------------------------------
51 CALL read_i_c(th%NITHGR, 1)
52 CALL read_i_c(th%SITHGRP, 1)
53 CALL read_i_c(th%SITHBUF, 1)
54
55 CALL read_i_c(th%SITHGRPA,1)
56 CALL read_i_c(th%SITHBUFA,1)
57
58 CALL read_i_c(th%SITHGRPB,1)
59 CALL read_i_c(th%SITHBUFB,1)
60
61 CALL read_i_c(th%SITHGRPC,1)
62 CALL read_i_c(th%SITHBUFC,1)
63
64 CALL read_i_c(th%SITHGRPD,1)
65 CALL read_i_c(th%SITHBUFD,1)
66
67 CALL read_i_c(th%SITHGRPE,1)
68 CALL read_i_c(th%SITHBUFE,1)
69
70 CALL read_i_c(th%SITHGRPF,1)
71 CALL read_i_c(th%SITHBUFF,1)
72
73 CALL read_i_c(th%SITHGRPG,1)
74 CALL read_i_c(th%SITHBUFG,1)
75
76 CALL read_i_c(th%SITHGRPH,1)
77 CALL read_i_c(th%SITHBUFH,1)
78
79 CALL read_i_c(th%SITHGRPI,1)
80 CALL read_i_c(th%SITHBUFI,1)
81
82 CALL th_alloc(th,
83 . th%SITHGRP, th%SITHBUF ,
84 . th%SITHGRPA, th%SITHBUFA,
85 . th%SITHGRPB, th%SITHBUFB,
86 . th%SITHGRPC, th%SITHBUFC,
87 . th%SITHGRPD, th%SITHBUFD,
88 . th%SITHGRPE, th%SITHBUFE,
89 . th%SITHGRPF, th%SITHBUFF,
90 . th%SITHGRPG, th%SITHBUFG,
91 . th%SITHGRPH, th%SITHBUFH,
92 . th%SITHGRPI, th%SITHBUFI )
93
94 CALL read_i_c(th%ITHGRP, th%SITHGRP )
95 CALL read_i_c(th%ITHBUF, th%SITHBUF )
96
97 CALL read_i_c(th%ITHGRPA, th%SITHGRPA)
98 CALL read_i_c(th%ITHBUFA, th%SITHBUFA)
99
100 CALL read_i_c(th%ITHGRPB, th%SITHGRPB)
101 CALL read_i_c(th%ITHBUFB, th%SITHBUFB)
102
103 CALL read_i_c(th%ITHGRPC, th%SITHGRPC)
104 CALL read_i_c(th%ITHBUFC, th%SITHBUFC)
105
106 CALL read_i_c(th%ITHGRPD, th%SITHGRPD)
107 CALL read_i_c(th%ITHBUFD, th%SITHBUFD)
108
109 CALL read_i_c(th%ITHGRPE, th%SITHGRPE)
110 CALL read_i_c(th%ITHBUFE, th%SITHBUFE)
111
112 CALL read_i_c(th%ITHGRPF, th%SITHGRPF)
113 CALL read_i_c(th%ITHBUFF, th%SITHBUFF)
114
115 CALL read_i_c(th%ITHGRPG, th%SITHGRPG)
116 CALL read_i_c(th%ITHBUFG, th%SITHBUFG)
117
118 CALL read_i_c(th%ITHGRPH, th%SITHGRPH)
119 CALL read_i_c(th%ITHBUFH, th%SITHBUFH)
120
121 CALL read_i_c(th%ITHGRPI, th%SITHGRPI)
122 CALL read_i_c(th%ITHBUFI, th%SITHBUFI)
123
124 END SUBROUTINE read_th_restart
time_history_mod
Definition time_history_mod.F:35
time_history_mod::th_alloc
subroutine th_alloc(th, sithgrp, sithbuf, sithgrpa, sithbufa, sithgrpb, sithbufb, sithgrpc, sithbufc, sithgrpd, sithbufd, sithgrpe, sithbufe, sithgrpf, sithbuff, sithgrpg, sithbufg, sithgrph, sithbufh, sithgrpi, sithbufi)
Definition time_history_mod.F:119
read_th_restart
subroutine read_th_restart(th)
Definition read_th_restart.F:34
time_history_mod::th_
Definition time_history_mod.F:39
read_i_c
void read_i_c(int *w, int *len)
Definition write_routtines.c:805