Commit 61e39f07 authored by Henderson, Shane's avatar Henderson, Shane
Browse files

Merge branch 'fix_vars' into 'master' 

Fix a few unused variables

See merge request https://code.ornl.gov/futility/Futility/-/merge_requests/418
parents fde75d61 6f6c3e19

unit_tests/testParTPLPETSC/testParTPLPETSC.f90

+1 −22
Original line number Diff line number Diff line
@@ -8,6 +8,7 @@ 
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!

PROGRAM testParTPLPETSC



USE IntrType

#ifdef FUTILITY_HAVE_PETSC

#include <petscversion.h>

#if (((PETSC_VERSION_MAJOR>=3) && (PETSC_VERSION_MINOR>6)) || (PETSC_VERSION_MAJOR>=4))
@@ -29,26 +30,6 @@ IMPLICIT NONE 
#endif

#undef IS



!define precision kinds

INTEGER,PARAMETER :: N_INT_ORDER=8

INTEGER,PARAMETER :: N_LONG_ORDER=18

INTEGER,PARAMETER :: N_SGL_DIGITS=6

INTEGER,PARAMETER :: N_DBL_DIGITS=15

INTEGER,PARAMETER :: SNK=SELECTED_INT_KIND(N_INT_ORDER)

INTEGER,PARAMETER :: SLK=SELECTED_INT_KIND(N_LONG_ORDER)

INTEGER,PARAMETER :: SSK=SELECTED_REAL_KIND(N_SGL_DIGITS)

INTEGER,PARAMETER :: SDK=SELECTED_REAL_KIND(N_DBL_DIGITS)

#ifdef DBL

INTEGER,PARAMETER :: SRK=SDK

#else

INTEGER,PARAMETER :: SRK=SSK

#endif

#ifdef DBLINT

INTEGER,PARAMETER :: SIK=SLK

#else

INTEGER,PARAMETER :: SIK=SNK

#endif



!define error code

INTEGER(SIK) :: ierr

INTEGER(SIK) :: rank
@@ -246,8 +227,6 @@ SUBROUTINE testPETSC_KSP_SuperLU 
  Mat :: A,F

  KSP :: ksp

  PC  :: pc

  PetscReal :: rtol,abstol,dtol

  PetscInt  :: maxits,restart

  REAL(SRK) :: getval(1)



  IF(rank == 0) WRITE(*,*)

unit_tests/testTPLPETSC/testTPLPETSC.f90

+2 −20
Original line number Diff line number Diff line
@@ -8,6 +8,8 @@ 
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!

PROGRAM testTPLPETSC



USE IntrType



#ifdef FUTILITY_HAVE_PETSC

#include <petscversion.h>

#if (((PETSC_VERSION_MAJOR>=3) && (PETSC_VERSION_MINOR>6)) || (PETSC_VERSION_MAJOR>=4))
@@ -27,26 +29,6 @@ IMPLICIT NONE 
#endif

#undef IS



!define precision kinds

INTEGER,PARAMETER :: N_INT_ORDER=8

INTEGER,PARAMETER :: N_LONG_ORDER=18

INTEGER,PARAMETER :: N_SGL_DIGITS=6

INTEGER,PARAMETER :: N_DBL_DIGITS=15

INTEGER,PARAMETER :: SNK=SELECTED_INT_KIND(N_INT_ORDER)

INTEGER,PARAMETER :: SLK=SELECTED_INT_KIND(N_LONG_ORDER)

INTEGER,PARAMETER :: SSK=SELECTED_REAL_KIND(N_SGL_DIGITS)

INTEGER,PARAMETER :: SDK=SELECTED_REAL_KIND(N_DBL_DIGITS)

#ifdef DBL

INTEGER,PARAMETER :: SRK=SDK

#else

INTEGER,PARAMETER :: SRK=SSK

#endif

#ifdef DBLINT

INTEGER,PARAMETER :: SIK=SLK

#else

INTEGER,PARAMETER :: SIK=SNK

#endif



!define error code

PetscErrorCode  :: ierr

unit_tests/testTPLSLEPC/testTPLSLEPC.f90

+2 −20
Original line number Diff line number Diff line
@@ -8,6 +8,8 @@ 
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!

PROGRAM testTPLSLEPC



USE IntrType



IMPLICIT NONE



#include <petscversion.h>
@@ -20,26 +22,6 @@ IMPLICIT NONE 
#endif

#undef IS



!define precision kinds

INTEGER,PARAMETER :: N_INT_ORDER=8

INTEGER,PARAMETER :: N_LONG_ORDER=18

INTEGER,PARAMETER :: N_SGL_DIGITS=6

INTEGER,PARAMETER :: N_DBL_DIGITS=15

INTEGER,PARAMETER :: SNK=SELECTED_INT_KIND(N_INT_ORDER)

INTEGER,PARAMETER :: SLK=SELECTED_INT_KIND(N_LONG_ORDER)

INTEGER,PARAMETER :: SSK=SELECTED_REAL_KIND(N_SGL_DIGITS)

INTEGER,PARAMETER :: SDK=SELECTED_REAL_KIND(N_DBL_DIGITS)

#ifdef DBL

INTEGER,PARAMETER :: SRK=SDK

#else

INTEGER,PARAMETER :: SRK=SSK

#endif

#ifdef DBLINT

INTEGER,PARAMETER :: SIK=SLK

#else

INTEGER,PARAMETER :: SIK=SNK

#endif



INTEGER(SIK) :: rank



!define error code