*
* $Id: intrac.F,v 1.1.1.1 1996/02/15 17:54:51 mclareni Exp $
*
* $Log: intrac.F,v $
* Revision 1.1.1.1  1996/02/15 17:54:51  mclareni
* Kernlib
*
*
#include "kernnor/pilot.h"
      LOGICAL FUNCTION INTRAC(DUMMY)
C
C CERN PROGLIB# Z044    INTRAC          .VERSION KERNNOR  2.02  850320
C ORIG. 20/02/83  HRR FROM GENLIB
C
C   INTRAC    CERN COMPUTER CENTER PROGRAM LIBRARY    Z044
C
C   AUTHOR : H.RENSHALL, DD, CERN
C
C   LANGUAGE : NORD-500 FORTRAN
C
C   PURPOSE : IDENTIFY A JOB AS INTERACTIVE
C
C   STRUCTURE : LOGICAL FUNCTION SUBPROGRAM.
C
C    USER ENTRY NAMES :  INTRAC
C    INTERNAL ENTRY NAMES : -NONE-
C    FILES REFERENCED : -NONE-
C    EXTERNAL ROUTINES REFERENCED : RSIO (NORD SYSTEM ROUTINE)
C    COMMON BLOCKS NAMES AND LENGTHS : -NONE-
C
C   USAGE :        LOGICAL INTRAC
C                  IF ( INTRAC(DUMMY) ) GO TO ...
C
C    THE VALUE OF THE LOGICAL FUNCTION INTRAC WILL BE .TRUE. IF THE
C      JOB IS RUNNING INTERACTIVELY, AND WILL BE .FALSE. IF IT WAS
C      SUBMITTED THROUGH A BATCH QUEUE OR IS A MODE JOB.
C
C
C    CALL NORD SYSTEM ROUTINE
C
C     CALL RSIO ( IMODE, INDEV, IOUT, IUSER)
C
C    IMODE= O   INTERACTIVE
C    IMODE= 1   MODE JOB (PROCEDURE FILE)
C    IMODE= 2   BATCH (APPEND-BATCH)
C
C    INDEV=     SINTRAN LOGICAL UNIT OF INPUT DEVICE (TERMINAL IF INTERACTIVE)
C
C    IOUT=      SINTRAN LOGICAL UNIT OF OUTPUT DEVICE (TERMINAL IF INTERACTIVE)
C
C    IUSER=     LOGGED ON USER NUMBER
C
      CALL RSIO ( IMODE, INDEV, IOUT, IUSER)
      INTRAC = .FALSE.
      IF( IMODE.EQ.0) INTRAC= .TRUE.
      RETURN
      END
#ifdef CERNLIB_TCGEN_INTRAC
#undef CERNLIB_TCGEN_INTRAC
#endif