Return to IN.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE IN(CARD, INUT)
        !             2: C
        !             3:       INTEGER CARD(80)
        !             4:       LOGICAL EOF
        !             5: C
        !             6:       DATA EOF /.FALSE./
        !             7:       DATA IDOT /1H./
        !             8: C
        !             9:       IF (EOF) RETURN
        !            10: C
        !            11: C     READ A CARD. PHYSICAL EOF SHOULD TRANSFER TO 100
        !            12: C
        !            13:       READ (INUT,99999,END=100) CARD
        !            14: 99999 FORMAT (80A1)
        !            15:       IF (CARD(1).NE.IDOT) RETURN
        !            16: C
        !            17: C     HERE FOR EOF
        !            18: C
        !            19:  100  CARD(1) = IDOT
        !            20:       EOF = .TRUE.
        !            21: C
        !            22:       RETURN
        !            23:       END

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