ksplit.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ksplit (a, m, n, b, nr)

Function/Subroutine Documentation

ksplit()

subroutine ksplit	(	character*(*)	a,
		integer	m,
		integer	n,
		character*(*), dimension(n)	b,
		integer	nr
	)

Definition at line 2 of file ksplit.f.

Referenced by __add2nrfai.f__(), __checknrfai.f__(), __mknrfai.f__(), __mknrfaifromdat.f__(), __randomsel.f__(), __ranseeascii.f__(), __reanal.f__(), __reduceeachsize.bin.f__(), __reduceeachsize.binbyl.f__(), __reduceeachsize.f__(), __reducesize.f__(), __seeascii.f__(), __select.f__(), __smashskel.f__(), __smashskelsmallfileno.f__(), __smashskeltrial.f__(), checkenergy(), and checkptcls().

      implicit none
      character*(*)  a   ! input. e.g   abc xyz xxkxkxkk
      integer m          ! input.  max characters containable in b(i)
      integer n          ! input.  array size of b    
      character*(*) b(n) ! output.  field  value of i=1,2,...nr
      integer nr         ! output.  nr field is obtained

      integer klena, tl, bp, i, nc
      character*1 prev

      tl = klena(a)

      nr = 0
      prev = ' '
      do i = 1, tl
         if( a(i:i) .eq. ' ' ) then
            prev = ' '
         else
            if(prev .eq. ' ') then
               if(nr .ge. n) return  !!!!
               nr = nr + 1
               nc = 0
               prev = 'x'
            endif
            nc = nc + 1
            if(nc .eq. 1)  b(nr) = ' '
            if(nc .le. m) then
               b(nr)(nc:nc) = a(i:i)
            endif
         endif
      enddo

Here is the caller graph for this function: