]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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 |