மீள்தன்மை வடிவமாற்றத்திற்கான துணைநிரல்கள் (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: தகைவு