blob: 5f0f852dd705874a673e96235e7a178bbf2f21df (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# AMINK -- Compute the minimum of a constant and a vector (generic).
procedure aminkx (a, b, c, npix)
complex a[ARB]
complex b
complex c[ARB]
int npix, i
real abs_b
begin
abs_b = abs (b)
do i = 1, npix
if (abs(a[i]) <= abs_b)
c[i] = a[i]
else
c[i] = b
end
|
