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

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.