C+
C NAME:
C	cHideLogical
C PURPOSE:
C	Hides the value of a logical from a fully qualified file specification
C CATEGORY:
C	String handling
C CALLING SEQUENCE:
	character*256 function cHideLogical(cStr)
C INPUTS:
C	cStr		character*(*)	Fully-qualified file name
C OUTPUTS:
C	cHideLogical	character*(*)	File name with leading part replaced
C					by the name of a logical.
C CALLS:
C	iHideLogical
C RESTRICTIONS:
C	Probably does not work on VMS
C PROCEDURE:
C	If the input file is /home/soft/smei/test.txt, and
C	logical $smei is defined as /home/soft/smei then the output
C	string will be $smei/test.txt.
C
C	The length of the function is set equal to the value of
C	parameter FIL__LENGTH in href=filparts=.h
C MODIFICATION HISTORY:
C	JUN-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    character	cStr*(*)

	I = iHideLogical(cStr,cHideLogical)

	return
	end