00001 /* 00002 * $Id: abend.c,v 1.1 2006/02/14 01:42:55 schubert Exp $ 00003 * 00004 * $Log: abend.c,v $ 00005 * Revision 1.1 2006/02/14 01:42:55 schubert 00006 * 00007 * First commit. geant321+_vmc Version 1.3 00008 * 00009 * Revision 1.2 2002/12/02 16:37:45 brun 00010 * Changes from Federico Carminati and Peter Hristov who ported the system 00011 * on the Ithanium processors.It is tested on HP, Sun, and Alpha, everything 00012 * seems to work. The optimisation is switched off in case of gcc2.xx.yyy 00013 * 00014 * Revision 1.1.1.1 2002/07/24 15:56:28 rdm 00015 * initial import into CVS 00016 * 00017 * Revision 1.1.1.1 2002/06/16 15:18:46 hristov 00018 * Separate distribution of Geant3 00019 * 00020 * Revision 1.1.1.1 1999/05/18 15:55:28 fca 00021 * AliRoot sources 00022 * 00023 * Revision 1.2 1997/02/04 17:34:12 mclareni 00024 * Merge Winnt and 97a versions 00025 * 00026 * Revision 1.1.1.1.2.1 1997/01/21 11:29:22 mclareni 00027 * All mods for Winnt 96a on winnt branch 00028 * 00029 * Revision 1.1.1.1 1996/02/15 17:49:20 mclareni 00030 * Kernlib 00031 * 00032 */ 00033 #include "kerngen/pilot.h" 00034 #include "kerngen/fortranc.h" 00035 #include "stdlib.h" 00036 00037 /*> ROUTINE ABEND 00038 CERN PROGLIB# Z035 ABEND .VERSION KERNFOR 4.31 911111 00039 */ 00040 #if defined(CERNLIB_QX_SC) 00041 void type_of_call abend_() 00042 #endif 00043 #if defined(CERNLIB_QXNO_SC) 00044 void type_of_call abend() 00045 #endif 00046 #if defined(CERNLIB_QXCAPT) 00047 void type_of_call ABEND() 00048 #endif 00049 { 00050 exit(7); 00051 } 00052 /*> END <----------------------------------------------------------*/ 00053 #ifdef CERNLIB_TCGEN_ABEND 00054 #undef CERNLIB_TCGEN_ABEND 00055 #endif
1.3.9.1