forgot some integers

This commit is contained in:
Martin Diehl 2013-01-10 18:50:14 +00:00
parent 6e3e06bed7
commit 4c145376a0
1 changed files with 2 additions and 0 deletions

View File

@ -410,6 +410,8 @@ subroutine AL_formResidual(in,x_scal,f_scal,dummy,ierr)
nfuncs nfuncs
PetscObject :: dummy PetscObject :: dummy
PetscErrorCode :: ierr PetscErrorCode :: ierr
integer(pInt) :: &
i, j, k
F => x_scal(1:3,1:3,1,& F => x_scal(1:3,1:3,1,&
XG_RANGE,YG_RANGE,ZG_RANGE) XG_RANGE,YG_RANGE,ZG_RANGE)