tblank(s) /* This function removes trailing blanks from s */
char *s;
{
  int slength;

  slength = strlen(s); /* Standard function strlen returns length of s */

  while((s[slength] == ' ' || s[slength] == '\t'))
    {
      --slength;
    }
  s[++slength] = '\0';
  return;
}