diff --git a/Source/pois.f90 b/Source/pois.f90
index e51f035cb6b..0ae9d7a710d 100644
--- a/Source/pois.f90
+++ b/Source/pois.f90
@@ -4511,7 +4511,7 @@ SUBROUTINE SSWAP(N,SX,INCX,SY,INCY)
 INTEGER                       :: N
 INTEGER                       :: INCX
 INTEGER                       :: INCY
-REAL(EB) SX(1),SY(1),STEMP1,STEMP2,STEMP3
+REAL(EB) SX(*),SY(*),STEMP1,STEMP2,STEMP3
 INTEGER :: I, IX, IY, M,  MP1, NS
 
 !***FIRST EXECUTABLE STATEMENT  SSWAP
diff --git a/Source/read.f90 b/Source/read.f90
index 988e192906c..710aaff9da5 100644
--- a/Source/read.f90
+++ b/Source/read.f90
@@ -10338,6 +10338,8 @@ SUBROUTINE READ_RAMP
          CTRL_ID = 'null'
          X       = -1.E6_EB
          Z       = -1.E6_EB
+         T       = 0._EB
+         F       = 1._EB
          CALL CHECKREAD('RAMP',LU_INPUT,IOS)  ; IF (STOP_STATUS==SETUP_STOP) RETURN
          IF (IOS==1) EXIT SEARCH_LOOP2
          READ(LU_INPUT,RAMP)