00001 /* 00002 * $Id: abend.c,v 1.2 2009/02/16 08:04:35 schubert Exp $ 00003 * 00004 * Revision 1.1.1.1 2002/07/24 15:56:28 rdm 00005 * initial import into CVS 00006 * 00007 * Revision 1.1.1.1 2002/06/16 15:18:46 hristov 00008 * Separate distribution of Geant3 00009 * 00010 * Revision 1.1.1.1 1999/05/18 15:55:28 fca 00011 * AliRoot sources 00012 * 00013 * Revision 1.2 1997/02/04 17:34:12 mclareni 00014 * Merge Winnt and 97a versions 00015 * 00016 * Revision 1.1.1.1.2.1 1997/01/21 11:29:22 mclareni 00017 * All mods for Winnt 96a on winnt branch 00018 * 00019 * Revision 1.1.1.1 1996/02/15 17:49:20 mclareni 00020 * Kernlib 00021 * 00022 */ 00023 #include "kerngen/pilot.h" 00024 #include "kerngen/fortranc.h" 00025 #include "stdlib.h" 00026 00027 /*> ROUTINE ABEND 00028 CERN PROGLIB# Z035 ABEND .VERSION KERNFOR 4.31 911111 00029 */ 00030 #if defined(CERNLIB_QX_SC) 00031 void type_of_call abend_() 00032 #endif 00033 #if defined(CERNLIB_QXNO_SC) 00034 void type_of_call abend() 00035 #endif 00036 #if defined(CERNLIB_QXCAPT) 00037 void type_of_call ABEND() 00038 #endif 00039 { 00040 exit(7); 00041 } 00042 /*> END <----------------------------------------------------------*/ 00043 #ifdef CERNLIB_TCGEN_ABEND 00044 #undef CERNLIB_TCGEN_ABEND 00045 #endif
1.3.9.1