MODULES.f90 File Reference

Go to the source code of this file.

Data Types
type	str_mesh_scratch::scratch_element
type	str_mesh::element
type	str_mesh_after::element_after
type	dgjump::matrix
type	dgjump::el4loop
	element structure for time loop (RAM saving) More...
type	speed_sci::system

Modules
module	speed_exit_codes
	SPEED exit codes.
module	max_var
	Set maximal bounds.
module	str_mesh_scratch
	Contains mesh structure (scratch)
module	str_mesh
	Contains mesh structure for DG interface elements.
module	str_mesh_after
	Contains mesh structure for DG elements after pre-processing.
module	dgjump
	Contains structure for jump matrices.
module	speed_par
	Contains SPEED PARAMETERS used in (SPEED, READ_INPUT_FILES, MAKE_PARTION_AND_MPI_FILES, MAKE_SETUP_MPI_CONFORMING, MAKE_SPX_GRID_WITH_LOC_NUMERATION MAKE_SEISMIC_MOMENT_OR_EXPLOSIVE_SOURCE, MAKE_LOAD_MATRIX, FIND_MONITOR_POSITION MAKE_BOUNDARY_CONDITIONS, TIME_LOOP, DEALLOCATE_VARIABLES)
module	speed_par_dg
	Contains SPEED paramters (used in MAKE_DG_INTERFACE_CONDITIONS)
module	speed_timeloop
	Contains a subset of SPEED paramters (used in TIME_LOOP)
module	qsort_c_module
	Quick-sort algorithm.
module	binarysearch
module	speed_sci
	Contains parameters for MDOF.

Functions/Subroutines
recursive subroutine, public	qsort_c_module::qsortc (a)
pure recursive integer function, public	binarysearch::binarysearch_real (vec, scal, min, max)

Variables
integer, parameter	speed_exit_codes::exit_normal = 0
integer, parameter	speed_exit_codes::exit_cfl = 1
integer, parameter	speed_exit_codes::exit_instab = 2
integer, parameter	speed_exit_codes::exit_anelastic = 3
integer, parameter	speed_exit_codes::exit_setup = 4
integer, parameter	speed_exit_codes::exit_singularmtx = 5
integer, parameter	speed_exit_codes::exit_surf_notfound = 6
integer, parameter	speed_exit_codes::exit_energy_error = 7
integer, parameter	speed_exit_codes::exit_syntax_error = 8
integer, parameter	speed_exit_codes::exit_missing_file = 9
integer, parameter	speed_exit_codes::exit_root = 10
integer, parameter	speed_exit_codes::exit_elem_orient = 11
integer, parameter	speed_exit_codes::exit_no_nodes = 12
integer, parameter	speed_exit_codes::exit_no_elements = 13
integer, parameter	speed_exit_codes::exit_damping_peak = 14
integer, parameter	speed_exit_codes::exit_no_materials = 15
integer, parameter	speed_exit_codes::exit_function_error = 16
integer, parameter	max_var::max_dim = 3
	dimension of the problem
integer, parameter	max_var::max_el_conf = 200
	max number of neighbouring elements
integer, parameter	max_var::nofqp = 8
	max number of 1-D quadrature point per element
integer, parameter	max_var::nofinr = 500
	max number of newton rapson iterations
integer, parameter	max_var::max_quad_points = 8000
	max number of quadrature nodes on a DG surface
