BSD 4_1c_2 release

[unix-history] / usr / src / usr.lib / libF77 / lnblnk_.c

/*
char id_lnblnk[] = "@(#)lnblnk_.c       1.1";
*
* find last occurrence of a non-blank character in string
*
* calling sequence:
*      character*(*) string
*      indx = lnblnk (string)
* where:
*      indx will be the index of the last occurence
*      of a non-blank character in string, or zero if not found.
*/

long lnblnk_(str, slen)
char *str; long slen;
{
       register char *p = str + slen;

       while (--p >= str && *p == ' ' ) ;
       return((long)(++p - str));
}