/usr/share/gnudatalanguage/astrolib/vect.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 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | function VECT,vctr,form,Format=Format,delim=delim
;+
; NAME:
; VECT
; PURPOSE:
; Print a set of numbers as a string with delimiters included
; EXPLANATION:
; This function returns the given vector in parenthesized coordinates
; as in the form (X,Y). No limit on the number of dimensions. Also
; note that the vector does not need to be numbers. It may also be a
; string vector. e.g. ['X','Y']
;
; CALLING SEQEUNCE:
; tmp = VECT( vctr, [ form, FORMAT = , DELIM = ] )
; INPUT:
; VCTR The vector to be displayed e.g. [56,44]
;
; OPTIONAL KEYWORD INPUT:
; FORMAT This KEYWORD allows the specification of a format for the
; elements. e.g.: VECT([2,3],format='(f7.1)') gives '(2.0,3.0)'
; DELIM This KEYWORD specifies the delimeter. The default is ',' but
; other useful examples might be ', ' or ':'
;
; OPTIONAL INPUT
; FORM This parameter may be used instead of the keyword FORMAT
;
; OUTPUT:
; tmp A returned string of the parenthesized vector
;
; Other Procedures/Functions Called:
; STRN
;
; HISTORY:
; 03-JUL-90 Version 1 written by Eric W. Deutsch
; 24-AUG-91 Format='' keyword added (E. Deutsch)
; 29-AUG-91 FORM parameter added (E. Deutsch)
; Converted to IDL V5.0 W. Landsman September 1997
;-
if (n_params(0) lt 1) then begin
print,'Call: IDL> stringvar=VECT(vector,[FORMAT],[FORMAT=])'
print,"e.g.: IDL> tmp=VECT([512,512]) & print,'Center: ',tmp"
return,''
endif
if (n_params(0) lt 2) then FORM=''
if (n_elements(vctr) lt 1) then return,''
if (n_elements(Format) eq 0) then Format=''
if (n_elements(delim) eq 0) then delim=','
if (FORM ne '') then Format=FORM
tmp='('
for i=0,n_elements(vctr)-1 do begin
sep=delim
if (i eq 0) then sep=''
if (Format eq '') then tmp=tmp+sep+strn(vctr[i]) $
else tmp=tmp+sep+strn(vctr[i],Format=Format)
endfor
tmp=tmp+')'
return,tmp
end
|