lenocc.for

来自「This Source-Navigator, an IDE for C/C++/」· FOR 代码 · 共 12 行

      integer function lenocc(c)
      character*(*) c
      lenocc = len(c)
      do 1 i=len(c),1,-1
         if(c(i:i).ne.' ') then
           lenocc = i
           return
         endif
   1  continue
      lenocc = 0
      end