FTN 
      SUBROUTINE SPLIT(FLAG1,FLAG2,V),92069-16061 REV.1912 781023 
      INTEGER FLAG1,FLAG2,V(8)
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18119
C     RELOC:     92069-16060
C 
C 
C****************************************************************:
C 
C 
C 
C 
C 
C ABSTRACT: 
C 
C SPLIT BREAKS THE PRINT OPTIONS APPART AN PUTS THEM INTO THE 
C SPECIFIED ARRAY.
C 
C CALLING SEQUENCE: 
C 
C      CALL SPLIT(FLAG1,FLAG2,V)
C 
C         WHERE:
C 
C           FLAG1 - IS USUALLY THE SS(5,N) ENTRY
C           FLAG2 - IS USUALLY THE SS(6,N) ENTRY
C           V     - IS AN 8 WORD ARRAY
C 
C ON EXIT:
C 
C  THE V-ARRAY WILL CONTAIN THE FOLLOWING VALUES
C 
C     WORD 1  - SPACE BEFORE COUNT (0-5)
C     WORD 2  - SPACE AFTER COUNT (0-5) 
C     WORD 3  - SKIP BEFORE (0-1) 
C     WORD 4  - SKIP AFTER (0-1)
C     WORD 5  - ADD FLAG (0-1)
C     WORD 6  - EDIT MASK LEVEL NUMBER  (60-69) 
C     WORD 7  - COUNT FLAG (0-1)
C     WORD 8  - AVERAGE FLAG (0-1)
C 
C 
C 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C NO COMMON IS NEEDED 
C 
C BEGIN 
C 
      DO 10 I = 5,8 
10    V(I) = 0
C 
C GET THE VALUES FROM FLAG1 
C 
      I= FLAG1
      IF(I .EQ. 0) GOTO 30
      DO 20 I1 = 1,4
      N = I - I/10*10 
      IF( N .EQ. 0) GOTO 15 
      V(I1) = N 
15    I = I/10
20    CONTINUE
C 
C 
C 
C 
      IF(I .EQ. 0) GOTO 30
      V(5) = 1
C 
C GET THE VALUES FROM FLAG2 
C 
30    CONTINUE
      I = FLAG2 
      IF(I .EQ. 0) GOTO 50
      DO 40 I1 = 2,4
      IFAC = 10 ** I1 
      N = I - I/IFAC*IFAC 
      IF( N .EQ. 0) GOTO 40 
      V(I1 + 4) = N 
      I = I-N 
40    CONTINUE
50    CONTINUE
      RETURN
      END 
                                                                                                                                                          