MICROCERN/abend.F

   1 *
   2 * $Id$
   3 *
   4 #include "kerngen/pilot.h"
   5 #if defined(CERNLIB_QMSUN)
   6 #include "sungs/abend.F"
   7 #elif defined(CERNLIB_QMVAX)
   8 #include "vaxgs/abend.F"
   9 #else
  10       SUBROUTINE ABEND
  11 C
  12 C CERN PROGLIB# Z035    ABEND           .VERSION KERNFOR  4.31  911111
  13 C ORIG.  8/02/88  JZ
  14 C
  15
  16       STOP  7
  17       END
  18 #endif