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