ಸ್ಥಿತಿಸ್ಥಾಪಕ ವಿರೂಪಣೆಗೆ ಸಂಬಂಧಿಸಿದ ಸಬ್‌ರೂಟೀನ್‌ಗಳು (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: ಒತ್ತಡ