Return to FIXLAB.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE FIXLAB(ND)
        !             2: C
        !             3: C     ROUTINE SETS END-OF-DEF-STMT NO FOR LABELS
        !             4: C     WHEN CALLED BY END STMT, FIXES ALL LABEL DEFS YET UNBOUND
        !             5: C     TO THE END OF PGM STMT NO.  WHEN CALLED BY DO STMT
        !             6: C     FIXES UP ALL LABELS AT THE LEVEL OF THE CURRENT
        !             7: C     DO TO END-OF-DO STMT NO;  ND TRUE MEANS AN END STMT CALLED FIXLAB
        !             8: C
        !             9:       LOGICAL ND
        !            10:       INTEGER DOLIST, DOPT, BNEXT, SYMHD, DSA, PDSA
        !            11:       COMMON /CTABL/ LDSA, PDSA, DSA(5000)
        !            12:       COMMON /DOS/ DOPT, LDO, DOLIST(192)
        !            13:       COMMON /FACTS/ NAME, NOST, ITYP, IASF
        !            14:       COMMON /TABL/ NEXT, LABHD, SYMHD, BNEXT
        !            15:       LEV = -DOPT/6
        !            16:       I = LABHD
        !            17:    10 IF (I.EQ.0) RETURN
        !            18:       K = IGATT1(I,2)
        !            19:       IF (K.NE.1) GO TO 30
        !            20:       K = IGATT1(I,1)
        !            21:       IF (K.NE.1) GO TO 30
        !            22:       K = DSA(I+2)
        !            23:       IF (ND) GO TO 20
        !            24:       IF (DSA(K+1).EQ.LEV) DSA(K+1) = NOST
        !            25:       GO TO 30
        !            26:    20 IF (DSA(K+1).LE.0) DSA(K+1) = NOST
        !            27:    30 I = DSA(I+3)
        !            28:       GO TO 10
        !            29:       END

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