સ્થિતિસ્થાપક વિરૂપતા સંબંધિત સબરૂટિન (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: તાણ