콘텐츠로 이동

탄성 변형용 서브루틴 (uelastic.f90)

탄성 및 초탄성 문제에서 탄성 강성 행렬을 계산하고 응력을 갱신하기 위한 서브루틴이 제공됩니다. 사용자 정의 탄성 또는 초탄성 구성 관계를 사용하려면 먼저 입력 파일에 !ELASTIC, TYPE=USER 또는 !HYPERELASTIC, TYPE=USER를 설정하고 필요한 재료 상수를 입력한 다음 uElasticMatrix 및 uElasticUpdate 서브루틴을 구현합니다.

(1) 탄성 강성 행렬 계산 서브루틴

subroutine uElasticMatrix( matl, strain, D )
    REAL(KIND=kreal), INTENT(IN) :: matl(:)
    REAL(KIND=kreal), INTENT(IN) :: strain(6)
    REAL(KIND=kreal), INTENT(OUT) :: D(6,6)
  • matl: 재료 상수를 저장하는 배열(최대 100개)
  • strain: Green-Lagrange 변형률
  • D: 탄성 행렬

(2) 응력 계산 서브루틴

subroutine uElasticUpdate ( matl, strain, stress )
    REAL(KIND=kreal), INTENT(IN) :: matl(:)
    REAL(KIND=kreal), INTENT(IN) :: strain(6)
    REAL(KIND=kreal), INTENT(OUT) :: stress(6)
  • matl: 재료 상수를 저장하는 배열(최대 100개)
  • strain: Green-Lagrange 변형률
  • stress: 응력