logical	speed_par::filefound
logical	speed_par::b_failoncoeffs
logical	speed_par::b_setuponly
logical	speed_par::b_failcfl
logical	speed_par::b_instabilitycontrol
logical, parameter	speed_par::b_failoncoeffs_default = .FALSE.
logical, parameter	speed_par::b_setuponly_default = .FALSE.
logical, parameter	speed_par::b_failcfl_default = .FALSE.
logical, parameter	speed_par::b_instabilitycontrol_default = .FALSE.
character *70	speed_par::file_pg
character *70	speed_par::file_mpgm
character *70	speed_par::file_ls
character *70	speed_par::file_mlst
character *70	speed_par::file_sys
character *70	speed_par::file_syslst
character *70	speed_par::head_file
character *70	speed_par::grid_file
character *70	speed_par::mat_file
character *70	speed_par::bkp_file
character *70	speed_par::head_file_frc
character *70	speed_par::monitor_file
character *70	speed_par::monitor_file_new
character *70	speed_par::file_face
character *70	speed_par::file_part
character *70	speed_par::file_mpi
character *70	speed_par::mpi_file
character *70	speed_par::file_mpi_new
character *70	speed_par::filename
character *70	speed_par::sdof_file
character *70	speed_par::sys_filename
character *3	speed_par::deltat_fixed
character *10	speed_par::rk_scheme
character *3	speed_par::slip_type
integer *4	speed_par::im_pgm
integer *4	speed_par::im_lst
integer *4	speed_par::im
integer *4	speed_par::ie
integer *4	speed_par::i
integer *4	speed_par::j
integer *4	speed_par::k
integer *4	speed_par::h
integer *4	speed_par::in
integer *4	speed_par::ic
integer *4	speed_par::id
integer *4	speed_par::ip
integer *4	speed_par::ielem
integer *4	speed_par::i4t
integer *4	speed_par::im_nle
integer *4	speed_par::nnod_macro
integer *4	speed_par::nnod
integer *4	speed_par::nelem
integer *4	speed_par::con_nnz
integer *4	speed_par::con_nnz_bc
integer *4	speed_par::con_nnz_loc
integer *4	speed_par::con_nnz_bc_loc
integer *4	speed_par::con_nnz_dg
integer *4	speed_par::nnz_node_weight
integer *4	speed_par::nface
integer *4	speed_par::nmat
integer *4	speed_par::n_case
integer *4	speed_par::nload_dirx_el
integer *4	speed_par::nload_neux_el
integer *4	speed_par::nload_poix_el
integer *4	speed_par::nload_forx_el
integer *4	speed_par::nload_diry_el
integer *4	speed_par::nload_neuy_el
integer *4	speed_par::nload_poiy_el
integer *4	speed_par::nload_fory_el
integer *4	speed_par::nload_dirz_el
integer *4	speed_par::nload_neuz_el
integer *4	speed_par::nload_poiz_el
integer *4	speed_par::nload_forz_el
integer *4	speed_par::nload_neun_el
integer *4	speed_par::nload_sism_el
integer *4	speed_par::nload_expl_el
integer *4	speed_par::nload_plax_el
integer *4	speed_par::nload_play_el
integer *4	speed_par::nload_plaz_el
integer *4	speed_par::nload_pres_el
integer *4	speed_par::nload_shea_el
integer *4	speed_par::nload_forc_el
integer *4	speed_par::nload_trax_el
integer *4	speed_par::nload_tray_el
integer *4	speed_par::nload_traz_el
integer *4	speed_par::nload_abc_el
integer *4	speed_par::nload_dg_el
integer *4	speed_par::nfunc
integer *4	speed_par::nfunc_data
integer *4	speed_par::nmonitors_pgm
integer *4	speed_par::nmonitors_lst
integer *4	speed_par::num_pgm
integer *4	speed_par::num_lst
integer *4	speed_par::nsystem_lst
integer *4	speed_par::sys_lst
integer *4	speed_par::nts
integer *4	speed_par::restart
integer *4	speed_par::trestart
integer *4	speed_par::ns
integer *4	speed_par::nn
integer *4	speed_par::nn2
integer *4	speed_par::nn3
integer *4	speed_par::nnode_dirx
integer *4	speed_par::nnode_diry
integer *4	speed_par::nnode_dirz
integer *4	speed_par::nnode_abc
integer *4	speed_par::nelem_abc
integer *4	speed_par::nnode_dg
integer *4	speed_par::nelem_dg
integer *4	speed_par::nelem_dg_glo
integer *4	speed_par::nnod_loc
integer *4	speed_par::nelem_loc
integer *4	speed_par::nface_loc
integer *4	speed_par::dime_js
integer *4	speed_par::dime_jr
integer *4	speed_par::szsism
integer *4	speed_par::max_num_node_sism
integer *4	speed_par::length_check_node_sism
integer *4	speed_par::max_num_node_expl
integer *4	speed_par::length_check_node_expl
integer *4	speed_par::nsend
integer *4	speed_par::nrecv
integer *4	speed_par::nsend_jump
integer *4	speed_par::nrecv_jump
integer *4	speed_par::nnode_dom
integer *4	speed_par::nelem_dom
integer *4	speed_par::edgecut
integer *4	speed_par::nmat_nle
integer *4	speed_par::total_els
integer *4	speed_par::nvec
integer *4	speed_par::nargs
integer *4	speed_par::ntime_err
integer *4	speed_par::n_test
integer *4	speed_par::n_frac
integer *4	speed_par::num_testcase
integer *4	speed_par::label_testcase
integer *4	speed_par::nmat_rnd
integer *4	speed_par::nmat_nhe
integer *4	speed_par::file_mon_pgm
integer *4	speed_par::file_mon_lst
integer *4	speed_par::file_sys_lst
integer *4	speed_par::find
integer *4	speed_par::torf
integer *4	speed_par::trof
integer *4	speed_par::make_damping_yes_or_not
integer *4	speed_par::mpi_ierr
integer *4	speed_par::srcmodflag
integer *4	speed_par::sdofflag
integer *4	speed_par::damping_type
integer *4, parameter	speed_par::n_sls = 3
integer *4	speed_par::trash
integer *4	speed_par::opt_out_form
integer *4	speed_par::opt_out_data
integer *4	speed_par::unit_mpi
integer *4	speed_par::unit_part
integer *4	speed_par::initial_snap
integer *4	speed_par::mpi_id
integer *4	speed_par::mpi_np
integer *4	speed_par::mpi_comm
integer *4	speed_par::ncase
integer *4	speed_par::ndt_mon_lst
integer *4	speed_par::ndt_mon_pgm
integer *4	speed_par::iargc
integer *4	speed_par::rk_order
integer *4	speed_par::rk_stages
integer *4	speed_par::testmode
integer *4	speed_par::debug
integer *4, dimension(3)	speed_par::clock
integer *4, dimension(6)	speed_par::opt_out_var
integer *4, dimension(:), allocatable	speed_par::con_spx
integer *4, dimension(:), allocatable	speed_par::con_spx_dg
integer *4, dimension(:), allocatable	speed_par::con_spx_bc
integer *4, dimension(:), allocatable	speed_par::node_weight
integer *4, dimension(:), allocatable	speed_par::node_pointer
integer *4, dimension(:), allocatable	speed_par::con_spx_loc
integer *4, dimension(:), allocatable	speed_par::con_spx_bc_loc
integer *4, dimension(:), allocatable	speed_par::local_el_num
integer *4, dimension(:), allocatable	speed_par::local_node_num
integer *4, dimension(:), allocatable	speed_par::local_node_num_dg
integer *4, dimension(:), allocatable	speed_par::n_glo
integer *4, dimension(:), allocatable	speed_par::el_glo
integer *4, dimension(:), allocatable	speed_par::n_system_glo
integer *4, dimension(:), allocatable	speed_par::el_system_glo
integer *4, dimension(:), allocatable	speed_par::system_label
integer *4, dimension(:), allocatable	speed_par::node_domain
integer *4, dimension(:), allocatable	speed_par::elem_domain
integer *4, dimension(:), allocatable	speed_par::node_domain_loc
integer *4, dimension(:), allocatable	speed_par::elem_domain_loc
integer *4, dimension(:), allocatable	speed_par::count_faces
integer *4, dimension(:), allocatable	speed_par::elem_index
integer *4, dimension(:), allocatable	speed_par::node_index_seq
integer *4, dimension(:), allocatable	speed_par::inode_dirx
integer *4, dimension(:), allocatable	speed_par::inode_diry
integer *4, dimension(:), allocatable	speed_par::inode_dirz
integer *4, dimension(:), allocatable	speed_par::sub_tag_all
integer *4, dimension(:), allocatable	speed_par::val_case
integer *4, dimension(:), allocatable	speed_par::tag_case
integer *4, dimension(:), allocatable	speed_par::sdeg_mat
integer *4, dimension(:), allocatable	speed_par::type_mat
integer *4, dimension(:), allocatable	speed_par::tag_mat
integer *4, dimension(:), allocatable	speed_par::fun_dirx_el
integer *4, dimension(:), allocatable	speed_par::fun_neux_el
integer *4, dimension(:), allocatable	speed_par::fun_diry_el
integer *4, dimension(:), allocatable	speed_par::fun_neuy_el
integer *4, dimension(:), allocatable	speed_par::fun_dirz_el
integer *4, dimension(:), allocatable	speed_par::fun_neuz_el
integer *4, dimension(:), allocatable	speed_par::fun_neun_el
integer *4, dimension(:), allocatable	speed_par::fun_poix_el
integer *4, dimension(:), allocatable	speed_par::fun_forx_el
integer *4, dimension(:), allocatable	speed_par::fun_poiy_el
integer *4, dimension(:), allocatable	speed_par::fun_fory_el
integer *4, dimension(:), allocatable	speed_par::fun_poiz_el
integer *4, dimension(:), allocatable	speed_par::fun_forz_el
integer *4, dimension(:), allocatable	speed_par::fun_plax_el
integer *4, dimension(:), allocatable	speed_par::fun_play_el
integer *4, dimension(:), allocatable	speed_par::fun_plaz_el
integer *4, dimension(:), allocatable	speed_par::fun_pres_el
integer *4, dimension(:), allocatable	speed_par::fun_shea_el
integer *4, dimension(:), allocatable	speed_par::fun_forc_el
integer *4, dimension(:), allocatable	speed_par::fun_sism_el
integer *4, dimension(:), allocatable	speed_par::fun_expl_el
integer *4, dimension(:), allocatable	speed_par::fun_trax_el
integer *4, dimension(:), allocatable	speed_par::fun_tray_el
integer *4, dimension(:), allocatable	speed_par::fun_traz_el
integer *4, dimension(:), allocatable	speed_par::fun_test
integer *4, dimension(:), allocatable	speed_par::tag_dirx_el
integer *4, dimension(:), allocatable	speed_par::tag_neux_el
integer *4, dimension(:), allocatable	speed_par::tag_diry_el
integer *4, dimension(:), allocatable	speed_par::tag_neuy_el
integer *4, dimension(:), allocatable	speed_par::tag_dirz_el
integer *4, dimension(:), allocatable	speed_par::tag_neuz_el
integer *4, dimension(:), allocatable	speed_par::tag_neun_el
integer *4, dimension(:), allocatable	speed_par::tag_play_el
integer *4, dimension(:), allocatable	speed_par::tag_plax_el
integer *4, dimension(:), allocatable	speed_par::tag_plaz_el
integer *4, dimension(:), allocatable	speed_par::tag_abc_el
integer *4, dimension(:), allocatable	speed_par::tag_dg_el
integer *4, dimension(:), allocatable	speed_par::tag_dg_yn
integer *4, dimension(:), allocatable	speed_par::tag_dg_frc
integer *4, dimension(:), allocatable	speed_par::tag_dg_link
integer *4, dimension(:), allocatable	speed_par::tag_sism_el
integer *4, dimension(:), allocatable	speed_par::tag_expl_el
integer *4, dimension(:), allocatable	speed_par::tag_func
integer *4, dimension(:), allocatable	speed_par::func_type
integer *4, dimension(:), allocatable	speed_par::func_indx
integer *4, dimension(:,:), allocatable	speed_par::locnode_buildid_map
integer *4, dimension(:), allocatable	speed_par::node_counter_sdof
integer *4, dimension(:), allocatable	speed_par::n_monitor_pgm
integer *4, dimension(:), allocatable	speed_par::el_monitor_pgm
integer *4, dimension(:), allocatable	speed_par::n_monitor_lst
integer *4, dimension(:), allocatable	speed_par::el_monitor_lst
integer *4, dimension(:), allocatable	speed_par::monit_files
integer *4, dimension(:), allocatable	speed_par::n_system_lst
integer *4, dimension(:), allocatable	speed_par::el_system_lst
integer *4, dimension(:), allocatable	speed_par::system_files
integer *4, dimension(:), allocatable	speed_par::num_node_sism
integer *4, dimension(:), allocatable	speed_par::num_node_expl
integer *4, dimension(:), allocatable	speed_par::sism_el_glo
integer *4, dimension(:), allocatable	speed_par::expl_el_glo
integer *4, dimension(:), allocatable	speed_par::mpi_stat
integer *4, dimension(:), allocatable	speed_par::node_send
integer *4, dimension(:), allocatable	speed_par::node_recv
integer *4, dimension(:), allocatable	speed_par::proc_send
integer *4, dimension(:), allocatable	speed_par::proc_recv
integer *4, dimension(:), allocatable	speed_par::node_send_jump
integer *4, dimension(:), allocatable	speed_par::node_recv_jump
integer *4, dimension(:), allocatable	speed_par::proc_send_jump
integer *4, dimension(:), allocatable	speed_par::proc_recv_jump
integer *4, dimension(:), allocatable	speed_par::proc_sys_send
integer *4, dimension(:), allocatable	speed_par::proc_sys_recv
integer *4, dimension(:), allocatable	speed_par::itersnap
integer *4, dimension(:), allocatable	speed_par::vec
integer *4, dimension(:), allocatable	speed_par::i4count
integer *4, dimension(:), allocatable	speed_par::type_mat_nle
integer *4, dimension(:), allocatable	speed_par::tag_mat_nle
integer *4, dimension(:), allocatable	speed_par::rand_mat
integer *4, dimension(:), allocatable	speed_par::val_nhe
integer *4, dimension(:), allocatable	speed_par::tol_nhe
integer *4, dimension(:,:), allocatable	speed_par::con
integer *4, dimension(:,:), allocatable	speed_par::con_bc
integer *4, dimension(:,:), allocatable	speed_par::ielem_abc
integer *4, dimension(:,:), allocatable	speed_par::faces
integer *4, dimension(:,:), allocatable	speed_par::sour_node_sism
integer *4, dimension(:,:), allocatable	speed_par::check_node_sism
integer *4, dimension(:,:), allocatable	speed_par::sour_node_expl
integer *4, dimension(:,:), allocatable	speed_par::check_node_expl
integer *4, dimension(:,:), allocatable	speed_par::prop_mat_nle
real *8	speed_par::deltat
real *8	speed_par::deltat_cfl
real *8	speed_par::tstart
real *8	speed_par::tstop
real *8	speed_par::time_in_seconds
real *8	speed_par::start1
real *8	speed_par::start2
real *8	speed_par::start
real *8	speed_par::finish
real *8	speed_par::fmax
real *8	speed_par::fpeak
real *8	speed_par::xx_macro
real *8	speed_par::yy_macro
real *8	speed_par::zz_macro
real *8	speed_par::depth_search_mon_pgm
real *8	speed_par::rotation_angle_mon_pgm
real *8	speed_par::depth_search_mon_lst
real *8	speed_par::depth_search_sys_lst
real *8	speed_par::dg_c
real *8	speed_par::pen_c
real *8	speed_par::dist
real *8	speed_par::eps
real *8	speed_par::r8t
real *8, dimension(5)	speed_par::prova
real *8, dimension(5)	speed_par::sum_prova
real *8, dimension(:), allocatable	speed_par::zs_elev
real *8, dimension(:), allocatable	speed_par::zs_all
real *8, dimension(:), allocatable	speed_par::vs_tria
real *8, dimension(:), allocatable	speed_par::thick
real *8, dimension(:), allocatable	speed_par::tol_case
real *8, dimension(:), allocatable	speed_par::xx_spx
real *8, dimension(:), allocatable	speed_par::yy_spx
real *8, dimension(:), allocatable	speed_par::zz_spx
real *8, dimension(:), allocatable	speed_par::xx_spx_loc
real *8, dimension(:), allocatable	speed_par::yy_spx_loc
real *8, dimension(:), allocatable	speed_par::zz_spx_loc
real *8, dimension(:), allocatable	speed_par::alfa11
real *8, dimension(:), allocatable	speed_par::alfa12
real *8, dimension(:), allocatable	speed_par::alfa13
real *8, dimension(:), allocatable	speed_par::alfa21
real *8, dimension(:), allocatable	speed_par::alfa22
real *8, dimension(:), allocatable	speed_par::alfa23
real *8, dimension(:), allocatable	speed_par::alfa31
real *8, dimension(:), allocatable	speed_par::alfa32
real *8, dimension(:), allocatable	speed_par::alfa33
real *8, dimension(:), allocatable	speed_par::beta11
real *8, dimension(:), allocatable	speed_par::beta12
real *8, dimension(:), allocatable	speed_par::beta13
real *8, dimension(:), allocatable	speed_par::beta21
real *8, dimension(:), allocatable	speed_par::beta22
real *8, dimension(:), allocatable	speed_par::beta23
real *8, dimension(:), allocatable	speed_par::beta31
real *8, dimension(:), allocatable	speed_par::beta32
real *8, dimension(:), allocatable	speed_par::beta33
real *8, dimension(:), allocatable	speed_par::gamma1
real *8, dimension(:), allocatable	speed_par::gamma2
real *8, dimension(:), allocatable	speed_par::gamma3
real *8, dimension(:), allocatable	speed_par::delta1
real *8, dimension(:), allocatable	speed_par::delta2
real *8, dimension(:), allocatable	speed_par::delta3
real *8, dimension(:), allocatable	speed_par::x_monitor_pgm
real *8, dimension(:), allocatable	speed_par::y_monitor_pgm
real *8, dimension(:), allocatable	speed_par::z_monitor_pgm
real *8, dimension(:), allocatable	speed_par::x_monitor_lst
real *8, dimension(:), allocatable	speed_par::y_monitor_lst
real *8, dimension(:), allocatable	speed_par::z_monitor_lst
real *8, dimension(:), allocatable	speed_par::x_monitor_real
real *8, dimension(:), allocatable	speed_par::y_monitor_real
real *8, dimension(:), allocatable	speed_par::z_monitor_real
real *8, dimension(:), allocatable	speed_par::xr_monitor_pgm
real *8, dimension(:), allocatable	speed_par::yr_monitor_pgm
real *8, dimension(:), allocatable	speed_par::zr_monitor_pgm
real *8, dimension(:), allocatable	speed_par::xr_monitor_lst
real *8, dimension(:), allocatable	speed_par::yr_monitor_lst
real *8, dimension(:), allocatable	speed_par::zr_monitor_lst
real *8, dimension(:), allocatable	speed_par::dist_monitor_lst
real *8, dimension(:), allocatable	speed_par::dist_monitor_pgm
real *8, dimension(:), allocatable	speed_par::xr_glo
real *8, dimension(:), allocatable	speed_par::yr_glo
real *8, dimension(:), allocatable	speed_par::zr_glo
real *8, dimension(:), allocatable	speed_par::dist_glo
real *8, dimension(:), allocatable	speed_par::x_glo_real
real *8, dimension(:), allocatable	speed_par::y_glo_real
real *8, dimension(:), allocatable	speed_par::z_glo_real
real *8, dimension(:), allocatable	speed_par::highest_pgm
real *8, dimension(:), allocatable	speed_par::highest_pgm_loc
real *8, dimension(:), allocatable	speed_par::highest_lst
real *8, dimension(:), allocatable	speed_par::highest_lst_loc
real *8, dimension(:), allocatable	speed_par::dist_el_glo
real *8, dimension(:), allocatable	speed_par::posx_el_glo
real *8, dimension(:), allocatable	speed_par::posy_el_glo
real *8, dimension(:), allocatable	speed_par::posz_el_glo
real *8, dimension(:), allocatable	speed_par::x_system_lst
real *8, dimension(:), allocatable	speed_par::y_system_lst
real *8, dimension(:), allocatable	speed_par::z_system_lst
real *8, dimension(:), allocatable	speed_par::x_system_real
real *8, dimension(:), allocatable	speed_par::y_system_real
real *8, dimension(:), allocatable	speed_par::z_system_real
real *8, dimension(:), allocatable	speed_par::xr_system_lst
real *8, dimension(:), allocatable	speed_par::yr_system_lst
real *8, dimension(:), allocatable	speed_par::zr_system_lst
real *8, dimension(:), allocatable	speed_par::dist_system_lst
real *8, dimension(:), allocatable	speed_par::xr_system_glo
real *8, dimension(:), allocatable	speed_par::yr_system_glo
real *8, dimension(:), allocatable	speed_par::zr_system_glo
real *8, dimension(:), allocatable	speed_par::dist_system_glo
real *8, dimension(:), allocatable	speed_par::x_system_glo_real
real *8, dimension(:), allocatable	speed_par::y_system_glo_real
real *8, dimension(:), allocatable	speed_par::z_system_glo_real
real *8, dimension(:), allocatable	speed_par::highest_sys_lst_loc
real *8, dimension(:), allocatable	speed_par::qs
real *8, dimension(:), allocatable	speed_par::qp
real *8, dimension(:), allocatable	speed_par::frequency_range
real *8, dimension(:,:), allocatable	speed_par::y_lambda
real *8, dimension(:,:), allocatable	speed_par::y_mu
real *8, dimension(:), allocatable	speed_par::a0_ray
real *8, dimension(:), allocatable	speed_par::a1_ray
real *8, dimension(:), allocatable	speed_par::lambda_rnd
real *8, dimension(:), allocatable	speed_par::rho_rnd
real *8, dimension(:), allocatable	speed_par::mu_rnd
real *8, dimension(:), allocatable	speed_par::rho_nhe
real *8, dimension(:), allocatable	speed_par::lambda_nhe
real *8, dimension(:), allocatable	speed_par::mu_nhe
real *4, dimension(:), allocatable	speed_par::qs_nhe_el
real *4, dimension(:), allocatable	speed_par::qp_nhe_el
real *8, dimension(:), allocatable	speed_par::tref_mat
real *8, dimension(:), allocatable	speed_par::func_data
real *8, dimension(:), allocatable	speed_par::tsnap
real *8, dimension(:), allocatable	speed_par::set_initial_snap
real *8, dimension(:), allocatable	speed_par::cel
real *8, dimension(:), allocatable	speed_par::kcel
real *8, dimension(:), allocatable	speed_par::time_error
real *8, dimension(:,:), allocatable	speed_par::fel
real *8, dimension(:,:), allocatable	speed_par::val_dirx_el
real *8, dimension(:,:), allocatable	speed_par::val_neux_el
real *8, dimension(:,:), allocatable	speed_par::val_diry_el
real *8, dimension(:,:), allocatable	speed_par::val_neuy_el
real *8, dimension(:,:), allocatable	speed_par::val_dirz_el
real *8, dimension(:,:), allocatable	speed_par::val_neuz_el
real *8, dimension(:,:), allocatable	speed_par::val_neun_el
real *8, dimension(:,:), allocatable	speed_par::val_poix_el
real *8, dimension(:,:), allocatable	speed_par::val_forx_el
real *8, dimension(:,:), allocatable	speed_par::val_poiy_el
real *8, dimension(:,:), allocatable	speed_par::val_fory_el
real *8, dimension(:,:), allocatable	speed_par::val_poiz_el
real *8, dimension(:,:), allocatable	speed_par::val_forz_el
real *8, dimension(:,:), allocatable	speed_par::val_plax_el
real *8, dimension(:,:), allocatable	speed_par::val_play_el
real *8, dimension(:,:), allocatable	speed_par::val_plaz_el
real *8, dimension(:,:), allocatable	speed_par::val_pres_el
real *8, dimension(:,:), allocatable	speed_par::val_shea_el
real *8, dimension(:,:), allocatable	speed_par::val_forc_el
real *8, dimension(:,:), allocatable	speed_par::val_sism_el
real *8, dimension(:,:), allocatable	speed_par::val_expl_el
real *8, dimension(:,:), allocatable	speed_par::val_trax_el
real *8, dimension(:,:), allocatable	speed_par::val_tray_el
real *8, dimension(:,:), allocatable	speed_par::val_traz_el
real *8, dimension(:,:), allocatable	speed_par::val_mat_nle
real *8, dimension(:,:), allocatable	speed_par::prop_mat
real *8, dimension(:,:), allocatable	speed_par::val_dg_frc
real *8, dimension(:,:), allocatable	speed_par::factor_seismic_moment
real *8, dimension(:,:), allocatable	speed_par::tau_seismic_moment
real *8, dimension(:,:), allocatable	speed_par::dist_sour_node_sism
real *8, dimension(:,:), allocatable	speed_par::check_dist_node_sism
real *8, dimension(:,:), allocatable	speed_par::factor_explosive_source
real *8, dimension(:,:), allocatable	speed_par::dist_sour_node_expl
real *8, dimension(:,:), allocatable	speed_par::check_dist_node_expl
real *8, dimension(:,:), allocatable	speed_par::pos_sour_node_x
real *8, dimension(:,:), allocatable	speed_par::pos_sour_node_y
real *8, dimension(:,:), allocatable	speed_par::pos_sour_node_z
real *8, dimension(:,:), allocatable	speed_par::check_pos_sism
real *8, dimension(:,:), allocatable	speed_par::area_nodes
real *8, dimension(:,:), allocatable	speed_par::max_u
real *8, dimension(:,:), allocatable	speed_par::max_v
real *8, dimension(:,:), allocatable	speed_par::max_a
real *8, dimension(:,:), allocatable	speed_par::max_o
real *8	speed_par::instability_maxval
real *8, parameter	speed_par::instability_maxval_default = 1E20
type(el4loop), dimension(:), allocatable	speed_par_dg::el_new
type(element), dimension(:), allocatable	speed_par_dg::dg_els
type(scratch_element), dimension(:), allocatable	speed_par_dg::scratch_dg_els
type(system), dimension(:), allocatable	speed_sci::sys
	SDOF system.
