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
52
|
include "../lib/apphotdef.h"
include "../lib/photdef.h"
include "../lib/phot.h"
# AP_ARRAYR -- Procedure to move apphot parameters stored as real arrays
# into a user allocated array.
procedure ap_arrayr (ap, param, array)
pointer ap # pointer to apphot structure
int param # parameter
real array[ARB] # array
pointer phot
begin
phot = AP_PPHOT(ap)
switch (param) {
case APERTS:
call amovr (Memr[AP_APERTS(phot)], array, AP_NAPERTS(phot))
case MAGS:
call amovr (Memr[AP_MAGS(phot)], array, AP_NAPERTS(phot))
case MAGERRS:
call amovr (Memr[AP_MAGERRS(phot)], array, AP_NAPERTS(phot))
default:
call error (0, "AP_ARRAYR: Unknown apphot real array")
}
end
# AP_ARRAYD -- Procedure to move apphot parameters stored as double arrays
# into a user allocated array.
procedure ap_arrayd (ap, param, array)
pointer ap # pointer to apphot structure
int param # parameter
double array[ARB] # array
pointer phot
begin
phot = AP_PPHOT(ap)
switch (param) {
case AREAS:
call amovd (Memd[AP_AREA(phot)], array, AP_NAPERTS(phot))
case SUMS:
call amovd (Memd[AP_SUMS(phot)], array, AP_NAPERTS(phot))
default:
call error (0, "AP_ARRAYD: Unknown apphot double array")
}
end
|
