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

Corrected syntax

This commit is contained in:
Luc Hantcherli 2008-01-10 19:00:45 +00:00
parent b8b171c95b
commit 720d8da82b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/CPFEM.f90
View File

@ -509,7 +509,7 @@ stress: do ! inner iteration: stress
if (maxval(abs(RstateS)) < reltol_State) exit state
enddo state
debug_strateLoopDistribution(iState) = debug_stateLoopDistribution(iState)+1
debug_stateLoopDistribution(iState) = debug_stateLoopDistribution(iState)+1
invFp_new = matmul(invFp_old,B)
call math_invert3x3(invFp_new,Fp_new,det,failed)

4
trunk/constitutive_dislo.f90
View File

@ -22,7 +22,7 @@ character(len=300), parameter :: mattexFile = 'mattex.mpie'
!*************************************
!* Physical parameter, attack_frequency != Debye frequency
real(pReal), parameter :: attack_frequency = 1.0e10_pReal
!* Physical parameter, Boltzman constant in J/Kelvin
!* Physical parameter, Boltzmann constant in J/Kelvin
real(pReal), parameter :: kB = 1.38e-23_pReal
!*************************************
@ -1165,7 +1165,7 @@ startIdxTwin = material_Nslip(matID)
if(constitutive_Nresults(ipc,ip,el)==0) return
constitutive_post_results=0
constitutive_post_results=0.0_pReal
do i=1,material_Nslip(matID)
constitutive_post_results(i) = state(i)
! tau_slip=dot_product(Tstar_v,crystal_Sslip_v(:,i,material_CrystalStructure(matID)))