diff --git a/Source/pres.f90 b/Source/pres.f90 index 6d25c49278a..e753f959527 100644 --- a/Source/pres.f90 +++ b/Source/pres.f90 @@ -1125,7 +1125,7 @@ SUBROUTINE ULMAT_SOLVER_SETUP(NM) INTEGER, INTENT(IN) :: NM ! Local Variables: -INTEGER :: I,J,K,IPZ,IOPZ,ICC,JCC,IW,IOR,ZBTYPE_LAST(-3:3),WALL_BTYPE,NZIM,IPZIM,IZERO,JDIM,IERR +INTEGER :: I,J,K,IPZ,ICC,JCC,IW,IOR,ZBTYPE_LAST(-3:3),WALL_BTYPE,NZIM,IPZIM,IZERO,JDIM,IERR INTEGER, POINTER :: IBAR=>NULL(),JBAR=>NULL(),KBAR=>NULL(),IBP1=>NULL(),JBP1=>NULL(),KBP1=>NULL(),& ITRN=>NULL(),JTRN=>NULL(),KTRN=>NULL() TYPE(ZONE_MESH_TYPE), POINTER :: ZM @@ -4802,7 +4802,7 @@ SUBROUTINE GET_MATRIX_INDEXES_H USE MPI_F08 ! Local Variables: -INTEGER :: NM, IOPZ +INTEGER :: NM INTEGER :: I,J,K,IERR INTEGER, ALLOCATABLE, DIMENSION(:) :: NUNKH_TOT