![]() |
FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
|
This module summarizes all infomation of material properties. More...
Data Types | |
type | tmaterial |
Stucture to management all material relates data. More... | |
type | tshellmat |
Functions/Subroutines | |
subroutine | initmaterial (material) |
Initializer. | |
subroutine | finalizematerial (material) |
Finalizer. | |
subroutine | initializematls (nm) |
Initializer. | |
subroutine | finalizematls () |
Finalizer. | |
subroutine | modifymatl (n, m, v) |
Set value of variable(m) of material n to v. | |
subroutine | printmaterial (nfile, material) |
Print out the material properties. | |
integer function | fetchdigit (npos, cnum) |
Fetch material type. | |
subroutine | setdigit (npos, ival, mtype) |
Modify material type. | |
integer function | getelastictype (mtype) |
Get elastic type. | |
integer function | getyieldfunction (mtype) |
Get type of yield function. | |
integer function | gethardentype (mtype) |
Get type of hardening. | |
logical function | iskinematicharden (mtype) |
If it is a kinematic hardening material? | |
logical function | iselastic (mtype) |
If it is an elastic material? | |
logical function | iselastoplastic (mtype) |
If it is an elastoplastic material? | |
logical function | ishyperelastic (mtype) |
If it is a hyperelastic material? | |
logical function | isviscoelastic (mtype) |
If it is an viscoelastic material? | |
subroutine | ep2e (mtype) |
Set material type of elastoplastic to elastic. | |
Variables | |
integer(kind=kint), parameter | infinitesimal = 0 |
integer(kind=kint), parameter | totallag = 1 |
integer(kind=kint), parameter | updatelag = 2 |
integer(kind=kint), parameter | usermaterial = 100000 |
integer(kind=kint), parameter | elastic = 110000 |
integer(kind=kint), parameter | mn_orthoelastic = 111000 |
integer(kind=kint), parameter | userelastic = 112000 |
integer(kind=kint), parameter | eplastic = 120000 |
integer(kind=kint), parameter | neohooke = 130000 |
integer(kind=kint), parameter | mooneyrivlin = 131000 |
integer(kind=kint), parameter | arrudaboyce = 132000 |
integer(kind=kint), parameter | userhyperelastic = 133000 |
integer(kind=kint), parameter | mooneyrivlin_aniso = 134000 |
integer(kind=kint), parameter | viscoelastic = 140000 |
integer(kind=kint), parameter | norton = 150000 |
integer(kind=kint), parameter | incomp_newtonian = 160000 |
integer(kind=kint), parameter | d3 = -1 |
integer(kind=kint), parameter | planestress = 1 |
integer(kind=kint), parameter | planestrain = 0 |
integer(kind=kint), parameter | axissymetric = 2 |
integer(kind=kint), parameter | shell = 3 |
integer(kind=kint), parameter | m_youngs = 1 |
integer(kind=kint), parameter | m_poisson = 2 |
integer(kind=kint), parameter | m_density = 3 |
integer(kind=kint), parameter | m_thick = 4 |
integer(kind=kint), parameter | m_plconst1 = 5 |
integer(kind=kint), parameter | m_plconst2 = 6 |
integer(kind=kint), parameter | m_plconst3 = 7 |
integer(kind=kint), parameter | m_plconst4 = 8 |
integer(kind=kint), parameter | m_plconst5 = 9 |
integer(kind=kint), parameter | m_kinehard = 10 |
integer(kind=kint), parameter | m_exapnsion = 20 |
integer(kind=kint), parameter | m_alpha_over_mu = 21 |
integer(kind=kint), parameter | m_beam_radius = 22 |
integer(kind=kint), parameter | m_beam_angle1 = 23 |
integer(kind=kint), parameter | m_beam_angle2 = 24 |
integer(kind=kint), parameter | m_beam_angle3 = 25 |
integer(kind=kint), parameter | m_beam_angle4 = 26 |
integer(kind=kint), parameter | m_beam_angle5 = 27 |
integer(kind=kint), parameter | m_beam_angle6 = 28 |
integer(kind=kint), parameter | m_viscocity = 29 |
integer(kind=kint), parameter | m_plconst6 = 30 |
integer(kind=kint), parameter | m_plconst7 = 31 |
integer(kind=kint), parameter | m_plconst8 = 32 |
integer(kind=kint), parameter | m_plconst9 = 33 |
integer(kind=kint), parameter | m_plconst10 = 34 |
character(len=dict_key_length) | mc_isoelastic = 'ISOELASTIC' |
character(len=dict_key_length) | mc_orthoelastic = 'ORTHOELASTIC' |
character(len=dict_key_length) | mc_yield = 'YIELD' |
character(len=dict_key_length) | mc_themoexp = 'THEMOEXP' |
character(len=dict_key_length) | mc_orthoexp = 'ORTHOEXP' |
character(len=dict_key_length) | mc_viscoelastic = 'VISCOELASTIC' |
character(len=dict_key_length) | mc_norton = 'NORTON' |
character(len=dict_key_length) | mc_incomp_newtonian = 'INCOMP_FLUID' |
type(tmaterial), dimension(:), allocatable | materials |
This module summarizes all infomation of material properties.
subroutine mmaterial::ep2e | ( | integer, intent(inout) | mtype | ) |
Set material type of elastoplastic to elastic.
Definition at line 362 of file material.f90.
integer function mmaterial::fetchdigit | ( | integer, intent(in) | npos, |
integer, intent(in) | cnum | ||
) |
Fetch material type.
Definition at line 233 of file material.f90.
subroutine mmaterial::finalizematerial | ( | type( tmaterial ), intent(inout) | material | ) |
subroutine mmaterial::finalizematls |
integer function mmaterial::getelastictype | ( | integer, intent(in) | mtype | ) |
Get elastic type.
Definition at line 281 of file material.f90.
integer function mmaterial::gethardentype | ( | integer, intent(in) | mtype | ) |
Get type of hardening.
Definition at line 305 of file material.f90.
integer function mmaterial::getyieldfunction | ( | integer, intent(in) | mtype | ) |
Get type of yield function.
Definition at line 293 of file material.f90.
subroutine mmaterial::initializematls | ( | integer, intent(in) | nm | ) |
subroutine mmaterial::initmaterial | ( | type( tmaterial ), intent(inout) | material | ) |
Initializer.
Definition at line 163 of file material.f90.
logical function mmaterial::iselastic | ( | integer, intent(in) | mtype | ) |
If it is an elastic material?
Definition at line 326 of file material.f90.
logical function mmaterial::iselastoplastic | ( | integer, intent(in) | mtype | ) |
If it is an elastoplastic material?
Definition at line 335 of file material.f90.
logical function mmaterial::ishyperelastic | ( | integer, intent(in) | mtype | ) |
If it is a hyperelastic material?
Definition at line 344 of file material.f90.
logical function mmaterial::iskinematicharden | ( | integer, intent(in) | mtype | ) |
If it is a kinematic hardening material?
Definition at line 317 of file material.f90.
logical function mmaterial::isviscoelastic | ( | integer, intent(in) | mtype | ) |
If it is an viscoelastic material?
Definition at line 353 of file material.f90.
subroutine mmaterial::modifymatl | ( | integer, intent(in) | n, |
integer, intent(in) | m, | ||
real(kind=kreal), intent(in) | v | ||
) |
Set value of variable(m) of material n to v.
Definition at line 204 of file material.f90.
subroutine mmaterial::printmaterial | ( | integer, intent(in) | nfile, |
type( tmaterial ), intent(in) | material | ||
) |
Print out the material properties.
Definition at line 214 of file material.f90.
subroutine mmaterial::setdigit | ( | integer, intent(in) | npos, |
integer, intent(in) | ival, | ||
integer, intent(inout) | mtype | ||
) |
Modify material type.
Definition at line 251 of file material.f90.
integer(kind=kint), parameter mmaterial::arrudaboyce = 132000 |
Definition at line 66 of file material.f90.
integer(kind=kint), parameter mmaterial::axissymetric = 2 |
Definition at line 79 of file material.f90.
integer(kind=kint), parameter mmaterial::d3 = -1 |
Definition at line 76 of file material.f90.
integer(kind=kint), parameter mmaterial::elastic = 110000 |
Definition at line 58 of file material.f90.
integer(kind=kint), parameter mmaterial::eplastic = 120000 |
Definition at line 62 of file material.f90.
integer(kind=kint), parameter mmaterial::incomp_newtonian = 160000 |
Definition at line 73 of file material.f90.
integer(kind=kint), parameter mmaterial::infinitesimal = 0 |
Definition at line 13 of file material.f90.
integer(kind=kint), parameter mmaterial::m_alpha_over_mu = 21 |
Definition at line 99 of file material.f90.
integer(kind=kint), parameter mmaterial::m_beam_angle1 = 23 |
Definition at line 102 of file material.f90.
integer(kind=kint), parameter mmaterial::m_beam_angle2 = 24 |
Definition at line 103 of file material.f90.
integer(kind=kint), parameter mmaterial::m_beam_angle3 = 25 |
Definition at line 104 of file material.f90.
integer(kind=kint), parameter mmaterial::m_beam_angle4 = 26 |
Definition at line 105 of file material.f90.
integer(kind=kint), parameter mmaterial::m_beam_angle5 = 27 |
Definition at line 106 of file material.f90.
integer(kind=kint), parameter mmaterial::m_beam_angle6 = 28 |
Definition at line 107 of file material.f90.
integer(kind=kint), parameter mmaterial::m_beam_radius = 22 |
Definition at line 101 of file material.f90.
integer(kind=kint), parameter mmaterial::m_density = 3 |
Definition at line 86 of file material.f90.
integer(kind=kint), parameter mmaterial::m_exapnsion = 20 |
Definition at line 97 of file material.f90.
integer(kind=kint), parameter mmaterial::m_kinehard = 10 |
Definition at line 95 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst1 = 5 |
Definition at line 90 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst10 = 34 |
Definition at line 116 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst2 = 6 |
Definition at line 91 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst3 = 7 |
Definition at line 92 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst4 = 8 |
Definition at line 93 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst5 = 9 |
Definition at line 94 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst6 = 30 |
Definition at line 112 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst7 = 31 |
Definition at line 113 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst8 = 32 |
Definition at line 114 of file material.f90.
integer(kind=kint), parameter mmaterial::m_plconst9 = 33 |
Definition at line 115 of file material.f90.
integer(kind=kint), parameter mmaterial::m_poisson = 2 |
Definition at line 85 of file material.f90.
integer(kind=kint), parameter mmaterial::m_thick = 4 |
Definition at line 87 of file material.f90.
integer(kind=kint), parameter mmaterial::m_viscocity = 29 |
Definition at line 109 of file material.f90.
integer(kind=kint), parameter mmaterial::m_youngs = 1 |
Definition at line 84 of file material.f90.
type(tmaterial), dimension(:), allocatable mmaterial::materials |
Definition at line 158 of file material.f90.
character(len=dict_key_length) mmaterial::mc_incomp_newtonian = 'INCOMP_FLUID' |
Definition at line 126 of file material.f90.
character(len=dict_key_length) mmaterial::mc_isoelastic = 'ISOELASTIC' |
Definition at line 119 of file material.f90.
character(len=dict_key_length) mmaterial::mc_norton = 'NORTON' |
Definition at line 125 of file material.f90.
character(len=dict_key_length) mmaterial::mc_orthoelastic = 'ORTHOELASTIC' |
Definition at line 120 of file material.f90.
character(len=dict_key_length) mmaterial::mc_orthoexp = 'ORTHOEXP' |
Definition at line 123 of file material.f90.
character(len=dict_key_length) mmaterial::mc_themoexp = 'THEMOEXP' |
Definition at line 122 of file material.f90.
character(len=dict_key_length) mmaterial::mc_viscoelastic = 'VISCOELASTIC' |
Definition at line 124 of file material.f90.
character(len=dict_key_length) mmaterial::mc_yield = 'YIELD' |
Definition at line 121 of file material.f90.
integer(kind=kint), parameter mmaterial::mn_orthoelastic = 111000 |
Definition at line 59 of file material.f90.
integer(kind=kint), parameter mmaterial::mooneyrivlin = 131000 |
Definition at line 65 of file material.f90.
integer(kind=kint), parameter mmaterial::mooneyrivlin_aniso = 134000 |
Definition at line 68 of file material.f90.
integer(kind=kint), parameter mmaterial::neohooke = 130000 |
Definition at line 64 of file material.f90.
integer(kind=kint), parameter mmaterial::norton = 150000 |
Definition at line 71 of file material.f90.
integer(kind=kint), parameter mmaterial::planestrain = 0 |
Definition at line 78 of file material.f90.
integer(kind=kint), parameter mmaterial::planestress = 1 |
Definition at line 77 of file material.f90.
integer(kind=kint), parameter mmaterial::shell = 3 |
Definition at line 80 of file material.f90.
integer(kind=kint), parameter mmaterial::totallag = 1 |
Definition at line 14 of file material.f90.
integer(kind=kint), parameter mmaterial::updatelag = 2 |
Definition at line 15 of file material.f90.
integer(kind=kint), parameter mmaterial::userelastic = 112000 |
Definition at line 60 of file material.f90.
integer(kind=kint), parameter mmaterial::userhyperelastic = 133000 |
Definition at line 67 of file material.f90.
integer(kind=kint), parameter mmaterial::usermaterial = 100000 |
Definition at line 56 of file material.f90.
integer(kind=kint), parameter mmaterial::viscoelastic = 140000 |
Definition at line 70 of file material.f90.