numbers2pubs

  Program to add ID: information to .pub files from .nums control files.
    

  Clint Steele    2/11/98


    

 open (unit = 89,
*      access = 'sequential',
*      status = 'unknown',
*      form = 'formatted',
*      file = '/infobank/programs/dbase/numbers2pubs/'//
*              InName(1:Dot)//'conflicts')

         open (unit = 91,
*              access = 'sequential',
*              status = 'old',
*              form = 'formatted',
*              file = '/infobank/pubs/'//NumLine(1:2)//'/'//
*                     NumLine(1:Space-1)//'.pub')

             open (unit = 92,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  file = '/tmp/numbers2pubs.temp')

    

     read (90, '(q,a)', end = 99) NumLength, NumLine(1:NumLength)
         read (91, '(q,a)') IDLength, IDLine(1:IDLength)
                 read (91, '(q,a)', end = 4) IDLength, 
*                                  IDLine(1:IDLength)

    

             write (92, 2) NumLine(Space+1:NumLength)
             write (92, '(a)') IDLine(1:IDLength)
                 write (92, '(a)') IDLine(1:IDLength)
                 write (89, '(a)') IDLine(1:IDLength)
                 write (89, '(a)') NumLine(1:NumLength)
    

 call openem (1,0)
     call stringlen (NumLine(1:NumLength), NumLength)
             call system ('/bin/cp /tmp/numbers2pubs.temp '//
*                         '/infobank/pubs/'//NumLine(1:2)//'/'//
*                         NumLine(1:Space-1)//'.pub')
             call system ('/bin/rm /tmp/numbers2pubs.temp')