void iovaldouble_(vn,df)
int *vn;
double *df;
  /*  Return iovalreal's single precision value as a double		*/

{
  void iovalreal_();
  float f;

  iovalreal_(vn,&f);
  *df = f;
  return;
}