From 318fa8008ce5e43120c70c3be515ac2438bbdec2 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Tue, 31 Mar 2009 09:09:24 +0000 Subject: [PATCH] corrected check of number of textures --- trunk/material.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/trunk/material.f90 b/trunk/material.f90 index 8db56183f..3a97d0838 100644 --- a/trunk/material.f90 +++ b/trunk/material.f90 @@ -85,7 +85,7 @@ subroutine material_init() if (minval(microstructure_phase(1:microstructure_Nconstituents(i),i)) < 1 .or. & maxval(microstructure_phase(1:microstructure_Nconstituents(i),i)) > material_Nphase) call IO_error(150,i) if (minval(microstructure_texture(1:microstructure_Nconstituents(i),i)) < 1 .or. & - maxval(microstructure_texture(1:microstructure_Nconstituents(i),i)) > material_Nphase) call IO_error(160,i) + maxval(microstructure_texture(1:microstructure_Nconstituents(i),i)) > material_Ntexture) call IO_error(160,i) if (sum(microstructure_fraction(:,i)) /= 1.0_pReal) call IO_error(170,i) enddo write (6,*)