From db731a4be30f462f1c9fbb2548bc169297362b45 Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Mon, 8 Jun 2009 13:28:00 +0000
Subject: [PATCH] Taylor homogenization is now called isostrain, changed
 material.config accordingly. corrected error message in case of unknown
 homogenization

---
 trunk/IO.f90             | 2 +-
 trunk/homogenization.f90 | 2 +-
 trunk/material.config    | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/trunk/IO.f90 b/trunk/IO.f90
index 55eb3a8c5..88521970f 100644
--- a/trunk/IO.f90
+++ b/trunk/IO.f90
@@ -790,7 +790,7 @@ END FUNCTION
  case (200)
    msg = 'Unknown constitution specified'
  case (201)
-   msg = 'Unknown lattice type specified'
+   msg = 'Unknown homogenization specified'
  case (202)
    msg = 'Number of slip systems too small'
  case (203)
diff --git a/trunk/homogenization.f90 b/trunk/homogenization.f90
index b21e04c72..4c86ad96b 100644
--- a/trunk/homogenization.f90
+++ b/trunk/homogenization.f90
@@ -109,7 +109,7 @@ subroutine homogenization_init()
          endif
          homogenization_sizePostResults(i,e) = homogenization_isostrain_sizePostResults(myInstance)
        case default
-         call IO_error(200,ext_msg=homogenization_type(mesh_element(3,e)))      ! unknown type 200 is phase!
+         call IO_error(201,ext_msg=homogenization_type(mesh_element(3,e)))      ! unknown type 201 is homogenization!
      end select
    enddo
  enddo
diff --git a/trunk/material.config b/trunk/material.config
index 8281ee379..c846521df 100644
--- a/trunk/material.config
+++ b/trunk/material.config
@@ -3,7 +3,7 @@
 #####################
 
 [SX]
-type	Taylor
+type	isostrain
 Ngrains	1
 
 [RGC]
@@ -11,7 +11,7 @@ type	RGC
 Ngrains	8
 
 [Taylor4]
-type	Taylor
+type	isostrain
 Ngrains	4
 
 #####################