FDS Source: fix array declaration in pois.f90

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