blob: 3924f1413cd30b9b7d6e83c4584ee8e67afcd976 (
plain) (
blame)
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# AMOV -- Copy a vector (generic). The operation is carried out in such
# a way that the result is the same whether or not the output vector
# overlaps the input vector.
procedure amovd (a, b, npix)
double a[ARB], b[ARB]
int npix, i, a_first, b_first
begin
call zlocva (a, a_first)
call zlocva (b, b_first)
if (a_first == b_first)
return
if (a_first < b_first) {
do i = npix, 1, -1
b[i] = a[i]
} else {
do i = 1, npix
b[i] = a[i]
}
end
|
