#include "implicit_f.inc"
#include "scr14_c.inc"
#include "scr25_c.inc"
#include "scrcut_c.inc"
Go to the source code of this file.
◆ anim_set2zero_struct()
| subroutine anim_set2zero_struct |
( |
type (sensors_), intent(inout) | sensors | ) |
|
Definition at line 32 of file anim_set2zero_struct.F.
33
34
35
38 USE sensor_mod
39
40
41
42#include "implicit_f.inc"
43
44
45
46#include "scr14_c.inc"
47#include "scr25_c.inc"
48#include "scrcut_c.inc"
49
50
51
52 INTEGER I
53 TYPE (SENSORS_) ,INTENT(INOUT) :: SENSORS
54
55 tanim0 = zero
56 tanim_stop0 = zero
57 dtanim0 = zero
58 tanimsens = zero
59 sensors%ANIM_DT = zero
60 sensors%ANIM_ID = 0
61 anim_m = 0
62 anim_k = 0
63 anim_u = 0
64 anim_mat = 0
65 ncuts = 0
66 iepsdot = 0
67 fmt_ani = 3
68 anim_vers = 44
69 izip = 0
70 iad_gps = 100
71 istresall = 0
72 istraiall = 0
73 iepsdoall = 0
74 iepspall = 0
75 iepspnlall = 0
76 iepsdnlall = 0
77 iphiall = 0
78 iorthdall = 0
79 iplyall = 0
80 anim_ply = 0
81 anim_crk = 0
82 istresfull = 0
83 iepspfull = 0
84 istrainfull = 0
85 iepsdofull = 0
86
87 iplyall = 0
88 istresall_ply = 0
89 iphiall_ply = 0
90 iepspall_ply = 0
91 istrainall_ply = 0
92 iepsdotall_ply = 0
93 idamaall_ply = 0
94 ibrick_stressall = 0
95 ibrick_strainall = 0
96 ibrick_epspall = 0
97 iwplafull = 0
98 iwplaall = 0
99 ibeam_epspall = 0
100 itsaiwuall = 0
101 itsaiwufull = 0
102
103 DO i = 1,mx_ani
104 anim_v(i) = 0
105 anim_t(i) = 0
106 anim_e(i) = 0
107 anim_ce(i) = 0
108 anim_se(i) = 0
109 anim_fe(i) = 0
110 anim_ct(i) = 0
111 anim_st(i) = 0
112 anim_ft(i) = 0
113 ntitletab(i) = 0
114 ENDDO
115 anim_wpla = 0
116 ifvani = 0
117 nltitle = 0
118 nbply_anim = 0
119 nbply_anim_stress = 0
120 nbply_anim_strain = 0
121 nbply_anim_epsdot = 0
122 nbply_anim_phi = 0
123 nbply_anim_epsp = 0
124 nbply_anim_dama = 0
125
126 RETURN
1.15.0