C+
C NAME:
C	Say
C PURPOSE:
C	Print informational or error messages in a format modeled after the VMS/DCL messages.
C CALLING SEQUENCE:
	subroutine Say(cP2,cP3,cP4,cP5)
C	call Say(cName,cSeverity,cMessageID,cMessage)
C INPUTS:
C	(all are read-only)
C	cName		character*(*)	program name
C	cSeverity	character*(*)	W,S,E,I,D,w,s,e,i,d
C	cMessageID	character*(*)	descriptor of error message
C					if cMessageID(1:4)='Stop' program will terminate
C					if cMessageID='<time>' then the message ID will be
C					    current system time
C					if cMessageID='<fmt>' with 'fmt' a valid time format
C					    (see href=Time2Str) then the message ID is the
C					    system time displayed in the specified format,
C					    e.g. '<hh:mm:ss>' displays the time of day.
C	cMessage	character*(*)	full message string; the separator # can be
C					used to output lines over multiple lines.
C					Only cMessage sections of non-zero length are printed
C	LIB__SIGNAL_QUIET	global symbol	(not case-sensitive)
C		string containing one or more of the severity status chars
C		WSEIF. The error message is suppressed if the current severity
C		is present in the LIB_SIGNAL_QUIET list.
C	LIB__SIGNAL_STOP	global symbol	(not case-sensitive)
C		string containing one or more of the severity status chars
C		WSEIF. Error messages of this type will result in program termination.
C		Severity E and F ALWAYS result in program termination.
C		For individual messages program termination can be forced by setting
C		the first 4 characters of cMessageID(1:4)='Stop' (case sensitive!!)
C	LIB__SIGNAL_FILE	global symbol
C		if set to 1 then messages are written to a file instead of
C		standard output. The file name is 'say.txt' and is located in
C		the directory cTemp (see include file dirspec.h)
C OUTPUTS:
C	Single message to SYS$OUTPUT or to file.
C	Program termination is done by OSExitCmd. The error code passed to
C	OSExitCmd is 0=W,1=S,2=E,3=I,4=F. (On VMS the 'Inhibit display' bit is also set).
C INCLUDE:
	include		'dirspec.h'
	include		'filparts.h'
C CALLS:
C	OSExitCmd, uppercase, itrim, iGetSymbol, iFilePath, iGetLun, LocFirstLen
C	iHideLogical, iFreeAllLun, cTime2System
C RESTRICTIONS:
C 	The severity string should be only one character long
C PROCEDURE:
C >	Use Say0 in graphics program (VMS)
C >	If the severity is E (error) or F (fatal) program execution stops. The
C	symbol $STATUS is set to a FALSE (i.e. even) value by the EXIT routine.
C >	If the severity is S (succes) or I (informational) and W (warning)
C	the procedure returns to caller, unless LIB__SIGNAL_STOP is used to terminate.
C MODIFICATION HISTORY:
C	SEP-1992, Paul Hick (UCSD/CASS), based on DCL procedure Say
C	NOV-1994, Paul Hick (UCSD/CASS)
C	- Check the symbol LIB__SIGNAL_QUIET to determine whether the error message
C	  should be displayed.
C	MAY-1999, Paul Hick (UCSD/CASS)
C	- Originally, if the symbol LIB__SIGNAL_FILE was set, the file 'say.txt' would
C	  be opened and closed in each Say call. NT has problems with this. I am not sure
C	  why, but I suspect there is some limit on the number of files that can be opened.
C	  Now the file stays open as long as the symbol LIB__SIGNAL_FILE is set.
C	AUG-1999, Paul Hick (UCSD/CASS)
C	- The error code passed to iOSExitCmd includes the 'Inhibit display' bit now
C	  only on VMS.
C	FEB-2005, Paul Hick (UCSD/CASS)
C	    Added iHideLogical call to process cP4.
C	JAN-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C	    Added <time> option for cP4
C-
	    character	cP2*(*)
	    character	cP3*(*)
	    character	cP4*(*)
	    character	cP5*(*)

      PRINT *, 'Hello from say.f'

	return
	end