From 1da42449006adcbca40081a8a66e35317224bab8 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Tue, 16 Oct 2007 13:42:48 +0000 Subject: [PATCH] reintruduced temperature in call of CPFEM_general, got lost when changing to version dependent top files --- trunk/mpie_cpfem_marc2005r3.f90 | 4 ++-- trunk/mpie_cpfem_marc2007r1.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/trunk/mpie_cpfem_marc2005r3.f90 b/trunk/mpie_cpfem_marc2005r3.f90 index 05cc2df5e..86720a73d 100644 --- a/trunk/mpie_cpfem_marc2005r3.f90 +++ b/trunk/mpie_cpfem_marc2005r3.f90 @@ -4,7 +4,7 @@ ! written by F. Roters, P. Eisenlohr, L. Hantcherli, W.A. Counts ! MPI fuer Eisenforschung, Duesseldorf ! -! last modified: 28.03.2007 +! last modified: 16.10.2007 !******************************************************************** ! Usage: ! - choose material as hypela2 @@ -171,7 +171,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 diff --git a/trunk/mpie_cpfem_marc2007r1.f90 b/trunk/mpie_cpfem_marc2007r1.f90 index 999fbf7f7..6a32e250c 100644 --- a/trunk/mpie_cpfem_marc2007r1.f90 +++ b/trunk/mpie_cpfem_marc2007r1.f90 @@ -173,7 +173,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