-/*
- * $Id$
- *
- * $Log$
- * 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
return the memory pointer
*/
#include <stdio.h>
+#include <stdlib.h>
#include "kerngen/fortchar.h"
char *fchtak(ftext,lgtext)
#if defined(CERNLIB_QMCRY)
#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);