From ccafbf9a0f8c488ee2827fd7b0395e1789670009 Mon Sep 17 00:00:00 2001
From: Luc	Hantcherli <l.hantcherli@mpie.de>
Date: Tue, 16 Oct 2007 08:18:57 +0000
Subject: [PATCH] Temperature T(1) is now transmitted to the CPFEM_general
 subroutine. Corresponding changes should be carried on CPFEM.f90

---
 trunk/mpie_cpfem_marc.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/trunk/mpie_cpfem_marc.f90 b/trunk/mpie_cpfem_marc.f90
index ab005c951..89f706db0 100644
--- a/trunk/mpie_cpfem_marc.f90
+++ b/trunk/mpie_cpfem_marc.f90
@@ -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