(file) Return to squeeze.f CVS log (file) (dir) Up to [HallC] / Analyzer / UTILSUBS

Diff for /Analyzer/UTILSUBS/squeeze.f between version 1.1 and 1.2

version 1.1, 1994/02/22 20:02:45 version 1.2, 1996/05/24 16:03:33
Line 1 
Line 1 
        SUBROUTINE squeeze(line,nonblank)        SUBROUTINE squeeze(line,nonblank)
 * *
 * $Log$ * $Log$
   * Revision 1.2  1996/05/24 16:03:33  saw
   * (SAW) Relocate data statements for f2c compatibility
   *
 * Revision 1.1  1994/02/22 20:02:45  cdaq * Revision 1.1  1994/02/22 20:02:45  cdaq
 * Initial revision * Initial revision
 * *
 * *
        character*(*) line        character*(*) line
        integer nonblank        integer nonblank
          integer string_length    !FUNCTION
        character*1 tab        character*1 tab
        data tab/'       '/        data tab/'       '/
        integer string_length    !FUNCTION  
 c c
 c      removes all blanks and tabs from a string c      removes all blanks and tabs from a string
 c       and return nonblank length c       and return nonblank length

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Analyzer/Replay: Mark Jones, Documents: Stephen Wood
 Powered by
ViewCVS 0.9.2-cvsgraph-1.4.0