blob: 9378912f4eae31117dc5f4e4a3eaaa0ff474fb5d (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <qpset.h>
include "qpoe.h"
# QP_SETR -- Set an QPOE real valued parameter.
procedure qp_setr (qp, param, value)
pointer qp #I QPOE descriptor
int param #I parameter to be set
real value #I new value for parameter
begin
switch (param) {
case QPOE_BLOCKFACTOR:
QP_XBLOCK(qp) = value
QP_YBLOCK(qp) = value
case QPOE_XBLOCKFACTOR:
QP_XBLOCK(qp) = value
case QPOE_YBLOCKFACTOR:
QP_YBLOCK(qp) = value
}
end
|
