223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

corrected some copy and paste errors

This commit is contained in:
Martin Diehl 2012-04-11 14:12:30 +00:00
parent 9a92d343dc
commit 91cfd21c88
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
code/constitutive_j2.f90
View File

@ -181,14 +181,14 @@ subroutine constitutive_j2_init(myFile)
constitutive_j2_a = 0.0_pReal constitutive_j2_a = 0.0_pReal
allocate(constitutive_j2_aTolResistance(maxNinstance)) allocate(constitutive_j2_aTolResistance(maxNinstance))
constitutive_j2_aTolResistance = 0.0_pReal constitutive_j2_aTolResistance = 0.0_pReal
allocate(constitutive_j2__tausat_SinhFitA(maxNinstance)) allocate(constitutive_j2_tausat_SinhFitA(maxNinstance))
constitutive_j2__tausat_SinhFitA = 0.0_pReal constitutive_j2_tausat_SinhFitA = 0.0_pReal
allocate(constitutive_j2__tausat_SinhFitB(maxNinstance)) allocate(constitutive_j2_tausat_SinhFitB(maxNinstance))
constitutive_j2__tausat_SinhFitB = 0.0_pReal constitutive_j2_tausat_SinhFitB = 0.0_pReal
allocate(constitutive_j2__tausat_SinhFitC(maxNinstance)) allocate(constitutive_j2_tausat_SinhFitC(maxNinstance))
constitutive_j2__tausat_SinhFitC = 0.0_pReal constitutive_j2_tausat_SinhFitC = 0.0_pReal
allocate(constitutive_j2__tausat_SinhFitD(maxNinstance)) allocate(constitutive_j2_tausat_SinhFitD(maxNinstance))
constitutive_j2__tausat_SinhFitD = 0.0_pReal constitutive_j2_tausat_SinhFitD = 0.0_pReal
rewind(myFile) rewind(myFile)
@ -484,6 +484,7 @@ pure function constitutive_j2_dotState(Tstar_v, Temperature, state, g, ip, el)
real(pReal), dimension(6) :: Tstar_dev_v ! deviatoric part of the 2nd Piola Kirchhoff stress tensor in Mandel notation real(pReal), dimension(6) :: Tstar_dev_v ! deviatoric part of the 2nd Piola Kirchhoff stress tensor in Mandel notation
real(pReal) gamma_dot, & ! strainrate real(pReal) gamma_dot, & ! strainrate
hardening, & ! hardening coefficient hardening, & ! hardening coefficient
saturation, & ! saturation resistance
norm_Tstar_dev ! euclidean norm of Tstar_dev norm_Tstar_dev ! euclidean norm of Tstar_dev
integer(pInt) matID integer(pInt) matID