        SUBROUTINE RLSDEV
	IMPLICIT NONE
	REAL*4 DUMMY
C
C
        INCLUDE DIGLIB$KOM:GCDSEL.PRM
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
