aboutsummaryrefslogtreecommitdiff
path: root/sys/clio/clppsetb.x
blob: 5ada363f8f8486c0bbb9cd0b56176ec482c9ec0b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include	"clpset.h"

# CLPPSETB -- Set the boolean value of a pset parameter.

procedure clppsetb (pp, parname, bval)

pointer	pp			# pset descriptor
char	parname[ARB]		# parameter name
bool	bval			# new value of parameter

pointer	clpset_parname()

begin
	call clputb (PARNAME(pp,parname), bval)
end