C----------------------------------------------------------------------
C ==> Convert Unix filename to VMS file specification
C----------------------------------------------------------------------
C NFSNAME.INC defines global variables and parameters for storing
C the intermediate stages of the Unix -> VMS filename conversion.
C
C Written by Michael H. Kelsey  CITHEX::KELSEY
C
C Copyright (c) 1993  Trustees of the California Institute of Technology
C
C This software is provided on an as-is basis, and no warranty is made
C regarting merchantibility, fitness of use, or suitability for a
C particular purpose.
C
C Version 1.00  KELSEY    20 Aug 91  Program Creation Date
C Version 1.01  KELSEY     1 Aug 93  Release as Freeware package
C----------------------------------------------------------------------

C  Parameters
	INTEGER UNIXLEN, UNIXDIRS, UNIXMAX
	INTEGER VMSLEN, VMSDIRS, VMSMAX
	INTEGER NFSMAX

	PARAMETER (UNIXLEN  = 255)              !Unix length is fixed
	PARAMETER (UNIXDIRS = 255)
	PARAMETER (UNIXMAX  = 255)

	PARAMETER (VMSLEN   = 85)		!name.type;ver
	PARAMETER (VMSDIRS  = UNIXDIRS)
        PARAMETER (VMSMAX   = VMSDIRS*40+VMSLEN)

	PARAMETER (NFSMAX   = 999)		!Maximum NFS devices

C  NFSNAME Common Block
	COMMON /NFSTOKS/ NTOKENS, UNIXTOK, LUNIXTOK,
     -	                 VMSTOK, LVMSTOK, NFSDEV, LNFSDEV

	INTEGER             NTOKENS		!Number of tokens

	CHARACTER*(UNIXLEN) UNIXTOK(UNIXDIRS)	!Unix tokens
	INTEGER             LUNIXTOK(UNIXDIRS)	!Token length

	CHARACTER*(VMSLEN)  VMSTOK(VMSDIRS)	!VMS Tokens
	INTEGER             LVMSTOK(VMSDIRS)	!Token length

	CHARACTER*(VMSLEN)  NFSDEV		!Root device
        INTEGER             LNFSDEV		!Length of device