removed syntax error in _LpAndItsTangent (enforcing symmetry was flawed...)

This commit is contained in:
Philip Eisenlohr 2007-04-17 08:02:27 +00:00
parent 0f6ff82f30
commit 9e0b9a7096
1 changed files with 6 additions and 6 deletions

View File

@ -935,10 +935,10 @@ do i=1,material_Nslip(matID)
dgdot_dtauslip(i) = material_gdot0_slip(matID)*(abs(tau_slip(i))/state(i))**& dgdot_dtauslip(i) = material_gdot0_slip(matID)*(abs(tau_slip(i))/state(i))**&
(material_n_slip(matID)-1.0_pReal)*material_n_slip(matID)/constitutive_state_new(i,ipc,ip,el) (material_n_slip(matID)-1.0_pReal)*material_n_slip(matID)/constitutive_state_new(i,ipc,ip,el)
forall (k=1:3,l=1:3,m=1:3,n=1:3) forall (k=1:3,l=1:3,m=1:3,n=1:3)
dLp_dTstar(k,l,m,n)=dLp_dTstar(k,l,m,n)+constitutive_Sslip(k,l,i,material_CrystalStructure(matID))*& dLp_dTstar(k,l,m,n) = dLp_dTstar(k,l,m,n)+ &
(constitutive_Sslip(m,n,i,material_CrystalStructure(matID)+& ! force m,n symmetry dgdot_dtauslip(i)*constitutive_Sslip(k,l,i,material_CrystalStructure(matID))* &
constitutive_Sslip(n,m,i,material_CrystalStructure(matID))/2)*dgdot_dtauslip(i) (constitutive_Sslip(m,n,i,material_CrystalStructure(matID))+ &
constitutive_Sslip(n,m,i,material_CrystalStructure(matID)))/2.0_pReal ! force m,n symmetry
endforall endforall
enddo enddo