Commit 6f6c3e19 authored by Henderson, Shane's avatar Henderson, Shane
Browse files

Fix a few unused variables 

Squash branch 'fix_vars' into 'master'

* Update 2 files

- /unit_tests/testTPLPETSC/testTPLPETSC.f90
- /unit_tests/testTPLSLEPC/testTPLSLEPC.f90

* Remove unused params in another test

* Add use and remove unused params

* Fix a few unused variables


**Developer Checklist:**
- [x] Have you done a self-review after creating the merge request?
- [x] Have you filled in the Merge Request information (title, description) thoroughly?
- [x] Have you updated the relevant tickets (if this MR is linked to any VERA-dev tickets)?
- [ ] Have you addressed all suggested feedback and commented on it to let the reviewer know? (Do not resolve discussions that the reviewer started)

**Reviewer Checklist:**
- [x] Have you confirmed all discussions were adequately addressed and resolved them all?
- [x] Does it conform to formatting guidelines?
- [x] Are there adequate and clear comments?
- [x] Is the design clean and sensible?
- [x] Are the changes optimal/efficient?
- [x] Were sufficient DBC checks added?
- [x] Are there unit tests? (if necessary)
- [x] Is the MR description clear, including a link to the VERA-Dev issue if appropriate?

**PSM Checklist**
- [ ] Have you confirmed that all discussions were addressed, or that follow-on issues have been created for them?
- [ ] Have you confirmed sufficient testing was conducted?
- [ ] Does this impact other repositories?
- [ ] Does the MR have an adequate description?
- [ ] If the MR has multiple commits, did you set the MR to squash merge?

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

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