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

include	"clpset.h"

# CLGPSETA -- Get the string value of the named pset parameter.

procedure clgpseta (pp, pname, outstr, maxch)

pointer	pp			# pset descriptor
char	pname[ARB]		# parameter name
char	outstr[maxch]		# output string
int	maxch			# max chars out

pointer	clpset_parname()

begin
	call clgstr (PARNAME(pp,pname), outstr, maxch)
end