SUBROUTINE GET_NODENAME (NODENAME)
	CHARACTER*(*) NODENAME
C***************************************************************************
C***
C***	THIS ROUTINE WILL RETURN THE VAX/VMS NETWORK NODE NAME.
C***
C***	PARAMETER :
C***
C***		NODENAME	(C*?)	RETURNED VAX/VMS NETWORK NODENAME
C***
C***************************************************************************
C*MCT
	INCLUDE '($SYIDEF)'
	CHARACTER*16 NNAME
	INTEGER*4 SYS$GETSYIW
	INTEGER*4 ITMLST (3)
	INTEGER*2 ITLST (2)
	EQUIVALENCE (ITMLST,ITLST)
C
	ITLST(1) = 16		! USER NAME BUFFER IS 16 BYTES
	ITLST(2) = SYI$_NODENAME
	ITMLST (2) = %LOC (NNAME)
	ITMLST (3) = %LOC (SIZE)
C
	ISTAT = SYS$GETSYIW (,,,ITMLST,,,)
	IF (.NOT. ISTAT) CALL SYS_SIGNAL (ISTAT)
C
	NODENAME = NNAME
C
	RETURN
	END