MINICERN/packlib/kernlib/kerngen/ccgen/qnexte.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.2  1997/02/04 17:34:37  mclareni
   6  * Merge Winnt and 97a versions
   7  *
   8  * Revision 1.1.1.1.2.1  1997/01/21 11:29:38  mclareni
   9  * All mods for Winnt 96a on winnt branch
  10  *
  11  * Revision 1.1.1.1  1996/02/15 17:49:25  mclareni
  12  * Kernlib
  13  *
  14  */
  15 #include "kerngen/pilot.h"
  16 #include "kerngen/fortranc.h"
  17
  18 #if defined(CERNLIB_QMSUN)
  19 #include "sungs/qnexte.c"
  20 #else
  21 /*>    ROUTINE QNEXTE
  22   CERN PROGLIB# Z041    QNEXTE          .VERSION KERNFOR  4.29  910718
  23 * ORIG. 23/05/91, JZ
  24 */
  25 #include <setjmp.h>
  26
  27 #if defined(CERNLIB_QX_SC)
  28 void type_of_call qnext_();
  29 #endif
  30
  31 #if defined(CERNLIB_QXNO_SC)
  32 void type_of_call qnext();
  33 #endif
  34
  35 #if defined(CERNLIB_QXCAPT)
  36 void type_of_call QNEXT();
  37 #endif
  38
  39 #if defined(CERNLIB_QX_SC)
  40 void type_of_call qnexte_()
  41 #endif
  42 #if defined(CERNLIB_QXNO_SC)
  43 void type_of_call qnexte()
  44 #endif
  45 #if defined(CERNLIB_QXCAPT)
  46 void type_of_call QNEXTE()
  47 #endif
  48 #if defined(CERNLIB_QSIGJMP)
  49 {     static sigjmp_buf  myenv;
  50       static int ireent = 0;
  51
  52       if (ireent)  siglongjmp (myenv, 7);
  53
  54       ireent = 77;
  55       sigsetjmp (myenv,7);
  56 #endif
  57 #if !defined(CERNLIB_QSIGJMP)
  58 {     static jmp_buf  myenv;
  59       static int ireent = 0;
  60
  61       if (ireent)  longjmp (myenv, 7);
  62
  63       ireent = 77;
  64       setjmp (myenv);
  65 #endif
  66 #if defined(CERNLIB_QX_SC)
  67       qnext_();
  68 #endif
  69 #if defined(CERNLIB_QXNO_SC)
  70       qnext();
  71 #endif
  72 #if defined(CERNLIB_QXCAPT)
  73       QNEXT();
  74 #endif
  75 }
  76 /*> END <----------------------------------------------------------*/
  77 #endif