int
calculate(hash)
  HV * hash;
CODE:
char * name;
float theta;

  name = (char *)hv_fetch(hash,"NAME",4,0);
  theta = hv_fetch(hash,"THETA",5,0);
  printf("%s,%.1f\n",name,theta);
    .
    .
    .
  RETVAL = 1;
OUTPUT:
  RETVAL