C*NODENM -- return name of current host (node)
C+
      SUBROUTINE NODENM (NODE)
      CHARACTER*(*) NODE
C
C Return the name of the current host (node).
C
C Argument:
C  NODE   (output) : receives the node name, or string '<unknown>' if
C                    information is not available.
C
C Subroutines required:
C  HOSTNM (HP-UX)
C
C History:
C  1987 Nov 12 - TJP.
C  1988 may 04 - r. gaume
C                stubbed for ndp fortran under dos
C  1995 Oct 95 - CAH: modified for use with HP-UX
C-----------------------------------------------------------------------
      INTEGER*4 HOSTNM
C
C     IF (HOSTNM(NODE) .NE. 0) NODE = '<unknown>' ! HP-UX
C
      CALL GETENV('HOST', NODE)
C
      RETURN
      END