223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

found bug (array index out of bounds), Philip/Franz please check if correct (Gfortran was complaining)

This commit is contained in:
Martin Diehl 2013-12-20 08:33:46 +00:00
parent 543639bb8f
commit af075aaa9d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/crystallite.f90
View File

@ -2680,7 +2680,7 @@ subroutine crystallite_integrateStateFPI()
if (crystallite_todo(g,i,e)) then if (crystallite_todo(g,i,e)) then
mySizeDotState = constitutive_sizeDotState(g,i,e) mySizeDotState = constitutive_sizeDotState(g,i,e)
constitutive_state(g,i,e)%p(1:mySizeDotState) = constitutive_subState0(g,i,e)%p(1:mySizeDotState) & constitutive_state(g,i,e)%p(1:mySizeDotState) = constitutive_subState0(g,i,e)%p(1:mySizeDotState) &
+ constitutive_dotState(g,i,e)%p & + constitutive_dotState(g,i,e)%p(1:mySizeDotState) &
* crystallite_subdt(g,i,e) * crystallite_subdt(g,i,e)
endif endif
enddo; enddo; enddo enddo; enddo; enddo
@ -2789,8 +2789,8 @@ subroutine crystallite_integrateStateFPI()
mySizeDotState = constitutive_sizeDotState(g,i,e) mySizeDotState = constitutive_sizeDotState(g,i,e)
stateResiduum(1:mySizeDotState) = constitutive_state(g,i,e)%p(1:mySizeDotState) & stateResiduum(1:mySizeDotState) = constitutive_state(g,i,e)%p(1:mySizeDotState) &
- constitutive_subState0(g,i,e)%p(1:mySizeDotState) & - constitutive_subState0(g,i,e)%p(1:mySizeDotState) &
- (constitutive_dotState(g,i,e)%p * statedamper & - (constitutive_dotState(g,i,e)%p(1:mySizeDotState) * statedamper &
+ constitutive_previousDotState(g,i,e)%p & + constitutive_previousDotState(g,i,e)%p(1:mySizeDotState) &
* (1.0_pReal - statedamper)) * crystallite_subdt(g,i,e) * (1.0_pReal - statedamper)) * crystallite_subdt(g,i,e)
! --- correct state with residuum --- ! --- correct state with residuum ---