/************************************************************************
** DA_OPEN								*
**                                                                      *
** This function will open the file.                                    *
**                                                                      *
** DA_OPEN ( FNAME, LNFN, IFDES, IRET )                                 *
**                                                                      *
** Input parameters:                                                    *
**	FNAME 		CHAR*		File name			*
**	LNFN		INT*		Length of file name		*
**                                                                      *
** Output parameters:                                                   *
**	IFDES		INT*		File number                     *
**	IRET		INT		Return code                     *
***                                                                     *
** Log:                                                                 *
** J. Chou/EAI		 2/93						*
** J. Chou/EAI		 7/93						*
************************************************************************/

#include "dacmn.h"

void da_open ( fname, lnfn, ifdes, iret)  

char	*fname;
int	*lnfn;
int	*ifdes;
int	*iret;

{
	fname[*lnfn] = '\0';
	*iret = 0; 

/*
**	Open the file and check the status.
*/
	if ( ( *ifdes = open ( fname, O_RDONLY ) ) < 0  ) {
	    printf ( "\n No such file: >> %s << \n", fname );
	    *ifdes = 0;
	    *iret = -1;
	}
}