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

Go to the source code of this file.

Functions/Subroutines

subroutine read_th_restart (th)

Function/Subroutine Documentation

◆ read_th_restart()

subroutine read_th_restart ( type(th_), intent(inout) th)

Definition at line 33 of file read_th_restart.F.

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
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_i_c
void read_i_c(int *w, int *len)
Definition write_routtines.c:805