klena.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	klena (cha)

Function/Subroutine Documentation

klena()

integer function klena

(

character*(*)

cha

)

Definition at line 20 of file klena.f.

Referenced by __add2hyb.f__(), __add2nrfai.f__(), __checknrfai.f__(), __mknrfai.f__(), __mknrfaifromdat.f__(), __randomsel.f__(), __ranseeascii.f__(), __reanal.f__(), __reducebinsize.f__(), __reduceeachsize.bin.f__(), __reduceeachsize.binbyl.f__(), __reduceeachsize.f__(), __reducesize.f__(), __seeascii.f__(), __select.f__(), __smashskel.f__(), __smashskelsmallfileno.f__(), __smashskeltrial.f__(), __test.f__(), __timeslice.f__(), __timeslice2.f__(), __timesliceg77.f__(), and cwhatjob().

       implicit none
       character*(*) cha
       integer l

       l=len(cha)

       if(l <=  0 .or. cha == " " ) then
          klena=0
       else
          do   while (cha(l:l) .eq. ' ')
             l=l-1
          enddo
          klena=l
       endif

Here is the caller graph for this function: