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

Temperature T(1) is now transmitted to the CPFEM_general subroutine. Corresponding changes should be carried on CPFEM.f90

This commit is contained in:
Luc Hantcherli 2007-10-16 08:18:57 +00:00
parent e3dcaa6915
commit ccafbf9a0f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
trunk/mpie_cpfem_marc.f90
View File

@ -32,6 +32,7 @@
include "IO.f90" include "IO.f90"
include "mesh.f90" include "mesh.f90"
include "crystal.f90" include "crystal.f90"
!* use a dynamic link for choosing the constitutive file
include "constitutive.f90" include "constitutive.f90"
include "CPFEM.f90" include "CPFEM.f90"
! !
@ -171,7 +172,7 @@
! mpie_in intergration point number ! mpie_in intergration point number
!******************************************************************** !********************************************************************
if ((lovl==6).or.(ncycle==0)) then if ((lovl==6).or.(ncycle==0)) then
call CPFEM_general(ffn, ffn1, inc, incsub, ncycle, timinc, n(1), nn) call CPFEM_general(ffn, ffn1, t(1), inc, incsub, ncycle, timinc, n(1), nn)
endif endif
! return stress and jacobi ! return stress and jacobi
! Mandel: 11, 22, 33, 12, 23, 13 ! Mandel: 11, 22, 33, 12, 23, 13