C*    SFSPI - PAGE INITIALIZE
      SUBROUTINE SFSPI

      INCLUDE 'SFSCM.FTN/NOLIST'

      LOGICAL*1 IDATE(9)
      DATA NOUT/ 6 /, MXLIN / 60 /
 510  FORMAT ('1', 30X, 36A2, 22X, 'PAGE', I4 / ' ', 123X, 9A1 )

      CALL DATE(IDATE)
      NPAGE = 1
      NLINE = 2
      WRITE (NOUT, 510) IHVEC, NPAGE, IDATE

      RETURN

      ENTRY SFSPP (NLNPR)

      NLINE = NLINE + NLNPR
      IF (NLINE .LE. MXLIN) GO TO 50
      NPAGE = NPAGE + 1
      WRITE (NOUT, 510) IHVEC, NPAGE, IDATE
      NLINE = NLNPR + 2
 50   RETURN
      END