C+
C NAME:
C	openfile
C CALLING SEQUENCE:
C	include 'openfile.h'
C PROCEDURE:
C	'Default' means 'bit not set'
C-

	! iSearch

	integer		 FND__REPEAT
	parameter	(FND__REPEAT	= 0)

	integer		 FND__FIRST
	parameter	(FND__FIRST	= 1)

	integer		 FND__NOMESSAGES
	parameter	(FND__NOMESSAGES= 2)

	! bOpenFile

	integer		 OPN__TRYINPUT		! Skip first prompt to try input file name
	parameter	(OPN__TRYINPUT	= 1)	! Default: prompt for file name

	integer		 OPN__SEARCHONLY	! Search only (i.e. check for existence)
	parameter	(OPN__SEARCHONLY= 2)	! Default: open file
	
	integer		 OPN__ONEPASS		! Do not activate prompt loop on failure
	parameter	(OPN__ONEPASS	= 4)	! Default: keep prompting until success

						! Used only if OPN__ONEPASS is set
	integer		 OPN__STOP		! On failure, STOP execution
	parameter	(OPN__STOP	= 8)	! Default: RETURN with .FALSE. return value

	! The following are only useful for  opening files (OPN__SEARCHONLY not set)

	integer		 OPN__SEQUENTIAL	! Open for sequential access (see also OPN__APPEND)
	parameter	(OPN__SEQUENTIAL= 16)	! Default: direct access

	integer		 OPN__FORMATTED		! Open for formatted read
	parameter	(OPN__FORMATTED	= 32)	! Default: unformatted read

	integer		 OPN__TRYALL		! Try all seq/direct, form/unform
	parameter	(OPN__TRYALL	= 64)	! Default: use OPN__SEQUENTIAL and OPN__FORMATTED

	integer		 OPN__READONLY		! Open for read only
	parameter	(OPN__READONLY	= 128)	! Default: open for read/write

	integer		 OPN__HOS		! Open for Helios file for read only
	parameter	(OPN__HOS	= 256)	! Default: open for read/write

	! OPN__NOPARSE is useful for bypassing a call to iSearch which may intervene with a
	! wildcard search. Is used only if OPN__TRYINPUT set and OPN__SEARCHONLY are not set.
	! Note that this skips the check for a valid file name. It should be used only if the
	! input file name is certain to be valid.

	integer		 OPN__NOPARSE
	parameter	(OPN__NOPARSE	= 512)

	integer		 OPN__NEW 
	parameter	(OPN__NEW	= 1024)

	integer		 OPN__SCRATCH
	parameter	(OPN__SCRATCH	= 2048)

	! OPN__APPEND is an alternative for OPN__SEQUENTIAL.
	! It will be ignored if used in combination with OPN__TRYALL

	integer		 OPN__APPEND		! Open sequential access file, but append ..
	parameter	(OPN__APPEND	= 4096)	! .. instead of overwrite

	integer		 OPN__UNKNOWN
	parameter	(OPN__UNKNOWN	= 8192)

	integer		 OPN__FORTRAN
	parameter	(OPN__FORTRAN	=16384)

	integer		 OPN__RECLBYTE
	parameter	(OPN__RECLBYTE	=32768)	! Bit 15 / 31

	integer		 OPN__RECLINQ
	parameter	(OPN__RECLINQ	=65536) ! Bit 16 /31

	integer		 OPN__NOMESSAGE
	parameter	(OPN__NOMESSAGE	=131072)! Bit 17 /31

	! Several combinations of the above settings can be useful for reopening a file, or
	! opening a generic 'ascii' (sequential,formatted) or 'binary' (sequential,unformatted) file.

	! Be careful OPN__REOPEN, since it bypasses several safety belts. Only use it if you are
	! pretty darn sure the file actually exists.

	integer		 OPN__REOPEN
	parameter	(OPN__REOPEN	= OPN__TRYINPUT+OPN__ONEPASS+OPN__NOPARSE)
	integer		 OPN__TEXT
	parameter	(OPN__TEXT	= OPN__SEQUENTIAL+OPN__FORMATTED)
	integer		 OPN__BINARY
	parameter	(OPN__BINARY	= OPN__SEQUENTIAL)