blob: 214be533fb4bcc7831fe2c1fef02663318f2f3e3 (
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
27
28
29
30
|
include <smw.h>
# SMW_GAPID -- Get aperture id.
procedure smw_gapid (smw, index1, index2, apid, maxchar)
pointer smw #I SMW pointer
int index1 #I Spectrum index
int index2 #I Spectrum index
char apid[maxchar] #O Aperture id
int maxchar #I Maximum number of characters
pointer ptr
begin
switch (SMW_FORMAT(smw)) {
case SMW_ND:
call strcpy (Memc[SMW_APID(smw)], apid, maxchar)
case SMW_ES, SMW_MS:
if (index1 < 0 || index1 > SMW_NSPEC(smw))
call error (1, "smw_gapid: index out of bounds")
ptr = Memi[SMW_APIDS(smw)+index1-1]
if (index1 == 0 || ptr == NULL)
call strcpy (Memc[SMW_APID(smw)], apid, maxchar)
else
call strcpy (Memc[ptr], apid, maxchar)
}
end
|
