[u/mrichter/AliRoot.git] / MICROCERN / lnblnk.c

/*
 * $Id$
 *
 */
/*>    ROUTINE LNBLNK
  CERN PROGLIB# M432    LNBLNK          .VERSION KERNVMI  1.06  920511
  ORIG. 30/04/92, RDM + JZ

  N = LNBLNK (CHLINE)   find last non-blank character in CHLINE
*/
      int lnblnk_(chline, len)
      char  *chline;
      int   len;
{
      char  *chcur;

      chcur = chline + len;
      while (chcur > chline)
        {  if (*--chcur != ' ')      goto exit; }
      return 0;

exit: return chcur+1 - chline;
}
/*> END <----------------------------------------------------------*/
Commit	Line	Data
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
	22	exit: return chcur+1 - chline;
	23	}
	24	/> END <----------------------------------------------------------/