kseblk.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	kseblk (text, c, lc)

Function/Subroutine Documentation

kseblk()

subroutine kseblk	(	character*(*)	text,
		character*1	c,
		integer	lc
	)

Definition at line 18 of file kseblk.f.

Referenced by cinitracking(), creplst(), outtrace(), and xbgrun().

       implicit none
       integer lc
!
       character*(*) text
       character*1 c

       integer klena, l, i, lg
!
       l=klena(text)
       lc=0
        do   i=1, l
           if(text(i:i) .ne. ' ') then
               lc=lc+1
               if(text(i:i) .eq. c) then
                    text(lc:lc)=' '
               else
                    text(lc:lc)=text(i:i)
               endif
           endif
        enddo
       lg=len(text)
       if(lg .gt. lc) then
           text(lc+1:lg)=' '
       endif

Here is the caller graph for this function: