USGS InfoBank program -- test

test

          read (90, '(q,a)', end = 99)
     *        flength, afile(1:flength)
          read (92, '(q,a)', end = 98)
     *        length, aline(1:length)
              read (92, '(q,a)', end = 98)
     *            length, aline(1:length)

                  write (91, '(a)') afile(1:flength)

          open (unit = 92,
     *          access = 'sequential',
     *          status = 'unknown',
     *          form = 'formatted',
     *          name = afile(1:flength))

      call openem (1,-1)