home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / eispack-1.0-src.tgz / tar.out / contrib / eispack / ex / comments.f < prev    next >
Text File  |  1996-09-28  |  2KB  |  79 lines
  1.  
  2. c
  3. c     this program will strip off initial program comments
  4. c     from a sequencial file. 
  5. c     uses fortran 77 (works fine on unix)
  6. c
  7. c     comments should be directed to:
  8. c
  9. c        jack dongarra
  10. c        mathematics and computer science division
  11. c        argonne national laboratory
  12. c        argonne, illinois 60439
  13. c
  14. c        phone: 312-972-7246
  15. c        arpanet: dongarra@anl-mcs
  16. c
  17. c
  18.       character*16 names,filen
  19.       character line*80,line2*80
  20.       integer cc
  21. c
  22. c      write(6,6969)
  23. c 6969 format(' input the file name')
  24. c      read(5,6968) filen
  25. c 6968 format(a)
  26. c      open(unit=9,file=filen,iostat=istat)
  27. cc      write(6,*)' file open name=',filen
  28. c      if( istat .ne. 0 ) write(6,10) istat
  29. c   10 format(' error from call to file on unit 9 ',i4)
  30. c      rewind 9
  31.    11 continue
  32.       read(5,40,end=999)line
  33.       call out(line)
  34.       read(5,40,end=999)line
  35.       call out(line)
  36.       if( line(6:6) .eq. 'X' ) then
  37.          read(5,40,end=999)line
  38.          call out(line)
  39.       endif
  40.       read(5,40,end=999)line
  41.       call out(line)
  42.       if( line(1:1) .ne. 'C' ) then
  43.    15    continue
  44.          read(5,40,end=999)line
  45.          call out(line)
  46.          if( line(1:1) .eq. 'C' ) go to 30
  47.          go to 15
  48.       end if    
  49.    30 continue
  50.       read(5,40,end=999)line
  51.       read(5,40,end=999)line2
  52.    31 continue
  53.          if( line2(1:1) .eq. 'C' ) then
  54.             call out(line)
  55.             line = line2
  56.             read(5,40,end=999)line2
  57.             go to 31
  58.          end if
  59.       write(6,40)'C'
  60.    35 continue
  61.          read(5,40,end=999)line
  62.    40    format(a)
  63.          if ( line(7:9) .eq. 'END' ) go to 11
  64.       go to 35
  65.   999 continue
  66.       stop
  67.       end
  68.       subroutine out(line)
  69.       character line*(*)
  70. c
  71.       i = 73
  72.    10 continue
  73.          i = i - 1
  74.          if( line(i:i) .eq. ' ' ) go to 10
  75.       write(6,40)line(1:i)
  76.    40 format(a)
  77.       return
  78.       end
  79.