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

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgenu / fchtak.c

diff --git a/MINICERN/packlib/kernlib/kerngen/ccgenu/fchtak.c b/MINICERN/packlib/kernlib/kerngen/ccgenu/fchtak.c
deleted file mode 100644 (file)
index 6c1380c..0000000
--- a/MINICERN/packlib/kernlib/kerngen/ccgenu/fchtak.c
+++ /dev/null
@@ -1,52 +0,0 @@
-/*
- * $Id$
- *
- * $Log$
- * Revision 1.1.1.1  1996/02/15 17:49:40  mclareni
- * Kernlib
- *
- */
-#include "kerngen/pilot.h"
-/*>    ROUTINE FCHTAK
-  CERN PROGLIB#         FCHTAK          .VERSION KERNFOR  4.31  911111
-  ORIG. 22/02/91, JZ
-
-      copy a Fortran character string
-      to allocated memory zero-terminated,
-      return the memory pointer
-*/
-#include <stdio.h>
-#include "kerngen/fortchar.h"
-char *fchtak(ftext,lgtext)
-#if defined(CERNLIB_QMCRY)
-      _fcd  ftext;
-#endif
-#if !defined(CERNLIB_QMCRY)
-      char *ftext;
-#endif
-      int  lgtext;
-{
-      char *malloc();
-      char *ptalc, *ptuse;
-      char *utext;
-      int  nalc;
-      int  ntx, jcol;
-
-      nalc  = lgtext + 8;
-      ptalc = malloc (nalc);
-      if (ptalc == NULL)     goto exit;
-#if defined(CERNLIB_QMCRY)
-      utext = _fcdtocp(ftext);
-#endif
-#if !defined(CERNLIB_QMCRY)
-      utext = ftext;
-#endif
-
-      ptuse = ptalc;
-      ntx   = lgtext;
-      for (jcol = 0; jcol < ntx; jcol++)  *ptuse++ = *utext++;
-
-      *ptuse = '\0';
-exit: return  ptalc;
-}
-/*> END <----------------------------------------------------------*/