Fixes for object target dependencies
[u/mrichter/AliRoot.git] / 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 <----------------------------------------------------------*/