31
32
33
35
36
37
38#include "implicit_f.inc"
39
40
41
42 TYPE (H3D_DATABASE) :: H3D_DATA
43 INTEGER KH3D,NSLASH(*)
44
45
46
47 INTEGER I,NH3D,KCUR
48
49
50 kcur = kh3d
51 nh3d = nslash(kcur)
52
53 IF (nh3d /= 0) THEN
54 ALLOCATE(h3d_data%INPUT_LIST(10000))
55 h3d_data%N_INPUT_H3D = 0
56
57 ALLOCATE(h3d_data%PARTS(1))
58
59 ELSE
60 ALLOCATE(h3d_data%INPUT_LIST(1))
61
62 ALLOCATE(h3d_data%PARTS(1))
63
64 ENDIF
65
66 h3d_data%IH3D = 0
67 h3d_data%IH3D_RUN = 0
68 h3d_data%N_INPUT_H3D = 0
69 h3d_data%IPART_SELECT = 0
70 h3d_data%MH3D = 0
71 h3d_data%N_OUTP_H3D = 0
72
73 h3d_data%N_SCAL_DT = 0
74 h3d_data%N_SCAL_DMAS = 0
75 h3d_data%N_SCAL_DINER = 0
76 h3d_data%N_SCAL_DAMA2 = 0
77 h3d_data%N_SCAL_SKID = 0
78 h3d_data%N_SCAL_STIFR = 0
79 h3d_data%N_SCAL_STIFN = 0
80 h3d_data%N_SCAL_CSE_FRICINT = 0
81 h3d_data%N_SCAL_CSE_FRIC = 0
82
83 h3d_data%N_VECT_CONT = 0
84 h3d_data%N_VECT_FINT = 0
85 h3d_data%N_VECT_FEXT = 0
86 h3d_data%N_VECT_PCONT = 0
87 h3d_data%N_VECT_CONT2 = 0
88 h3d_data%N_VECT_PCONT2 = 0
89 h3d_data%N_VECT_DROT = 0
90 h3d_data%N_VECT_DXANC = 0
91 h3d_data%N_VECT_FREAC = 0
92 h3d_data%N_VECT_MREAC = 0
93 h3d_data%N_VECT_CLUST_FORCE = 0
94 h3d_data%N_VECT_CLUST_MOM = 0
95 h3d_data%N_VECT_CONT_MAX = 0
96 h3d_data%N_VECT_PCONT_MAX = 0
97 h3d_data%N_VECT_CONT2_MAX = 0
98 h3d_data%N_VECT_PCONT2_MAX = 0
99 h3d_data%N_VECT_CONT2_MIN = 0
100 h3d_data%N_VECT_PCONT2_MIN = 0
101 h3d_data%N_VECT_CONT2M = 0
102 h3d_data%UND_FORC = 0
103
104 h3d_data%SH_SCAL_ERR_THK = 0
105
106 h3d_data%RBODY_SINGLE = 0
107 h3d_data%RBE2_SINGLE = 0
108 h3d_data%RBE3_SINGLE = 0
109
110 h3d_data%TH3D = ep30
111 h3d_data%DTH3D = zero
112 h3d_data%TH3D_STOP = zero
113 h3d_data%TH3D0 = zero
114 h3d_data%DTH3D0 = zero
115 h3d_data%TH3D_STOP0 = ep30
116 h3d_data%PERCENTAGE_ERROR = zero
117 h3d_data%COMP_LEVEL = 7
118 h3d_data%STRAIN = 0
119
1.15.0