/* Searches string str for character chr (case insensitive) */

#include "plplot.h"
#include <ctype.h>
#ifdef PLSTDC
#include <string.h>
#else
extern char *strchr();
#endif

PLINT stsearch(str,chr)
char *str,chr;
{
    if (strchr(str,chr))
        return((PLINT)1);
    else if(strchr(str,toupper(chr)))
        return((PLINT)1);
    else
        return((PLINT)0);
}