]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/02/15 17:49:53 mclareni | |
6 | * Kernlib | |
7 | * | |
8 | * | |
9 | #include "kerngen/pilot.h" | |
10 | SUBROUTINE RANECQ(IS1,IS2,ISEQ,CHOPT) | |
11 | C | |
12 | C CERN PROGLIB# V114 RANECQ .VERSION KERNFOR 4.21 890323 | |
13 | C ORIG. 01/03/89 FCA + FJ | |
14 | C | |
15 | CHARACTER*(*) CHOPT | |
16 | CHARACTER*12 CCHOPT | |
17 | #if defined(CERNLIB_QMIBM)||defined(CERNLIB_QMIBX)||defined(CERNLIB_QMAPO10) | |
18 | DOUBLE PRECISION ISEED | |
19 | #endif | |
20 | #if defined(CERNLIB_QMCRY) | |
21 | REAL ISEED | |
22 | #endif | |
23 | PARAMETER (MAXSEQ=100) | |
24 | DIMENSION LSEQS(2,MAXSEQ) | |
25 | COMMON / RANEC1 / JSEQ(2), ISEED(2,MAXSEQ) | |
26 | SAVE /RANEC1/ | |
27 | DATA (LSEQS(J, 1),J=1,2) / 9876, 54321/ | |
28 | DATA (LSEQS(J, 2),J=1,2) /1058718014,1872605764/ | |
29 | DATA (LSEQS(J, 3),J=1,2) /1814868809, 849641138/ | |
30 | DATA (LSEQS(J, 4),J=1,2) /1503041326, 998515605/ | |
31 | DATA (LSEQS(J, 5),J=1,2) / 628142053, 244439171/ | |
32 | DATA (LSEQS(J, 6),J=1,2) /1391554630, 846883852/ | |
33 | DATA (LSEQS(J, 7),J=1,2) /1535236638, 154775958/ | |
34 | DATA (LSEQS(J, 8),J=1,2) /1747133713,1575487760/ | |
35 | DATA (LSEQS(J, 9),J=1,2) / 714962706,2107758832/ | |
36 | DATA (LSEQS(J, 10),J=1,2) /1486824114, 786139113/ | |
37 | DATA (LSEQS(J, 11),J=1,2) /1323688611, 371658774/ | |
38 | DATA (LSEQS(J, 12),J=1,2) /1570590541, 630312859/ | |
39 | DATA (LSEQS(J, 13),J=1,2) /1555058144, 358976382/ | |
40 | DATA (LSEQS(J, 14),J=1,2) / 952681104,1242126412/ | |
41 | DATA (LSEQS(J, 15),J=1,2) /1083789165,1890043487/ | |
42 | DATA (LSEQS(J, 16),J=1,2) / 631749547,1925864168/ | |
43 | DATA (LSEQS(J, 17),J=1,2) /1178945274,1475158130/ | |
44 | DATA (LSEQS(J, 18),J=1,2) /1009344940,1502757676/ | |
45 | DATA (LSEQS(J, 19),J=1,2) /1933972860,1627514572/ | |
46 | DATA (LSEQS(J, 20),J=1,2) /1875817978, 567972013/ | |
47 | DATA (LSEQS(J, 21),J=1,2) / 446320203, 273324776/ | |
48 | DATA (LSEQS(J, 22),J=1,2) / 460899131,1527583930/ | |
49 | DATA (LSEQS(J, 23),J=1,2) / 35532104, 558897732/ | |
50 | DATA (LSEQS(J, 24),J=1,2) /2089458455,1339622951/ | |
51 | DATA (LSEQS(J, 25),J=1,2) /1535926201,1918446533/ | |
52 | DATA (LSEQS(J, 26),J=1,2) / 669734232,1019772931/ | |
53 | DATA (LSEQS(J, 27),J=1,2) / 501928827, 285518477/ | |
54 | DATA (LSEQS(J, 28),J=1,2) / 942354467, 280177956/ | |
55 | DATA (LSEQS(J, 29),J=1,2) / 192461969,1576639468/ | |
56 | DATA (LSEQS(J, 30),J=1,2) /1601863355, 661544549/ | |
57 | DATA (LSEQS(J, 31),J=1,2) /1743728581, 523887323/ | |
58 | DATA (LSEQS(J, 32),J=1,2) /1703010089,1259731603/ | |
59 | DATA (LSEQS(J, 33),J=1,2) /1643511188, 875622567/ | |
60 | DATA (LSEQS(J, 34),J=1,2) /1755559262,2142089492/ | |
61 | DATA (LSEQS(J, 35),J=1,2) / 114689819, 126275958/ | |
62 | DATA (LSEQS(J, 36),J=1,2) / 105250298,1127134231/ | |
63 | DATA (LSEQS(J, 37),J=1,2) / 79402987,1236641847/ | |
64 | DATA (LSEQS(J, 38),J=1,2) / 387101667,1706644076/ | |
65 | DATA (LSEQS(J, 39),J=1,2) /1734232502, 664024463/ | |
66 | DATA (LSEQS(J, 40),J=1,2) /2123161160,1759230139/ | |
67 | DATA (LSEQS(J, 41),J=1,2) /1811169504,1405252309/ | |
68 | DATA (LSEQS(J, 42),J=1,2) /1766746084, 274705383/ | |
69 | DATA (LSEQS(J, 43),J=1,2) / 959435020, 108779126/ | |
70 | DATA (LSEQS(J, 44),J=1,2) /2062813302,1863432262/ | |
71 | DATA (LSEQS(J, 45),J=1,2) /1691639052,1503605588/ | |
72 | DATA (LSEQS(J, 46),J=1,2) /1086444145, 158310100/ | |
73 | DATA (LSEQS(J, 47),J=1,2) /2058594463, 810394383/ | |
74 | DATA (LSEQS(J, 48),J=1,2) /2101564568,1105108539/ | |
75 | DATA (LSEQS(J, 49),J=1,2) / 978826660, 617502647/ | |
76 | DATA (LSEQS(J, 50),J=1,2) /1436276288, 529578818/ | |
77 | DATA (LSEQS(J, 51),J=1,2) / 556864235, 606529730/ | |
78 | DATA (LSEQS(J, 52),J=1,2) /1078146847,1147358663/ | |
79 | DATA (LSEQS(J, 53),J=1,2) /1447193285,1376658008/ | |
80 | DATA (LSEQS(J, 54),J=1,2) /1006664521,1311015086/ | |
81 | DATA (LSEQS(J, 55),J=1,2) /1837174956, 768046385/ | |
82 | DATA (LSEQS(J, 56),J=1,2) / 896589370, 260492364/ | |
83 | DATA (LSEQS(J, 57),J=1,2) /1360218380,1414233683/ | |
84 | DATA (LSEQS(J, 58),J=1,2) /1278625491,1552675421/ | |
85 | DATA (LSEQS(J, 59),J=1,2) /1011812242,1458050027/ | |
86 | DATA (LSEQS(J, 60),J=1,2) /1754922946,1785085266/ | |
87 | DATA (LSEQS(J, 61),J=1,2) /1343566665, 443288238/ | |
88 | DATA (LSEQS(J, 62),J=1,2) /1437791085,2078825854/ | |
89 | DATA (LSEQS(J, 63),J=1,2) /2094123993,1341409348/ | |
90 | DATA (LSEQS(J, 64),J=1,2) /1537730690, 153906788/ | |
91 | DATA (LSEQS(J, 65),J=1,2) /2127544614, 4856371/ | |
92 | DATA (LSEQS(J, 66),J=1,2) /1004692237, 786489538/ | |
93 | DATA (LSEQS(J, 67),J=1,2) / 821800123,1417369188/ | |
94 | DATA (LSEQS(J, 68),J=1,2) / 312261859, 286397034/ | |
95 | DATA (LSEQS(J, 69),J=1,2) /1519811572, 144643793/ | |
96 | DATA (LSEQS(J, 70),J=1,2) / 5329351,1263184329/ | |
97 | DATA (LSEQS(J, 71),J=1,2) /1416419532,1842707225/ | |
98 | DATA (LSEQS(J, 72),J=1,2) /1697860185, 840465352/ | |
99 | DATA (LSEQS(J, 73),J=1,2) /1934192451, 619946463/ | |
100 | DATA (LSEQS(J, 74),J=1,2) / 170088516,1174161868/ | |
101 | DATA (LSEQS(J, 75),J=1,2) /1304806046, 108470534/ | |
102 | DATA (LSEQS(J, 76),J=1,2) /1976265015,1714480092/ | |
103 | DATA (LSEQS(J, 77),J=1,2) / 783664411, 978542208/ | |
104 | DATA (LSEQS(J, 78),J=1,2) /1694901962, 55891868/ | |
105 | DATA (LSEQS(J, 79),J=1,2) /1548123234, 424683817/ | |
106 | DATA (LSEQS(J, 80),J=1,2) /1042788941,1370039022/ | |
107 | DATA (LSEQS(J, 81),J=1,2) /1576822555,1268584439/ | |
108 | DATA (LSEQS(J, 82),J=1,2) / 831708278,1432924432/ | |
109 | DATA (LSEQS(J, 83),J=1,2) / 993848687, 233811113/ | |
110 | DATA (LSEQS(J, 84),J=1,2) / 745249148, 738800065/ | |
111 | DATA (LSEQS(J, 85),J=1,2) /1947731465,1336392610/ | |
112 | DATA (LSEQS(J, 86),J=1,2) /1402689657,1392469639/ | |
113 | DATA (LSEQS(J, 87),J=1,2) / 311285254,1241207984/ | |
114 | DATA (LSEQS(J, 88),J=1,2) /1206768222, 887510662/ | |
115 | DATA (LSEQS(J, 89),J=1,2) / 762376025,1967748670/ | |
116 | DATA (LSEQS(J, 90),J=1,2) / 923860508, 824843061/ | |
117 | DATA (LSEQS(J, 91),J=1,2) / 755432194,1333575913/ | |
118 | DATA (LSEQS(J, 92),J=1,2) / 233721957, 126133675/ | |
119 | DATA (LSEQS(J, 93),J=1,2) /1989717210, 691593480/ | |
120 | DATA (LSEQS(J, 94),J=1,2) /1030990373, 128881640/ | |
121 | DATA (LSEQS(J, 95),J=1,2) /1322807026, 928284400/ | |
122 | DATA (LSEQS(J, 96),J=1,2) /1169603884,1077182026/ | |
123 | DATA (LSEQS(J, 97),J=1,2) / 976273645,1973303129/ | |
124 | DATA (LSEQS(J, 98),J=1,2) / 530354343,1592879270/ | |
125 | DATA (LSEQS(J, 99),J=1,2) / 947509404, 205601315/ | |
126 | DATA (LSEQS(J,100),J=1,2) /1840231302,1716122836/ | |
127 | C | |
128 | CCHOPT = CHOPT | |
129 | IF(CCHOPT.EQ.' ') THEN | |
130 | JSEQ(1) = 1 | |
131 | IF(ISEQ.GT.0.AND.ISEQ.LE.MAXSEQ) JSEQ(1) = ISEQ | |
132 | ISEED(1,JSEQ(1)) = LSEQS(1,JSEQ(1)) | |
133 | ISEED(2,JSEQ(1)) = LSEQS(2,JSEQ(1)) | |
134 | GO TO 999 | |
135 | ENDIF | |
136 | IF(INDEX(CHOPT,'S').NE.0) THEN | |
137 | IF(ISEQ.GT.0) JSEQ(1) = ISEQ | |
138 | IF(IS1.GT.0.AND.IS2.GT.0) THEN | |
139 | ISEED(1,JSEQ(1)) = IS1 | |
140 | ISEED(2,JSEQ(1)) = IS2 | |
141 | ENDIF | |
142 | ENDIF | |
143 | IF(INDEX(CHOPT,'R').NE.0) THEN | |
144 | IF(ISEQ.LE.0) ISEQ = JSEQ(1) | |
145 | IS1 = ISEED(1,ISEQ) | |
146 | IS2 = ISEED(2,ISEQ) | |
147 | JSEQ(1) = ISEQ | |
148 | ENDIF | |
149 | IF(INDEX(CHOPT,'Q').NE.0) THEN | |
150 | IF(ISEQ.GE.0.AND.ISEQ.LE.MAXSEQ) THEN | |
151 | IS1 = LSEQS(1,ISEQ) | |
152 | IS2 = LSEQS(2,ISEQ) | |
153 | ELSE | |
154 | IS1 = 0 | |
155 | IS2 = 0 | |
156 | ENDIF | |
157 | ENDIF | |
158 | C | |
159 | 999 RETURN | |
160 | END |