FDS Source : Add variable declarations.

Author: marcosvanella

Source/pres.f90

@@ -4056,7 +4056,6 @@ SUBROUTINE GET_H_MATRIX_LUDCMP
 ! Local Variables:
 #ifdef WITH_MKL
 INTEGER :: PHASE, PERM(1)
-INTEGER :: I, IPROC
 INTEGER, ALLOCATABLE, DIMENSION(:,:) :: MB_FACTOR
 #endif
 #ifdef WITH_HYPRE
@@ -4068,7 +4067,7 @@ SUBROUTINE GET_H_MATRIX_LUDCMP
 INTEGER :: ROWARR(1), NCOLSARR(1)
 #endif
 !.. All other variables
-INTEGER :: INNZ, IROW, JCOL, IERR
+INTEGER :: I, INNZ, IROW, JCOL, IERR, IPROC
 INTEGER MAXFCT, MNUM, NRHS, ERROR
 INTEGER, ALLOCATABLE, DIMENSION(:)   :: NNZ_ROW_H, NNZ_ROW_H_RS, DISPL, SIZEV,  JD_1D, JD_1D_RS
 REAL(EB), ALLOCATABLE, DIMENSION(:)  :: D_1D, D_1D_RS