/usr/share/gnudatalanguage/astrolib/isarray.pro is in gdl-astrolib 2018.02.16+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ;+
; 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
|