;+ ; NAME: ; ISARRAY ; PURPOSE: ; Test if the argument is an array or not. ; ; CALLING SEQUENCE: ; res = isarray(a) ; ; INPUTS: ; a - argument ; ; REVISION HISTORY: ; Rewritten from scratch, Ole Streicher, 2015 ; ;- FUNCTION isarray, a res = size(a) return, res[0] ne 0 END