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

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.3  1997/10/23 16:25:10  mclareni
   6  * NT mods, mostly C Fortran interface
   7  *
   8  * Revision 1.2  1997/02/04 17:34:23  mclareni
   9  * Merge Winnt and 97a versions
  10  *
  11  * Revision 1.1.1.1.2.1  1997/01/21 11:29:31  mclareni
  12  * All mods for Winnt 96a on winnt branch
  13  *
  14  * Revision 1.1.1.1  1996/02/15 17:49:24  mclareni
  15  * Kernlib
  16  *
  17  */
  18 #include "kerngen/pilot.h"
  19
  20 #if defined(CERNLIB_QMVAOS)
  21 #include "vaogs/jumptn.c"
  22 #else
  23 /*>    ROUTINE JUMPTN
  24   CERN PROGLIB# Z043    JUMPTN          .VERSION KERNFOR  4.40  940929
  25   ORIG. 21/04/88 JZ+FCA
  26 C
  27 C-    To transfer to the user routine TARGET (say) with 2 parameters
  28 C-    two steps are needed :
  29
  30 C- 1) EXTERNAL TARGET              to get the address of TARGET
  31 C-    IADR = JUMPAD (TARGET)
  32
  33 C- 3) CALL JUMPT2 (IADR,par1,par2)      to transfer
  34 */
  35 #if defined(CERNLIB_QCCINDAD)
  36 #define IADR *iadr
  37 #endif
  38 #if !defined(CERNLIB_QCCINDAD)
  39 #define IADR iadr
  40 #endif
  41 #if defined(CERNLIB_QX_SC)
  42 #define jumpt0 type_of_call jumpt0_
  43 #define jumpt1 type_of_call jumpt1_
  44 #define jumpt2 type_of_call jumpt2_
  45 #define jumpt3 type_of_call jumpt3_
  46 #define jumpt4 type_of_call jumpt4_
  47 #define jumpt5 type_of_call jumpt5_
  48 #define jumpt6 type_of_call jumpt6_
  49 #define jumpt7 type_of_call jumpt7_
  50 #define jumpt8 type_of_call jumpt8_
  51 #define jumpt9 type_of_call jumpt9_
  52 #endif
  53 #if defined(CERNLIB_QXCAPT)
  54 #define jumpt0 type_of_call JUMPT0
  55 #define jumpt1 type_of_call JUMPT1
  56 #define jumpt2 type_of_call JUMPT2
  57 #define jumpt3 type_of_call JUMPT3
  58 #define jumpt4 type_of_call JUMPT4
  59 #define jumpt5 type_of_call JUMPT5
  60 #define jumpt6 type_of_call JUMPT6
  61 #define jumpt7 type_of_call JUMPT7
  62 #define jumpt8 type_of_call JUMPT8
  63 #define jumpt9 type_of_call JUMPT9
  64 #endif
  65 void jumpt0(iadr)
  66      void (type_of_call **IADR)();
  67 {
  68     (**IADR)();
  69     return;
  70 }
  71
  72 void jumpt1(iadr,ixa)
  73      void (type_of_call **IADR)();
  74      char *ixa;
  75 {
  76     (**IADR)(ixa);
  77     return;
  78 }
  79
  80 void jumpt2(iadr, ixa, ixb)
  81      void (type_of_call **IADR)();
  82      char *ixa, *ixb;
  83 {
  84     (**IADR)(ixa, ixb);
  85     return;
  86 }
  87 void jumpt3(iadr, ixa, ixb, ixc)
  88      void (type_of_call **IADR)();
  89      char *ixa, *ixb, *ixc;
  90 {
  91     (**IADR)(ixa, ixb, ixc);
  92     return;
  93 }
  94 void jumpt4(iadr, ixa, ixb, ixc, ixd)
  95      void (type_of_call **IADR)();
  96      char *ixa, *ixb, *ixc, *ixd;
  97 {
  98     (**IADR)(ixa, ixb, ixc, ixd);
  99     return;
 100 }
 101 void jumpt5(iadr, ixa, ixb, ixc, ixd, ixe)
 102      void (type_of_call **IADR)();
 103      char *ixa, *ixb, *ixc, *ixd, *ixe;
 104 {
 105     (**IADR)(ixa, ixb, ixc, ixd, ixe);
 106     return;
 107 }
 108 void jumpt6(iadr, ixa, ixb, ixc, ixd, ixe, ixf)
 109      void (type_of_call **IADR)();
 110      char *ixa, *ixb, *ixc, *ixd, *ixe, *ixf;
 111 {
 112     (**IADR)(ixa, ixb, ixc, ixd, ixe, ixf);
 113     return;
 114 }
 115 void jumpt7(iadr, ixa, ixb, ixc, ixd, ixe, ixf, ixg)
 116      void (type_of_call **IADR)();
 117      char *ixa, *ixb, *ixc, *ixd, *ixe, *ixf, *ixg;
 118 {
 119     (**IADR)(ixa, ixb, ixc, ixd, ixe, ixf, ixg);
 120     return;
 121 }
 122 void jumpt8(iadr, ixa, ixb, ixc, ixd, ixe, ixf, ixg, ixh)
 123      void (type_of_call **IADR)();
 124      char *ixa, *ixb, *ixc, *ixd, *ixe, *ixf, *ixg, *ixh;
 125 {
 126     (**IADR)(ixa, ixb, ixc, ixd, ixe, ixf, ixg, ixh);
 127     return;
 128 }
 129 void jumpt9(iadr, ixa, ixb, ixc, ixd, ixe, ixf, ixg, ixh, ixi)
 130      void (type_of_call **IADR)();
 131      char *ixa, *ixb, *ixc, *ixd, *ixe, *ixf, *ixg, *ixh, *ixi;
 132 {
 133     (**IADR)(ixa, ixb, ixc, ixd, ixe, ixf, ixg, ixh, ixi);
 134     return;
 135 }
 136 /*> END <----------------------------------------------------------*/
 137 #endif