Return to TOKPNO.f CVS log

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

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

1.1       root        1:       LOGICAL FUNCTION TOKPNO(K1, K2, LL)
                      2: C
                      3: C     ROUTINE RECOGNIZES A POSITIVE INTEGER CONSTANT
                      4: C     IN STMT(K1)-STMT(K2-1), AND RETURNS ITS VALUE IN LL
                      5: C
                      6:       INTEGER STMT, PSTMT
                      7:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
                      8:       TOKPNO = .FALSE.
                      9:       CALL NEXTOK(K1, K2, K)
                     10:       IF (K.NE.1) RETURN
                     11:       K=K2-1
                     12:       LL = 0
                     13:       DO 10 KK=K1,K
                     14:         LL = 10 * LL + STMT(KK)
                     15:    10 CONTINUE
                     16:       IF (LL.GT.0) TOKPNO = .TRUE.
                     17:       RETURN
                     18:       END

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