/*
 * $Id: lenocc.c,v 1.1.1.1 1996/02/15 17:51:03 mclareni Exp $
 *
 * $Log: lenocc.c,v $
 * Revision 1.1.1.1  1996/02/15 17:51:03  mclareni
 * Kernlib
 *
 */
#include "kernapo/pilot.h"
/*>    ROUTINE LENOCC
  CERN PROGLIB# M507    LENOCC          .VERSION KERNAPO  1.25  921121
  ORIG. 30/04/92, RDM + JZ

  N = LENOCC (CHLINE)   find last non-blank character in CHLINE
*/
#if defined(CERNLIB_QF_APO77)
      int lenocc_(chline, len)
      char  *chline;
      int   len;
#endif
#if defined(CERNLIB_QF_APO)
      int lenocc(chline, lenpar)
      char  *chline;
      short *lenpar;
#endif
{
      static unsigned int blnk = 0x20202020;
      unsigned int *wdcur;
      char  *chcur;
      int   ntail, i;
#if defined(CERNLIB_QF_APO)
      int   len;

      len   = *lenpar;
#endif
      chcur = chline + len;
      if (len <= 24)               goto small;

/* ----        handle long string             */

/*        look at the last ntail characters   */

      ntail = ((int)chcur & 3);
      for (i = ntail; i > 0; i--)
        { if (*--chcur != ' ')       goto exit; }

/*        look for trailing blank words   */

      wdcur = (unsigned int*) (chcur-4);
      while (wdcur >= (unsigned int*)chline )
        {  if (*wdcur != blnk)   break;  wdcur--; }

/*        find last non-blank character   */

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

exit: return chcur+1 - chline;

/* ----        handle short string            */

small:
      while (chcur > chline)
        {  if (*--chcur != ' ')      goto exit; }
      return 0;
}
/*> END <----------------------------------------------------------*/
#ifdef CERNLIB_TCGEN_LENOCC
#undef CERNLIB_TCGEN_LENOCC
#endif