6 CERN PROGLIB# M432 LNBLNK .VERSION KERNVMI 1.06 920511
7 ORIG. 30/04/92, RDM + JZ
9 N = LNBLNK (CHLINE) find last non-blank character in CHLINE
11 int lnblnk_(chline, len)
18 while (chcur > chline)
19 { if (*--chcur != ' ') goto exit; }
22 exit: return chcur+1 - chline;
24 /*> END <----------------------------------------------------------*/