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 #####################