fixed wrong index

This commit is contained in:
Luv Sharma 2014-08-21 12:02:09 +00:00
parent 1e8139452c
commit 594c3c007b
1 changed files with 1 additions and 1 deletions

View File

@ -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))