# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

define	DUMMY	6

include	<error.h>
include	<gset.h>

# T_CONRAN -- test NCAR contour routine CONRAN.

procedure t_conran ()

char	device[SZ_FNAME]
int	error_code, wkid
pointer	gp, gopen()

begin
	call clgstr ("device", device, SZ_FNAME)

	call gopks (STDERR)
	wkid = 1
	gp = gopen (device, NEW_FILE, STDGRAPH)
	call gopwk (wkid, DUMMY, gp)
	call gacwk (wkid)

	call tconan (error_code)
	if (error_code == 0)
	    call printf ("Test successful\n")
	else {
	    call printf ("Test was not successful. ierror = %d\n")
		call pargi (error_code)
	}
	
	call gdawk (wkid)
	call gclwk (wkid)
	call gclks ()

end