/*-------------------------------------------------------------------
  xupper(string)
   returns string converted to upper case
   Mark McDonald 2008
  -------------------------------------------------------------------*/
char *xupper(char *x){
  char *xret;
  strcpy(xret,x);
  strupr(xret);
  return(xret);
}//xupper