remove call to vzero loader

[u/mrichter/AliRoot.git] / MICROCERN / fchtak.c

diff --git a/MICROCERN/fchtak.c b/MICROCERN/fchtak.c
index 41278c49ed4caff5c0b7373e2be0b2a611066091..cf8221ea5cf5b66c8fcada4cb49fe382aac17b4b 100644 (file)
--- a/MICROCERN/fchtak.c
+++ b/MICROCERN/fchtak.c
@@ -1,23 +1,5 @@
-/*
- * $Id$
- *
- * $Log$
- * Revision 1.2.4.1  2002/11/26 16:46:57  hristov
- * Merging NewIO with v3-09-04
- *
- * Revision 1.2  2002/10/14 14:57:10  hristov
- * Merging the VirtualMC branch to the main development branch (HEAD)
- *
- * Revision 1.1.2.1  2002/07/11 17:15:24  alibrary
- * Adding MICROCERN
- *
- * Revision 1.1.1.1  1999/05/18 15:55:29  fca
- * AliRoot sources
- *
- * Revision 1.1.1.1  1996/02/15 17:49:40  mclareni
- * Kernlib
- *
- */
+/* $Id$ */
+
 #include "kerngen/pilot.h"
 /*>    ROUTINE FCHTAK
   CERN PROGLIB#         FCHTAK          .VERSION KERNFOR  4.31  911111
@@ -28,6 +10,7 @@
       return the memory pointer
 */
 #include <stdio.h>
+#include <stdlib.h>
 #include "kerngen/fortchar.h"
 char *fchtak(ftext,lgtext)
 #if defined(CERNLIB_QMCRY)
@@ -38,14 +21,14 @@ char *fchtak(ftext,lgtext)
 #endif
       int  lgtext;
 {
-      char *malloc();
+  /*      char *malloc(); */
       char *ptalc, *ptuse;
       char *utext;
       int  nalc;
       int  ntx, jcol;
 
       nalc  = lgtext + 8;
-      ptalc = malloc (nalc);
+      ptalc = (char*)malloc (nalc);
       if (ptalc == NULL)     goto exit;
 #if defined(CERNLIB_QMCRY)
       utext = _fcdtocp(ftext);