blob: 0ed73b35052a76274f38f69b24831c8d5fb830ea (
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
31
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include "qpoe.h"
# QP_PUTX -- Set the complex value of the named header parameter. Type
# conversion is not permitted between complex and the other data types.
procedure qp_putx (qp, param, value)
pointer qp #I QPOE descriptor
char param[ARB] #I parameter name
complex value #I scalar parameter value
pointer pp
int qp_putparam()
errchk qp_putparam, syserrs
begin
# Lookup the parameter and get a pointer to the value buffer.
if (qp_putparam (qp, param, pp) != TY_COMPLEX)
call syserrs (SYS_QPBADCONV, param)
else if (pp == NULL)
call syserrs (SYS_QPNOVAL, param)
# Pass the new value.
Memx[pp] = value
# Update the parameter in the datafile.
call qp_flushpar (qp)
end
|
