MICROCERN/lnblnk.c

   1 /*
   2  * $Id$
   3  *
   4  */
   5 /*>    ROUTINE LNBLNK
   6   CERN PROGLIB# M432    LNBLNK          .VERSION KERNVMI  1.06  920511
   7   ORIG. 30/04/92, RDM + JZ
   8
   9   N = LNBLNK (CHLINE)   find last non-blank character in CHLINE
  10 */
  11       int lnblnk_(chline, len)
  12       char  *chline;
  13       int   len;
  14 {
  15       char  *chcur;
  16
  17       chcur = chline + len;
  18       while (chcur > chline)
  19         {  if (*--chcur != ' ')      goto exit; }
  20       return 0;
  21
  22 exit: return chcur+1 - chline;
  23 }
  24 /*> END <----------------------------------------------------------*/