blob: 909c6f12f1c54f10125301c0f237ec792f096c8b (
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
|
include "ccdred.h"
# DOPROC -- Call the appropriate processing procedure.
#
# There are four data type paths depending on the readout axis and
# the calculation data type.
procedure doproc (ccd)
pointer ccd # CCD processing structure
begin
switch (READAXIS (ccd)) {
case 1:
switch (CALCTYPE (ccd)) {
case TY_SHORT:
call proc1s (ccd)
default:
call proc1r (ccd)
}
case 2:
switch (CALCTYPE (ccd)) {
case TY_SHORT:
call proc2s (ccd)
default:
call proc2r (ccd)
}
}
end
|
