From 594c3c007b974b4be558f27a4ae78902161dc653 Mon Sep 17 00:00:00 2001 From: Luv Sharma Date: Thu, 21 Aug 2014 12:02:09 +0000 Subject: [PATCH] fixed wrong index --- code/homogenization_isostrain.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/homogenization_isostrain.f90 b/code/homogenization_isostrain.f90 index d20a8528d..9842c9084 100644 --- a/code/homogenization_isostrain.f90 +++ b/code/homogenization_isostrain.f90 @@ -144,7 +144,7 @@ subroutine homogenization_isostrain_init(fileUnit) endif enddo - do k = 1,maxNinstance + do i = 1,maxNinstance do j = 1_pInt,maxval(homogenization_Noutput) select case(homogenization_isostrain_outputID(j,i))