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 > /tmp/head.temp'

     write (91, '(a,a,a)')
*        '/bin/cat ',path(1:pathlength),
*        ' >> /tmp/head.temp'

     write (91, '(a,a,/)')
*        '/bin/cp /tmp/head.temp ',
*        path(1:pathlength)

    

 call openem (1,-1)