ከኤላስቲክ መለወጥ ጋር የተያያዙ ንዑስ ፕሮግራሞች (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: ስትሬስ