cn2_momentum.pro

IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。

; $Id: cn2_momentum.pro,v 1.2 2002/03/14 11:49:10 riccardi Exp $

;+
;    CN2_MOMENTUM
;
;    Result = CN2_MOMENTUM(Z)
;
;    return CN2(Z)*Z^(Order)
;
;    where Order is set by COMMON BLOCK:
;        common cn2_momentum, order
;-
function cn2_momentum, z

	common cn2_momentum_block, order
	return, cn2(z)*z^order
end