calo/unpacking/closefi.c

/***************************************************************
 *
 * routine read_ev: routine to extract an event information 
 * from file acquired with Pamela acquisition programs
 *
 * June 2002
 *
 ***************************************************************/
/*
 * include needed system headers
 */
#include <stdio.h>       /* include standard i/o library */
#include <stdlib.h>      /* include standard library */
#include <string.h>      /* include string library */
#include <unistd.h>      /* include unix standard library */
#include <sys/types.h>   /* */
#include <sys/stat.h>    /* */
#include <fcntl.h>       /* */
#include <errno.h>       /* error simbol definitions */
#include <time.h>        /* system time definitions */
#include <math.h>        /* math library */

void closefi_(int *fd)
{
  sync();
  close(*fd);
  return;
}


1	mocchiut	1.1	/***************************************************************
2			*
3			* routine read_ev: routine to extract an event information
4			* from file acquired with Pamela acquisition programs
5			*
6			* June 2002
7			*
8			***************************************************************/
9			/*
10			* include needed system headers
11			*/
12			#include <stdio.h> /* include standard i/o library */
13			#include <stdlib.h> /* include standard library */
14			#include <string.h> /* include string library */
15			#include <unistd.h> /* include unix standard library */
16			#include <sys/types.h> /* */
17			#include <sys/stat.h> /* */
18			#include <fcntl.h> /* */
19			#include <errno.h> /* error simbol definitions */
20			#include <time.h> /* system time definitions */
21			#include <math.h> /* math library */
22
23			void closefi_(int *fd)
24			{
25			sync();
26			close(*fd);
27			return;
28			}
29
30
31
32
33
34
35
36
37
38