Lines Matching refs:INFOS
2 C DESIGNZ sets transition probs for latent variables using INFOS
34 SUBROUTINE DESIGNZ(nv,np,psi,INFOS,P1,P2,P3,P4,P5,P6) argument
36 INTEGER nv,np,INFOS(9,6)
39 DOUBLE PRECISION P1(INFOS(8,1),INFOS(8,1)),
40 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
41 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
42 3 P6(INFOS(8,6),INFOS(8,6))
51 IF (INFOS(9,1).EQ.1) THEN ! S~IID
52 DO I = 1,INFOS(8,1)-1
55 K = K + INFOS(8,1)-1
56 ELSEIF (INFOS(9,1).EQ.2) THEN ! S~Markov
57 DO J = 1,INFOS(8,1)
58 DO I = 1,INFOS(8,1)-1
61 K = K + INFOS(8,1)-1
64 DO J = 1,INFOS(8,1)
65 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
70 IF (INFOS(9,1).EQ.1) THEN
71 DO I = 1,INFOS(8,1)-1
74 K = K + INFOS(8,1)-1
75 ELSEIF (INFOS(9,1).EQ.2) THEN
76 DO J = 1,INFOS(8,1)
77 DO I = 1,INFOS(8,1)-1
80 K = K + INFOS(8,1)-1
83 DO J = 1,INFOS(8,1)
84 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
86 IF (INFOS(9,2).EQ.1) THEN
87 DO I = 1,INFOS(8,2)-1
90 K = K + INFOS(8,2)-1
91 ELSEIF (INFOS(9,2).EQ.2) THEN
92 DO J = 1,INFOS(8,2)
93 DO I = 1,INFOS(8,2)-1
96 K = K + INFOS(8,2)-1
99 DO J = 1,INFOS(8,2)
100 P2(INFOS(8,2),J) = 1.D0-SUM(P2(1:INFOS(8,2)-1,J))
105 IF (INFOS(9,1).EQ.1) THEN
106 DO I = 1,INFOS(8,1)-1
109 K = K + INFOS(8,1)-1
110 ELSEIF (INFOS(9,1).EQ.2) THEN
111 DO J = 1,INFOS(8,1)
112 DO I = 1,INFOS(8,1)-1
115 K = K + INFOS(8,1)-1
118 DO J = 1,INFOS(8,1)
119 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
121 IF (INFOS(9,2).EQ.1) THEN
122 DO I = 1,INFOS(8,2)-1
125 K = K + INFOS(8,2)-1
126 ELSEIF (INFOS(9,2).EQ.2) THEN
127 DO J = 1,INFOS(8,2)
128 DO I = 1,INFOS(8,2)-1
131 K = K + INFOS(8,2)-1
134 DO J = 1,INFOS(8,2)
135 P2(INFOS(8,2),J) = 1.D0-SUM(P2(1:INFOS(8,2)-1,J))
137 IF (INFOS(9,3).EQ.1) THEN
138 DO I = 1,INFOS(8,3)-1
141 K = K + INFOS(8,3)-1
142 ELSEIF (INFOS(9,3).EQ.2) THEN
143 DO J = 1,INFOS(8,3)
144 DO I = 1,INFOS(8,3)-1
147 K = K + INFOS(8,3)-1
150 DO J = 1,INFOS(8,3)
151 P3(INFOS(8,3),J) = 1.D0-SUM(P3(1:INFOS(8,3)-1,J))
156 IF (INFOS(9,1).EQ.1) THEN
157 DO I = 1,INFOS(8,1)-1
160 K = K + INFOS(8,1)-1
161 ELSEIF (INFOS(9,1).EQ.2) THEN
162 DO J = 1,INFOS(8,1)
163 DO I = 1,INFOS(8,1)-1
166 K = K + INFOS(8,1)-1
169 DO J = 1,INFOS(8,1)
170 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
172 IF (INFOS(9,2).EQ.1) THEN
173 DO I = 1,INFOS(8,2)-1
176 K = K + INFOS(8,2)-1
177 ELSEIF (INFOS(9,2).EQ.2) THEN
178 DO J = 1,INFOS(8,2)
179 DO I = 1,INFOS(8,2)-1
182 K = K + INFOS(8,2)-1
185 DO J = 1,INFOS(8,2)
186 P2(INFOS(8,2),J) = 1.D0-SUM(P2(1:INFOS(8,2)-1,J))
188 IF (INFOS(9,3).EQ.1) THEN
189 DO I = 1,INFOS(8,3)-1
192 K = K + INFOS(8,3)-1
193 ELSEIF (INFOS(9,3).EQ.2) THEN
194 DO J = 1,INFOS(8,3)
195 DO I = 1,INFOS(8,3)-1
198 K = K + INFOS(8,3)-1
201 DO J = 1,INFOS(8,3)
202 P3(INFOS(8,3),J) = 1.D0-SUM(P3(1:INFOS(8,3)-1,J))
204 IF (INFOS(9,4).EQ.1) THEN
205 DO I = 1,INFOS(8,4)-1
208 K = K + INFOS(8,4)-1
209 ELSEIF (INFOS(9,4).EQ.2) THEN
210 DO J = 1,INFOS(8,4)
211 DO I = 1,INFOS(8,4)-1
214 K = K + INFOS(8,4)-1
217 DO J = 1,INFOS(8,4)
218 P4(INFOS(8,4),J) = 1.D0-SUM(P4(1:INFOS(8,4)-1,J))
223 IF (INFOS(9,1).EQ.1) THEN
224 DO I = 1,INFOS(8,1)-1
227 K = K + INFOS(8,1)-1
228 ELSEIF (INFOS(9,1).EQ.2) THEN
229 DO J = 1,INFOS(8,1)
230 DO I = 1,INFOS(8,1)-1
233 K = K + INFOS(8,1)-1
236 DO J = 1,INFOS(8,1)
237 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
239 IF (INFOS(9,2).EQ.1) THEN
240 DO I = 1,INFOS(8,2)-1
243 K = K + INFOS(8,2)-1
244 ELSEIF (INFOS(9,2).EQ.2) THEN
245 DO J = 1,INFOS(8,2)
246 DO I = 1,INFOS(8,2)-1
249 K = K + INFOS(8,2)-1
252 DO J = 1,INFOS(8,2)
253 P2(INFOS(8,2),J) = 1.D0-SUM(P2(1:INFOS(8,2)-1,J))
255 IF (INFOS(9,3).EQ.1) THEN
256 DO I = 1,INFOS(8,3)-1
259 K = K + INFOS(8,3)-1
260 ELSEIF (INFOS(9,3).EQ.2) THEN
261 DO J = 1,INFOS(8,3)
262 DO I = 1,INFOS(8,3)-1
265 K = K + INFOS(8,3)-1
268 DO J = 1,INFOS(8,3)
269 P3(INFOS(8,3),J) = 1.D0-SUM(P3(1:INFOS(8,3)-1,J))
271 IF (INFOS(9,4).EQ.1) THEN
272 DO I = 1,INFOS(8,4)-1
275 K = K + INFOS(8,4)-1
276 ELSEIF (INFOS(9,4).EQ.2) THEN
277 DO J = 1,INFOS(8,4)
278 DO I = 1,INFOS(8,4)-1
281 K = K + INFOS(8,4)-1
284 DO J = 1,INFOS(8,4)
285 P4(INFOS(8,4),J) = 1.D0-SUM(P4(1:INFOS(8,4)-1,J))
287 IF (INFOS(9,5).EQ.1) THEN
288 DO I = 1,INFOS(8,5)-1
291 K = K + INFOS(8,5)-1
292 ELSEIF (INFOS(9,5).EQ.2) THEN
293 DO J = 1,INFOS(8,5)
294 DO I = 1,INFOS(8,5)-1
297 K = K + INFOS(8,5)-1
300 DO J = 1,INFOS(8,5)
301 P5(INFOS(8,5),J) = 1.D0-SUM(P5(1:INFOS(8,5)-1,J))
306 IF (INFOS(9,1).EQ.1) THEN
307 DO I = 1,INFOS(8,1)-1
310 K = K + INFOS(8,1)-1
311 ELSEIF (INFOS(9,1).EQ.2) THEN
312 DO J = 1,INFOS(8,1)
313 DO I = 1,INFOS(8,1)-1
316 K = K + INFOS(8,1)-1
319 DO J = 1,INFOS(8,1)
320 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
322 IF (INFOS(9,2).EQ.1) THEN
323 DO I = 1,INFOS(8,2)-1
326 K = K + INFOS(8,2)-1
327 ELSEIF (INFOS(9,2).EQ.2) THEN
328 DO J = 1,INFOS(8,2)
329 DO I = 1,INFOS(8,2)-1
332 K = K + INFOS(8,2)-1
335 DO J = 1,INFOS(8,2)
336 P2(INFOS(8,2),J) = 1.D0-SUM(P2(1:INFOS(8,2)-1,J))
338 IF (INFOS(9,3).EQ.1) THEN
339 DO I = 1,INFOS(8,3)-1
342 K = K + INFOS(8,3)-1
343 ELSEIF (INFOS(9,3).EQ.2) THEN
344 DO J = 1,INFOS(8,3)
345 DO I = 1,INFOS(8,3)-1
348 K = K + INFOS(8,3)-1
351 DO J = 1,INFOS(8,3)
352 P3(INFOS(8,3),J) = 1.D0-SUM(P3(1:INFOS(8,3)-1,J))
354 IF (INFOS(9,4).EQ.1) THEN
355 DO I = 1,INFOS(8,4)-1
358 K = K + INFOS(8,4)-1
359 ELSEIF (INFOS(9,4).EQ.2) THEN
360 DO J = 1,INFOS(8,4)
361 DO I = 1,INFOS(8,4)-1
364 K = K + INFOS(8,4)-1
367 DO J = 1,INFOS(8,4)
368 P4(INFOS(8,4),J) = 1.D0-SUM(P4(1:INFOS(8,4)-1,J))
370 IF (INFOS(9,5).EQ.1) THEN
371 DO I = 1,INFOS(8,5)-1
374 K = K + INFOS(8,5)-1
375 ELSEIF (INFOS(9,5).EQ.2) THEN
376 DO J = 1,INFOS(8,5)
377 DO I = 1,INFOS(8,5)-1
380 K = K + INFOS(8,5)-1
383 DO J = 1,INFOS(8,5)
384 P5(INFOS(8,5),J) = 1.D0-SUM(P5(1:INFOS(8,5)-1,J))
386 IF (INFOS(9,6).EQ.1) THEN
387 DO I = 1,INFOS(8,6)-1
390 K = K + INFOS(8,6)-1
391 ELSEIF (INFOS(9,6).EQ.2) THEN
392 DO J = 1,INFOS(8,6)
393 DO I = 1,INFOS(8,6)-1
396 K = K + INFOS(8,6)-1
399 DO J = 1,INFOS(8,6)
400 P6(INFOS(8,6),J) = 1.D0-SUM(P6(1:INFOS(8,6)-1,J))