4.3BSD - /usr/src/usr.lib/libI77/test/ioitst.f

   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