![]() |
FrontISTR
5.7.0
Large-scale structural analysis program with finit element method
|
This module defines common data and basic structures for analysis. More...
Data Types | |
type | fstr_couple |
Data for coupling analysis. More... | |
type | fstr_dynamic |
Data for DYNAMIC ANSLYSIS (fstrDYNAMIC) More... | |
type | fstr_eigen |
Package of data used by Lanczos eigenvalue solver. More... | |
type | fstr_freqanalysis |
type | fstr_freqanalysis_data |
type | fstr_heat |
Data for HEAT ANSLYSIS (fstrHEAT) More... | |
type | fstr_param |
FSTR INNER CONTROL PARAMETERS (fstrPARAM) More... | |
type | fstr_solid |
type | fstr_solid_physic_val |
Data for STATIC ANSLYSIS (fstrSOLID) More... | |
type | tinitialcondition |
type | tsection |
Data for section control. More... | |
type | tweldline |
-1:not relation, >1:index of coupled_node More... | |
Functions/Subroutines | |
subroutine | fstr_nullify_fstr_param (P) |
NULL POINTER SETTING TO AVOID RUNTIME ERROR. More... | |
subroutine | fstr_nullify_fstr_solid (S) |
subroutine | fstr_nullify_fstr_heat (H) |
subroutine | fstr_nullify_fstr_dynamic (DY) |
subroutine | fstr_nullify_fstr_freqanalysis (f) |
subroutine | fstr_nullify_fstr_eigen (E) |
subroutine | fstr_nullify_fstr_couple (C) |
subroutine | fstr_mat_init (hecMAT) |
Initializer of structure hecmwST_matrix. More... | |
subroutine | hecmat_init (hecMAT) |
subroutine | hecmat_finalize (hecMAT) |
subroutine | fstr_param_init (fstrPARAM, hecMESH) |
Initializer of structure fstr_param. More... | |
logical function | fstr_isboundaryactive (fstrSOLID, nbc, cstep) |
logical function | fstr_isloadactive (fstrSOLID, nbc, cstep) |
logical function | fstr_iscontactactive (fstrSOLID, nbc, cstep) |
logical function | fstr_isembedactive (fstrSOLID, nbc, cstep) |
subroutine | get_coordsys (cdsys_ID, hecMESH, fstrSOLID, coords) |
This subroutine fetch coords defined by local coordinate system. More... | |
subroutine | fstr_set_current_config_to_mesh (hecMESH, fstrSOLID, coord) |
subroutine | fstr_recover_initial_config_to_mesh (hecMESH, fstrSOLID, coord) |
subroutine | fstr_solid_phys_zero (phys) |
subroutine | fstr_solid_phys_clear (fstrSOLID) |
subroutine | table_amp (hecMESH, fstrSOLID, cstep, jj_n_amp, time, f_t) |
Variables | |
integer(kind=kint), parameter | kyes = 1 |
CONSTANTS general. More... | |
integer(kind=kint), parameter | kno = 0 |
integer(kind=kint), parameter | kon = 1 |
integer(kind=kint), parameter | koff = 0 |
integer(kind=kint), parameter | kstprecheck = 0 |
solution type (st) More... | |
integer(kind=kint), parameter | kststatic = 1 |
integer(kind=kint), parameter | ksteigen = 2 |
integer(kind=kint), parameter | kstheat = 3 |
integer(kind=kint), parameter | kstdynamic = 4 |
integer(kind=kint), parameter | kststaticeigen = 6 |
integer(kind=kint), parameter | kstnzprof = 7 |
integer(kind=kint), parameter | ksmcg = 1 |
solver method (sm) !CAUTION : (<=100):indirect, (>100):direct More... | |
integer(kind=kint), parameter | ksmbicgstab = 2 |
integer(kind=kint), parameter | ksmgmres = 3 |
integer(kind=kint), parameter | ksmgpbicg = 4 |
integer(kind=kint), parameter | ksmgmresr = 5 |
integer(kind=kint), parameter | ksmgmresren = 6 |
integer(kind=kint), parameter | ksmdirect = 101 |
integer(kind=kint), parameter | knsmnewton = 1 |
nonlinear solver method (nsm) More... | |
integer(kind=kint), parameter | knsmquasinewton = 2 |
integer(kind=kint), parameter | kcaslagrange = 1 |
contact analysis algorithm More... | |
integer(kind=kint), parameter | kcaalagrange = 2 |
integer(kind=kint), parameter | kbcffstr = 0 |
boundary condition file type (bcf) More... | |
integer(kind=kint), parameter | kbcfnastran = 1 |
integer(kind=kint), parameter | kbcinitial = 1 |
integer(kind=kint), parameter | kbctransit = 2 |
integer(kind=kint), parameter | restart_outlast = 1 |
restart type More... | |
integer(kind=kint), parameter | restart_outall = 2 |
integer(kind=kint), parameter | kel341fi = 1 |
section control More... | |
integer(kind=kint), parameter | kel341sesns = 2 |
integer(kind=kint), parameter | kel361fi = 1 |
integer(kind=kint), parameter | kel361bbar = 2 |
integer(kind=kint), parameter | kel361ic = 3 |
integer(kind=kint), parameter | kel361fbar = 4 |
integer(kind=kint), parameter | kfloadtype_node = 1 |
integer(kind=kint), parameter | kfloadtype_surf = 2 |
integer(kind=kint), parameter | kfloadcase_re = 1 |
integer(kind=kint), parameter | kfloadcase_im = 2 |
integer(kind=kint), parameter | kitrcontinue = 0 |
iteration control More... | |
integer(kind=kint), parameter | kitrconverged = 1 |
integer(kind=kint), parameter | kitrdiverged = 2 |
integer(kind=kint), parameter | kitrfloatingerror = 3 |
integer(kind=kint) | myrank |
PARALLEL EXECUTION. More... | |
integer(kind=kint) | nprocs |
logical | paracontactflag = .false. |
PARALLEL CONTACT FLAG. More... | |
character(len=hecmw_filename_len) | cntfilname |
FILE NAME. More... | |
character(len=hecmw_filename_len) | restartfilname |
integer(kind=kint), parameter | ilog = 16 |
FILE HANDLER. More... | |
integer(kind=kint), parameter | ista = 17 |
integer(kind=kint), parameter | iutb = 18 |
integer(kind=kint), parameter | imsg = 51 |
integer(kind=kint), parameter | idbg = 52 |
integer(kind=kint), parameter | ifvs = 53 |
integer(kind=kint), parameter | ineu = 54 |
integer(kind=kint), parameter | iresout = 100 |
integer(kind=kint), dimension(100) | sviarray |
SOLVER CONTROL. More... | |
real(kind=kreal), dimension(100) | svrarray |
integer(kind=kint), pointer | iecho |
FLAG for ECHO/RESULT/POST. More... | |
integer(kind=kint), pointer | iresult |
integer(kind=kint), pointer | ivisual |
integer(kind=kint), pointer | ineutral |
integer(kind=kint), pointer | irres |
integer(kind=kint), pointer | iwres |
integer(kind=kint), pointer | nrres |
integer(kind=kint), pointer | nprint |
integer(kind=kint), parameter | kopss_solution = 1 |
integer(kind=kint), parameter | kopss_material = 2 |
integer(kind=kint) | opsstype = kOPSS_SOLUTION |
real(kind=kreal), pointer | ref_temp |
REFTEMP. More... | |
real(kind=kreal) | dt |
ANALYSIS CONTROL for NLGEOM and HEAT. More... | |
real(kind=kreal) | etime |
integer(kind=kint) | itmax |
real(kind=kreal) | eps |
type(tinitialcondition), dimension(:), pointer, save | g_initialcnd => null() |
type(fstr_param), target | fstrpr |
GLOBAL VARIABLE INITIALIZED IN FSTR_SETUP. More... | |
This module defines common data and basic structures for analysis.
logical function m_fstr::fstr_isboundaryactive | ( | type(fstr_solid) | fstrSOLID, |
integer, intent(in) | nbc, | ||
integer, intent(in) | cstep | ||
) |
[in] | nbc | group id of boundary condition |
[in] | cstep | current step number |
Definition at line 1028 of file m_fstr.f90.
logical function m_fstr::fstr_iscontactactive | ( | type(fstr_solid) | fstrSOLID, |
integer, intent(in) | nbc, | ||
integer, intent(in) | cstep | ||
) |
fstrsolid | type fstr_solid | |
[in] | nbc | group id of boundary condition |
[in] | cstep | current step number |
Definition at line 1052 of file m_fstr.f90.
logical function m_fstr::fstr_isembedactive | ( | type(fstr_solid) | fstrSOLID, |
integer, intent(in) | nbc, | ||
integer, intent(in) | cstep | ||
) |
fstrsolid | type fstr_solid | |
[in] | nbc | group id of boundary condition |
[in] | cstep | current step number |
Definition at line 1062 of file m_fstr.f90.
logical function m_fstr::fstr_isloadactive | ( | type(fstr_solid) | fstrSOLID, |
integer, intent(in) | nbc, | ||
integer, intent(in) | cstep | ||
) |
[in] | nbc | group id of boundary condition |
[in] | cstep | current step number |
Definition at line 1038 of file m_fstr.f90.
subroutine m_fstr::fstr_mat_init | ( | type(hecmwst_matrix) | hecMAT | ) |
Initializer of structure hecmwST_matrix.
Definition at line 825 of file m_fstr.f90.
subroutine m_fstr::fstr_nullify_fstr_couple | ( | type( fstr_couple ) | C | ) |
subroutine m_fstr::fstr_nullify_fstr_dynamic | ( | type( fstr_dynamic ) | DY | ) |
subroutine m_fstr::fstr_nullify_fstr_eigen | ( | type( fstr_eigen ) | E | ) |
subroutine m_fstr::fstr_nullify_fstr_freqanalysis | ( | type( fstr_freqanalysis ), intent(inout) | f | ) |
Definition at line 794 of file m_fstr.f90.
subroutine m_fstr::fstr_nullify_fstr_heat | ( | type( fstr_heat ) | H | ) |
subroutine m_fstr::fstr_nullify_fstr_param | ( | type( fstr_param ) | P | ) |
NULL POINTER SETTING TO AVOID RUNTIME ERROR.
Definition at line 658 of file m_fstr.f90.
subroutine m_fstr::fstr_nullify_fstr_solid | ( | type( fstr_solid ) | S | ) |
subroutine m_fstr::fstr_param_init | ( | type(fstr_param) | fstrPARAM, |
type(hecmwst_local_mesh) | hecMESH | ||
) |
Initializer of structure fstr_param.
Definition at line 979 of file m_fstr.f90.
subroutine m_fstr::fstr_recover_initial_config_to_mesh | ( | type(hecmwst_local_mesh), intent(inout) | hecMESH, |
type (fstr_solid), intent(in) | fstrSOLID, | ||
real(kind=kreal), dimension(:), intent(in) | coord | ||
) |
subroutine m_fstr::fstr_set_current_config_to_mesh | ( | type(hecmwst_local_mesh), intent(inout) | hecMESH, |
type (fstr_solid), intent(in) | fstrSOLID, | ||
real(kind=kreal), dimension(:), intent(out) | coord | ||
) |
subroutine m_fstr::fstr_solid_phys_clear | ( | type (fstr_solid) | fstrSOLID | ) |
Definition at line 1135 of file m_fstr.f90.
subroutine m_fstr::fstr_solid_phys_zero | ( | type(fstr_solid_physic_val), pointer | phys | ) |
subroutine m_fstr::get_coordsys | ( | integer, intent(in) | cdsys_ID, |
type(hecmwst_local_mesh) | hecMESH, | ||
type(fstr_solid), intent(inout) | fstrSOLID, | ||
real(kind=kreal), dimension(3,3), intent(out) | coords | ||
) |
This subroutine fetch coords defined by local coordinate system.
[in] | cdsys_id | id of local coordinate |
hecmesh | mesh information | |
[in,out] | fstrsolid | fstr_solid |
Definition at line 1073 of file m_fstr.f90.
subroutine m_fstr::hecmat_finalize | ( | type( hecmwst_matrix ) | hecMAT | ) |
subroutine m_fstr::hecmat_init | ( | type( hecmwst_matrix ) | hecMAT | ) |
subroutine m_fstr::table_amp | ( | type ( hecmwst_local_mesh ), intent(in) | hecMESH, |
type ( fstr_solid ), intent(in) | fstrSOLID, | ||
integer(kind=kint), intent(in) | cstep, | ||
integer(kind=kint), intent(in) | jj_n_amp, | ||
real(kind=kreal), intent(in) | time, | ||
real(kind=kreal), intent(out) | f_t | ||
) |
[in] | hecmesh | hecmw mesh |
[in] | fstrsolid | fstr_solid |
[in] | cstep | curr loading step |
[in] | jj_n_amp | index of amplitude table |
[in] | time | loading time(total time) |
[out] | f_t | loading factor |
Definition at line 1155 of file m_fstr.f90.
character(len=hecmw_filename_len) m_fstr::cntfilname |
FILE NAME.
Definition at line 103 of file m_fstr.f90.
real(kind=kreal) m_fstr::dt |
ANALYSIS CONTROL for NLGEOM and HEAT.
Definition at line 139 of file m_fstr.f90.
real(kind=kreal) m_fstr::eps |
Definition at line 142 of file m_fstr.f90.
real(kind=kreal) m_fstr::etime |
Definition at line 140 of file m_fstr.f90.
type( fstr_param ), target m_fstr::fstrpr |
GLOBAL VARIABLE INITIALIZED IN FSTR_SETUP.
Definition at line 208 of file m_fstr.f90.
type( tinitialcondition ), dimension(:), pointer, save m_fstr::g_initialcnd => null() |
Definition at line 151 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::idbg = 52 |
Definition at line 111 of file m_fstr.f90.
integer(kind=kint), pointer m_fstr::iecho |
FLAG for ECHO/RESULT/POST.
Definition at line 121 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ifvs = 53 |
Definition at line 112 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ilog = 16 |
FILE HANDLER.
Definition at line 107 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::imsg = 51 |
Definition at line 110 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ineu = 54 |
Definition at line 113 of file m_fstr.f90.
integer(kind=kint), pointer m_fstr::ineutral |
Definition at line 124 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::iresout = 100 |
Definition at line 114 of file m_fstr.f90.
integer(kind=kint), pointer m_fstr::iresult |
Definition at line 122 of file m_fstr.f90.
integer(kind=kint), pointer m_fstr::irres |
Definition at line 125 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ista = 17 |
Definition at line 108 of file m_fstr.f90.
integer(kind=kint) m_fstr::itmax |
Definition at line 141 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::iutb = 18 |
Definition at line 109 of file m_fstr.f90.
integer(kind=kint), pointer m_fstr::ivisual |
Definition at line 123 of file m_fstr.f90.
integer(kind=kint), pointer m_fstr::iwres |
Definition at line 126 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kbcffstr = 0 |
boundary condition file type (bcf)
Definition at line 63 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kbcfnastran = 1 |
Definition at line 64 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kbcinitial = 1 |
Definition at line 66 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kbctransit = 2 |
Definition at line 67 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kcaalagrange = 2 |
Definition at line 60 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kcaslagrange = 1 |
contact analysis algorithm
Definition at line 59 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kel341fi = 1 |
section control
Definition at line 74 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kel341sesns = 2 |
Definition at line 75 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kel361bbar = 2 |
Definition at line 78 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kel361fbar = 4 |
Definition at line 80 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kel361fi = 1 |
Definition at line 77 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kel361ic = 3 |
Definition at line 79 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kfloadcase_im = 2 |
Definition at line 86 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kfloadcase_re = 1 |
Definition at line 85 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kfloadtype_node = 1 |
Definition at line 82 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kfloadtype_surf = 2 |
Definition at line 83 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kitrcontinue = 0 |
iteration control
Definition at line 89 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kitrconverged = 1 |
Definition at line 90 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kitrdiverged = 2 |
Definition at line 91 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kitrfloatingerror = 3 |
Definition at line 92 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kno = 0 |
Definition at line 31 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::knsmnewton = 1 |
nonlinear solver method (nsm)
Definition at line 55 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::knsmquasinewton = 2 |
Definition at line 56 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::koff = 0 |
Definition at line 33 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kon = 1 |
Definition at line 32 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kopss_material = 2 |
Definition at line 131 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kopss_solution = 1 |
Definition at line 130 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ksmbicgstab = 2 |
Definition at line 47 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ksmcg = 1 |
solver method (sm) !CAUTION : (<=100):indirect, (>100):direct
Definition at line 46 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ksmdirect = 101 |
Definition at line 52 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ksmgmres = 3 |
Definition at line 48 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ksmgmresr = 5 |
Definition at line 50 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ksmgmresren = 6 |
Definition at line 51 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ksmgpbicg = 4 |
Definition at line 49 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kstdynamic = 4 |
Definition at line 40 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::ksteigen = 2 |
Definition at line 38 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kstheat = 3 |
Definition at line 39 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kstnzprof = 7 |
Definition at line 43 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kstprecheck = 0 |
solution type (st)
Definition at line 36 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kststatic = 1 |
Definition at line 37 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kststaticeigen = 6 |
Definition at line 42 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::kyes = 1 |
CONSTANTS general.
Definition at line 30 of file m_fstr.f90.
integer(kind = kint) m_fstr::myrank |
PARALLEL EXECUTION.
Definition at line 96 of file m_fstr.f90.
integer(kind=kint), pointer m_fstr::nprint |
Definition at line 128 of file m_fstr.f90.
integer(kind = kint) m_fstr::nprocs |
Definition at line 97 of file m_fstr.f90.
integer(kind=kint), pointer m_fstr::nrres |
Definition at line 127 of file m_fstr.f90.
integer(kind=kint) m_fstr::opsstype = kOPSS_SOLUTION |
Definition at line 132 of file m_fstr.f90.
logical m_fstr::paracontactflag = .false. |
PARALLEL CONTACT FLAG.
Definition at line 100 of file m_fstr.f90.
real(kind=kreal), pointer m_fstr::ref_temp |
REFTEMP.
Definition at line 136 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::restart_outall = 2 |
Definition at line 71 of file m_fstr.f90.
integer(kind=kint), parameter m_fstr::restart_outlast = 1 |
restart type
Definition at line 70 of file m_fstr.f90.
character(len=hecmw_filename_len) m_fstr::restartfilname |
Definition at line 104 of file m_fstr.f90.
integer(kind=kint), dimension(100) m_fstr::sviarray |
SOLVER CONTROL.
Definition at line 117 of file m_fstr.f90.
real(kind=kreal), dimension(100) m_fstr::svrarray |
Definition at line 118 of file m_fstr.f90.