SUBROUTINE GET_VMSDEFDIR (DIRECTORY_NAME)
	CHARACTER*(*) DIRECTORY_NAME
C***************************************************************************
C***
C***	THIS ROUTINE WILL RETURN THE DIRECTORY SPECIFICATION INCLUDING THE
C***	DEFAULT DEVICE OF THE CURRENT VAX/VMS DEFAULT DIRECTORY.
C***
C***	PARAMETER :
C***
C***		DIRECTORY_NAME	(C*?)	RETURNED DIRECTORY SPECIFICATION
C***
C***************************************************************************
C*MCT
C
C***	LOCAL DECLARATIONS
	CHARACTER*200 DIRSPEC
C
C***	FIRST DETERMINE THE LENGTH OF OUT OUTPUT STRING
	L = LEN (DIRECTORY_NAME)
C
C***	GET THE DIRECTORY SPEC
	CALL FULL_FILE_SPEC ('*.*',DIRSPEC)
C
	I = INDEX (DIRSPEC,']')
	J = JMIN0 (I,L)
	DIRECTORY_NAME = DIRSPEC (1:J)
C
	RETURN
	END