Return to SEPAR.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/SEPAR.f, revision 1.1.1.1

1.1       root        1:       SUBROUTINE SEPAR(ICHAR)
                      2: C
                      3: C      FINDS SEPARATER CONSTRUCT IN FORMAT STMTS
                      4: C     SEPARATER IS A  COMBINATION OF "/" AND ","
                      5: C     ",," IS ALWAYS ILLEGAL IN A SEPARATER
                      6: C     MIXING OF "/" AND "," IS WARNED AGAINST
                      7: C
                      8: C     ICHAR CONTAINS LENGTH OF SEPARATOR FOUND
                      9:       INTEGER PSTMT, STMT
                     10:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
                     11:       ICHAR = PSTMT
                     12:       ICOM = 0
                     13: C
                     14: C     " , "
                     15: C
                     16:    10 IF (STMT(PSTMT).NE.68) GO TO 20
                     17:       ICOM = ICOM + 1
                     18: C
                     19: C      CHECK FOR ",,"
                     20: C
                     21:       PSTMT = PSTMT + 1
                     22:       IF (STMT(PSTMT).EQ.68) GO TO 30
                     23:    20 IF (STMT(PSTMT).NE.67) GO TO 50
                     24:       PSTMT = PSTMT + 1
                     25:       GO TO 10
                     26:    30 CALL ERROR1(19H ILLEGAL ADJACENT ,, 19)
                     27: C
                     28: C      FLUSH TO NEXT NON-SEPARATER
                     29: C
                     30:    40 PSTMT = PSTMT + 1
                     31:       IF (STMT(PSTMT).EQ.67 .OR. STMT(PSTMT).EQ.68) GO TO 40
                     32:    50 ICHAR = PSTMT - ICHAR
                     33:       IF (ICOM.GT.0 .AND. ICHAR.GT.1) CALL ERROR1(
                     34:      *    36H ILLEGAL MIXING OF / AND , IN FORMAT, 36)
                     35:       RETURN
                     36:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.