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
|
# GREGISTER -- Register a list of images by calling the GEOTRAN task with the
# appropriate parameters.
procedure gregister (input, output, database, transforms, geometry, xmin, xmax,
ymin, ymax, xscale, yscale, ncols, nlines, xsample, ysample,
interpolant, boundary, constant, fluxconserve, nxblock, nyblock,
verbose)
string input
string output
string database
string transforms
string geometry
real xmin
real xmax
real ymin
real ymax
real xscale
real yscale
int ncols
int nlines
real xsample
real ysample
string interpolant
string boundary
real constant
bool fluxconserve
int nxblock
int nyblock
bool verbose
begin
# Declare local variables
string din, dout, ddata, dtran
# Get the parameters.
din = input
dout = output
ddata = database
dtran = transforms
# Call GEOTRAN.
geotran (input=din, output=dout, database=ddata, transforms=dtran,
geometry=geometry, xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax,
xscale=xscale, yscale=yscale, ncols=ncols, nlines=nlines,
interpolant=interpolant, boundary=boundary, constant=constant,
fluxconserve=fluxconserve, xsample=xsample, ysample=ysample,
nxblock=nxblock, nyblock=nyblock, xin=INDEF, yin=INDEF, xout=INDEF,
yout=INDEF, xshift=INDEF, yshift=INDEF, xmag=INDEF, ymag=INDEF,
xrotation=INDEF, yrotation=INDEF, verbose=verbose)
end
|
