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

corrected small syntax errors

This commit is contained in:
Luc Hantcherli 2007-04-11 14:55:06 +00:00
parent 3c5d490148
commit cb4a85319d
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
trunk/CPFEM.f90
View File

@ -137,7 +137,8 @@
cp_en,& ! Element number
CPFEM_in) ! Integration point number
use prec, only: pReal,pInt,ijaco,nCutback
use prec, only: pReal,pInt,ijaco,nCutback
use math, only: math_pDecomposition,math_RtoEuler
use IO, only: IO_error
use mesh, only: mesh_element
use constitutive
@ -158,7 +159,7 @@
updateJaco = (mod(CPFEM_cn,ijaco)==0) ! update consistent tangent every ijaco'th iteration
CPFEM_stress_all(:,CPFEM_in,cp_en) = 0.0_pReal ! average Cauchy stress
CPFEM_stress_all(:,CPFEM_in,cp_en) = 0.0_pReal ! average Cauchy stress
if (updateJaco) CPFEM_jaco_old(:,:,CPFEM_in,cp_en) = 0.0_pReal ! average consistent tangent
! -------------- grain loop -----------------

2
trunk/constitutive.f90
View File

@ -84,7 +84,7 @@ real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_new
!************************************
!* Results *
!************************************
integer(pInt), constitutive_maxNresults
integer(pInt) constitutive_maxNresults
integer(pInt), dimension(:,:,:), allocatable :: constitutive_Nresults
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_results