/dports/science/dynare/dynare-4.6.4/contrib/dmm/ |
H A D | ikf.for | 166 COM(1:iny,1:iny) = Fi(1:iny,1:iny) 167 C CALL F02FAF('N','U',iny,COM(1:iny,1:iny),iny,W1(1:iny), 169 CALL DSYEV('N','U',iny,COM(1:iny,1:iny),iny,W1(1:iny),WORK1, 180 COM(1:iny,1:iny) = Fi(1:iny,1:iny) 182 C CALL F01ADF(iny,COM(1:iny+1,1:iny),iny+1,IFAIL) 208 CALL INVFBIS(Fs(1:iny,1:iny),Fi(1:iny,1:iny),iny,FiRANK, 209 1 Fsm(1:iny,1:iny),Fim(1:iny,1:iny),FFF(1:iny,1:iny)) 211 CALL INVF(Fs(1:iny,1:iny),Fi(1:iny,1:iny),iny,FiRANK, 212 1 Fsm(1:iny,1:iny),Fim(1:iny,1:iny),FFF(1:iny,1:iny)) 274 C CALL F03ABF(Fsm(1:iny,1:iny)+Fim(1:iny,1:iny),iny,iny, [all …]
|
H A D | ks.for | 176 COM(1:iny,1:iny) = Fi(1:iny,1:iny) 177 C CALL F02FAF('N','U',iny,COM(1:iny,1:iny),iny,W1(1:iny), 179 CALL DSYEV('N','U',iny,COM(1:iny,1:iny),iny,W1(1:iny), 191 COM(1:iny,1:iny) = Fi(1:iny,1:iny) 218 CALL INVFBIS(Fs(1:iny,1:iny),Fi(1:iny,1:iny),iny,FiRANK, 219 1 Fsm(1:iny,1:iny),Fim(1:iny,1:iny),FFF(1:iny,1:iny)) 221 CALL INVF(Fs(1:iny,1:iny),Fi(1:iny,1:iny),iny,FiRANK, 222 1 Fsm(1:iny,1:iny),Fim(1:iny,1:iny),FFF(1:iny,1:iny)) 226 Vis(imain,1:iny,1:iny) = Fsm(1:iny,1:iny) 227 Vii(imain,1:iny,1:iny) = Fim(1:iny,1:iny) [all …]
|
H A D | kf.for | 86 DO 40 I=1,iny 99 DO 55 J=1,iny 124 COM(1:iny,1:iny) = V(1:iny,1:iny) 126 C CALL F01ADF(iny,COM(1:iny+1,1:iny),iny+1,IFAIL) 127 CALL DPOTRF('L',iny,COM(1:iny,1:iny),iny,IFAIL) ! COM = L*L' 132 CALL DPOTRI('L',iny,COM(1:iny,1:ny),iny,IFAIL) ! COM = VV^-1 142 90 HPV(I,J) = SUM((HP1(1:iny,I)+RG(I,1:iny))*Vinv(1:iny,J)) 145 100 XT(imain,I) = X1(I)+SUM(HPV(I,1:iny)*INN(1:iny)) 149 + - SUM(HPV(I,1:iny)*(HP1(1:iny,I)+RG(I,1:iny))) 152 + - SUM(HPV(I,1:iny)*(HP1(1:iny,J)+RG(J,1:iny))) [all …]
|
H A D | innov.for | 112 DO 40 I=1,iny 126 DO 55 J=1,iny 150 COM(1:iny,1:iny) = V(1:iny,1:iny) 152 c CALL F01ADF(iny,COM(1:iny+1,1:iny),iny+1,IFAIL) 153 CALL DPOTRF('L',iny,COM(1:iny,1:iny),iny,IFAIL) ! COM = L*L' 154 CALL DPOTRI('L',iny,COM(1:iny,1:iny),iny,IFAIL) ! COM = VV^-1 164 90 HPV(I,J) = SUM((HP1(1:iny,I)+RG(I,1:iny))*Vinv(1:iny,J)) 167 100 XT(I) = X1(I)+SUM(HPV(I,1:iny)*INN(imain,1:iny)) 171 + - SUM(HPV(I,1:iny)*(HP1(1:iny,I)+RG(I,1:iny))) 174 + - SUM(HPV(I,1:iny)*(HP1(1:iny,J)+RG(J,1:iny))) [all …]
|
H A D | gck.for | 132 DO 10 I=1,iny 146 COM(1:iny,1:iny) = VV(1:iny,1:iny) 148 C CALL F01ADF(iny,COM(1:iny+1,1:iny), iny+1, IFAIL) 149 CALL DPOTRF('L',iny,COM(1:iny,1:iny),iny,IFAIL) ! COM = L*L' 150 CALL DPOTRI('L',iny,COM(1:iny,1:iny),iny,IFAIL) ! COM = VV^-1 173 80 BHRG(I,J) = SUM(B(I,1:iny)*HRG(1:iny,J)) 189 110 AA(I,J) = F(I,J,IS(5)) - SUM(B(I,1:iny)*HF(1:iny,J)) 240 170 VVHF(I,J) = SUM(VV(I,1:iny)*HF(1:iny,J)) 247 + + SUM(HF(1:iny,I)*VVHF(1:iny,J)) 259 + + SUM(B(I,1:iny)*(yk(IT+1,IYK(IT+1,1:iny)) [all …]
|
H A D | kim.for | 180 DO 40 K=1,iny 195 DO 55 L=1,iny 198 DO 56 K=1,iny 219 COM(1:iny,1:iny) = V(1:iny,1:iny) 221 C CALL F01ADF(iny,COM(1:iny+1,1:iny),iny+1,IFAIL) 222 CALL DPOTRF('L',iny,COM(1:iny,1:iny),iny,IFAIL) ! COM = L*L' 227 CALL DPOTRI('L',iny,COM(1:iny,1:ny),iny,IFAIL) ! COM = VV^-1 237 90 HPV(K,L) = SUM((HP1(1:iny,K)+RG(K,1:iny))*VINV(1:iny,L)) 244 + - SUM(HPV(K,1:iny)*(HP1(1:iny,K)+RG(K,1:iny))) 247 + - SUM(HPV(K,1:iny)*(HP1(1:iny,L)+RG(L,1:iny))) [all …]
|
/dports/math/clblas/clBLAS-2.10/src/library/blas/trtri/ |
H A D | triple_dgemm_update_128_16_R.cpp | 53 const int iny = get_local_id(1); \n 92 B += inx + __mul(iby + iny, ldb); \n 106 bs[inx][iny] = B[0 * ldb]; \n 107 bs[inx][iny + 4] = B[4 * ldb]; \n 108 bs[inx][iny + 8] = B[8 * ldb]; \n 109 bs[inx][iny + 12] = B[12 * ldb]; \n 173 B += inx + __mul(iby + iny, ldb); \n 183 bs[inx][iny] = B[0 * ldb]; \n 184 bs[inx][iny + 4] = B[4 * ldb]; \n 185 bs[inx][iny + 8] = B[8 * ldb]; \n [all …]
|
H A D | triple_dgemm_update_128_16_PART2_L.cpp | 49 const int iny = get_local_id(1); \n 75 B += inx + __mul(iby + iny, ldb); \n 85 bs[inx][iny] = B[0 * ldb]; \n 86 bs[inx][iny + 4] = B[4 * ldb]; \n 87 bs[inx][iny + 8] = B[8 * ldb]; \n 88 bs[inx][iny + 12] = B[12 * ldb]; \n 89 bs[inx + 4][iny] = B[4 + 0 * ldb]; \n 90 bs[inx + 4][iny + 4] = B[4 + 4 * ldb]; \n 91 bs[inx + 4][iny + 8] = B[4 + 8 * ldb]; \n 93 bs[inx + 8][iny] = B[8 + 0 * ldb]; \n [all …]
|
H A D | triple_dgemm_update_128_16_PART1_L.cpp | 50 const int iny = get_local_id(1); \n 90 B += inx + __mul(iby + iny, ldb); \n 104 bs[inx][iny] = B[0 * ldb]; \n 105 bs[inx][iny + 4] = B[4 * ldb]; \n 106 bs[inx][iny + 8] = B[8 * ldb]; \n 107 bs[inx][iny + 12] = B[12 * ldb]; \n 108 bs[inx + 4][iny] = B[4 + 0 * ldb]; \n 109 bs[inx + 4][iny + 4] = B[4 + 4 * ldb]; \n 110 bs[inx + 4][iny + 8] = B[4 + 8 * ldb]; \n 112 bs[inx + 8][iny] = B[8 + 0 * ldb]; \n [all …]
|
/dports/devel/cc65/cc65-2.19/libsrc/atari/ser/ |
H A D | atrrdev.s | 451 iny 452 iny 453 iny 477 iny 480 iny 484 iny 487 iny 491 iny 494 iny 498 iny [all …]
|
/dports/math/clblas/clBLAS-2.10/src/library/blas/gens/clTemplates/ |
H A D | dtrsm_gpu.cl | 328 const int iny = get_local_id(1); 1150 const int id = inx + iny*16; 1252 const int id = inx + iny*16; 1342 const int id = inx + iny*16; 1444 const int id = inx + iny*16; 1534 const int id = inx + iny*16; 1636 const int id = inx + iny*16; 1739 const int id = inx + iny*16; 1830 const int id = inx + iny*16; 1877 const int id = inx + iny*16; [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/texas/ |
H A D | lab_reorder.F | 8 integer inx(12,*),iny(12,*) 27 iny(i,ics)=inx(i,ics) 179 call new_old(ncs,inx,iny,ncshell,ncfunct) 192 integer inx(12,*),iny(12,*) local 214 itypy=iny(12,icsy) 215 iatoy=iny(2,icsy) 216 icoby=iny(1,icsy) 217 icoey=iny(5,icsy) 218 igeny=iny(4,icsy) 219 ileny=iny(10,icsy)-iny(11,icsy) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/texas/ |
H A D | lab_reorder.F | 8 integer inx(12,*),iny(12,*) 27 iny(i,ics)=inx(i,ics) 179 call new_old(ncs,inx,iny,ncshell,ncfunct) 192 integer inx(12,*),iny(12,*) local 214 itypy=iny(12,icsy) 215 iatoy=iny(2,icsy) 216 icoby=iny(1,icsy) 217 icoey=iny(5,icsy) 218 igeny=iny(4,icsy) 219 ileny=iny(10,icsy)-iny(11,icsy) [all …]
|
/dports/x11/xscreensaver/xscreensaver-5.44/hacks/images/m6502/ |
H A D | disco.asm | 11 iny 15 iny 18 iny 19 iny 20 iny 21 iny
|
/dports/emulators/x16-rom/x16-rom-r38/basic/ |
H A D | code12.s | 41 iny 63 iny 69 nmary1 iny 74 iny 100 notflt iny 108 iny 109 iny 110 iny 122 notdim iny 124 iny [all …]
|
H A D | code15.s | 25 iny 28 iny 32 iny 40 iny 58 iny 61 iny 64 iny 67 iny 116 iny 122 iny [all …]
|
H A D | code2.s | 33 reser iny 44 iny 63 strng iny 69 nthis1 iny 83 reser2 iny 94 iny 98 iny 115 iny 134 iny 135 iny [all …]
|
H A D | code11.s | 76 iny 129 iny 135 iny 141 iny 145 iny 147 iny 149 iny 151 iny 153 iny 160 iny [all …]
|
/dports/emulators/x16-rom/x16-rom-r38/geos/kernal/dlgbox/ |
H A D | dlgbox1g.s | 43 iny 46 iny 59 iny 62 iny 73 iny 74 iny 85 iny 88 iny
|
/dports/emulators/x16-rom/x16-rom-r38/kernal/fonts/ |
H A D | conio3b.s | 19 iny 22 iny 25 iny 28 iny 31 iny 34 iny 37 iny
|
/dports/misc/adios2/ADIOS2-2.7.1/examples/hello/bpFWriteCRead/ |
H A D | FWriter.f90 | 8 integer :: i, j, inx, iny, irank, isize, ierr variable 23 iny = 4 24 allocate( data(inx, iny) ) 26 do j=1,iny 28 data(i,j) = irank * inx * iny + (j-1)*inx + (i-1) 34 shape_dims(2) = iny 40 count_dims(2) = iny
|
/dports/emulators/x16-rom/x16-rom-r38/geos/kernal/graph/ |
H A D | inline.s | 25 @1: iny 34 iny 37 iny 40 iny 43 iny 46 iny
|
/dports/emulators/x16-rom/x16-rom-r38/geos/kernal/icon/ |
H A D | icon2.s | 47 iny 106 iny 107 iny 123 iny 126 iny 155 iny 156 iny 173 iny 174 iny 203 iny [all …]
|
/dports/devel/cc65/cc65-2.19/libsrc/geos-common/drivers/ |
H A D | geos-stdmou.s | 92 iny 96 iny 99 iny ; Skip high byte 101 iny 104 iny 128 iny 131 iny 134 iny
|
/dports/x11/xscreensaver/xscreensaver-5.44/hacks/ |
H A D | crystal.c | 272 int inx, iny; member 596 int inx, iny; in draw_crystal() local 625 for (iny = 1; iny <= cryst->ny; iny++) { in draw_crystal() 652 iny = cryst->ny; in draw_crystal() 657 (int) (iny * cryst->b * in draw_crystal() 797 int inx, iny; in refresh_crystal() local 826 for (iny = 1; iny <= cryst->ny; iny++) { in refresh_crystal() 853 iny = cryst->ny; in refresh_crystal() 879 int inx, iny; in refresh_crystal() local 882 iny = NRAND(cryst->ny); in refresh_crystal() [all …]
|