q_vmake.pro (Kronos IDL library)

;+
; Contains the q_vmake function
;
; :Author:
;    Baptiste Cecconi
;
; :History:
;    2005/01/13: Created
;
;    2005/01/13: Last Edit
;-
;
;+
; q_vmake is a function that <behavior desc here>
;
; :Returns:
;    <return desc here>
;
; :Params:
;    vin: in, required, type=sometype
;       A parameter named vin
;-
FUNCTION Q_vmake,vin

sv = size(vin)
nv = (sv(0) eq 1) + (sv(0) eq 2)*sv(2)

if sv(1) ne 3 or nv eq 0 then begin
    print,"Q_VMAKE : error, wrong argument size..."
    print," Use : Q_VMAKE,vin"
    print," > vector (vin) must be a vector (3) or a vector of vectors (3,n)"
    return,-1
endif

Q = dblarr(4,nv)
Q(0,*) = 0.d0
Q(1:3,*) = reform(double(vin),3,nv) 

return,reform(Q)
end