58 nb_mat_nle, nb_mat_rnd, &
59 nb_load_dirX,nb_load_dirY,nb_load_dirZ, &
60 nb_load_neuX,nb_load_neuY,nb_load_neuZ, &
62 nb_load_poiX,nb_load_poiY,nb_load_poiZ, &
63 nb_load_traX,nb_load_traY,nb_load_traZ, &
64 nb_load_plaX,nb_load_plaY,nb_load_plaZ, &
65 nb_load_forX,nb_load_forY,nb_load_forZ, &
66 nb_load_forc,nb_load_pres,nb_load_shea, &
67 nb_load_abc,nb_load_dg,nb_func,nb_func_data,&
68 nb_load_sism,nb_load_expl,nb_case,nb_nhee,&
69 n_test,nb_frac,srcmodflag)
76 character*70 :: filemate,srcname
77 character*100000 :: inline
78 character*4 :: keyword
81 integer*4 :: nb_mat_nle, nb_mat_rnd
82 integer*4 :: nb_load_dirX,nb_load_dirY,nb_load_dirZ
83 integer*4 :: nb_load_neuX,nb_load_neuY,nb_load_neuZ
84 integer*4 :: nb_load_neuN
85 integer*4 :: nb_load_traX,nb_load_traY,nb_load_traZ
86 integer*4 :: nb_load_poiX,nb_load_poiY,nb_load_poiZ
87 integer*4 :: nb_load_plaX,nb_load_plaY,nb_load_plaZ
88 integer*4 :: nb_load_forX,nb_load_forY,nb_load_forZ
89 integer*4 :: nb_load_forc,nb_load_pres,nb_load_shea
90 integer*4 :: nb_load_abc, nb_load_dg
91 integer*4 :: nb_load_sism
92 integer*4 :: nb_load_expl
93 integer*4 :: nb_case, n_test, nb_frac,nb_nhee,srcmodflag
94 integer*4 :: nb_func,nb_func_data
96 integer*4 :: lab_fnc, type_fnc, ndat_fnc
98 nb_mat = 0; nb_mat_nle = 0; nb_case = 0; nb_mat_rnd
99 nb_load_dirx = 0; nb_load_diry = 0; nb_load_dirz = 0
100 nb_load_neux = 0; nb_load_neuy = 0; nb_load_neuz = 0
101 nb_load_neun = 0; nb_load_poix = 0; nb_load_poiy = 0
102 nb_load_poiz = 0; nb_load_plax = 0; nb_load_play = 0
103 nb_load_plaz = 0; nb_load_forx = 0; nb_load_fory = 0
104 nb_load_forz = 0; nb_load_forc = 0; nb_load_pres = 0
105 nb_load_shea = 0; nb_load_abc = 0; nb_load_dg = 0
106 nb_load_sism = 0; nb_load_expl = 0; nb_frac = 0;
107 nb_load_trax = 0; nb_load_tray = 0; nb_load_traz = 0
109 nb_func = 0; nb_func_data = 0
114 open(40,file=filemate)
117 read(40,
'(A)',iostat = status) inline
119 if (status.ne.0)
exit
121 keyword = inline(1:4)
123 select case (keyword)
128 nb_mat_nle = nb_mat_nle + 1
130 nb_mat_rnd = nb_mat_rnd + 1
132 nb_load_dirx = nb_load_dirx + 1
134 nb_load_diry = nb_load_diry + 1
136 nb_load_dirz = nb_load_dirz + 1
138 nb_load_neux = nb_load_neux + 1
140 nb_load_neuy = nb_load_neuy + 1
142 nb_load_neuz = nb_load_neuz + 1
144 nb_load_neun = nb_load_neun + 1
146 nb_load_poix = nb_load_poix + 1
148 nb_load_poiy = nb_load_poiy + 1
150 nb_load_poiz = nb_load_poiz + 1
163 nb_load_traz = nb_load_traz + 1
165 nb_load_plax = nb_load_plax + 1
167 nb_load_play = nb_load_play + 1
169 nb_load_plaz = nb_load_plaz + 1
171 nb_load_forx = nb_load_forx + 1
173 nb_load_fory = nb_load_fory + 1
175 nb_load_forz = nb_load_forz + 1
177 nb_load_forc = nb_load_forc + 1
179 nb_load_pres = nb_load_pres + 1
181 nb_load_shea = nb_load_shea + 1
183 nb_load_abc = nb_load_abc + 1
185 nb_load_dg = nb_load_dg + 1
187 nb_load_dg = nb_load_dg + 1
189 nb_load_sism = nb_load_sism + 1
191 nb_load_expl = nb_load_expl + 1
193 nb_case = nb_case + 1
196 nb_nhee = nb_nhee + 1
199 read(inline(5:),*) srcname
200 if (srcname.eq.
'LOAD-SRCMOD2')
then
208 nb_func = nb_func + 1
209 read(inline(5:),*) lab_fnc, type_fnc
211 select case (type_fnc)
214 nb_func_data = nb_func_data + 0
217 nb_func_data = nb_func_data + 2
219 nb_func_data = nb_func_data + 2
223 read(inline(5:),*) lab_fnc, type_fnc, ndat_fnc
224 nb_func_data = nb_func_data + 2*ndat_fnc
228 nb_func_data = nb_func_data + 2
231 nb_func_data = nb_func_data + 2
234 nb_func_data = nb_func_data + 2
236 nb_func_data = nb_func_data + 2
238 nb_func_data = nb_func_data + 1
242 nb_func_data = nb_func_data + 3
245 nb_func_data = nb_func_data + 2
248 nb_func_data = nb_func_data + 2
251 nb_func_data = nb_func_data + 4
254 nb_func_data = nb_func_data + 2
257 read(inline(5:),*) lab_fnc, type_fnc, ndat_fnc
258 nb_func_data = nb_func_data + 2*ndat_fnc
260 read(inline(5:),*) lab_fnc, type_fnc, ndat_fnc
261 nb_func_data = nb_func_data + 2*ndat_fnc
264 nb_func_data = nb_func_data + 2
266 nb_func_data = nb_func_data + 1
269 read(inline(5:),*) lab_fnc, type_fnc, ndat_fnc
270 nb_func_data = nb_func_data + ndat_fnc
272 read(inline(5:),*) lab_fnc, type_fnc, ndat_fnc
273 nb_func_data = nb_func_data + 1