/*-------------------------------------------------------------------
  xlength(x)
   returns length of x
   Mark McDonald 2008
  -------------------------------------------------------------------*/
int *xlength(char *x){
  int xret = 0;
  xret = strlen(x);
return(xret);
}//xlength