Home
last modified time | relevance | path

Searched refs:INFOS (Results 1 – 25 of 299) sorted by relevance

12345678910>>...12

/dports/science/dynare/dynare-4.6.4/contrib/dmm/
H A Ddesignz.for39 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))
65 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
84 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
100 P2(INFOS(8,2),J) = 1.D0-SUM(P2(1:INFOS(8,2)-1,J))
119 P1(INFOS(8,1),J) = 1.D0-SUM(P1(1:INFOS(8,1)-1,J))
135 P2(INFOS(8,2),J) = 1.D0-SUM(P2(1:INFOS(8,2)-1,J))
151 P3(INFOS(8,3),J) = 1.D0-SUM(P3(1:INFOS(8,3)-1,J))
[all …]
H A Dpprod.for28 INTEGER INFOS(9,6)
29 DOUBLE PRECISION P1(INFOS(8,1),INFOS(8,1)),
30 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
31 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
32 3 P6(INFOS(8,6),INFOS(8,6))
39 n1 = INFOS(8,1)
43 n2 = INFOS(8,2)
49 n3 = INFOS(8,3)
55 n4 = INFOS(8,4)
61 n5 = INFOS(8,5)
[all …]
H A Ddrawpsi.for29 C INFOS (9 x 6):
57 SUBROUTINE DRAWPSI(nobs,nv,np,INFOS,Z,psiprior,psi0,psi) argument
60 INTEGER nobs,nv,np(3),Z(nobs),INFOS(9,6)
74 ALLOCATE(P1(INFOS(8,1),INFOS(8,1)),
75 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
76 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
77 3 P6(INFOS(8,6),INFOS(8,6)))
80 1 CALL INT2SEQ(Z(I),nv,INFOS,SEQ(I,1:nv),S(I,1:6))
86 NSI = INFOS(8,I) ! # of states for SI
88 IF (INFOS(9,I).EQ.1) THEN ! S~IID
[all …]
H A Dhf.for28 SUBROUTINE HF(nobs,nx,nk,nz,nu,ns,nv,np,psi,ismoo,yk,IYK,INFOS, argument
32 INTEGER nobs,nx,nk,nz,nu,nv,np,ns(6),ismoo,IYK(nobs,nx+1),INFOS(9,6)
46 ALLOCATE(PP1(INFOS(8,1),INFOS(8,1)),PP2(INFOS(8,2),INFOS(8,2)),
47 1 PP3(INFOS(8,3),INFOS(8,3)),PP4(INFOS(8,4),INFOS(8,4)),
48 1 PP5(INFOS(8,5),INFOS(8,5)),PP6(INFOS(8,6),INFOS(8,6)))
54 CALL designz(nv,np,psi,INFOS,PP1,PP2,PP3,PP4,PP5,PP6)
55 CALL pprod(nv,nk,INFOS,PP1,PP2,PP3,PP4,PP5,PP6,P)
89 CALL int2seq(I,nv,INFOS,SEQ,IS)
149 CALL int2seq(I,nv,INFOS,SEQ,IS)
H A Dmengwong.for41 1 INFOS(9,6),gibZ(G,nobs),IYK(nobs,ny+1)
60 DOUBLE PRECISION P1(INFOS(8,1),INFOS(8,1)),
61 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
62 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
63 3 P6(INFOS(8,6),INFOS(8,6))
133 IF (INFOS(9,I).EQ.1) THEN ! S~IID
224 IF (INFOS(9,I).EQ.1) THEN ! S~IID
300 NSI = INFOS(8,J)
301 IF(INFOS(9,J).EQ.1) THEN ! S~IID
361 NSI = INFOS(8,J)
[all …]
H A Dmengwong2.for41 1 INFOS(9,6),gibZ(G,nobs)
60 DOUBLE PRECISION P1(INFOS(8,1),INFOS(8,1)),
61 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
62 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
63 3 P6(INFOS(8,6),INFOS(8,6))
132 IF (INFOS(9,I).EQ.1) THEN ! S~IID
223 IF (INFOS(9,I).EQ.1) THEN ! S~IID
299 NSI = INFOS(8,J)
300 IF(INFOS(9,J).EQ.1) THEN ! S~IID
360 NSI = INFOS(8,J)
[all …]
H A Dharmonic.for34 1 INFOS(9,6),gibZ(G,nobs),IYK(nobs,ny+1)
52 DOUBLE PRECISION P1(INFOS(8,1),INFOS(8,1)),
53 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
54 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
55 3 P6(INFOS(8,6),INFOS(8,6))
145 IF (INFOS(9,I).EQ.1) THEN ! S~IID
153 ELSEIF (INFOS(9,I).EQ.2) THEN ! S~Markov
182 CALL INT2SEQ(gibZ(IG,1),nv,INFOS,SEQ,IS(1,:))
208 NSI = INFOS(8,J)
209 IF(INFOS(9,J).EQ.1) THEN ! S~IID
[all …]
H A Dharmonic2.for35 1 INFOS(9,6),gibZ(G,nobs)
53 DOUBLE PRECISION P1(INFOS(8,1),INFOS(8,1)),
54 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
55 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
56 3 P6(INFOS(8,6),INFOS(8,6))
146 IF (INFOS(9,I).EQ.1) THEN ! S~IID
154 ELSEIF (INFOS(9,I).EQ.2) THEN ! S~Markov
183 CALL INT2SEQ(gibZ(IG,1),nv,INFOS,SEQ,IS(1,:))
209 NSI = INFOS(8,J)
210 IF(INFOS(9,J).EQ.1) THEN ! S~IID
[all …]
H A Dforecast.for39 1 theta,psi,INFOS,Z,STATE,pdll,FORE)
55 INTEGER nf,ny,nz,nx,nu,nv,nt,np(3),ns(6),nstot,Z,INFOS(9,6)
85 ALLOCATE (P1(INFOS(8,1),INFOS(8,1)),
86 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
87 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
88 3 P6(INFOS(8,6),INFOS(8,6)),PMAT(nstot,nstot),PE(nstot))
90 CALL DESIGNZ(nv,np(1),psi,INFOS,P1,P2,P3,P4,P5,P6)
92 CALL PPROD(nv,nstot,INFOS,P1,P2,P3,P4,P5,P6,PMAT)
108 CALL INT2SEQ(ISEQ,nv,INFOS,SEQ,S)
137 CALL INT2SEQ(ISEQ,nv,INFOS,SEQ,S)
H A Dmain.for316 psiprior(K+1,1:INFOS(8,I)) = hypS(1:INFOS(8,I),1,I)
319 DO J = 1,INFOS(8,I)
320 psiprior(K+J,1:INFOS(8,I)) = hypS(1:INFOS(8,I),J,I)
345 c CALL G05FEF(1.D0,1.D0,INFOS(8,J)-1,psi0(K+1:K+INFOS(8,J)-1),
349 psi0(K+1:K+INFOS(8,J)-1) = psi0(K+1:K+INFOS(8,J)-1)/
351 K = K + INFOS(8,J)-1
353 DO I = 1,INFOS(8,J)
354 c CALL G05FEF(1.D0,1.D0,INFOS(8,J)-1,psi0(K+1:K+INFOS(8,J)-1),
361 psi0(K+1:K+INFOS(8,J)-1) = psi0(K+1:K+INFOS(8,J)-1)/
379 WRITE(10,1112) INFOS(8,I),psiprior(K+1,:),INFOS(9,I)
[all …]
H A Dsimdata.for19 C Set latent variables: INFOS (9 x nv)
50 SUBROUTINE SIMDATA(nobs,d,ny,nz,nx,nu,ns,nstot,nt,nv,np,INFOS, argument
66 INTEGER nobs,d(2),ny,nz,nx,nu,ns(6),nstot,nt,nv,np(3),INFOS(9,6)
75 DOUBLE PRECISION P1(INFOS(8,1),INFOS(8,1)),
76 1 P2(INFOS(8,2),INFOS(8,2)),P3(INFOS(8,3),INFOS(8,3)),
77 2 P4(INFOS(8,4),INFOS(8,4)),P5(INFOS(8,5),INFOS(8,5)),
78 3 P6(INFOS(8,6),INFOS(8,6)),PMAT(nstot,nstot),PE(nstot)
104 CALL DESIGNZ(nv,np(1),psi,INFOS,P1,P2,P3,P4,P5,P6)
106 CALL PPROD(nv,nstot,INFOS,P1,P2,P3,P4,P5,P6,PMAT)
117 CALL INT2SEQ(Z(1),nv,INFOS,SEQ,S(1,:))
[all …]
H A Dgck.for90 1 P1(MAX(1,INFOS(8,1)*MIN(INFOS(9,1),1)),
91 1 MAX(1,INFOS(8,1)*MIN(INFOS(9,1),1))),
92 1 P2(MAX(1,INFOS(8,2)*MIN(INFOS(9,2),1)),
93 1 MAX(1,INFOS(8,2)*MIN(INFOS(9,2),1))),
94 1 P3(MAX(1,INFOS(8,3)*MIN(INFOS(9,3),1)),
95 1 MAX(1,INFOS(8,3)*MIN(INFOS(9,3),1))),
96 1 P4(MAX(1,INFOS(8,4)*MIN(INFOS(9,4),1)),
97 1 MAX(1,INFOS(8,4)*MIN(INFOS(9,4),1))),
98 1 P5(MAX(1,INFOS(8,5)*MIN(INFOS(9,5),1)),
99 1 MAX(1,INFOS(8,5)*MIN(INFOS(9,5),1))),
[all …]
H A Dint2seq.for5 C INFOS = info for S-var
28 SUBROUTINE INT2SEQ(int,nv,INFOS,SEQ,IS) argument
30 INTEGER int,nv,INFOS(9,6)
38 ns(1:nv) = INFOS(8,1:nv)
54 DO 20 j = 1,INFOS(1,i)
55 20 IS(INFOS(j+1,i)) = SEQ(i)
/dports/math/slatec/
H A Dsnls1q.f29 INTEGER I, IFLAG, INFO, INFOS, IOPT, KONTRL, LDFJAC, LWA, M, N,
48 INFOS = 1
78 + WRITE (LUN,9010) INFOS,FNORMS,INFO,FNORM
104 IF (INFO.EQ.INFOS .AND. ABS(TEMP1-ONE).LT.TOL2 .AND.
114 + WRITE (LUN,9020) INFOS,INFO,TEMP1,TEMP2,TEMP3
133 + WRITE (LUN,9010) INFOS,FNORMS,INFO,FNORM
159 IF (INFO.EQ.INFOS .AND. ABS(TEMP1-ONE).LT.TOL2 .AND.
169 + WRITE (LUN,9020) INFOS,INFO,TEMP1,TEMP2,TEMP3
189 + WRITE (LUN,9010) INFOS,FNORMS,INFO,FNORM
215 IF (INFO.EQ.INFOS .AND. ABS(TEMP1-ONE).LT.TOL2 .AND.
[all …]
H A Ddnls1q.f29 INTEGER I, IFLAG, INFO, INFOS, IOPT, KONTRL, LDFJAC, LWA, M, N,
49 INFOS = 1
79 + WRITE (LUN,9010) INFOS,FNORMS,INFO,FNORM
105 IF (INFO.EQ.INFOS .AND. ABS(TEMP1-ONE).LT.TOL2 .AND.
115 + WRITE (LUN,9020) INFOS,INFO,TEMP1,TEMP2,TEMP3
134 + WRITE (LUN,9010) INFOS,FNORMS,INFO,FNORM
160 IF (INFO.EQ.INFOS .AND. ABS(TEMP1-ONE).LT.TOL2 .AND.
170 + WRITE (LUN,9020) INFOS,INFO,TEMP1,TEMP2,TEMP3
190 + WRITE (LUN,9010) INFOS,FNORMS,INFO,FNORM
216 IF (INFO.EQ.INFOS .AND. ABS(TEMP1-ONE).LT.TOL2 .AND.
[all …]
H A Ddnsqqk.f25 INTEGER ICNT, INFO, INFOS, IOPT, LWA, N, NPRINT
37 INFOS = 1
54 IF ((INFO.EQ.INFOS) .AND. (FNORM-FNORMS.LE.TOL)) ITEST(ICNT) = 1
58 + WRITE (LUN,9010) INFOS,FNORMS,INFO,FNORM
72 IF ((INFO.EQ.INFOS) .AND. (FNORM-FNORMS.LE.TOL)) ITEST(ICNT) = 1
76 + WRITE (LUN,9010) INFOS, FNORMS, INFO, FNORM
H A Dsnsqqk.f26 INTEGER ICNT, INFO, INFOS, IOPT, LWA, N, NPRINT
38 INFOS = 1
55 IF ((INFO.EQ.INFOS) .AND. (FNORM-FNORMS.LE.TOL)) ITEST(ICNT) = 1
59 + WRITE (LUN,9010) INFOS,FNORMS,INFO,FNORM
73 IF ((INFO.EQ.INFOS) .AND. (FNORM-FNORMS.LE.TOL)) ITEST(ICNT) = 1
77 + WRITE (LUN,9010) INFOS, FNORMS, INFO, FNORM
/dports/math/cmlib/cmlib-3.0_8/test/
H A Dsnls1e.f89 INFOS=1
117 * WRITE(LUN,1010) INFOS,FNORMS,INFO,FNORM
144 IF (INFO.EQ.INFOS .AND. ABS(TEMP1-ONE).LT.TOL2 .AND.
149 * WRITE(LUN,1020) INFOS,INFO,TEMP1,TEMP2,TEMP3
166 * WRITE(LUN,1010) INFOS,FNORMS,INFO,FNORM
198 * WRITE(LUN,1020) INFOS,INFO,TEMP1,TEMP2,TEMP3
216 * WRITE(LUN,1010) INFOS,FNORMS,INFO,FNORM
248 * WRITE(LUN,1020) INFOS,INFO,TEMP1,TEMP2,TEMP3
292 INFOS=1
312 * WRITE(LUN,1010) INFOS,FNORMS,INFO,FNORM
[all …]
/dports/math/eigen3/eigen-3.3.9/bench/btl/data/
H A Dregularize.cxx43 INFOS("!!! Error ... usage : main filename start_cut_size stop_cut_size regularize_filename"); in main()
46 INFOS(argc); in main()
54 INFOS(filename); in main()
55 INFOS("start_cut_size="<<start_cut_size); in main()
114 INFOS("!!! Error opening "<<filename); in read_xy_file()
/dports/math/stanmath/math-4.2.0/lib/eigen_3.3.9/bench/btl/data/
H A Dregularize.cxx43 INFOS("!!! Error ... usage : main filename start_cut_size stop_cut_size regularize_filename"); in main()
46 INFOS(argc); in main()
54 INFOS(filename); in main()
55 INFOS("start_cut_size="<<start_cut_size); in main()
114 INFOS("!!! Error opening "<<filename); in read_xy_file()
/dports/math/libmesh/libmesh-1.6.2/contrib/eigen/3.2.9/bench/btl/data/
H A Dregularize.cxx43 INFOS("!!! Error ... usage : main filename start_cut_size stop_cut_size regularize_filename"); in main()
46 INFOS(argc); in main()
54 INFOS(filename); in main()
55 INFOS("start_cut_size="<<start_cut_size); in main()
114 INFOS("!!! Error opening "<<filename); in read_xy_file()
/dports/math/libsemigroups/libsemigroups-1.3.7/extern/eigen-3.3.7/bench/btl/data/
H A Dregularize.cxx43 INFOS("!!! Error ... usage : main filename start_cut_size stop_cut_size regularize_filename"); in main()
46 INFOS(argc); in main()
54 INFOS(filename); in main()
55 INFOS("start_cut_size="<<start_cut_size); in main()
114 INFOS("!!! Error opening "<<filename); in read_xy_file()
/dports/misc/opennn/opennn-5.0.5/eigen/bench/btl/data/
H A Dregularize.cxx43 INFOS("!!! Error ... usage : main filename start_cut_size stop_cut_size regularize_filename"); in main()
46 INFOS(argc); in main()
54 INFOS(filename); in main()
55 INFOS("start_cut_size="<<start_cut_size); in main()
114 INFOS("!!! Error opening "<<filename); in read_xy_file()
/dports/devel/taskflow/taskflow-3.2.0/3rd-party/eigen-3.3.7/bench/btl/data/
H A Dregularize.cxx43 INFOS("!!! Error ... usage : main filename start_cut_size stop_cut_size regularize_filename"); in main()
46 INFOS(argc); in main()
54 INFOS(filename); in main()
55 INFOS("start_cut_size="<<start_cut_size); in main()
114 INFOS("!!! Error opening "<<filename); in read_xy_file()
/dports/devel/lua-lgi/lgi-0.9.2/lgi/
H A Dgi.c162 #define INFOS(n1, n2) \ in info_index() macro
302 INFOS (struct, field) in info_index()
303 INFOS (struct, method); in info_index()
312 INFOS (union, field) in info_index()
313 INFOS (union, method); in info_index()
334 INFOS (object, field) in info_index()
335 INFOS (object, vfunc) in info_index()
336 INFOS (object, method) in info_index()
409 INFOS (enum, method) in info_index()
411 INFOS (enum, value) in info_index()
[all …]

12345678910>>...12