00001 /* 00002 * $Id: lnblnk.c,v 1.2 2009/02/16 08:04:39 schubert Exp $ 00003 * 00004 * Revision 1.1.1.1 1999/05/18 15:55:28 fca 00005 * AliRoot sources 00006 * 00007 * Revision 1.1.1.1 1996/02/15 17:49:32 mclareni 00008 * Kernlib 00009 * 00010 */ 00011 /*> ROUTINE LNBLNK 00012 CERN PROGLIB# M507 LNBLNK .VERSION KERNHPX 1.02 920511 00013 ORIG. 30/04/92, RDM + JZ 00014 00015 N = LNBLNK (CHLINE) find last non-blank character in CHLINE 00016 */ 00017 #if defined(CERNLIB_QX_SC) 00018 int lnblnk_(chline, len) 00019 #endif 00020 #if defined(CERNLIB_QXNO_SC) 00021 int lnblnk(chline, len) 00022 #endif 00023 char *chline; 00024 int len; 00025 { 00026 char *chcur; 00027 00028 chcur = chline + len; 00029 while (chcur > chline) 00030 { if (*--chcur != ' ') goto exit; } 00031 return 0; 00032 00033 exit: return chcur+1 - chline; 00034 } 00035 /*> END <----------------------------------------------------------*/
1.3.9.1