/************************************************************************
** DA_CLOS								*
**									*
** This function will close the file.					*
**									*
** DA_CLOS ( IFDES, IRET )						*
**									*
** Input parameters:                                                    *
**	IFDES		INT*		File number			*
**									*
** Output parameters:							*
**	IRET		INT		Return code			*
***									*
** Log:									*
** J. Chou/EAI		 2/93						*
** J. Chou/EAI		 7/93						*
************************************************************************/

#include "dacmn.h"

void da_clos_ ( ifdes, iret )

int	*ifdes;
int	*iret;

{
	*iret = 0;

/*
**	Close the file and check the status.
*/
	if ( ( *iret = close ( *ifdes ) ) != 0 )
	    *iret = -1;
}