C+ C NAME: C dirspec C PURPOSE: C Operating system: LINUX 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__LINUX) character cSingle*1 /'?'/ character cWildChar*20 /'????????????????????'/ character cOpSubdir*5 parameter (cOpSubdir = 'linux') parameter (iDirExt = 0) character cDirExt /' '/ parameter (iNode = 0) character cNode /' '/ ! Node delimiter parameter (iDevi = 0) character cDevi /' '/ ! 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.)