Merge pull request #15062 from rmcdermo/master

FDS Source: fix uninitialized ramp values and array declarations

Author: rmcdermo

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

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)