Elasticity_ Derived Type

type, public :: Elasticity_


Type-Bound Procedures

procedure, public :: to_YoungModulus => to_YoungModulusElasticity

  • public function to_YoungModulusElasticity(this, Vs, Vp, Density) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in) :: Vs
    real(kind=real64), intent(in) :: Vp
    real(kind=real64), intent(in) :: Density

    Return Value real(kind=real64)

procedure, public :: to_PoissonRatio => to_PoissonRatioElasticity

  • public function to_PoissonRatioElasticity(this, Vs, Vp) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in) :: Vs
    real(kind=real64), intent(in) :: Vp

    Return Value real(kind=real64)

procedure, public :: to_AcousticImpedance => to_AcousticImpedanceElasticity

  • public function to_AcousticImpedanceElasticity(this, Density, Vs) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in), optional :: Density
    real(kind=real64), intent(in), optional :: Vs

    Return Value real(kind=real64)

procedure, public :: to_AngularFrequency => to_AngularFrequencyElasticity

  • public function to_AngularFrequencyElasticity(this, Hz) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in), optional :: Hz

    Return Value real(kind=real64)

procedure, public :: to_R => to_R_Elasticity

  • public function to_R_Elasticity(this, Density, Vs) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in), optional :: Density(1:2)
    real(kind=real64), intent(in), optional :: Vs(1:2)

    Return Value real(kind=real64)

procedure, public :: to_T => to_T_Elasticity

  • public function to_T_Elasticity(this, Density, Vs) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in), optional :: Density(1:2)
    real(kind=real64), intent(in), optional :: Vs(1:2)

    Return Value real(kind=real64)

procedure, public :: to_ImpedanceRatio => to_ImpedanceRatioElasticity

  • public function to_ImpedanceRatioElasticity(this, Density, Vs) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in) :: Density(1:2)
    real(kind=real64), intent(in) :: Vs(1:2)

    Return Value real(kind=real64)

procedure, public :: to_SurfaceResponse => to_SurfaceResponseElasticity

  • public function to_SurfaceResponseElasticity(this, Density, Vs, H, Hz) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in) :: Density(1:2)
    real(kind=real64), intent(in) :: Vs(1:2)
    real(kind=real64), intent(in) :: H
    real(kind=real64), intent(in) :: Hz

    Return Value complex(kind=real64)

procedure, public :: to_LoveWavePhaseVelocity => to_LoveWavePhaseVelElasticity

  • public function to_LoveWavePhaseVelElasticity(this, Density, Vs, H, Division, Mode) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(Elasticity_), intent(in) :: this
    real(kind=real64), intent(in) :: Density(1:2)
    real(kind=real64), intent(in) :: Vs(1:2)
    real(kind=real64), intent(in) :: H
    integer(kind=int32), intent(in) :: Division
    integer(kind=int32), intent(in), optional :: Mode

    Return Value real(kind=real64), allocatable, (:,:)