From 4c145376a08bc491ce45579f389c8abe7c9e84cb Mon Sep 17 00:00:00 2001
From: Martin	Diehl <m.diehl@mpie.de>
Date: Thu, 10 Jan 2013 18:50:14 +0000
Subject: [PATCH] forgot some integers

---
 code/DAMASK_spectral_solverAL.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/code/DAMASK_spectral_solverAL.f90 b/code/DAMASK_spectral_solverAL.f90
index 98843dcd5..50c82c958 100644
--- 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)