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     ! 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.