5 * Revision 1.1.1.1 1996/02/15 17:49:33 mclareni
10 CERN PROGLIB# M507 LENOCC .VERSION KERNIRT 1.05 920511
11 ORIG. 30/04/92, RDM + JZ
13 N = LENOCC (CHLINE) find last non-blank character in CHLINE
15 int lenocc_(chline, len)
19 static unsigned int blnk = 0x20202020;
25 if (len <= 24) goto small;
27 /* ---- handle long string */
29 /* look for trailing blank words */
31 wdcur = (unsigned int*) (chcur-4);
32 while (wdcur >= (unsigned int*)chline )
33 { if (*wdcur != blnk) break; wdcur--; }
35 /* find last non-blank character */
37 chcur = (char*) (wdcur+1);
38 while (chcur > chline)
39 { if (*--chcur != ' ') goto exit; }
42 exit: return chcur+1 - chline;
44 /* ---- handle short string */
47 while (chcur > chline)
48 { if (*--chcur != ' ') goto exit; }
51 /*> END <----------------------------------------------------------*/