.MCALL	.MODULE
.MODULE	GCLKS,RELEASE=V00,VERSION=30,COMMENT=<Close GKS>
	.ENABLE	LC,LSB
	.NLIST	CND
	.LIST	MEB
;+
;************************************************************************
;*.ST CLOSE GKS								*
;*.PAGE 								*
;*.X CLOSE								*
;*.X GKS								*
;*.X GCLKS								*
;*.LIT									*
;************************************************************************
;* CLOSE GKS						GKOP	Lma	*
;*									*
;* FORTRAN calling sequence:						*
;*	SUBROUTINE GCLKS						*
;*									*
;* Parameters:								*
;*		none							*
;*									*
;* Effect:	GKS is set into the operating state GKCL = 'GKS closed	*
;*		The GKS description table, GKS state list and the work-	*
;*		station description tables become unavailable. All GKS	*
;*		buffers are released and all GKS files are closed.	*
;*									*
;*	NOTE:	GKS can be reopened by invoking the function OPEN GKS.	*
;*									*
;* References:	4.11							*
;*		4.12							*
;*									*
;* Errors:								*
;*	 2	GKS not in proper state: GKS shall be in the state GKOP.*
;************************************************************************
;*.ELI									*
;************************************************************************
;-
	.LIBRARY /ERR.MLB/
	.MCALL	$ERR
	$ERR

.NLIST
	.INCLUDE /GOPSTA.INC/
	.INCLUDE /GERROR.INC/
.LIST

	.PSECT	G$$COD,RW,I,LCL,REL,CON

GCLKS::	$ER002
	BIC	#GKOP,G$OPST	; Set the state to OPEN.
	RTS	PC
	.END
                                                                            