CMake: removing qpythia from the depedencies
[u/mrichter/AliRoot.git] / MICROCERN / lnblnk.c
CommitLineData
f02e4cec 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
22exit: return chcur+1 - chline;
23}
24/*> END <----------------------------------------------------------*/