blob: 3f492daaccdfbd2cd29bc46895f821745dc42c3f (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <pmset.h>
include "mio.h"
# MIO_STATI -- Stat an MIO parameter.
int procedure mio_stati (mp, param)
pointer mp #I MIO descriptor
int param #I parameter to be set
begin
switch (param) {
case P_PMDES:
return (M_PM(mp))
case P_IMDES:
return (M_IM(mp))
case P_REGCOORDS:
return (M_REGCOORDS(mp))
case P_PMCLOSE:
return (M_PMCLOSE(mp))
default:
call syserr (SYS_PLINVPAR)
}
end
|
