C+
C NAME:
C	dir_win
C PURPOSE:
C	Operating system: Windows
C	Contains OS specific parameters related to the file system.
C	This is our main defense against platform-dependent I/O problems.
C CALLING SEQUENCE:
C	include		'dirspec.h'
C INCLUDE:
	include		'dirspec_os.h'
C PROCEDURE:
C-
	character	cOpSys*3
	parameter	(cOpSys		= OS__DOS)

	character	cSingle*1	/'?'/
	character	cWildChar*20	/'????????????????????'/

	character	cOpSubdir*3
	parameter	(cOpSubdir	= 'win')

	parameter	(iDirExt	= 0)
	character	cDirExt		/' '/

	parameter	(iNode		= 0)
	character	cNode		/' '/		! Node delimiter

	parameter	(iDevi		= 1)
	character	cDevi*(iDevi)	/':'/		! Device delimiter

	parameter	(iVersion	= 0)
	character	cVersion	/' '/

	parameter	(iLead		= 0)
	character	cLead		/' '/

	parameter	(iDivide	= 1)
	character	cDivide*(iDivide)/'\'/

	parameter	(iTrail		= 1)
	character	cTrail*(iTrail)	/'\'/

	parameter	(iRoot		= 0)
	character	cRoot		/' '/
	logical		bNoRoot		/.FALSE./

	parameter	(iHome		= 5)
	character	cHome*(iHome)	/'$HOME'/

	parameter	(iTemp		= 5)
	character	cTemp*(iTemp)	/'$TEMP'/

	parameter	(iParent 	= 2)
	character	cParent*(iParent)/'..'/

	parameter	(iDefault	= 1)
	character	cDefault*(iDefault)/'.'/

	parameter	(iSubDir	= 0)
	character	cSubDir		/' '/

	parameter	(iFullDefault	= iLead+iDefault+iTrail)
	character	cFullDefault*(iFullDefault)	/'.\'/

	parameter	(iFullParent	= iLead+iParent+iTrail)
	character	cFullParent*(iFullParent)	/'..\'/

	parameter	(iFullRoot	= iLead+iRoot+iTrail)
	character	cFullRoot*(iFullRoot)		/'\'/

	parameter	(iRootDivide	= iRoot+iDivide)
	character	cRootDivide*(iRootDivide)	/'\'/

	parameter	(iLeadRootDivide= iLead+iRoot+iDivide)
	character	cLeadRootDivide*(iLeadRootDivide) /'\'/

	parameter	(iNoWhere	= 2)
	character	cNoWhere*(iNoWhere)		/'@@'/

	parameter	(iEnvi	= 1)
	character	cEnvi*(iEnvi)			/'$'/

	parameter	(iSwitch = 1)
	character	cSwitch*(iSwitch)		/'/'/

	logical		 bOS__NotCaseSensitive
	parameter	(bOS__NotCaseSensitive = .FALSE.)