MINICERN/packlib/kernlib/kerngen/ccgen/wntgs/intrac.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.1  1997/02/04 17:35:05  mclareni
   6  * Merge Winnt and 97a versions
   7  *
   8  * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
   9  * Kernlib
  10  *
  11  */
  12 /*>    ROUTINE INTRAC
  13   CERN PROGLIB# Z044    INTRAC          .VERSION KERNFOR  4.38  931108
  14 */
  15 #ifdef WIN32
  16 #include <io.h>
  17 #endif
  18
  19 #include "kerngen/fortranc.h"
  20
  21 #if defined(CERNLIB_QX_SC)
  22 int type_of_call intrac_()
  23 #endif
  24 #if defined(CERNLIB_QXNO_SC)
  25 int type_of_call intrac()
  26 #endif
  27 #if defined(CERNLIB_QXCAPT)
  28 int type_of_call INTRAC()
  29 #endif
  30 {
  31     return (((int) isatty(0)!=0) ? 1 : 0) ;
  32 }
  33 /*> END <----------------------------------------------------------*/