ksupblank.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ksupblank (text, nc)

Function/Subroutine Documentation

ksupblank()

subroutine ksupblank	(	character*(*)	text,
		integer	nc
	)

Definition at line 10 of file ksupblank.f.

      implicit none
      character*(*) text  ! in/out. string
      integer nc          ! output.  resultant string length
!
!         supress two or more blanks into one blank
!      
      integer i, klena, tl 

      i = 1
      do while (i .ne. 0)
         tl = klena(text)
         i = index(text(1:tl), "  ")
         if(i .gt. 0) then
            text(i+1:tl) = text(i+2:tl)
         endif
      enddo
      nc = tl