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
	-1:not relation, >1:index of coupled_node More...
type	m_fstr::tsection
	Data for section control. More...

Modules
module	m_fstr
	This module defines common data and basic structures for analysis.

Functions/Subroutines
subroutine	m_fstr::fstr_nullify_fstr_param (P)
	NULL POINTER SETTING TO AVOID RUNTIME ERROR. More...
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. More...
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. More...
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)
logical function	m_fstr::fstr_isembedactive (fstrSOLID, nbc, cstep)
subroutine	m_fstr::get_coordsys (cdsys_ID, hecMESH, fstrSOLID, coords)
	This subroutine fetch coords defined by local coordinate system. More...
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)
subroutine	m_fstr::table_amp (hecMESH, fstrSOLID, cstep, jj_n_amp, time, f_t)

Variables
integer(kind=kint), parameter	m_fstr::kyes = 1
	CONSTANTS general. More...
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) More...
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 More...
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::ksmgmresr = 5
integer(kind=kint), parameter	m_fstr::ksmgmresren = 6
integer(kind=kint), parameter	m_fstr::ksmdirect = 101
integer(kind=kint), parameter	m_fstr::knsmnewton = 1
	nonlinear solver method (nsm) More...
integer(kind=kint), parameter	m_fstr::knsmquasinewton = 2
integer(kind=kint), parameter	m_fstr::kcaslagrange = 1
	contact analysis algorithm More...
integer(kind=kint), parameter	m_fstr::kcaalagrange = 2
integer(kind=kint), parameter	m_fstr::kbcffstr = 0
	boundary condition file type (bcf) More...
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 More...
integer(kind=kint), parameter	m_fstr::restart_outall = 2
integer(kind=kint), parameter	m_fstr::kel341fi = 1
	section control More...
integer(kind=kint), parameter	m_fstr::kel341sesns = 2
integer(kind=kint), parameter	m_fstr::kel361fi = 1
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), parameter	m_fstr::kitrcontinue = 0
	iteration control More...
integer(kind=kint), parameter	m_fstr::kitrconverged = 1
integer(kind=kint), parameter	m_fstr::kitrdiverged = 2
integer(kind=kint), parameter	m_fstr::kitrfloatingerror = 3
integer(kind=kint)	m_fstr::myrank
	PARALLEL EXECUTION. More...
integer(kind=kint)	m_fstr::nprocs
logical	m_fstr::paracontactflag = .false.
	PARALLEL CONTACT FLAG. More...
character(len=hecmw_filename_len)	m_fstr::cntfilname
	FILE NAME. More...
character(len=hecmw_filename_len)	m_fstr::restartfilname
integer(kind=kint), parameter	m_fstr::ilog = 16
	FILE HANDLER. More...
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. More...
real(kind=kreal), dimension(100)	m_fstr::svrarray
integer(kind=kint), pointer	m_fstr::iecho
	FLAG for ECHO/RESULT/POST. More...
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. More...
real(kind=kreal)	m_fstr::dt
	ANALYSIS CONTROL for NLGEOM and HEAT. More...
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. More...