MINICERN/packlib/kernlib/kerngen/ccgen/tminit.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.2  1997/02/04 17:34:48  mclareni
   6  * Merge Winnt and 97a versions
   7  *
   8  * Revision 1.1.1.1.2.1  1997/01/21 11:29:46  mclareni
   9  * All mods for Winnt 96a on winnt branch
  10  *
  11  * Revision 1.1.1.1  1996/02/15 17:49:28  mclareni
  12  * Kernlib
  13  *
  14  */
  15 #include "kerngen/pilot.h"
  16 #include "kerngen/fortranc.h"
  17
  18 /*>    ROUTINE TMINIT
  19   CERN PROGLIB#         TMINIT          .VERSION KERNFOR  4.36  930602
  20   ORIG. 20/07/90, RH + JZ
  21   Fortran interface routine to initialize TMPRO / TMREAD
  22       CALL TMINIT (INIT)
  23 */
  24 #include <stdio.h>
  25 #if defined(CERNLIB_QX_SC)
  26 void type_of_call tminit_(ptinit)
  27 #endif
  28 #if defined(CERNLIB_QXNO_SC)
  29 void type_of_call tminit(ptinit)
  30 #endif
  31 #if defined(CERNLIB_QXCAPT)
  32 void type_of_call TMINIT(ptinit)
  33 #endif
  34       int  *ptinit;
  35 {
  36       *ptinit = 7;
  37 /*    setbuf (stdout,NULL);        */
  38       return;
  39 }
  40 /*> END <----------------------------------------------------------*/