blob: 3749e3142cc0e9f47597ceacce0e67ace12c5582 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
$for (silrdx)
# IMTR2 -- Generic transpose. The arrays need not be identical.
procedure imtr2$t (a, b, nx, ny)
PIXEL a[nx, ny], b[ny, nx]
int nx, ny, x, y
begin
do x = 1, nx
do y = 1, ny
b[y, x] = a[x, y]
end
$endfor
|
