USGS InfoBank program -- rocks

rocks

  Program to remove accession information from .item files.

       

  Clint Steele      9/9/2004


    

              read (90, '(q,a)', end = 99)
     *            alinelength, aline(1:alinelength)

          write (itemname, 2) (item/100)*100,'s/',item,'.item'
          write (itemnumber, 3) item, '.item'
                  write (91, '(a)') aline(1:alinelength)

          open (unit = 90,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old',
     *          name = '/infobank/items/'//itemname)
          open (unit = 91,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = '/infobank/programs/dbase/rocks/'//itemnumber)