forgot some integers

2013-01-10 18:50:14 +00:00 · 2013-01-10 18:50:14 +00:00 · 4c145376a0
parent 6e3e06bed7
commit 4c145376a0
1 changed files with 2 additions and 0 deletions
--- a/code/DAMASK_spectral_solverAL.f90
+++ b/code/DAMASK_spectral_solverAL.f90
@ -410,6 +410,8 @@ subroutine AL_formResidual(in,x_scal,f_scal,dummy,ierr)
   nfuncs
 PetscObject :: dummy
 PetscErrorCode :: ierr
+ integer(pInt) :: &
+   i, j, k

 F                 => x_scal(1:3,1:3,1,&
  XG_RANGE,YG_RANGE,ZG_RANGE)