1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# MW_VTRAN -- Transform an array of N-dimensional points, expressed as a
# 2D vector where v[1,i] is point I of vector V.
procedure mw_vtranr (ct, v1, v2, ndim, npts)
pointer ct #I pointer to CTRAN descriptor
real v1[ndim,npts] #I points to be transformed
real v2[ndim,npts] #O vector to get the transformed points
int ndim #I dimensionality of each point
int npts #I number of points
int i
errchk mw_ctranr
begin
do i = 1, npts
call mw_ctranr (ct, v1[1,i], v2[1,i], ndim)
end
|
