SPEED
WRITE_SDOF_OUTPUT_FILES.f90
Go to the documentation of this file.
1! Copyright (C) 2012 The SPEED FOUNDATION
2! Author: Ilario Mazzieri
3!
4! This file is part of SPEED.
5!
6! SPEED is free software; you can redistribute it and/or modify it
7! under the terms of the GNU Affero General Public License as
8! published by the Free Software Foundation, either version 3 of the
9! License, or (at your option) any later version.
10!
11! SPEED is distributed in the hope that it will be useful, but
12! WITHOUT ANY WARRANTY; without even the implied warranty of
13! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14! Affero General Public License for more details.
15!
16! You should have received a copy of the GNU Affero General Public License
17! along with SPEED. If not, see <http://www.gnu.org/licenses/>.
18
24
25subroutine write_sdof_output_files(tt1tmp)
26
27 use speed_sci
28 use speed_timeloop
29
30 implicit none
31 integer*4 :: sfs, temp, i, SDOFmon, jdof
32 real*8 :: tt1tmp
33 character*32 :: fmt_spec
34
35 sdofmon=10*(mpi_id+1)+7
36
37 sfs = 0
38 do i = 1, n_bld
39 temp = sys(i)%SFS
40 if(temp.eq.1) sfs = temp
41 enddo
42
43 if (sdofout(1).eq.1) then
44 ! Relative Displacement
45 if (sfs.eq.0) then
46 open(sdofmon,file=sdofdisplx,position='append') !!! x displacement
47 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
48 do i=1,n_bld
49 if (flag_outatalldofs.eq.1) then
50 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
51 write(sdofmon,fmt_spec,advance='NO') (sys(i)%tempU1(jdof,1), jdof=1,sys(i)%NDOF)
52 else
53 write(sdofmon,"(E16.7)",advance='NO') sys(i)%tempU1(sys(i)%NDOF,1)
54 endif
55 enddo
56
57 write(sdofmon,"(A1)") " "
58 close(sdofmon)
59
60 open(sdofmon,file=sdofdisply,position='append') !!! y displacement
61 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
62 do i=1,n_bld
63 if (flag_outatalldofs.eq.1) then
64 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
65 write(sdofmon,fmt_spec,advance='NO') (sys(i)%tempU1(jdof,2), jdof=1,sys(i)%NDOF)
66 else
67 write(sdofmon,"(E16.7)",advance='NO') sys(i)%tempU1(sys(i)%NDOF,2)
68 endif
69 enddo
70
71 write(sdofmon,"(A1)") " "
72 close(sdofmon)
73
74 open(sdofmon,file=sdofdisplz,position='append') !!! z displacement
75 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
76 do i=1,n_bld
77 if (flag_outatalldofs.eq.1) then
78 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
79 write(sdofmon,fmt_spec,advance='NO') (sys(i)%tempU1(jdof,3), jdof=1,sys(i)%NDOF)
80 else
81 write(sdofmon,"(E16.7)",advance='NO') sys(i)%tempU1(sys(i)%NDOF,3)
82 endif
83 enddo
84
85 write(sdofmon,"(A1)") " "
86 close(sdofmon)
87
88
89 !!! soil displacement
90 open(sdofmon,file=sdofgrdisplx,position='append') !!! x displacement
91 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
92 do i=1,n_bld
93 write(sdofmon,"(E16.7)",advance='NO') sdofgd(i,1)
94 enddo
95
96 write(sdofmon,"(A1)") " "
97 close(sdofmon)
98
99 open(sdofmon,file=sdofgrdisply,position='append') !!! y displacement
100 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
101 do i=1,n_bld
102 write(sdofmon,"(E16.7)",advance='NO') sdofgd(i,2)
103 enddo
104
105 write(sdofmon,"(A1)") " "
106 close(sdofmon)
107
108 open(sdofmon,file=sdofgrdisplz,position='append') !!! z displacement
109 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
110 do i=1,n_bld
111 write(sdofmon,"(E16.7)",advance='NO') sdofgd(i,3)
112 enddo
113
114 write(sdofmon,"(A1)") " "
115 close(sdofmon)
116 elseif(sfs.eq.1) then
117
118 open(sdofmon,file=strdisplx,position='append') !!! structure x displacement
119 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
120 do i=1,n_bld
121 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%u(1,1)
122 enddo
123
124 write(sdofmon,"(A1)") " "
125 close(sdofmon)
126
127 open(sdofmon,file=strdisply,position='append') !!! structure y displacement
128 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
129 do i=1,n_bld
130 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%u(1,2)
131 enddo
132
133 write(sdofmon,"(A1)") " "
134 close(sdofmon)
135
136 open(sdofmon,file=grddisplx,position='append') !!! soil x displacement
137 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
138 do i=1,n_bld
139 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofgd(i,1)
140 enddo
141
142 write(sdofmon,"(A1)") " "
143 close(sdofmon)
144
145 open(sdofmon,file=grddisply,position='append') !!! soil y displacement
146 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
147 do i=1,n_bld
148 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofgd(i,2)
149 enddo
150
151 write(sdofmon,"(A1)") " "
152 close(sdofmon)
153
154 open(sdofmon,file=grddisplz,position='append') !!! soil z displacement
155 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
156 do i=1,n_bld
157 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofgd(i,3)
158 enddo
159
160 write(sdofmon,"(A1)") " "
161 close(sdofmon)
162
163 open(sdofmon,file=fnddisplx,position='append') !!! foundation x displacement
164 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
165 do i=1,n_bld
166 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%u(2,1)
167 enddo
168
169 write(sdofmon,"(A1)") " "
170 close(sdofmon)
171
172 open(sdofmon,file=fnddisply,position='append') !!! foundation y displacement
173 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
174 do i=1,n_bld
175 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%u(2,2)
176 enddo
177
178 write(sdofmon,"(A1)") " "
179 close(sdofmon)
180
181 open(sdofmon,file=fnddisplrx,position='append') !!! foundation rotation from x motion
182 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
183 do i=1,n_bld
184 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%u(3,1)
185 enddo
186
187 write(sdofmon,"(A1)") " "
188 close(sdofmon)
189
190 open(sdofmon,file=fnddisplry,position='append') !!! foundation rotation from y motion
191 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
192 do i=1,n_bld
193 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%u(3,2)
194 enddo
195
196 write(sdofmon,"(A1)") " "
197 close(sdofmon)
198
199 open(sdofmon,file=fnddisplzx,position='append') !!! foundation z displacement from x motion
200 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
201 do i=1,n_bld
202 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%u(4,1)
203 enddo
204
205 write(sdofmon,"(A1)") " "
206 close(sdofmon)
207
208 open(sdofmon,file=fnddisplzy,position='append') !!! foundation z displacement from y motion
209 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
210 do i=1,n_bld
211 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%u(4,2)
212 enddo
213
214 write(sdofmon,"(A1)") " "
215 close(sdofmon)
216 endif
217 endif
218
219
220 if (sdofout(2).eq.1) then
221
222 if(sfs.eq.0) then
223 !!! relative acceleration - SS
224
225 open(sdofmon,file=sdofaccx,position='append') !!! x acceleration
226 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
227 do i=1,n_bld
228 if (flag_outatalldofs.eq.1) then
229 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
230 write(sdofmon,fmt_spec,advance='NO') (sys(i)%tempRA1(jdof,1), jdof=1,sys(i)%NDOF)
231 else
232 write(sdofmon,"(E16.7)",advance='NO') sys(i)%tempRA1(sys(i)%NDOF,1)
233 endif
234 enddo
235 write(sdofmon,"(A1)") " "
236 close(sdofmon)
237
238 open(sdofmon,file=sdofaccy,position='append') !!! y acceleration
239 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
240 do i=1,n_bld
241 if (flag_outatalldofs.eq.1) then
242 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
243 write(sdofmon,fmt_spec,advance='NO') (sys(i)%tempRA1(jdof,2), jdof=1,sys(i)%NDOF)
244 else
245 write(sdofmon,"(E16.7)",advance='NO') sys(i)%tempRA1(sys(i)%NDOF,2)
246 endif
247 enddo
248 write(sdofmon,"(A1)") " "
249 close(sdofmon)
250
251 open(sdofmon,file=sdofaccz,position='append') !!! z acceleration
252 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
253 do i=1,n_bld
254 if (flag_outatalldofs.eq.1) then
255 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
256 write(sdofmon,fmt_spec,advance='NO') (sys(i)%tempRA1(jdof,3), jdof=1,sys(i)%NDOF)
257 else
258 write(sdofmon,"(E16.7)",advance='NO') sys(i)%tempRA1(sys(i)%NDOF,3)
259 endif
260 enddo
261 write(sdofmon,"(A1)") " "
262 close(sdofmon)
263
264
265 !!! soil acceleration
266 open(sdofmon,file=sdofgraccx,position='append') !!! x ground acceleration
267 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
268 do i=1,n_bld
269 write(sdofmon,"(E16.7)",advance='NO') sdofag(i,1)
270 enddo
271 write(sdofmon,"(A1)") " "
272 close(sdofmon)
273
274 open(sdofmon,file=sdofgraccy,position='append') !!! y ground acceleration
275 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
276 do i=1,n_bld
277 write(sdofmon,"(E16.7)",advance='NO') sdofag(i,2)
278 enddo
279 write(sdofmon,"(A1)") " "
280 close(sdofmon)
281
282 open(sdofmon,file=sdofgraccz,position='append') !!! y ground acceleration
283 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
284 do i=1,n_bld
285 write(sdofmon,"(E16.7)",advance='NO') sdofag(i,3)
286 enddo
287 write(sdofmon,"(A1)") " "
288 close(sdofmon)
289 elseif(sfs.eq.1) then
290
291 open(sdofmon,file=straccx,position='append') !!! structure x acceleration
292 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
293 do i=1,n_bld
294 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%a(1,1)
295 enddo
296
297 write(sdofmon,"(A1)") " "
298 close(sdofmon)
299
300 open(sdofmon,file=straccy,position='append') !!! structure y acceleration
301 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
302 do i=1,n_bld
303 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%a(1,2)
304 enddo
305
306 write(sdofmon,"(A1)") " "
307 close(sdofmon)
308
309 open(sdofmon,file=grdaccx,position='append') !!! soil x acceleration
310 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
311 do i=1,n_bld
312 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofag(i,1)
313 enddo
314
315 write(sdofmon,"(A1)") " "
316 close(sdofmon)
317
318 open(sdofmon,file=grdaccy,position='append') !!! soil y acceleration
319 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
320 do i=1,n_bld
321 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofag(i,2)
322 enddo
323
324 write(sdofmon,"(A1)") " "
325 close(sdofmon)
326
327 open(sdofmon,file=grdaccz,position='append') !!! soil z acceleration
328 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
329 do i=1,n_bld
330 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofag(i,3)
331 enddo
332
333 write(sdofmon,"(A1)") " "
334 close(sdofmon)
335
336 open(sdofmon,file=fndaccx,position='append') !!! foundation x acceleration
337 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
338 do i=1,n_bld
339 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%a(2,1)
340 enddo
341
342 write(sdofmon,"(A1)") " "
343 close(sdofmon)
344
345 open(sdofmon,file=fndaccy,position='append') !!! foundation y acceleration
346 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
347 do i=1,n_bld
348 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%a(2,2)
349 enddo
350
351 write(sdofmon,"(A1)") " "
352 close(sdofmon)
353
354 open(sdofmon,file=fndaccrx,position='append') !!! foundation rocking acceleration from x motion
355 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
356 do i=1,n_bld
357 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%a(3,1)
358 enddo
359
360 write(sdofmon,"(A1)") " "
361 close(sdofmon)
362
363 open(sdofmon,file=fndaccry,position='append') !!! foundation rocking acceleration from y motion
364 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
365 do i=1,n_bld
366 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%a(3,2)
367 enddo
368
369 write(sdofmon,"(A1)") " "
370 close(sdofmon)
371
372 open(sdofmon,file=fndacczx,position='append') !!! foundation z acceleration from x motion
373 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
374 do i=1,n_bld
375 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%a(4,1)
376 enddo
377
378 write(sdofmon,"(A1)") " "
379 close(sdofmon)
380
381 open(sdofmon,file=fndacczy,position='append') !! foundation z acceleration from y motion
382 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
383 do i=1,n_bld
384 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%a(4,2)
385 enddo
386
387 write(sdofmon,"(A1)") " "
388 close(sdofmon)
389 endif
390 endif
391
392 if (sdofout(3).eq.1) then
393
394 if(sfs.eq.0) then
395 open(sdofmon,file=sdoffx,position='append') !!! x interaction force
396 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
397 do i=1,n_bld
398 if (flag_outatalldofs.eq.1) then
399 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
400 write(sdofmon,fmt_spec,advance='NO') (sys(i)%IntForce(jdof,1), jdof=1,sys(i)%NDOF)
401 else
402 write(sdofmon,"(E16.7)",advance='NO') sys(i)%IntForce(sys(i)%NDOF,1)
403 endif
404 end do
405 write(sdofmon,"(A1)") " "
406 close(sdofmon)
407
408 open(sdofmon,file=sdoffy,position='append') !!! y interaction force
409 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
410 do i=1,n_bld
411 if (flag_outatalldofs.eq.1) then
412 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
413 write(sdofmon,fmt_spec,advance='NO') (sys(i)%IntForce(jdof,2), jdof=1,sys(i)%NDOF)
414 else
415 write(sdofmon,"(E16.7)",advance='NO')sys(i)%IntForce(sys(i)%NDOF,2)
416 endif
417 end do
418 write(sdofmon,"(A1)") " "
419 close(sdofmon)
420
421 open(sdofmon,file=sdoffz,position='append') !!! z interaction force
422 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
423 do i=1,n_bld
424 if (flag_outatalldofs.eq.1) then
425 write(fmt_spec,'(A1, I0, A6)') '(', sys(i)%NDOF, 'E16.7)'
426 write(sdofmon,fmt_spec,advance='NO') (sys(i)%IntForce(jdof,3), jdof=1,sys(i)%NDOF)
427 else
428 write(sdofmon,"(E16.7)",advance='NO')sys(i)%IntForce(sys(i)%NDOF,3)
429 endif
430 end do
431 write(sdofmon,"(A1)") " "
432 close(sdofmon)
433 elseif(sfs.eq.1) then
434
435 open(sdofmon,file=strfx,position='append') !!! structure x force
436 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
437 do i=1,n_bld
438 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%fs(1)
439 enddo
440
441 write(sdofmon,"(A1)") " "
442 close(sdofmon)
443
444 open(sdofmon,file=strfy,position='append') !!! structure y force
445 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
446 do i=1,n_bld
447 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%fs(2)
448 enddo
449
450 write(sdofmon,"(A1)") " "
451 close(sdofmon)
452
453 open(sdofmon,file=fndfx,position='append') !!! foundation x shear force
454 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
455 do i=1,n_bld
456 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%fb(1)
457 enddo
458
459 write(sdofmon,"(A1)") " "
460 close(sdofmon)
461
462 open(sdofmon,file=fndfy,position='append') !!! foundation y shear force
463 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
464 do i=1,n_bld
465 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sys(i)%fb(2)
466 enddo
467
468 write(sdofmon,"(A1)") " "
469 close(sdofmon)
470
471 open(sdofmon,file=intfx,position='append') !!! x interaction force
472 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
473 do i=1,n_bld
474 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofforceinput(3*(i-1)+1)
475 end do
476 write(sdofmon,"(A1)") " "
477 close(sdofmon)
478
479 open(sdofmon,file=intfy,position='append') !! y interaction force
480 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
481 do i=1,n_bld
482 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofforceinput(3*(i-1)+2)
483 end do
484 write(sdofmon,"(A1)") " "
485 close(sdofmon)
486
487 open(sdofmon,file=intfz,position='append') !!! z interaction force
488 write(sdofmon,"(E16.7)",advance='NO') tt1tmp
489 do i=1,n_bld
490 if(sys(i)%SFS.eq.1) write(sdofmon,"(E16.7)",advance='NO') sdofforceinput(3*(i-1)+3)
491 end do
492 write(sdofmon,"(A1)") " "
493 close(sdofmon)
494 endif
495 endif
496
497 return
498end subroutine write_sdof_output_files
write_sdof_output_files
subroutine write_sdof_output_files(tt1tmp)
Write system output files.
Definition WRITE_SDOF_OUTPUT_FILES.f90:26
speed_sci
Contains parameters for MDOF.
Definition MODULES.f90:725
speed_sci::grddisplx
character *100 grddisplx
Definition MODULES.f90:794
speed_sci::sdofgraccz
character *100 sdofgraccz
SDOF base ground acceleration.
Definition MODULES.f90:790
speed_sci::fnddisplzy
character *100 fnddisplzy
4DOF foundation displacement
Definition MODULES.f90:795
speed_sci::grdaccz
character *100 grdaccz
4DOF ground acceleration
Definition MODULES.f90:797
speed_sci::fnddisplx
character *100 fnddisplx
Definition MODULES.f90:795
speed_sci::sdofgraccx
character *100 sdofgraccx
Definition MODULES.f90:790
speed_sci::sdofout
integer *4, dimension(3) sdofout
displ, acc, f_react
Definition MODULES.f90:776
speed_sci::fndacczy
character *100 fndacczy
4DOF foundation acceleration
Definition MODULES.f90:798
speed_sci::strfy
character *100 strfy
Definition MODULES.f90:799
speed_sci::sdofaccz
character *100 sdofaccz
SDOF total acceleration.
Definition MODULES.f90:789
speed_sci::straccx
character *100 straccx
Definition MODULES.f90:796
speed_sci::fndfy
character *100 fndfy
4DOF superstructure and foundation shear force
Definition MODULES.f90:799
speed_sci::fndaccy
character *100 fndaccy
Definition MODULES.f90:798
speed_sci::grdaccy
character *100 grdaccy
Definition MODULES.f90:797
speed_sci::sdofgrdisplx
character *100 sdofgrdisplx
Definition MODULES.f90:788
speed_sci::sdofdisplz
character *100 sdofdisplz
SDOF displacement.
Definition MODULES.f90:787
speed_sci::sdofgrdisply
character *100 sdofgrdisply
Definition MODULES.f90:788
speed_sci::n_bld
integer *4 n_bld
Definition MODULES.f90:773
speed_sci::grdaccx
character *100 grdaccx
Definition MODULES.f90:797
speed_sci::fnddisplrx
character *100 fnddisplrx
Definition MODULES.f90:795
speed_sci::flag_outatalldofs
integer *4 flag_outatalldofs
Definition MODULES.f90:777
speed_sci::straccy
character *100 straccy
4DOF structure acceleration
Definition MODULES.f90:796
speed_sci::sdofgrdisplz
character *100 sdofgrdisplz
SDOF base displacement.
Definition MODULES.f90:788
speed_sci::strdisply
character *100 strdisply
4DOF structure displacement
Definition MODULES.f90:793
speed_sci::sdofgraccy
character *100 sdofgraccy
Definition MODULES.f90:790
speed_sci::strdisplx
character *100 strdisplx
Definition MODULES.f90:793
speed_sci::fndfx
character *100 fndfx
Definition MODULES.f90:799
speed_sci::sdoffy
character *100 sdoffy
Definition MODULES.f90:791
speed_sci::sdofdisply
character *100 sdofdisply
Definition MODULES.f90:787
speed_sci::sdofaccy
character *100 sdofaccy
Definition MODULES.f90:789
speed_sci::sdofforceinput
real *8, dimension(:), allocatable sdofforceinput
Definition MODULES.f90:783
speed_sci::sdofgd
real *8, dimension(:,:), allocatable sdofgd
Definition MODULES.f90:782
speed_sci::sdoffx
character *100 sdoffx
Definition MODULES.f90:791
speed_sci::sdofag
real *8, dimension(:,:), allocatable sdofag
Definition MODULES.f90:782
speed_sci::fnddisplry
character *100 fnddisplry
Definition MODULES.f90:795
speed_sci::sdoffz
character *100 sdoffz
SDOF reaction force.
Definition MODULES.f90:791
speed_sci::sdofaccx
character *100 sdofaccx
Definition MODULES.f90:789
speed_sci::fnddisplzx
character *100 fnddisplzx
Definition MODULES.f90:795
speed_sci::fndaccx
character *100 fndaccx
Definition MODULES.f90:798
speed_sci::strfx
character *100 strfx
Definition MODULES.f90:799
speed_sci::grddisplz
character *100 grddisplz
4DOF ground displacement
Definition MODULES.f90:794
speed_sci::intfy
character *100 intfy
Definition MODULES.f90:800
speed_sci::intfx
character *100 intfx
Definition MODULES.f90:800
speed_sci::fndaccry
character *100 fndaccry
Definition MODULES.f90:798
speed_sci::fnddisply
character *100 fnddisply
Definition MODULES.f90:795
speed_sci::fndaccrx
character *100 fndaccrx
Definition MODULES.f90:798
speed_sci::fndacczx
character *100 fndacczx
Definition MODULES.f90:798
speed_sci::sys
type(system), dimension(:), allocatable sys
SDOF system.
Definition MODULES.f90:771
speed_sci::sdofdisplx
character *100 sdofdisplx
Definition MODULES.f90:787
speed_sci::intfz
character *100 intfz
4DOF interaction forces
Definition MODULES.f90:800
speed_sci::grddisply
character *100 grddisply
Definition MODULES.f90:794
speed_timeloop
Contains a subset of SPEED paramters (used in TIME_LOOP)
Definition MODULES.f90:519