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