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

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.