USGS InfoBank program -- addhead

addhead

  Program to add header information to a file.

       

  list of files to be changed.

    

  script file that needs to be edited by replacing "!"

  or other strings with appropriate info.
  Then execute the script.
    

  Clint Steele


    

          read (90, '(q,a)', end=99)
     *        pathlength, path(1:pathlength)

          write (91, '(a,a)') 
     *        '/bin/cat /infobank/programs/html/dictionary2html/',
     *    'format_onoff.!_EQUIPMENT_TYPE.txt > /infobank/tmp/head.te
          write (91, '(a,a,a)')
     *        '/bin/cat ',path(1:pathlength),
     *        ' >> /infobank/tmp/head
          write (91, '(a,a,/)')
     *        '/bin/cp /infobank/tmp/head.temp ',
     *        path(1:pathlength)

      call openem (1,-1)