Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgen / accesi.c

diff --git a/MINICERN/packlib/kernlib/kerngen/ccgen/accesi.c b/MINICERN/packlib/kernlib/kerngen/ccgen/accesi.c
deleted file mode 100644 (file)
index cae3bb9..0000000
--- a/MINICERN/packlib/kernlib/kerngen/ccgen/accesi.c
+++ /dev/null
@@ -1,81 +0,0 @@
-/*
- * $Id$
- *
- * $Log$
- * Revision 1.3  1997/10/23 16:25:08  mclareni
- * NT mods, mostly C Fortran interface
- *
- * Revision 1.2  1997/02/04 17:34:13  mclareni
- * Merge Winnt and 97a versions
- *
- * Revision 1.1.1.1.2.1  1997/01/21 11:29:22  mclareni
- * All mods for Winnt 96a on winnt branch
- *
- * Revision 1.1.1.1  1996/02/15 17:49:21  mclareni
- * Kernlib
- *
- */
-#include "kerngen/pilot.h"
-#ifdef CERNLIB_WINNT
-#  include <io.h>
-#endif
-/*>    ROUTINE ACCESI
-  CERN PROGLIB# Z265    ACCESI          .VERSION KERNFOR  4.34  930114
-  ORIG. 06/10/92, RDM + JZ
-  Fortran interface to access
-
-     R_OK    4   test for read permission
-     W_OK    2   test for write permission
-     X_OK    1   test for execute (search) permission
-     F_OK    0   test for presence of file
-
-     accessible = access(path, mode)
-     int accessible;
-     char *path;
-     int mode;
-
-  access checks the given file path for accessibility according to mode,
-  which is an inclusive or of the bits R_OK, W_OK, and X_OK. Specifying
-  mode as F_OK (that is, 0) tests whether the directories leading to the
-  file can be searched and the file exists.
-*/
-#include <stdio.h>
-#include "kerngen/fortchar.h"
-#if defined(CERNLIB_QX_SC)
-int type_of_call accesi_(fname, mode, lgname)
-#endif
-#if defined(CERNLIB_QXNO_SC)
-int type_of_call accesi(fname, mode, lgname)
-#endif
-#if defined(CERNLIB_QXCAPT)
-int type_of_call ACCESI(fname,
-#ifdef CERNLIB_MSSTDCALL
-                       lfname,
-#endif 
-                              mode, lgname)
-#endif
-#ifdef CERNLIB_MSSTDCALL
-     int  lfname;
-#endif 
-#if defined(CERNLIB_QMCRY)
-      _fcd  fname;
-#endif
-#if !defined(CERNLIB_QMCRY)
-      char *fname;
-#endif
-      int  *lgname, *mode;
-{
-      char   *ptf, *fchtak();
-      int     istat, umode;
-
-      istat = -1;
-      ptf = fchtak(fname, *lgname);
-      if (ptf == NULL)                goto exit;
-
-      umode = *mode & 7;
-      istat = access(ptf, umode);
-      free(ptf);
-
-exit:
-      return istat;
-}