fixed wrong index
This commit is contained in:
parent
1e8139452c
commit
594c3c007b
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue