Return to TYPST2.f CVS log

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

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

1.1       root        1:       SUBROUTINE TYPST2(ASSMT)
                      2:       INTEGER PSTMT, STMT
                      3:       LOGICAL EQUALS, ASSMT
                      4:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
                      5: C
                      6: C     ALGORITHM FOR IDENTIFYING ASSIGNMENT STMTS:
                      7: C
                      8:       EQUALS = .FALSE.
                      9:       LEVEL = 0
                     10:       IGP = 0
                     11: C
                     12: C     62.....)     63.....=     65.....(     68.....,
                     13: C
                     14:       DO 40 I=PSTMT,NSTMT
                     15:         IF (STMT(I).EQ.65) LEVEL = LEVEL + 1
                     16:         IF (STMT(I).NE.62) GO TO 10
                     17:         LEVEL = LEVEL - 1
                     18:         IF (EQUALS) GO TO 40
                     19:         IF (LEVEL.EQ.0) IGP = IGP + 1
                     20:         IF (IGP.EQ.1 .AND. LEVEL.EQ.0 .AND. STMT(I+1).NE.63) GO TO 60
                     21:         GO TO 40
                     22:    10   IF (LEVEL) 50, 20, 30
                     23:    20   IF (STMT(I).EQ.68) GO TO 60
                     24:         IF (STMT(I).EQ.63) EQUALS = .TRUE.
                     25:         GO TO 40
                     26:    30   IF (STMT(I).EQ.63) GO TO 60
                     27:    40 CONTINUE
                     28:       IF (.NOT.EQUALS) GO TO 60
                     29:       ASSMT = .TRUE.
                     30:    50 RETURN
                     31:    60 ASSMT = .FALSE.
                     32:       GO TO 50
                     33:       END

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