Line data    Source code

       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           0 :       chcur = chline + len;
      18           0 :       while (chcur > chline)
      19           0 :         {  if (*--chcur != ' ')      goto exit; }
      20           0 :       return 0;
      21             : 
      22           0 : exit: return chcur+1 - chline;
      23           0 : }
      24             : /*> END <----------------------------------------------------------*/