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

   1 /*
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.3  1997/10/23 16:25:12  mclareni
   6 * NT mods, mostly C Fortran interface
   7 *
   8 * Revision 1.2  1997/02/04 17:34:48  mclareni
   9 * Merge Winnt and 97a versions
  10 *
  11 * Revision 1.1.1.1.2.1  1997/01/21 11:29:46  mclareni
  12 * All mods for Winnt 96a on winnt branch
  13 *
  14 * Revision 1.1.1.1  1996/02/15 17:49:28  mclareni
  15 * Kernlib
  16 *
  17 */
  18 #include "kerngen/pilot.h"
  19 #if defined(CERNLIB_QMDOS)
  20 #include "wntgs/tmproi.c"
  21 #else
  22 /*>    ROUTINE TMPROI
  23   CERN PROGLIB#         TMPROI          .VERSION KERNFOR  4.39  940228
  24   ORIG. 30/05/91, JZ
  25   Fortran interface routine to print a prompt string
  26       CALL TMPRO (TEXT)
  27 */
  28 #ifdef WIN32
  29 #include <io.h>
  30 #endif
  31 #include <stdio.h>
  32 #include "kerngen/fortchar.h"
  33 #if defined(CERNLIB_QX_SC)
  34 void tmproi_(ftext, lgtext)
  35 #endif
  36 #if defined(CERNLIB_QXNO_SC)
  37 void tmproi(ftext, lgtext)
  38 #endif
  39 #if defined(CERNLIB_QXCAPT)
  40 void TMPROI(ftext, lgtext)
  41 #endif
  42 #if defined(CERNLIB_QMCRY)
  43       _fcd ftext;
  44 #endif
  45 #if !defined(CERNLIB_QMCRY)
  46       char *ftext;
  47 #endif
  48       int  *lgtext;
  49 {
  50       write (1, ftext, *lgtext);
  51       return;
  52 }
  53 /*> END <----------------------------------------------------------*/
  54 #endif