1*47949SbosticC 2*47949SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47949SbosticC All rights reserved. 4*47949SbosticC 5*47949SbosticC %sccs.include.proprietary.f% 6*47949SbosticC 7*47949SbosticC @(#)ioitst.f 5.2 (Berkeley) 04/12/91 8*47949SbosticC 9*47949Sbostic 1043973Sbostic program ioitst 1143973Sbostic 1243973Sbostic character*80 buf 1343973Sbostic logical ioinit, iok, ictl, izro, iap 1443973Sbostic integer ftell 1543973Sbostic external ioinit, ftell 1643973Sbostic 1743973Sbostic if (iargc() .ge. 1) then 1843973Sbostic call getarg(1, buf) 1943973Sbostic ictl = (buf(1:1) .eq. 'T') 2043973Sbostic else 2143973Sbostic ictl = .true. 2243973Sbostic endif 2343973Sbostic 2443973Sbostic if (iargc() .ge. 2) then 2543973Sbostic call getarg(2, buf) 2643973Sbostic izro = (buf(1:1) .eq. 'T') 2743973Sbostic else 2843973Sbostic izro = .false. 2943973Sbostic endif 3043973Sbostic 3143973Sbostic if (iargc() .ge. 3) then 3243973Sbostic call getarg(3, buf) 3343973Sbostic iap = (buf(1:1) .eq. 'T') 3443973Sbostic else 3543973Sbostic iap = .false. 3643973Sbostic endif 3743973Sbostic 3843973Sbostic iok = ioinit(ictl, izro, iap, "FORT", .true.) 3943973Sbostic write(*,*) "ioinit returned", iok, "pos", ftell(10) 4043973Sbostic 4143973Sbostic 10 read(10,"(i3,a)",end=999) line, buf 4243973Sbostic write(6, "('0',i3,a)") line, buf(:lnblnk(buf)) 4343973Sbostic goto 10 4443973Sbostic 4543973Sbostic 999 write(6, "(f6.2)") 0.0 4643973Sbostic end 47