స్థితిస్థాపక-ప్లాస్టిక్ వికృతికి సంబంధించిన సబ్రూటీన్లు (uyield.f90)¶
స్థితిస్థాపక-ప్లాస్టిక్ దృఢత్వ మాత్రిక మరియు ఒత్తిడి return mapping ను గణించడానికి సబ్రూటీన్లు అందించబడతాయి. వినియోగదారు నిర్వచిత యీల్డ్ ఫంక్షన్ను ఉపయోగించాలంటే, ముందుగా ఇన్పుట్ ఫైల్లో !PLASTIC, YIELD=USER ను అమర్చి అవసరమైన పదార్థ స్థిరాంకాలను ఇవ్వాలి, తర్వాత uElastoPlasticNumStatus ఫంక్షన్ మరియు uElastoPlasticMatrix, uBackwardEuler సబ్రూటీన్లను రూపొందించాలి.
(1) వాస్తవ సంఖ్య స్థితి చరాల సంఖ్యను తిరిగి ఇచ్చే ఫంక్షన్¶
matl: పదార్థ స్థిరాంకాలను నిల్వ చేసే అర్రే (1-100 : సిస్టమ్ నిర్వచిత పదార్థ స్థిరాంకాలు, 101-200 : వినియోగదారు నిర్వచిత పదార్థ స్థిరాంకాలు)
(2) స్థితిస్థాపక-ప్లాస్టిక్ దృఢత్వ మాత్రిక గణన సబ్రూటీన్¶
subroutine uElastoPlasticMatrix( matl, stress, istat, fstat, plstrain, D, temp, hdflag )
real(kind=kreal), intent(in) :: matl(:)
real(kind=kreal), intent(in) :: stress(6)
integer(kind=kint), intent(in) :: istat
real(kind=kreal), intent(in) :: fstat(:)
real(kind=kreal), intent(in) :: plstrain
real(kind=kreal), intent(out) :: D(:,:)
real(kind=kreal), intent(in) :: temp
integer(kind=kint), intent(in) :: hdflag
matl: పదార్థ స్థిరాంకాలను నిల్వ చేసే అర్రే (1-100 : సిస్టమ్ నిర్వచిత పదార్థ స్థిరాంకాలు, 101-200 : వినియోగదారు నిర్వచిత పదార్థ స్థిరాంకాలు)stress: 2nd Piola-Kirchhoff ఒత్తిడిistat: పూర్ణసంఖ్య స్థితి చరంfstat: వాస్తవ సంఖ్య స్థితి చరాల అర్రేplstrain: ప్రస్తుత సబ్స్టెప్ ప్రారంభ సమయంలోని ప్లాస్టిక్ స్ట్రెయిన్D: స్థితిస్థాపక-ప్లాస్టిక్ మాత్రికtemp: ఉష్ణోగ్రతhdflag: అన్ని భాగాలు (0), విచల భాగాలు మాత్రమే (1), ఘనపరిమాణ భాగాలు మాత్రమే (2) గణిస్తుంది
(3) ఒత్తిడి Return mapping గణన సబ్రూటీన్¶
subroutine uBackwardEuler( matl, stress, plstrain, istat, fstat, temp, hdflag )
real(kind=kreal), intent(in) :: matl(:)
real(kind=kreal), intent(inout) :: stress(6)
real(kind=kreal), intent(in) :: plstrain
integer(kind=kint), intent(inout) :: istat
real(kind=kreal), intent(inout) :: fstat(:)
real(kind=kreal), intent(in) :: temp
integer(kind=kint), intent(in) :: hdflag
matl: పదార్థ స్థిరాంకాలను నిల్వ చేసే అర్రే (1-100 : సిస్టమ్ నిర్వచిత పదార్థ స్థిరాంకాలు, 101-200 : వినియోగదారు నిర్వచిత పదార్థ స్థిరాంకాలు)stress: స్థితిస్థాపక వికృతి అనుమానంతో పొందిన trial stress, అంటే 2nd Piola-Kirchhoff ఒత్తిడిplstrain: ప్రస్తుత సబ్స్టెప్ ప్రారంభ సమయంలోని ప్లాస్టిక్ స్ట్రెయిన్istat: పూర్ణసంఖ్య స్థితి చరంfstat: వాస్తవ సంఖ్య స్థితి చరాల అర్రేtemp: ఉష్ణోగ్రతhdflag: అన్ని భాగాలు (0), విచల భాగాలు మాత్రమే (1), ఘనపరిమాణ భాగాలు మాత్రమే (2) గణిస్తుంది