1 files changed, 43 insertions, 0 deletions
diff --git a/pkg/images/imgeom/rotate.cl b/pkg/images/imgeom/rotate.cl
new file mode 100644
index 00000000..249fb50e
--- /dev/null
+++ b/pkg/images/imgeom/rotate.cl
@@ -0,0 +1,43 @@
+# ROTATE -- Rotate an image by calling the GEOTRAN task with the appropriate
+# parameters.
+
+procedure rotate (input, output, rotation, xin, yin, xout, yout, ncols, nlines,
+	interpolant, boundary, constant, nxblock, nyblock, verbose)
+
+string	input
+string	output
+real	rotation
+real	xin
+real	yin
+real	xout
+real	yout
+real	ncols
+real	nlines
+string	interpolant
+string	boundary
+real	constant
+int	nxblock
+int	nyblock
+bool	verbose
+
+
+begin
+	# Declare local variables.
+	string	tinput, toutput
+	real	trotation
+
+	# Get the parameters.
+	tinput = input
+	toutput = output
+	trotation = rotation
+
+	# Call GEOTRAN.
+	geotran (input=tinput, output=toutput, database="", xrotation=trotation,
+	    yrotation=trotation, xin=xin, yin=yin, xout=xout, yout=yout,
+	    xshift=INDEF, yshift=INDEF, xmin=1.0, xmax=ncols, ymin=1.0,
+	    ymax=nlines, xscale=1.0, yscale=1.0, ncols=INDEF, nlines=INDEF,
+	    xmag=INDEF, ymag=INDEF, interpolant=interpolant,
+	    boundary=boundary, constant=constant, xsample=1., ysample=1.,
+	    fluxconserve=no, nxblock=nxblock, nyblock= nyblock, verbose=verbose)
+end
+