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

added use crystal statement before call of crystal_init

This commit is contained in:
Franz Roters 2007-10-15 10:16:51 +00:00
parent 64f3f6ccee
commit 532d3c2a16
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
trunk/CPFEM.f90
View File

@ -95,6 +95,7 @@
use prec, only: pReal,pInt use prec, only: pReal,pInt
use math, only: math_init use math, only: math_init
use mesh, only: mesh_init,mesh_FEasCP use mesh, only: mesh_init,mesh_FEasCP
use crystal, only: crystal_Init
use constitutive, only: constitutive_init,constitutive_state_old,constitutive_state_new use constitutive, only: constitutive_init,constitutive_state_old,constitutive_state_new
implicit none implicit none
! !
@ -106,7 +107,7 @@
! three dimensional stress state ? ! three dimensional stress state ?
call math_init() call math_init()
call mesh_init() call mesh_init()
call crystal_init() call crystal_Init()
call constitutive_init() call constitutive_init()
call CPFEM_init() call CPFEM_init()
CPFEM_first_call = .false. CPFEM_first_call = .false.
@ -347,7 +348,7 @@
integer(pInt) cp_en, CPFEM_in, grain integer(pInt) cp_en, CPFEM_in, grain
integer(pInt) iState,iStress,dummy, i,j,k,l,m integer(pInt) iState,iStress,dummy, i,j,k,l,m
real(pReal) dt,det, p_hydro real(pReal) dt,det, p_hydro
real(pReal), dimension(6) :: Tstar_v,dTstar_v,Rstress, E, T_elastic, Rstress_old real(pReal), dimension(6) :: Tstar_v,dTstar_v,Rstress, T_elastic, Rstress_old
real(pReal), dimension(6,6) :: C_66,Jacobi,invJacobi real(pReal), dimension(6,6) :: C_66,Jacobi,invJacobi
real(pReal), dimension(3,3) :: Fg_new,Fp_old,Fp_new,Fe_new,invFp_old,invFp_new,Lp,A,B,AB real(pReal), dimension(3,3) :: Fg_new,Fp_old,Fp_new,Fe_new,invFp_old,invFp_new,Lp,A,B,AB
real(pReal), dimension(3,3,3,3) :: dLp, LTL real(pReal), dimension(3,3,3,3) :: dLp, LTL