NAME:
	openfile
 CALLING SEQUENCE:
	include 'openfile.h'
 INCLUDED BY:
	Peep, Time2smei_eph, WR2DARR, WriteI4GRD, WriteR4GRD, bCompressNic, bOpenFile
	bReadNic, bUncompressNic, bWriteNic, iFltArr, iOpenFile [1], iOpenFile [2]
	iOpenFile [3], iOpenFile [4], ice_read, ice_write, jpl_state, rice, smei_base
	smei_cal, smei_cal_build, smei_cal_c3mask, smei_cal_group, smei_cal_write
	smei_frm_getlist, smei_frm_path, smei_frm_write, smei_orb, smei_orbit_info2
	smei_skyd, sprint
 PROCEDURE:
	'Default' means 'bit not set'

 NAME:
	OSExitCmd
 PURPOSE:
	Terminate program execution. Set an exit code for external use
	Current status: disfunctional
 CATEGORY:
	Machine-dependent functions: Linux, Unix
 CALLING SEQUENCE:
	subroutine OSExitCmd(Cmd,iCode)
 INPUTS:
	Cmd		character*(*)	shell command passed to SYSTEM
	iCode		integer		error code passed to EXIT function
 OUTPUTS:
	(none)
 CALLED BY:
	Say, sprint
 INCLUDE:
	include		'filparts.h'
	include		'dirspec [1].h'
	include		'dirspec [2].h'
	include		'dirspec [3].h'
	include		'dirspec [4].h'
 CALLS: ***
	bGetLun, iFilePath, iFreeLun, itrim
 PROCEDURE:
 >	The shell command string is written into a file OSExitCmd.tmp in the
	$temp directory (if it is not an empty string). In principle the calling
	shell could take some action by reading the file.
 >	The main purpose of this subroutine is to set an exit code to be checked
	by a script or command procedure. This is done using the EXIT function.
 MODIFICATION HISTORY:
	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu); Added documentation

 NAME:
	OSExitCmd
 PURPOSE:
	Terminate program execution. Set an exit code for external use
	Current status: disfunctional
 CATEGORY:
	Machine-dependent functions: Linux, Unix
 CALLING SEQUENCE:
	subroutine OSExitCmd(Cmd,iCode)
 INPUTS:
	Cmd		character*(*)	shell command passed to SYSTEM
	iCode		integer		error code passed to EXIT function
 OUTPUTS:
	(none)
 CALLED BY:
	Say, sprint
 INCLUDE:
	include		'filparts.h'
	include		'dirspec [1].h'
	include		'dirspec [2].h'
	include		'dirspec [3].h'
	include		'dirspec [4].h'
 CALLS: ***
	bGetLun, iFilePath, iFreeLun, itrim
 PROCEDURE:
 >	The shell command string is written into a file OSExitCmd.tmp in the
	$temp directory (if it's not an empty string). In principle the calling
	shell could take some action by reading the file.
 >	The main purpose of this subroutine is to set an exit code to be checked
	by a script or command procedure. This is done using the EXIT function.
 MODIFICATION HISTORY:
	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu); Added documentation

 NAME:
	OSExitCmd
 PURPOSE:
	Terminate program execution. Set an exit code for external use
	Current status: disfunctional
 CATEGORY:
	Machine-dependent functions: WIN-NT
 CALLING SEQUENCE:
	subroutine OSExitCmd(Cmd,iCode)
 INPUTS:
	Cmd		character*(*)	shell command passed to SYSTEM
	iCode		integer		error code passed to EXIT function
 OUTPUTS:
	(none)
 CALLS: ***
	bGetLun, iFilePath, iFreeLun, itrim
 CALLED BY:
	Say, sprint
 INCLUDE:
	include		'filparts.h'
	include		'dirspec [1].h'
	include		'dirspec [2].h'
	include		'dirspec [3].h'
	include		'dirspec [4].h'
 PROCEDURE:
 >	The cDo string is used on VMS to pass some information to the calling
	command procedure. Here the shell command is executed by passing it to SYSTEM
	(if it is not an empty string). This is probably not very useful since this
	information (e.g. a directory change) is not passed to the calling shell.
	(see the Unix version for a different solution for this problem).
 >	The main purpose of this subroutine is to set an exit code to be checked
	by a script or command procedure. This is usually done using the EXIT function
	A Fortran compiled with Absoft Fortran as a windows application kills the
	input/output window when EXIT is executed.
	For the time begin the STOP statement is executed:
		stop ' %OSExitCmd-I-Exit, program terminated'
 MODIFICATION HISTORY:
	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu); Added documentation