Analyzer/UTILSUBS/no_leading_blanks.f - view

Return to no_leading_blanks.f CVS log

Up to [HallC] / Analyzer / UTILSUBS

File: [HallC] / Analyzer / UTILSUBS / no_leading_blanks.f (download)
Revision: 1.2, Fri May 24 15:02:54 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 NO_leading_blanks(string)
*
* $Log: no_leading_blanks.f,v $
* Revision 1.2  1996/05/24 16:02:54  saw
* (SAW) Relocate data statements for f2c compatibility
*
* Revision 1.1  1994/02/22 20:01:36  cdaq
* Initial revision
*
*
       character*(*) string
       integer skip
       integer string_length	!FUNCTION
       character*1 tab
       data tab/'	'/ 
c
c      strips out leading blanks and tabs
c
	if(string.eq.' ') RETURN
	skip=0
	LEN_string= string_length(string)
	DO i=1,LEN_string
	  if(string(i:i).eq.' ' .or. string(i:i).eq.tab) then
	    skip=skip+1 
	  else				!not a tab or blank
	    if(skip.eq.0) RETURN
	    do k=skip+1,LEN_string
		string(k-skip:k-skip)=string(k:k)
	    enddo
	    string(LEN_string-skip+1:)=' '
	    RETURN
	  endif 
	ENDDO
	string=' '			!only tabs and blanks
	RETURN
	end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood