#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(output_), intent(inout) | output, |
|
|
type (sensors_), intent(inout) | sensors ) |
Definition at line 32 of file anim_set2zero_struct.F.
33
34
35
37 USE output_mod
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(output_), intent(inout) :: OUTPUT
54 TYPE (SENSORS_) ,INTENT(INOUT) :: SENSORS
55
56 output%TANIM0 = zero
57 output%TANIM_STOP0 = zero
58 output%DTANIM0 = zero
59 output%TANIMSENS = zero
60 sensors%ANIM_DT = zero
61 sensors%ANIM_ID = 0
62 anim_m = 0
63 anim_k = 0
64 anim_u = 0
65 anim_mat = 0
66 ncuts = 0
67 iepsdot = 0
68 fmt_ani = 3
69 anim_vers = 44
70 izip = 0
71 iad_gps = 100
72 istresall = 0
73 istraiall = 0
74 iepsdoall = 0
75 iepspall = 0
76 iepspnlall = 0
77 iepsdnlall = 0
78 iphiall = 0
79 iorthdall = 0
80 iplyall = 0
81 anim_ply = 0
82 anim_crk = 0
83 istresfull = 0
84 iepspfull = 0
85 istrainfull = 0
86 iepsdofull = 0
87
88 iplyall = 0
89 istresall_ply = 0
90 iphiall_ply = 0
91 iepspall_ply = 0
92 istrainall_ply = 0
93 iepsdotall_ply = 0
94 idamaall_ply = 0
95 ibrick_stressall = 0
96 ibrick_strainall = 0
97 ibrick_epspall = 0
98 iwplafull = 0
99 iwplaall = 0
100 ibeam_epspall = 0
101 itsaiwuall = 0
102 itsaiwufull = 0
103
104 DO i = 1,mx_ani
105 anim_v(i) = 0
106 anim_t(i) = 0
107 anim_e(i) = 0
108 anim_ce(i) = 0
109 anim_se(i) = 0
110 anim_fe(i) = 0
111 anim_ct(i) = 0
112 anim_st(i) = 0
113 anim_ft(i) = 0
114 ntitletab(i) = 0
115 ENDDO
116 anim_wpla = 0
117 ifvani = 0
118 nltitle = 0
119 nbply_anim = 0
120 nbply_anim_stress = 0
121 nbply_anim_strain = 0
122 nbply_anim_epsdot = 0
123 nbply_anim_phi = 0
124 nbply_anim_epsp = 0
125 nbply_anim_dama = 0
126
127 RETURN
1.15.0