Return to SETNAM.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE SETNAM(KK)
        !             2:       LOGICAL ERR, SYSERR, ABORT
        !             3:       INTEGER STMT, PSTMT, S(5)
        !             4:       COMMON /FACTS/ NAME, NOST, ITYP, IASF
        !             5:       COMMON /DETECT/ ERR, SYSERR, ABORT
        !             6:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
        !             7:       DATA S(1) /66/, S(2) /42/, S(3) /30/, S(4) /38/, S(5) /43/
        !             8: C
        !             9: C     KK=11 FOR BLOCK DATA PGM;  KK=12 FOR MAIN PGM
        !            10: C     NAME POINTS TO SYMBOL TABLE ENTRY FOR NEW PGM
        !            11: C
        !            12:       IF (KK.EQ.11) GO TO 30
        !            13:       PSTMT = 1
        !            14:       DO 10 I=1,5
        !            15:         STMT(I) = S(I)
        !            16:    10 CONTINUE
        !            17:       NAME = LOOKUP(6,.FALSE.)
        !            18:       IF (SYSERR) RETURN
        !            19:       CALL SATT1(NAME, 8, 12)
        !            20:    20 RETURN
        !            21:    30 PSTMT = 5
        !            22:       STMT(PSTMT) = S(1)
        !            23:       NAME = LOOKUP(11,.FALSE.)
        !            24:       IF (SYSERR) RETURN
        !            25:       CALL SATT1(NAME, 8, 11)
        !            26:       GO TO 20
        !            27:       END

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