integer *4	speed_sci::bldinfo_fp
integer *4	speed_sci::sdofnum
integer *4	speed_sci::n_bld
integer *4	speed_sci::maxdof_glob
integer *4	speed_sci::maxdof_loc
integer *4, dimension(3)	speed_sci::sdofout
	displ, acc, f_react
integer *4	speed_sci::flag_outatalldofs
logical	speed_sci::isconfigpresent
real *8, dimension(:), allocatable	speed_sci::gr_acc_rot
real *8, dimension(:), allocatable	speed_sci::gr_intf
real *8, dimension(:), allocatable	speed_sci::rot_sin
real *8, dimension(:), allocatable	speed_sci::rot_cos
real *8, dimension(:), allocatable	speed_sci::ug1
real *8, dimension(:), allocatable	speed_sci::ug2
real *8, dimension(:), allocatable	speed_sci::ug3
real *8, dimension(:,:), allocatable	speed_sci::sdofag
real *8, dimension(:,:), allocatable	speed_sci::sdofgd
real *8, dimension(:), allocatable	speed_sci::sdofinput
real *8, dimension(:), allocatable	speed_sci::sdofinputd
real *8, dimension(:), allocatable	speed_sci::sdofforceinput
real *8, dimension(:), allocatable	speed_sci::sdofinputbuffer
real *8, dimension(:), allocatable	speed_sci::sdofforceinputbuffer
character *100	speed_sci::bldinfo
character *100	speed_sci::sdofdisplx
character *100	speed_sci::sdofdisply
character *100	speed_sci::sdofdisplz
	SDOF displacement.
