;------------------------------------------------------------------------------ ; Autor: Andreas Reigber ; Datum: 23.7.1998 ; ; Gives back if a number is even (2) oder odd (1) ;------------------------------------------------------------------------------ ;------------------------------------------------------------------ ; This software has been released under the terms of the GNU Public ; license. See http://www.gnu.org/copyleft/gpl.html for details. ;------------------------------------------------------------------ function oddeven,value if (size(value))[0] ne 0 then begin print,'ERROR : not a scalar !' goto,ende endif if (size(value))[1] ne 2 then begin print,'ERROR : floating point value!' goto,ende endif return,-(abs(value) mod 2)+2 ende: return,-1 end