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 "mesh.f90"
include "crystal.f90"
!* use a dynamic link for choosing the constitutive file
include "constitutive.f90"
include "CPFEM.f90"
!
@ -171,7 +172,7 @@
! mpie_in intergration point number
!********************************************************************
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
! return stress and jacobi
! Mandel: 11, 22, 33, 12, 23, 13