Return to INREF.f CVS log

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

Annotation of researchv10no/cmd/pfort/INREF.f, revision 1.1

1.1     ! root        1:       INTEGER FUNCTION INREF(IDUM)
        !             2:       INTEGER REF, PREF
        !             3:       COMMON /CREF/ LREF, PREF, REF(100)
        !             4: C
        !             5: C     ROUTINE TO INPUT CALL TEMPLATES, RETURNS -1 FOR EOF,  0 FOR END
        !             6: C     OF REFS FOR THIS PGM UNIT, AND 1 FOR REF RETRIEVED
        !             7: C
        !             8:       READ (IDUM) PREF, K, (REF(L),L=1,PREF)
        !             9:       IF (K-3) 10, 30, 40
        !            10:    10 INREF = 1
        !            11:    20 RETURN
        !            12:    30 INREF = 0
        !            13:       GO TO 20
        !            14:    40 INREF = -1
        !            15:       GO TO 20
        !            16:       END

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