m_fstr.f90 File Reference

Go to the source code of this file.

Data Types
type	m_fstr::tinitialcondition
type	m_fstr::fstr_param
	FSTR INNER CONTROL PARAMETERS (fstrPARAM) More...
type	m_fstr::fstr_solid_physic_val
	Data for STATIC ANSLYSIS (fstrSOLID) More...
type	m_fstr::fstr_solid
type	m_fstr::fstr_heat
	Data for HEAT ANSLYSIS (fstrHEAT) More...
type	m_fstr::fstr_dynamic
	Data for DYNAMIC ANSLYSIS (fstrDYNAMIC) More...
type	m_fstr::fstr_freqanalysis
type	m_fstr::fstr_freqanalysis_data
type	m_fstr::fstr_eigen
	Package of data used by Lanczos eigenvalue solver. More...
type	m_fstr::fstr_couple
	Data for coupling analysis. More...
type	m_fstr::tweldline
	Data for weld line. More...
type	m_fstr::tsection
	Data for section control. More...

Modules
module	m_fstr
	This module defined coomon data and basic structures for analysis.

Functions/Subroutines
subroutine	m_fstr::fstr_nullify_fstr_param (p)
	NULL POINTER SETTING TO AVOID RUNTIME ERROR.
subroutine	m_fstr::fstr_nullify_fstr_solid (s)
subroutine	m_fstr::fstr_nullify_fstr_heat (h)
subroutine	m_fstr::fstr_nullify_fstr_dynamic (dy)
subroutine	m_fstr::fstr_nullify_fstr_freqanalysis (f)
subroutine	m_fstr::fstr_nullify_fstr_eigen (e)
subroutine	m_fstr::fstr_nullify_fstr_couple (c)
subroutine	m_fstr::fstr_mat_init (hecmat)
	Initializer of structure hecmwST_matrix.
subroutine	m_fstr::hecmat_init (hecmat)
subroutine	m_fstr::hecmat_finalize (hecmat)
subroutine	m_fstr::fstr_param_init (fstrparam, hecmesh)
	Initializer of structure fstr_param.
logical function	m_fstr::fstr_isboundaryactive (fstrsolid, nbc, cstep)
logical function	m_fstr::fstr_isloadactive (fstrsolid, nbc, cstep)
logical function	m_fstr::fstr_iscontactactive (fstrsolid, nbc, cstep)
subroutine	m_fstr::get_coordsys (cdsys_id, hecmesh, fstrsolid, coords)
	This subroutine fetch coords defined by local coordinate system.
subroutine	m_fstr::fstr_set_current_config_to_mesh (hecmesh, fstrsolid, coord)
subroutine	m_fstr::fstr_recover_initial_config_to_mesh (hecmesh, fstrsolid, coord)
subroutine	m_fstr::fstr_solid_phys_zero (phys)
subroutine	m_fstr::fstr_solid_phys_clear (fstrsolid)

Variables
integer(kind=kint), parameter	m_fstr::kyes = 1
	CONSTANTS general.
integer(kind=kint), parameter	m_fstr::kno = 0
integer(kind=kint), parameter	m_fstr::kon = 1
integer(kind=kint), parameter	m_fstr::koff = 0
integer(kind=kint), parameter	m_fstr::kstprecheck = 0
	solution type (st)
integer(kind=kint), parameter	m_fstr::kststatic = 1
integer(kind=kint), parameter	m_fstr::ksteigen = 2
integer(kind=kint), parameter	m_fstr::kstheat = 3
integer(kind=kint), parameter	m_fstr::kstdynamic = 4
integer(kind=kint), parameter	m_fstr::kststaticeigen = 6
integer(kind=kint), parameter	m_fstr::kstnzprof = 7
integer(kind=kint), parameter	m_fstr::ksmcg = 1
	solver method (sm) !CAUTION : (<=100):indirect, (>100):direct
