Return to FINDCM.f CVS log

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

researchv10 Norman

      INTEGER FUNCTION FINDCM(K1)
      INTEGER K1(2)
      INTEGER PCOM, COM, SYMLEN
      LOGICAL COMPAR
      COMMON /COMS/ LCOM, PCOM, COM(300)
      COMMON /PARAMS/ INUT, I1, NOCHAR, SYMLEN, I2, I3, I4
C
C     ROUTINE FINDS COMMON BLOCK WHOSE NAME IS AT K1 IN COM
C     RETURNS INDEX IN COM OR 0 IF CANNOT FIND IT
C
      IF (PCOM-1) 30, 30, 10
   10 K = PCOM - 1
      KK = SYMLEN + 5
      DO 20 I=1,K,KK
        FINDCM = I
        IF (COMPAR(COM(I),K1)) GO TO 40
   20 CONTINUE
   30 FINDCM = 0
   40 RETURN
      END

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