blob: c3870c4a831a7224789c15c519642ef66d03ed35 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
include <smw.h>
# SMW_SMW -- Set MCWS pointer
procedure smw_smw (smw, line, mw)
pointer smw #I SMW pointer
int line #I Physical line
pointer mw #I MWCS pointer
begin
if (SMW_NMW(smw) == 1)
SMW_MW(smw,0) = mw
else {
if (line < 1 || line > SMW_NSPEC(smw))
call error (1, "smw_smw: aperture not found")
SMW_MW(smw,(line-1)/SMW_NSPLIT) = mw
}
end
|
