From dde0af0b37f505e3c9c84488552556834d102c86 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Mon, 9 Mar 2009 13:58:59 +0000 Subject: [PATCH] sanity check for phase and texture index out of bounds was errorenous... --- trunk/material.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/trunk/material.f90 b/trunk/material.f90 index 39012dd21..ae4d1949a 100644 --- a/trunk/material.f90 +++ b/trunk/material.f90 @@ -77,9 +77,11 @@ subroutine material_init() call material_parsePhase(fileunit) close(fileunit) - if (minval(microstructure_phase) < 1 .or. maxval(microstructure_phase) > material_Nphase) call IO_error(150) - if (minval(microstructure_texture) < 1 .or. maxval(microstructure_texture) > material_Ntexture) call IO_error(160) do i = 1,material_Nmicrostructure + 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) if (sum(microstructure_fraction(:,i)) /= 1.0_pReal) call IO_error(170,i) enddo write (6,*)