Initiate

Initiate an instance of LinearElasticModel_.

@ConstructorMethods

Interface

܀ Interface

INTERFACE
  MODULE SUBROUTINE Initiate(obj, param)
    CLASS(LinearElasticModel_), INTENT(INOUT) :: obj
    TYPE(ParameterList_), INTENT(IN) :: param
  END SUBROUTINE Initiate
END INTERFACE

️See example

info

In this example we initiate an instance of LinearElasticModel_ with Isotropic elasticity.

This example shows the use of following methods:

• SetLinearElasticModelParam
• Initiate

PROGRAM main
USE easifemBase
USE easifemClasses
USE easifemMaterials
IMPLICIT NONE
TYPE(LinearElasticModel_) :: obj
TYPE(ParameterList_) :: param

CALL FPL_INIT; CALL param%initiate()

CALL SetLinearElasticModelParam( &
  & param=param,  &
  & ElasticityType=TypeElasticity%Isotropic, &
  & PoissonRatio=0.3_DFP, &
  & YoungsModulus=1.0D+6)

CALL obj%Initiate(param)
CALL obj%Display(msg="ISOTROPIC | PLANE-STRAIN |:")

CALL param%DEALLOCATE(); CALL FPL_FINALIZE
END PROGRAM main

ex2

In this example we show how to create an instance of LinearElasticModel_ for Isotropic elasticity with plane-stress and plane-strain options.

PROGRAM main
USE easifemBase
USE easifemClasses
USE easifemMaterials
IMPLICIT NONE
TYPE(LinearElasticModel_) :: obj
TYPE(ParameterList_) :: param

CALL FPL_INIT; CALL param%initiate()

BLOCK
  CALL SetLinearElasticModelParam( &
    & param=param,  &
    & ElasticityType=TypeElasticity%Isotropic, &
    & isPlaneStress=.TRUE., &
    & PoissonRatio=0.3_DFP, &
    & YoungsModulus=1.0D+6)

  CALL obj%Initiate(param)
  CALL obj%Display(msg="ISOTROPIC | PLANE-STRESS |:")
  CALL obj%DEALLOCATE()
END BLOCK

BLOCK
  CALL SetLinearElasticModelParam( &
    & param=param,  &
    & ElasticityType=TypeElasticity%Isotropic, &
    & isPlaneStrain=.TRUE., &
    & PoissonRatio=0.3_DFP, &
    & YoungsModulus=1.0D+6)

  CALL obj%Initiate(param)
  CALL obj%Display(msg="ISOTROPIC | PLANE-STRAIN |:")
  CALL obj%DEALLOCATE()
END BLOCK

CALL param%DEALLOCATE(); CALL FPL_FINALIZE
END PROGRAM main

↢