Return to INOPT.f CVS log

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

Annotation of researchv10no/cmd/pfort/INOPT.f, revision 1.1

1.1     ! root        1:       SUBROUTINE INOPT(CARD)
        !             2:       INTEGER S(8), CARD(80), J(5)
        !             3:       LOGICAL OPT, P1ERR
        !             4:       COMMON /OPTNS/ OPT(5), P1ERR
        !             5:       DATA S(1), S(2), S(3), S(4), S(5), S(6), S(7) /1HS,1HR,1HP,1HL,
        !             6:      *    1HC,1H,,1HN/, S(8) /1H /
        !             7: C
        !             8: C     OPT(1) IF TRUE, PRINT SYMBOL TABLE
        !             9: C      IF FALSE, NOSYMBOL TABLE PRINTED
        !            10: C     OPT(2) IF TRUE, PRINT CROSS REFERENCES
        !            11: C      IF FALSE, NO REFS PRINTED
        !            12: C     OPT(3) IF TRUE, DO PASS 2; ELSE DO NOT
        !            13: C     OPT(4) IF TRUE GET LISTING OF PGM; ELSE DO NOT
        !            14: C      OPT(5) IF TRUE, COMPILE PGM AFTER PROCESSING; ELSE DO NOT
        !            15: C     SET OPTIONS FROM CARD READ IN BY "IN"
        !            16: C     P2 IS TURNED OFF ONLY ONCE A RUN;  IT CANNOT BE TURNED ON AGAIN
        !            17: C     OPTIONS CARD IS ONLY ACCEPTED IF SYNTAX ON CARD IS OK
        !            18: C     SYNTAX IS C* FOLLOWED BY AT LEAST ONE OPTION OF THEFORM
        !            19: C     OPT BLANKS, OPT N, AT LEAST ONE OF (S,R,P,L,C), OPT BLANKS
        !            20: C     WHERE OPTIONS ARE SEPARATEDBY COMMAS
        !            21: C
        !            22:       DO 10 I=1,5
        !            23:         J(I) = 0
        !            24:    10 CONTINUE
        !            25:       IP = 2
        !            26:    20 IP = IP + 1
        !            27:       IF (IP.GE.73) GO TO 60
        !            28: C      DEBLANK LEADING BLANKS
        !            29:       IF (CARD(IP).EQ.S(8)) GO TO 20
        !            30:       L = 1
        !            31: C
        !            32: C     CHECK FOR NEGATIVE
        !            33: C
        !            34:       IF (CARD(IP).NE.S(7)) GO TO 30
        !            35:       L = -1
        !            36:       IP = IP + 1
        !            37:       IF (IP.GE.73) GO TO 60
        !            38:    30 DO 40 I=1,5
        !            39:         IF (S(I).NE.CARD(IP)) GO TO 40
        !            40:         J(I) = J(I) + L
        !            41:         GO TO 50
        !            42:    40 CONTINUE
        !            43:       GOTO 100
        !            44: C
        !            45: C     FLUSH BLANKS TO NEXT COMMA
        !            46: C
        !            47:    50 IP = IP + 1
        !            48:       IF (IP.GE.73) GO TO 60
        !            49:       IF (CARD(IP).EQ.S(6)) GO TO 20
        !            50:       IF(CARD(IP).NE.S(8)) GOTO 100
        !            51:       GO TO 50
        !            52:    60 DO 90 K=1,5
        !            53:         IF (J(K)) 70, 90, 80
        !            54:    70   OPT(K) = .FALSE.
        !            55:         GO TO 90
        !            56: C     DO NOT LET USER TURN ON PASS2 AFTER WE TURN IT OFF
        !            57:    80   IF (K.EQ.3 .AND. .NOT.OPT(3)) GO TO 90
        !            58:         OPT(K) = .TRUE.
        !            59:    90 CONTINUE
        !            60:  100  RETURN
        !            61:       END

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