is_even.pro

来自「IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。」· PRO 代码 · 共 34 行

; $Id: is_even.pro,v 1.1.1.1 2002/03/12 11:53:47 riccardi Exp $           
;           
; A. Riccardi, Dipartimento di Astronomia di Firenze (Italy).         
; e-mail address: [e-mail]           
; Please, send me a message if you modify this code.    
    
    
function is_even, value         
;+           
; NAME:           
;       IS_EVEN           
;           
; PURPOSE:          
;       IS_EVEN returns true (1B) if its argument is even.
;		False (0B) otherwais.          
;
; CATEGORY:           
;       Utility          
;           
; CALLING SEQUENCE:           
;       Result = IS_EVEN(Value)           
;           
; INPUTS:
;		Value:	scalar or array.
;
; OUTPUT:
;		Result: byte scalar or array (same size of Value).
;           
; MODIFICATION HISTORY:           
;       Written by:     A. Riccardi; March, 1995.           
;-          
    return, byte(not(value mod 2B)) mod 2B
end