#include <linux/types.h>
  #include <linux/errno.h>
  #include <asm/uaccess.h>
  
  int
  stfd(void *frS, void *ea)
  {
  #if 0
  #ifdef DEBUG
  	printk("%s: S %p, ea %p: ", __func__, frS, ea);
  	dump_double(frS);
  	printk("
  ");
  #endif
  #endif
  
  	if (copy_to_user(ea, frS, sizeof(double)))
  		return -EFAULT;
  
  	return 0;
  }