	SUBROUTINE RLSDEV
C
C
	COMMON /GCDSEL/ IDEV
C
C	RELEASE CURRENT DEVICE
C
	IF (IDEV .NE. 0) CALL GSDRVR(6,DUMMY,DUMMY)
	IDEV = 0
C
C	ALL DONE HERE
C
	RETURN
	END
