loon: cfclos.c Source File

00001 /*
00002  * $Id: cfclos.c,v 1.2 2009/02/16 08:04:35 schubert Exp $
00003  *
00004  * Revision 1.1.1.1  2002/06/16 15:18:46  hristov
00005  * Separate distribution  of Geant3
00006  *
00007  * Revision 1.1.1.1  1999/05/18 15:55:29  fca
00008  * AliRoot sources
00009  *
00010  * Revision 1.2  1997/02/04 17:35:10  mclareni
00011  * Merge Winnt and 97a versions
00012  *
00013  * Revision 1.1.1.1.2.1  1997/01/21 11:30:09  mclareni
00014  * All mods for Winnt 96a on winnt branch
00015  *
00016  * Revision 1.1.1.1  1996/02/15 17:49:35  mclareni
00017  * Kernlib
00018  *
00019  */
00020 #include "kerngen/pilot.h"
00021 #include "kerngen/fortranc.h"
00022 
00023 /*>    ROUTINE CFCLOS
00024   CERN PROGLIB# Z310    CFCLOS          .VERSION KERNFOR  4.29  910718
00025   ORIG. 12/01/91, JZ
00026       CALL CFCLOS (LUNDES,MEDIUM)
00027       close the file :
00028        LUNDES  file descriptor
00029        MEDIUM  = 0,1,2,3 : primary disk/tape, secondary disk/tape
00030 */
00031 #include "kerngen/cf_clos.h"
00032 #include "kerngen/cf_xaft.h"
00033 
00034 #if defined(CERNLIB_QX_SC)
00035 void type_of_call cfclos_(lundes, medium)
00036 #endif
00037 #if defined(CERNLIB_QXNO_SC)
00038 void type_of_call cfclos(lundes, medium)
00039 #endif
00040 #if defined(CERNLIB_QXCAPT)
00041 void type_of_call CFCLOS(lundes, medium)
00042 #endif
00043       int  *lundes, *medium;
00044 {
00045       int  fildes;
00046 
00047       fildes = *lundes;
00048       close (fildes);
00049       return;
00050 }
00051 /*> END <----------------------------------------------------------*/
00052 #ifdef CERNLIB_TCGEN_CFCLOS
00053 #undef CERNLIB_TCGEN_CFCLOS
00054 #endif