int
calculate(hashref)
  SV * hashref;
INIT:
  HV * myhash;
  SV **svp;
  int keylen;
CODE:
char * name;
float theta;

  myhash = (HV *)SvRV(hashref);
  svp = hv_fetch(myhash,"NAME",4,0);
  if (svp) name = SvPV(*svp,keylen);
  svp = hv_fetch(myhash,"THETA",5,0);
  if (svp) theta = SvNV(*svp);
  printf("%s,%.1f\n",name,theta);
    .
    .
    .
  RETVAL = 1;
OUTPUT:
  RETVAL