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