Return to FINDCM.f CVS log

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

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

1.1       root        1:       INTEGER FUNCTION FINDCM(K1)
                      2:       INTEGER K1(2)
                      3:       INTEGER PCOM, COM, SYMLEN
                      4:       LOGICAL COMPAR
                      5:       COMMON /COMS/ LCOM, PCOM, COM(300)
                      6:       COMMON /PARAMS/ INUT, I1, NOCHAR, SYMLEN, I2, I3, I4
                      7: C
                      8: C     ROUTINE FINDS COMMON BLOCK WHOSE NAME IS AT K1 IN COM
                      9: C     RETURNS INDEX IN COM OR 0 IF CANNOT FIND IT
                     10: C
                     11:       IF (PCOM-1) 30, 30, 10
                     12:    10 K = PCOM - 1
                     13:       KK = SYMLEN + 5
                     14:       DO 20 I=1,K,KK
                     15:         FINDCM = I
                     16:         IF (COMPAR(COM(I),K1)) GO TO 40
                     17:    20 CONTINUE
                     18:    30 FINDCM = 0
                     19:    40 RETURN
                     20:       END

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