character *100	speed_sci::sdofgrdisplx
character *100	speed_sci::sdofgrdisply
character *100	speed_sci::sdofgrdisplz
	SDOF base displacement.
character *100	speed_sci::sdofaccx
character *100	speed_sci::sdofaccy
character *100	speed_sci::sdofaccz
	SDOF total acceleration.
character *100	speed_sci::sdofgraccx
character *100	speed_sci::sdofgraccy
character *100	speed_sci::sdofgraccz
	SDOF base ground acceleration.
character *100	speed_sci::sdoffx
character *100	speed_sci::sdoffy
character *100	speed_sci::sdoffz
	SDOF reaction force.
character *100	speed_sci::strdisplx
character *100	speed_sci::strdisply
	4DOF structure displacement
character *100	speed_sci::grddisplx
character *100	speed_sci::grddisply
character *100	speed_sci::grddisplz
	4DOF ground displacement
character *100	speed_sci::fnddisplx
character *100	speed_sci::fnddisply
character *100	speed_sci::fnddisplrx
character *100	speed_sci::fnddisplry
character *100	speed_sci::fnddisplzx
character *100	speed_sci::fnddisplzy
	4DOF foundation displacement
character *100	speed_sci::straccx
character *100	speed_sci::straccy
	4DOF structure acceleration
character *100	speed_sci::grdaccx
character *100	speed_sci::grdaccy
character *100	speed_sci::grdaccz
	4DOF ground acceleration
character *100	speed_sci::fndaccx
character *100	speed_sci::fndaccy
character *100	speed_sci::fndaccrx
character *100	speed_sci::fndaccry
character *100	speed_sci::fndacczx
character *100	speed_sci::fndacczy
	4DOF foundation acceleration
character *100	speed_sci::strfx
character *100	speed_sci::strfy
character *100	speed_sci::fndfx
character *100	speed_sci::fndfy
	4DOF superstructure and foundation shear force
character *100	speed_sci::intfx
character *100	speed_sci::intfy
character *100	speed_sci::intfz
	4DOF interaction forces