MINICERN/packlib/kernlib/kerngen/tcgens/jobnam.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.3  1997/11/05 16:00:44  mclareni
   6 * Correct typo
   7 *
   8 * Revision 1.2  1997/11/05 10:13:26  mclareni
   9 * Include in WNT
  10 *
  11 * Revision 1.1.1.1  1996/02/15 17:50:12  mclareni
  12 * Kernlib
  13 *
  14 *
  15 #include "kerngen/pilot.h"
  16 #if (defined(CERNLIB_QMSUN))&&(!defined(CERNLIB_SOLARIS))
  17 #include "sungs/jobnam.F"
  18 #else
  19       SUBROUTINE JOBNAM (ID)
  20 C
  21 C CERN PROGLIB# Z100    JOBNAM          .VERSION KERNFOR  4.23  891215
  22 C ORIG. 06/12/89, JZ+FCA
  23 C
  24       DIMENSION ID(2)
  25       CHARACTER    JOBNN*8
  26 #if defined(CERNLIB_QMHPX)
  27       PARAMETER (JOBNN='HPUnix')
  28 #elif defined(CERNLIB_QMSGI)
  29       PARAMETER (JOBNN='SILGRAPH')
  30 #elif defined(CERNLIB_QMOS9)
  31       PARAMETER (JOBNN='MWos9')
  32 #elif defined(CERNLIB_QMMPW)
  33       PARAMETER (JOBNN='MAC II  ')
  34 #elif defined(CERNLIB_QMMPW)
  35       PARAMETER (JOBNN='MAC II  ')
  36 #elif defined(CERNLIB_WINNT)
  37       PARAMETER (JOBNN='Windows ')
  38 #else
  39       PARAMETER    (JOBNN = 'NotBatch')
  40 #endif
  41
  42       CALL UCTOH (JOBNN,ID,8,8)
  43       RETURN
  44       END
  45 #endif