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

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.