Commit 9c136631 authored by Dan Jabaay's avatar Dan Jabaay
Browse files

Removing unused variables to fix UM pipeline.

Description:

VERA-dev Issue # - ####
parent 115ca5fe
Pipeline #155667 passed with stage
in 1 minute and 58 seconds
...@@ -515,7 +515,6 @@ ENDSUBROUTINE testSOFTCompare ...@@ -515,7 +515,6 @@ ENDSUBROUTINE testSOFTCompare
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
SUBROUTINE testisNAN() SUBROUTINE testisNAN()
LOGICAL(SBK) :: bool
CHARACTER(LEN=3) :: nanChar = 'NaN' CHARACTER(LEN=3) :: nanChar = 'NaN'
REAL(SDK) :: nanDouble REAL(SDK) :: nanDouble
REAL(SSK) :: nanSingle REAL(SSK) :: nanSingle
...@@ -532,7 +531,6 @@ ENDSUBROUTINE testisNAN ...@@ -532,7 +531,6 @@ ENDSUBROUTINE testisNAN
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
SUBROUTINE testisINF() SUBROUTINE testisINF()
LOGICAL(SBK) :: bool
CHARACTER(LEN=3) :: infChar = 'Inf' CHARACTER(LEN=3) :: infChar = 'Inf'
REAL(SDK) :: infDouble REAL(SDK) :: infDouble
REAL(SSK) :: infSingle REAL(SSK) :: infSingle
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment