/dports/science/dynare/dynare-4.6.4/contrib/dmm/ |
H A D | designz.for | 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)) 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 D | pprod.for | 28 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 D | drawpsi.for | 29 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 D | hf.for | 28 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 D | mengwong.for | 41 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 D | mengwong2.for | 41 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 D | harmonic.for | 34 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 D | harmonic2.for | 35 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 D | forecast.for | 39 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 D | main.for | 316 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 D | simdata.for | 19 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 D | gck.for | 90 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 D | int2seq.for | 5 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 D | snls1q.f | 29 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 D | dnls1q.f | 29 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 D | dnsqqk.f | 25 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 D | snsqqk.f | 26 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 D | snls1e.f | 89 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 D | regularize.cxx | 43 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 D | regularize.cxx | 43 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 D | regularize.cxx | 43 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 D | regularize.cxx | 43 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 D | regularize.cxx | 43 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 D | regularize.cxx | 43 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 D | gi.c | 162 #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 …]
|