5 * Revision 1.2 1997/02/04 17:34:37 mclareni
6 * Merge Winnt and 97a versions
8 * Revision 1.1.1.1.2.1 1997/01/21 11:29:38 mclareni
9 * All mods for Winnt 96a on winnt branch
11 * Revision 1.1.1.1 1996/02/15 17:49:25 mclareni
15 #include "kerngen/pilot.h"
16 #include "kerngen/fortranc.h"
18 #if defined(CERNLIB_QMSUN)
19 #include "sungs/qnexte.c"
22 CERN PROGLIB# Z041 QNEXTE .VERSION KERNFOR 4.29 910718
27 #if defined(CERNLIB_QX_SC)
28 void type_of_call qnext_();
31 #if defined(CERNLIB_QXNO_SC)
32 void type_of_call qnext();
35 #if defined(CERNLIB_QXCAPT)
36 void type_of_call QNEXT();
39 #if defined(CERNLIB_QX_SC)
40 void type_of_call qnexte_()
42 #if defined(CERNLIB_QXNO_SC)
43 void type_of_call qnexte()
45 #if defined(CERNLIB_QXCAPT)
46 void type_of_call QNEXTE()
48 #if defined(CERNLIB_QSIGJMP)
49 { static sigjmp_buf myenv;
50 static int ireent = 0;
52 if (ireent) siglongjmp (myenv, 7);
57 #if !defined(CERNLIB_QSIGJMP)
58 { static jmp_buf myenv;
59 static int ireent = 0;
61 if (ireent) longjmp (myenv, 7);
66 #if defined(CERNLIB_QX_SC)
69 #if defined(CERNLIB_QXNO_SC)
72 #if defined(CERNLIB_QXCAPT)
76 /*> END <----------------------------------------------------------*/