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     ! 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.