integer(kind=kint), parameter	m_fstr::ksmbicgstab = 2
integer(kind=kint), parameter	m_fstr::ksmgmres = 3
integer(kind=kint), parameter	m_fstr::ksmgpbicg = 4
integer(kind=kint), parameter	m_fstr::ksmdirect = 101
integer(kind=kint), parameter	m_fstr::kcaslagrange = 1
	contact analysis algorithm
integer(kind=kint), parameter	m_fstr::kcaalagrange = 2
integer(kind=kint), parameter	m_fstr::kbcffstr = 0
	boundary condition file type (bcf)
integer(kind=kint), parameter	m_fstr::kbcfnastran = 1
integer(kind=kint), parameter	m_fstr::kbcinitial = 1
integer(kind=kint), parameter	m_fstr::kbctransit = 2
integer(kind=kint), parameter	m_fstr::restart_outlast = 1
	restart type
integer(kind=kint), parameter	m_fstr::restart_outall = 2
integer(kind=kint), parameter	m_fstr::kel361fi = 1
	section control
integer(kind=kint), parameter	m_fstr::kel361bbar = 2
integer(kind=kint), parameter	m_fstr::kel361ic = 3
integer(kind=kint), parameter	m_fstr::kel361fbar = 4
integer(kind=kint), parameter	m_fstr::kfloadtype_node = 1
integer(kind=kint), parameter	m_fstr::kfloadtype_surf = 2
integer(kind=kint), parameter	m_fstr::kfloadcase_re = 1
integer(kind=kint), parameter	m_fstr::kfloadcase_im = 2
integer(kind=kint)	m_fstr::myrank
	PARALLEL EXECUTION.
integer(kind=kint)	m_fstr::nprocs
logical	m_fstr::paracontactflag = .false.
	PARALLEL CONTACT FLAG.
character(len=hecmw_filename_len)	m_fstr::cntfilname
	FILE NAME.
character(len=hecmw_filename_len)	m_fstr::restartfilname
integer(kind=kint), parameter	m_fstr::ilog = 16
	FILE HANDLER.
integer(kind=kint), parameter	m_fstr::ista = 17
integer(kind=kint), parameter	m_fstr::iutb = 18
integer(kind=kint), parameter	m_fstr::imsg = 51
integer(kind=kint), parameter	m_fstr::idbg = 52
integer(kind=kint), parameter	m_fstr::ifvs = 53
integer(kind=kint), parameter	m_fstr::ineu = 54
integer(kind=kint), parameter	m_fstr::iresout = 100
integer(kind=kint), dimension(100)	m_fstr::sviarray
	SOLVER CONTROL.
real(kind=kreal), dimension(100)	m_fstr::svrarray
integer(kind=kint), pointer	m_fstr::iecho
	FLAG for ECHO/RESULT/POST.
integer(kind=kint), pointer	m_fstr::iresult
integer(kind=kint), pointer	m_fstr::ivisual
integer(kind=kint), pointer	m_fstr::ineutral
integer(kind=kint), pointer	m_fstr::irres
integer(kind=kint), pointer	m_fstr::iwres
integer(kind=kint), pointer	m_fstr::nrres
integer(kind=kint), pointer	m_fstr::nprint
integer(kind=kint), parameter	m_fstr::kopss_solution = 1
integer(kind=kint), parameter	m_fstr::kopss_material = 2
integer(kind=kint)	m_fstr::opsstype = kOPSS_SOLUTION
real(kind=kreal), pointer	m_fstr::ref_temp
	REFTEMP.
real(kind=kreal)	m_fstr::dt
	ANALYSIS CONTROL for NLGEOM and HEAT.
real(kind=kreal)	m_fstr::etime
integer(kind=kint)	m_fstr::itmax
real(kind=kreal)	m_fstr::eps
type(tinitialcondition), dimension(:), pointer, save	m_fstr::g_initialcnd => null()
type(fstr_param), target	m_fstr::fstrpr
	GLOBAL VARIABLE INITIALIZED IN FSTR_SETUP.