/*   OPEN IN will open a file with a name string and a default name string.
    A condition to be signaled if the file cannot be opened may also be
    specified.  */


extern void open_in (FILE *f, char *file_name, char *default_name, int ccode );

/*[GLOBAL] PROCEDURE open_in ( VAR f : [VOLATILE] TEXT;
**			     name : VARYING [namelen] OF CHAR;
**			     default : VARYING [deflen] OF CHAR;
**			     ccode : INTEGER := 0 );
*/


/*   OPEN OUT will open a file with a name string, a default name string,
    and a related file.  A condition to be signaled if the file cannot
    be opened may also be specified.  */


extern void open_out (FILE *f, char *file_name, char *default_name, FILE *rel_f, 
	int ccode );

/*[GLOBAL] PROCEDURE open_out ( VAR f : [VOLATILE] TEXT;
**			      name : VARYING [namelen] OF CHAR;
**			      default : VARYING [deflen] OF CHAR;
**			      VAR rel_f : TEXT;
**			      ccode : INTEGER := 0 );
*/