/*eina convert a gf into an Einstein A */
double eina(double gf, 
	  double enercm, 
	  double gup);