1 cdaq  1.1        SUBROUTINE squeeze(line,nonblank)
 2           *

 3 saw   1.2 * $Log: squeeze.f,v $
 4           * Revision 1.1  1994/02/22 20:02:45  cdaq
 5           * Initial revision
 6           *

 7 cdaq  1.1 *
 8                  character*(*) line
 9                  integer nonblank

10 saw   1.2        integer string_length	!FUNCTION

11 cdaq  1.1        character*1 tab
12                  data tab/'	'/
13           c
14           c      removes all blanks and tabs from a string
15           c       and return nonblank length
16           c
17                  call NO_nulls(line)			!nulls=>' '
18                  nonblank=0
19                  LEN_line= string_length(line) 
20                  DO i=1,LEN_line
21                      if(line(i:i).ne.' '.and.line(i:i).ne.tab) then
22           		nonblank=nonblank+1			!skip blanks&tabs
23           		line(nonblank:nonblank)=line(i:i)
24                      elseif(line(i:).eq.' ') then		!nonblank < LEN_line 
25           		line(nonblank+1:)=' '			!quick check
26           		return
27                      endif
28                  ENDDO
29                  if(nonblank.lt.LEN_line) line(nonblank+1:)=' '
30                  return
31                  end