Reads oscillator position and writes SYSLST.input file.
25
28
29 implicit none
30
31 include 'SPEED.MPI'
32
33 real*8, dimension(:), allocatable :: rot_theta
34
38 endif
42 endif
43
44
46 write(*,'(A)')
47 write(*,'(A)') '--------------------SDOF System location--------------------'
48 endif
49
50
51
52
53
54
56
58
61
63
68
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
92
94
98
107
108
114
115 enddo
116
118
123
134
136
137
139
147
149
152 enddo
153
155
157
161
165
166 endif
167
169
170 else
171
175
176 endif
177
179
180 endif
181 else
182 write(*,'(A)') 'SYSLST key not found!'
183
184 endif
185
187 write(*,'(A)')
188 write(*,
'(A,I10)')
'SYStem positionLST: ',
sdofnum
190 endif
191
193
197 enddo
198 deallocate(rot_theta)
199
200
201
202
203
208
209
210
211
212
214
217
219
221 enddo
222
225 else
227 endif
228
229
235 enddo
236 close(50)
237
239 endif
240
241
subroutine get_highest_node(nn_loc, ne_loc, zz_loc, loc_n_num, nnz
Computes the highest node of the mesh (z-dir)
subroutine get_indloc_from_indglo(local_el, nel_loc, ie, ic)
Returns local id from global id.
subroutine get_minvalues(i_glo, v_glo, n_glo, i_loc, n_loc, np)
Computes positions of minimum values.
subroutine get_nearest_node_pgm(nloc, xs, ys, zs, xt, yt, zt, nt, dist_min
Computes the nearest node with respet to (xt,yt,zt) starting from a given elevation.
subroutine get_pnt_pos_pgm(nb_el, aa11, aa12, aa13, aa21, aa22, aa23, aa31, aa32, aa33, bb11, bb12, bb13, bb21, bb22, bb23, bb31, bb32, bb33, gg1, gg2, gg3, dd1, dd2, dd3, x_true, y_true, z_true, el, xref, yref, zref,
Findes node coordinates in the reference element.
subroutine make_system_position_lglnodes(nn_loc, local_node_num, cs_nnz_loc, cs_loc, xs_loc, ys_loc, zs_loc, nsdof, sys_label, x_system_lst, y_system_lst, z_system_lst, mpi_id, mpi_comm, mpi_np)
Reads oscillator position from SYS.input, and finds to which local-LGL node it should be applied.
subroutine read_dime_filepg(filec, num_nodes)
Reads dimension of monitor files.
subroutine read_filesys(filec, num_nodes, label, x, y, z, axis_rot)
Reads SYS.input file.
subroutine read_file_mpgm_sys(filec, sdofnum, n_monitor_pgm, el_monitor_pgm, xr_monitor_pgm, yr_monitor_pgm, zr_monitor_pgm, axi
Reads files such as MLST.input, MLST.position or MPGM.input.
Contains SPEED PARAMETERS used in (SPEED, READ_INPUT_FILES, MAKE_PARTION_AND_MPI_FILES,...
real *8, dimension(:), allocatable yr_system_glo
real *8, dimension(:), allocatable x_system_real
real *8, dimension(:), allocatable delta2
real *8, dimension(:), allocatable gamma3
integer *4, dimension(:), allocatable local_el_num
real *8, dimension(:), allocatable gamma2
real *8, dimension(:), allocatable delta3
real *8, dimension(:), allocatable alfa23
real *8, dimension(:), allocatable z_system_glo_real
real *8, dimension(:), allocatable beta13
character *70 monitor_file_new
real *8, dimension(:), allocatable alfa33
real *8, dimension(:), allocatable alfa11
real *8, dimension(:), allocatable z_system_real
real *8, dimension(:), allocatable zr_system_glo
real *8, dimension(:), allocatable beta21
real *8, dimension(:), allocatable delta1
character *70 file_syslst
real *8, dimension(:), allocatable beta23
real *8, dimension(:), allocatable zz_spx_loc
integer *4, dimension(:), allocatable el_system_lst
real *8, dimension(:), allocatable y_system_lst
real *8, dimension(:), allocatable yr_system_lst
real *8, dimension(:), allocatable yy_spx_loc
integer *4, dimension(:), allocatable n_system_glo
real *8, dimension(:), allocatable alfa13
real *8, dimension(:), allocatable beta12
character *70 monitor_file
real *8, dimension(:), allocatable beta11
real *8, dimension(:), allocatable alfa31
integer *4, dimension(:), allocatable local_node_num
real *8, dimension(:), allocatable dist_system_glo
real *8, dimension(:), allocatable zr_system_lst
integer *4, dimension(:), allocatable system_files
real *8 depth_search_sys_lst
integer *4, dimension(:), allocatable sdeg_mat
real *8, dimension(:), allocatable x_system_lst
real *8, dimension(:), allocatable beta22
real *8, dimension(:), allocatable beta31
integer *4, dimension(:), allocatable con_spx_loc
real *8, dimension(:), allocatable alfa21
real *8, dimension(:), allocatable x_system_glo_real
character *70 sys_filename
integer *4, dimension(:), allocatable el_system_glo
real *8, dimension(:), allocatable alfa22
real *8, dimension(:), allocatable beta33
integer *4, dimension(:), allocatable tag_mat
real *8, dimension(:), allocatable xr_system_glo
real *8, dimension(:), allocatable gamma1
real *8, dimension(:), allocatable y_system_real
real *8, dimension(:), allocatable xr_system_lst
real *8, dimension(:), allocatable dist_system_lst
real *8, dimension(:), allocatable y_system_glo_real
real *8, dimension(:), allocatable alfa32
integer *4, dimension(:), allocatable system_label
real *8, dimension(:), allocatable xx_spx_loc
integer *4, dimension(:), allocatable n_system_lst
real *8, dimension(:), allocatable beta32
integer *4, dimension(:), allocatable elem_domain
real *8, dimension(:), allocatable z_system_lst
real *8, dimension(:), allocatable alfa12
real *8, dimension(:), allocatable highest_sys_lst_loc
Contains parameters for MDOF.
real *8, dimension(:), allocatable rot_sin
real *8, dimension(:), allocatable rot_cos