program nod1
c
c
c
      character*17 t0
      character*12 t1 
      character*11 t2
      character*9  g0  
      character*40 g3(120), g5(120), g7(120)
      character*42 g1(120) 
      character*10 fname, gname
c
      write(6,*) ' '
      write(6,*) 'please print the time at which you would like to have'
      write(6,*) '   the graph; MUST be a FLOATING point number.'
      write(6,*) '          [example:  7.0] '
      write(6,*) ' '
      read(5,77, err=901, end=903) gtime
 77   format(f12.6)
c
      write(6,*) ' '
      write(6,*) 'please print the name of the file to be processed '
      read(5,79) fname
      write(6,*) ' '
      write(6,*) 'please print the name of the graphic file '
      read(5,79) gname
 79   format(a10)
c
      open(10, file=fname)        
      open(7, file=gname)
c
   1  continue
      read (10,111, end=903) t0
 111  format(a17)
        if(t0.eq.'  total time host') then
          read(10,101, end= 903) t1, t2, t3
                       if (t3.eq.gtime) then
                           go to 7 
                       else
                           go to 1
                       endif
 101      format(a12,a11, f12.6)
        else 
      go to 1
        endif
c
 7    i = 1
 71    continue
c
      read(10,103) g0, g1(i)
 103  format(a9, a42)
      if (g1(i).eq.' ') then
         go to 201    
      else
         i = i + 1
         go to 71
      endif
c
 201  i = 1 
 1201 continue
      read(10,105) g0, g3(i)
 105  format(a9, a40)
      if (g3(i).eq.' ') then
         go to 301 
      else
         i = i + 1
         go to 1201 
      endif
c
 301  i = 1
 1301 continue
      read(10,105) g0, g5(i)
      if (g5(i).eq.' ') then
         max = i
         go to 401
      else
         i = i + 1
         go to 1301
      endif
c
 401  i = 1 
 1401 continue
      read(10,105) g0, g7(i)
          if ((g7(1).ne.'*').or.(g7(1).ne.'-')) then
              go to 999
          endif
      if (g7(i).eq.' ') then
         go to 501
      else
         i = i + 1
         go to 1401
      endif
c
  501 continue
      
      write(6,104) t2, t3
      write(7,*) ' '
      write(7,113) gname
      write(7,*) ' '
      write(7,104) t2, t3
      write(7,*) ' '
  104 format(a11, f12.6)
  113 format('output file: ',a10)
c
      do 555 i = 1, max 
      write(6,106) g1(i),g3(i),g5(i),g7(i)
 106  format(a42,a40,a40,a40)
       write(7,106) g1(i),g3(i), g5(i), g7(i)
 555  continue
      go to 905 
c
 999  continue
c
      write(6,104) t2, t3
      write(7,*) ' '
      write(7,113) gname
      write(7,*) ' '
      write(7,104) t2, t3
      write(7,*) ' '
c 
      do 557 i = 1, max 
      write(6,106) g1(i),g3(i),g5(i)
      write(7,106) g1(i),g3(i), g5(i)
 557  continue
c
  33  continue
      go to 905
 901  write(6,*) 'Error in input; Please rerun checking the input! '  
      go to 905
 903  write(6,*) '  End of File reached: '
      write(6,*) '      time t = ', gtime,' does not exist!'
      write(6,*) '  OR'
      write(6,*) '      file "', fname,'" is not the right one!'
 905  continue
      stop 
      end