diff options
Diffstat (limited to 'sys/mwcs/gen/mwvtranr.x')
-rw-r--r-- | sys/mwcs/gen/mwvtranr.x | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/sys/mwcs/gen/mwvtranr.x b/sys/mwcs/gen/mwvtranr.x new file mode 100644 index 00000000..ca705c8b --- /dev/null +++ b/sys/mwcs/gen/mwvtranr.x @@ -0,0 +1,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 |