Array reference at (1) is out of bounds

[Jack Howarth]

     I noticed that the stock fftpack generates some warnings of the form..

cd fftpack; gfortran -c -O3 -g rffti1.f
 In file rffti1.f:24

      IFAC(3) = 2
          1
Warning: Array reference at (1) is out of bounds
 In file rffti1.f:27

      IFAC(2) = NF
          1
Warning: Array reference at (1) is out of bounds

Is there an easy fix to this isue without reconstructing
the algorithms in...

http://www.netlib.org/fftpack/rffti1.f

Thanks in advance for any pointers.
               Jack