/*lget worker routine for Kevin Volk quantum heating routines for grains */
long lget(float avals[], 
	  long int nvals, 
	  double target);