subroutine surface_perturbation::cdfgam	(	real(kind=kind_phys), intent(in)	x,
		real(kind=kind_phys), intent(in)	alpha,
		real(kind=kind_phys), intent(in)	eps,
		integer	iflag,
		real(kind=kind_phys), intent(out)	cdfx
	)