FTN4
      SUBROUTINE SPLT(N1,IPNTR,KFORM,ISQ), 92903-16309 REV.1913  781201 1130
C 
C     SOURCE 92903-18309
C 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C 
C********************************************************************** 
C*                                                                    * 
C*             THIS SUBROUTINE IS USED BY FORMG PROGRAM TO SPLIT      * 
C*   THE DUMMY STATES FOR SFK (SQ=0) AND STORAGE IN SEVERAL STATES    * 
C*   WITH A MAXIMUM LENGTH OF 80 WORDS.                               * 
C*                                                                    * 
C*          CALLING PARAMETERS :                                      * 
C*                   N1 : # OF THE WORD IN THE BUFFER WHERE STARTS    * 
C*                        THE STATE                                   * 
C*                   IPNTR : STATE LENGTH                             * 
C*                   KFORM : FORM BUFFER                              * 
C*                   ISQ   : STATE QUALIFIER                          * 
C*                                                                    * 
C********************************************************************** 
C 
C 
      DIMENSION KFORM(1)
C 
C  N2 IS CURRENT STATE INDEX
C 
      N2=1
C 
6000  IF(IPNTR.LE.80) GO TO 6020
      IF(N2.EQ.1) GO TO 6010
      CALL MOVEW(KFORM(N1),KFORM(N1+2),-IPNTR)
      IPNTR=IPNTR+2 
6010  KFORM(N1)=N1+80 
      IF(N2.EQ.1) KFORM(N1+1)=KFORM(N1+1)+400B+N2+ISQ*32
      IF(N2.NE.1) KFORM(N1+1)=400B+N2+ISQ*32
      N1=N1+80
      IPNTR=IPNTR-80
      N2=N2+1 
      GO TO 6000
6020  IF(N2.EQ.1) GO TO 6030
      CALL MOVEW(KFORM(N1),KFORM(N1+2),-IPNTR)
      IPNTR=IPNTR+2 
6030  KFORM(N1)=N1+IPNTR
      IF(N2.EQ.1) KFORM(N1+1)=KFORM(N1+1)+N2+ISQ*32 
      IF(N2.NE.1) KFORM(N1+1)=N2+ISQ*32 
      N1=N1+IPNTR 
      RETURN
      END 
      END$
        