subroutine surface_perturbation::gmln	(	real(kind=kind_phys), intent(in)	x,
		real(kind=kind_phys), intent(out)	y
	)