Analyzer/UTILSUBS/squeeze.f - view

Return to squeeze.f CVS log

Up to [HallC] / Analyzer / UTILSUBS

File: [HallC] / Analyzer / UTILSUBS / squeeze.f (download)
Revision: 1.2, Fri May 24 15:03:33 1996 UTC (28 years, 4 months ago) by saw
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, nov2696, mduality, mar-24-2003, gep_online, gep3, fpi2, emc, e01004, bigcal, baryon, aug-12-2003, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS
Changes since 1.1: +5 -2 lines

(SAW) Relocate data statements for f2c compatibility

       SUBROUTINE squeeze(line,nonblank)
*
* $Log: squeeze.f,v $
* 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
* Initial revision
*
*
       character*(*) line
       integer nonblank
       integer string_length	!FUNCTION
       character*1 tab
       data tab/'	'/
c
c      removes all blanks and tabs from a string
c       and return nonblank length
c
       call NO_nulls(line)			!nulls=>' '
       nonblank=0
       LEN_line= string_length(line) 
       DO i=1,LEN_line
           if(line(i:i).ne.' '.and.line(i:i).ne.tab) then
		nonblank=nonblank+1			!skip blanks&tabs
		line(nonblank:nonblank)=line(i:i)
           elseif(line(i:).eq.' ') then		!nonblank < LEN_line 
		line(nonblank+1:)=' '			!quick check
		return
           endif
       ENDDO
       if(nonblank.lt.LEN_line) line(nonblank+1:)=' '
       return
       end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood