Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer(kind=int32), | public | :: | WAVE_DISP | = | 1 | ||
integer(kind=int32), | public | :: | WAVE_VELOCITY | = | 2 | ||
integer(kind=int32), | public | :: | WAVE_ACCEL | = | 3 |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
type(FEMDomain_), | public, | pointer | :: | femdomain | |||
real(kind=real64), | public, | allocatable | :: | da(:) | |||
real(kind=real64), | public, | allocatable | :: | a(:) | |||
real(kind=real64), | public, | allocatable | :: | a_ext(:) | |||
real(kind=real64), | public, | allocatable | :: | a_ext_n(:) | |||
real(kind=real64), | public, | allocatable | :: | v(:) | |||
real(kind=real64), | public, | allocatable | :: | u(:) | |||
real(kind=real64), | public, | allocatable | :: | du(:) | |||
real(kind=real64), | public, | allocatable | :: | wave(:,:) | |||
real(kind=real64), | public, | allocatable | :: | dwave(:,:) | |||
real(kind=real64), | public, | allocatable | :: | Density(:) | |||
real(kind=real64), | public, | allocatable | :: | YoungModulus(:) | |||
real(kind=real64), | public, | allocatable | :: | PoissonRatio(:) | |||
real(kind=real64), | public | :: | MaxA(3) | = | 0.0d0 | ||
real(kind=real64), | public | :: | MaxV(3) | = | 0.0d0 | ||
real(kind=real64), | public | :: | MaxU(3) | = | 0.0d0 | ||
integer(kind=int32), | public, | allocatable | :: | WaveNodeList(:) | |||
integer(kind=int32), | public, | allocatable | :: | FixNodeList_x(:) | |||
integer(kind=int32), | public, | allocatable | :: | FixNodeList_y(:) | |||
integer(kind=int32), | public, | allocatable | :: | FixNodeList_z(:) | |||
real(kind=real64), | public, | allocatable | :: | FixNodeList_Disp_x(:) | |||
real(kind=real64), | public, | allocatable | :: | FixNodeList_Disp_y(:) | |||
real(kind=real64), | public, | allocatable | :: | FixNodeList_Disp_z(:) | |||
character(len=1), | public | :: | wavedirection | = | "z" | ||
integer(kind=int32), | public | :: | wavetype | = | 0 | ||
real(kind=real64), | public | :: | dt | = | 1.0d0 | ||
real(kind=real64), | public | :: | error | = | 0.0d0 | ||
real(kind=real64), | public | :: | t | = | 0.0d0 | ||
integer(kind=int32), | public | :: | step | = | 0 | ||
real(kind=real64), | public | :: | alpha | = | 0.52400d0 | ||
real(kind=real64), | public | :: | beta | = | 0.00129d0 | ||
real(kind=real64), | public | :: | Newmark_beta | = | 0.250d0 | ||
real(kind=real64), | public | :: | Newmark_gamma | = | 0.50d0 | ||
logical, | public | :: | restart | = | .False. |
procedure, public :: init => initSeismicAnalysis | |
procedure, public :: loadWave => loadWaveSeismicAnalysis | |
procedure, public :: fixDisplacement => fixDisplacementSeismicAnalysis | |
procedure, public :: updateWave => updateWaveSeismicAnalysis | |
procedure, public :: run => runSeismicAnalysis | |
procedure, public :: LinearReyleighNewmark => LinearReyleighNewmarkSeismicAnalysis | |
procedure, public :: recordMaxValues => recordMaxValuesSeismicAnalysis | |
procedure, public :: save => saveSeismicAnalysis | |
procedure, public :: getNewmarkBetaMatrix => getNewmarkBetaMatrixSeismicAnalysis | |
procedure, public :: getNewmarkBetaVector => getNewmarkBetaVectorSeismicAnalysis | |
procedure, public :: updateVelocityNewmarkBeta => updateVelocityNewmarkBetaSeismicAnalysis | |
procedure, public :: updateAccelNewmarkBeta => updateAccelNewmarkBetaSeismicAnalysis |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(in) | :: | obj | |||
real(kind=real64), | intent(in) | :: | M(:,:) | |||
real(kind=real64), | intent(in) | :: | C(:,:) | |||
real(kind=real64), | intent(in) | :: | K(:,:) | |||
real(kind=real64), | intent(in) | :: | beta | |||
real(kind=real64), | intent(in) | :: | gamma | |||
real(kind=real64), | intent(in) | :: | dt |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(in) | :: | obj | |||
real(kind=real64), | intent(in) | :: | u_n(:) | |||
real(kind=real64), | intent(in) | :: | v_n(:) | |||
real(kind=real64), | intent(in) | :: | a_n(:) | |||
real(kind=real64), | intent(in) | :: | force(:) | |||
real(kind=real64), | intent(in) | :: | beta | |||
real(kind=real64), | intent(in) | :: | gamma | |||
real(kind=real64), | intent(in) | :: | M(:,:) | |||
real(kind=real64), | intent(in) | :: | C(:,:) | |||
real(kind=real64), | intent(in) | :: | dt |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(in) | :: | obj | |||
real(kind=real64), | intent(in) | :: | u(:) | |||
real(kind=real64), | intent(in) | :: | u_n(:) | |||
real(kind=real64), | intent(in) | :: | v_n(:) | |||
real(kind=real64), | intent(in) | :: | a_n(:) | |||
real(kind=real64), | intent(in) | :: | gamma | |||
real(kind=real64), | intent(in) | :: | beta | |||
real(kind=real64), | intent(in) | :: | dt |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(in) | :: | obj | |||
real(kind=real64), | intent(in) | :: | u(:) | |||
real(kind=real64), | intent(in) | :: | u_n(:) | |||
real(kind=real64), | intent(in) | :: | v_n(:) | |||
real(kind=real64), | intent(in) | :: | a_n(:) | |||
real(kind=real64), | intent(in) | :: | gamma | |||
real(kind=real64), | intent(in) | :: | beta | |||
real(kind=real64), | intent(in) | :: | dt |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(inout) | :: | obj |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(inout) | :: | obj | |||
character(len=*), | intent(in) | :: | name | |||
real(kind=real64), | intent(in), | optional | :: | ratio |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(inout) | :: | obj | |||
real(kind=real64), | intent(in), | optional | :: | x_min | ||
real(kind=real64), | intent(in), | optional | :: | x_max | ||
real(kind=real64), | intent(in), | optional | :: | y_min | ||
real(kind=real64), | intent(in), | optional | :: | y_max | ||
real(kind=real64), | intent(in), | optional | :: | z_min | ||
real(kind=real64), | intent(in), | optional | :: | z_max | ||
character(len=1), | intent(in), | optional | :: | direction | ||
integer(kind=int32), | intent(in) | :: | wavetype |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(inout) | :: | obj | |||
real(kind=real64), | intent(in), | optional | :: | x_min | ||
real(kind=real64), | intent(in), | optional | :: | x_max | ||
real(kind=real64), | intent(in), | optional | :: | y_min | ||
real(kind=real64), | intent(in), | optional | :: | y_max | ||
real(kind=real64), | intent(in), | optional | :: | z_min | ||
real(kind=real64), | intent(in), | optional | :: | z_max | ||
real(kind=real64), | intent(in), | optional | :: | displacement | ||
character(len=*), | intent(in), | optional | :: | direction | ||
character(len=*), | intent(in), | optional | :: | release |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(inout) | :: | obj | |||
integer(kind=int32), | intent(in) | :: | timestep | |||
character(len=1), | intent(in), | optional | :: | direction |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(inout) | :: | obj | |||
real(kind=real64), | intent(in), | optional | :: | t0 | ||
integer(kind=int32), | intent(in) | :: | timestep(2) | |||
real(kind=real64), | intent(in), | optional | :: | wave(:,:) | ||
real(kind=real64), | intent(in), | optional | :: | AccelLimit | ||
real(kind=real64), | intent(in), | optional | :: | disp_magnify_ratio |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(inout) | :: | obj | |||
real(kind=real64), | intent(in), | optional | :: | TOL |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(SeismicAnalysis_), | intent(inout) | :: | Obj |