MINICERN/packlib/kernlib/kerngen/tcgenc/exitf.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:37  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE EXITF (ICODE)
  11 C
  12 C CERN PROGLIB# Z035    EXITF           .VERSION KERNFOR  4.39  940228
  13 C ORIG. 15/12/93  JS + JZ
  14 C
  15
  16       IC = IABS(ICODE)
  17
  18 #if defined(CERNLIB_QMVAX)
  19
  20       CALL SYS$EXIT(%VAL(IC))
  21
  22 #endif
  23 #if !defined(CERNLIB_QMVAX)
  24
  25       IF (IC.EQ.0)   STOP
  26
  27       GOTO (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20),IC
  28       STOP 255
  29
  30     1 STOP 1
  31     2 STOP 2
  32     3 STOP 3
  33     4 STOP 4
  34     5 STOP 5
  35     6 STOP 6
  36     7 STOP 7
  37     8 STOP 8
  38     9 STOP 9
  39    10 STOP 10
  40    11 STOP 11
  41    12 STOP 12
  42    13 STOP 13
  43    14 STOP 14
  44    15 STOP 15
  45    16 STOP 16
  46    17 STOP 17
  47    18 STOP 18
  48    19 STOP 19
  49    20 STOP 20
  50 #endif
  51       END