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

reintruduced temperature in call of CPFEM_general, got lost when changing to version dependent top files

This commit is contained in:
Franz Roters 2007-10-16 13:42:48 +00:00
parent 5d566f63fd
commit 1da4244900
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/mpie_cpfem_marc2005r3.f90
View File

@ -4,7 +4,7 @@
! written by F. Roters, P. Eisenlohr, L. Hantcherli, W.A. Counts ! written by F. Roters, P. Eisenlohr, L. Hantcherli, W.A. Counts
! MPI fuer Eisenforschung, Duesseldorf ! MPI fuer Eisenforschung, Duesseldorf
! !
! last modified: 28.03.2007 ! last modified: 16.10.2007
!******************************************************************** !********************************************************************
! Usage: ! Usage:
! - choose material as hypela2 ! - choose material as hypela2
@ -171,7 +171,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

2
trunk/mpie_cpfem_marc2007r1.f90
View File

@ -173,7 +173,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