subroutine surface_perturbation::dgamln	(	real(kind=kind_phys), intent(in)	x,
		real(kind=kind_phys), intent(out)	dgamlnout
	)