Return to ioitst.f CVS log

Up to [CSRG BSD Unix] / 43BSDReno / lib / libI77 / test

Annotation of 43BSDReno/lib/libI77/test/ioitst.f, revision 1.1.1.1

1.1       root        1:        program ioitst
                      2: 
                      3:        character*80 buf
                      4:        logical ioinit, iok, ictl, izro, iap
                      5:        integer ftell
                      6:        external ioinit, ftell
                      7: 
                      8:        if (iargc() .ge. 1) then
                      9:                call getarg(1, buf)
                     10:                ictl = (buf(1:1) .eq. 'T')
                     11:        else
                     12:                ictl = .true.
                     13:        endif
                     14: 
                     15:        if (iargc() .ge. 2) then
                     16:                call getarg(2, buf)
                     17:                izro = (buf(1:1) .eq. 'T')
                     18:        else
                     19:                izro = .false.
                     20:        endif
                     21: 
                     22:        if (iargc() .ge. 3) then
                     23:                call getarg(3, buf)
                     24:                iap = (buf(1:1) .eq. 'T')
                     25:        else
                     26:                iap = .false.
                     27:        endif
                     28: 
                     29:        iok = ioinit(ictl, izro, iap, "FORT", .true.)
                     30:        write(*,*) "ioinit returned", iok, "pos", ftell(10)
                     31: 
                     32:    10  read(10,"(i3,a)",end=999) line, buf
                     33:        write(6, "('0',i3,a)") line, buf(:lnblnk(buf))
                     34:        goto 10
                     35: 
                     36:   999  write(6, "(f6.2)") 0.0
                     37:        end

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