/dports/science/dynare/dynare-4.6.4/matlab/ |
H A D | compute_Pinf_Pstar.m | 72 nk1 = nk+1; variable 85 q = eye(i-nk)-ST(nk1:i,nk1:i)*ST(i,i); 86 Pstar(nk1:i,i) = q\(B(nk1:i,i)+c); 87 Pstar(i,nk1:i-1) = Pstar(nk1:i-1,i)'; 101 q = [eye(i-nk)-ST(nk1:i,nk1:i)*ST(i,i) -ST(nk1:i,nk1:i)*ST(i,i-1);... 102 -ST(nk1:i,nk1:i)*ST(i-1,i) eye(i-nk)-ST(nk1:i,nk1:i)*ST(i-1,i-1)]; 103 z = q\[B(nk1:i,i)+c;B(nk1:i,i-1)+c1]; 106 Pstar(i,nk1:i-1) = Pstar(nk1:i-1,i)'; 107 Pstar(i-1,nk1:i-2) = Pstar(nk1:i-2,i-1)'; 112 …c = ST(nk+1,:)*(Pstar(:,nk+2:end)*ST(nk1,nk+2:end)')+ST(nk1,nk1)*ST(nk1,nk+2:end)*Pstar(nk+2:end,n… [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
H A D | kpoint_grid.f90 | 61 nkr=nk1*nk2*nk3 65 DO i=1,nk1 71 xkg(1,n) = dble(i-1)/nk1 + dble(k1)/2/nk1 111 i = mod ( nint ( xkr(1)*nk1 - 0.5d0*k1 + 2*nk1), nk1 ) + 1 130 i = mod ( nint (-xkr(1)*nk1 - 0.5d0 * k1 + 2*nk1), nk1 ) + 1 232 DO i=1,nk1 238 xk(1,n) = dble(i-1)/nk1 + dble(k1)/2/nk1 245 nks=nk1*nk2*nk3 255 nppstr_3d(1)=nk1 270 DO i=1,nk1 [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PP/src/ |
H A D | fermisurfer_common.f90 | 32 USE start_k, ONLY : k1, k2, k3, nk1, nk2, nk3 38 INTEGER,INTENT(OUT) :: equiv(nk1,nk2,nk3) 42 logical :: ldone(nk1,nk2,nk3) 74 ldone(1:nk1, 1:nk2, 1:nk3) = .FALSE. 90 ikv(1:3) = MODULO(ikv(1:3), (/nk1, nk2, nk3/)) + 1 127 USE start_k, ONLY : nk1, nk2, nk3, k1, k2, k3 132 REAL(dp),INTENT(IN) :: eig(b_low:b_high,nk1,nk2,nk3), & 133 & mat(b_low:b_high,nk1,nk2,nk3) 149 WRITE(fo,'(3i6)') nk1, nk2, nk3 162 DO i1 = 1, nk1 [all …]
|
H A D | fermi_velocity.f90 | 27 USE start_k, ONLY : nk1, nk2, nk3 77 ALLOCATE(equiv(nk1, nk2, nk3)) 80 ALLOCATE(vf(b_low:b_high, nk1, nk2, nk3, ns), & 81 & eig(b_low:b_high, nk1, nk2, nk3, ns)) 87 DO i1 = 1, nk1 102 DO i1 = 1, nk1 112 ikp(1:3) = MODULO(ikp(1:3), (/nk1, nk2, nk3/)) + 1 116 ikm(1:3) = MODULO(ikm(1:3), (/nk1, nk2, nk3/)) + 1 137 CALL write_fermisurfer(eig(b_low:b_high, 1:nk1, 1:nk2, 1:nk3, 1), & 139 CALL write_fermisurfer(eig(b_low:b_high, 1:nk1, 1:nk2, 1:nk3, 2), & [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PlotPhon/SRC/ |
H A D | K_for_bands.f90 | 96 nk1=2 103 kpts(ix,nk1) = & 108 write(6,'(3f10.6)') (kpts(i2,nk1),i2=1,3) 109 nk1=nk1+1 111 if(nk1.gt.500) print*, 'You have more than 500 k-points. Be sure it is OK.' 112 if(nk1.gt.1000) stop 'You have lots of k-points nk1>1000, this is unreasanoble.' 119 nk1=nk1-1 123 write(11,'(I6)') nk1 125 do i1=1,nk1
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PP/simple_transport/src/ |
H A D | vband_ibz.f90 | 1 subroutine vband_ibz ( nk1,nk2,nk3, nbnd, nksfit, etk, eqk, at, vk, dfk ) argument 14 integer, intent(in) :: nk1,nk2,nk3, nbnd, nksfit, eqk(nk1*nk2*nk3) local 18 double precision, intent(out) :: vk(nbnd,nk1*nk2*nk3,3), dfk(nbnd,nk1*nk2*nk3,3) 24 double precision :: temp, temp2, vaux(3,nk1*nk2*nk3) 28 nktot = nk1*nk2*nk3 35 do i=1,nk1 44 nm = (k-1) + (j-1)*nk3 + (i-2+nk1)*nk2*nk3 + 1 45 else if (i .eq. nk1) then 46 np = (k-1) + (j-1)*nk3 + (i-nk1)*nk2*nk3 + 1 52 vk(ibnd,n,1) = ( etk(ibnd,eqk(np))-etk(ibnd,eqk(nm)) )/(2.0/nk1) [all …]
|
H A D | smearing_mod.f90 | 47 double precision function sig_nk(nk1,nk2,nk3,vk,vkq,aa) 49 integer, intent(in) :: nk1, nk2, nk3 local 53 dF1 = ( vk(1) - vkq(1) ) * 1.0/nk1 68 double precision function sig0(nk1,nk2,nk3,vk,aa) 70 integer, intent(in) :: nk1, nk2, nk3 local 74 dF1 = vk(1) * 1.0/nk1
|
/dports/java/openjdk12/openjdk-jdk12u-jdk-12.0.2-10-4/test/langtools/tools/javac/importscope/ |
H A D | TestDuplicateImport.java | 119 for (NameKind nk1 : NameKind.values()) { in main() 121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main() 135 NameKind nk1; field in TestDuplicateImport 140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument 145 this.nk1 = nk1; in TestDuplicateImport() 174 source = bodyTemplate.replaceAll("#I1", ik1.getImportStatement(qk1, nk1)) in JavaSource() 201 if (!nk1.exists() || !nk2.exists()) { in check() 206 if ((nk1.isMember() && !ik1.isStatic()) || in check() 213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check() 218 if ((qk1 == QualifierKind.C && !ik1.isStatic() && nk1 != NameKind.STAR) || in check()
|
/dports/java/openjdk11/jdk11u-jdk-11.0.13-8-1/test/langtools/tools/javac/importscope/ |
H A D | TestDuplicateImport.java | 119 for (NameKind nk1 : NameKind.values()) { in main() 121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main() 135 NameKind nk1; field in TestDuplicateImport 140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument 145 this.nk1 = nk1; in TestDuplicateImport() 174 source = bodyTemplate.replaceAll("#I1", ik1.getImportStatement(qk1, nk1)) in JavaSource() 201 if (!nk1.exists() || !nk2.exists()) { in check() 206 if ((nk1.isMember() && !ik1.isStatic()) || in check() 213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check() 218 if ((qk1 == QualifierKind.C && !ik1.isStatic() && nk1 != NameKind.STAR) || in check()
|
/dports/java/openjdk11-jre/jdk11u-jdk-11.0.13-8-1/test/langtools/tools/javac/importscope/ |
H A D | TestDuplicateImport.java | 119 for (NameKind nk1 : NameKind.values()) { in main() 121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main() 135 NameKind nk1; field in TestDuplicateImport 140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument 145 this.nk1 = nk1; in TestDuplicateImport() 174 source = bodyTemplate.replaceAll("#I1", ik1.getImportStatement(qk1, nk1)) in JavaSource() 201 if (!nk1.exists() || !nk2.exists()) { in check() 206 if ((nk1.isMember() && !ik1.isStatic()) || in check() 213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check() 218 if ((qk1 == QualifierKind.C && !ik1.isStatic() && nk1 != NameKind.STAR) || in check()
|
/dports/java/openjdk15/jdk15u-jdk-15.0.6-1-1/test/langtools/tools/javac/importscope/ |
H A D | TestDuplicateImport.java | 119 for (NameKind nk1 : NameKind.values()) { in main() 121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main() 135 NameKind nk1; field in TestDuplicateImport 140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument 145 this.nk1 = nk1; in TestDuplicateImport() 174 source = bodyTemplate.replaceAll("#I1", ik1.getImportStatement(qk1, nk1)) in JavaSource() 201 if (!nk1.exists() || !nk2.exists()) { in check() 206 if ((nk1.isMember() && !ik1.isStatic()) || in check() 213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check() 218 if ((qk1 == QualifierKind.C && !ik1.isStatic() && nk1 != NameKind.STAR) || in check()
|
/dports/java/openjdk16/jdk16u-jdk-16.0.2-7-1/test/langtools/tools/javac/importscope/ |
H A D | TestDuplicateImport.java | 119 for (NameKind nk1 : NameKind.values()) { in main() 121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main() 135 NameKind nk1; field in TestDuplicateImport 140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument 145 this.nk1 = nk1; in TestDuplicateImport() 174 source = bodyTemplate.replaceAll("#I1", ik1.getImportStatement(qk1, nk1)) in JavaSource() 201 if (!nk1.exists() || !nk2.exists()) { in check() 206 if ((nk1.isMember() && !ik1.isStatic()) || in check() 213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check() 218 if ((qk1 == QualifierKind.C && !ik1.isStatic() && nk1 != NameKind.STAR) || in check()
|
/dports/java/openjdk14/jdk14u-jdk-14.0.2-12-1/test/langtools/tools/javac/importscope/ |
H A D | TestDuplicateImport.java | 119 for (NameKind nk1 : NameKind.values()) { in main() 121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main() 135 NameKind nk1; field in TestDuplicateImport 140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument 145 this.nk1 = nk1; in TestDuplicateImport() 174 source = bodyTemplate.replaceAll("#I1", ik1.getImportStatement(qk1, nk1)) in JavaSource() 201 if (!nk1.exists() || !nk2.exists()) { in check() 206 if ((nk1.isMember() && !ik1.isStatic()) || in check() 213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check() 218 if ((qk1 == QualifierKind.C && !ik1.isStatic() && nk1 != NameKind.STAR) || in check()
|
/dports/java/openjdk13/jdk13u-jdk-13.0.10-1-1/test/langtools/tools/javac/importscope/ |
H A D | TestDuplicateImport.java | 119 for (NameKind nk1 : NameKind.values()) { in main() 121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main() 135 NameKind nk1; field in TestDuplicateImport 140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument 145 this.nk1 = nk1; in TestDuplicateImport() 174 source = bodyTemplate.replaceAll("#I1", ik1.getImportStatement(qk1, nk1)) in JavaSource() 201 if (!nk1.exists() || !nk2.exists()) { in check() 206 if ((nk1.isMember() && !ik1.isStatic()) || in check() 213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check() 218 if ((qk1 == QualifierKind.C && !ik1.isStatic() && nk1 != NameKind.STAR) || in check()
|
/dports/java/openjdk17/jdk17u-jdk-17.0.1-12-1/test/langtools/tools/javac/importscope/ |
H A D | TestDuplicateImport.java | 119 for (NameKind nk1 : NameKind.values()) { in main() 121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main() 135 NameKind nk1; field in TestDuplicateImport 140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument 145 this.nk1 = nk1; in TestDuplicateImport() 174 source = bodyTemplate.replaceAll("#I1", ik1.getImportStatement(qk1, nk1)) in JavaSource() 201 if (!nk1.exists() || !nk2.exists()) { in check() 206 if ((nk1.isMember() && !ik1.isStatic()) || in check() 213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check() 218 if ((qk1 == QualifierKind.C && !ik1.isStatic() && nk1 != NameKind.STAR) || in check()
|
/dports/science/py-pymatgen/pymatgen-2022.0.15/pymatgen/analysis/topological/ |
H A D | spillage.py | 77 for nk1 in range(1, noso_nkpts + 1): # no spin orbit kpoints loop 78 knoso = noso_kvecs[nk1 - 1, :] 84 for c, e in enumerate(noso_occs[0, nk1 - 1, :]): 88 for c, e in enumerate(noso_occs[1, nk1 - 1, :]): 136 knoso = noso_kvecs[nk1 - 1, :] 144 nelec_up = n_arr[nk1 - 1, 0] 145 nelec_dn = n_arr[nk1 - 1, 1] 146 nelec_tot = n_arr[nk1 - 1, 2] 151 noso.coeffs[0][nk1 - 1][0] 155 noso.coeffs[1][nk1 - 1][0] [all …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/interpolate/fitpack/ |
H A D | fpintb.f | 1 subroutine fpintb(t,n,bint,nk1,x,y) argument 22 integer n,nk1 local 25 real*8 t(n),bint(nk1) 33 k1 = n-nk1 36 do 10 i=1,nk1 50 if(b.gt.t(nk1+1)) b = t(nk1+1) 67 40 if(arg.lt.t(l0) .or. l.eq.nk1) go to 50 121 do 140 i=1,nk1 127 do 150 i=1,nk1
|
H A D | fpchec.f | 22 integer i,j,k1,k2,l,nk1,nk2,nk3 local 27 nk1 = n-k1 28 nk2 = nk1+1 31 if(nk1.lt.k1 .or. nk1.gt.m) go to 80 46 if(x(1).ge.t(k2) .or. x(m).le.t(nk1)) go to 80 49 nk3 = nk1-1
|
H A D | fpched.f | 24 integer i,ib1,ie1,j,jj,k1,k2,l,nk1,nk2,nk3 local 29 nk1 = n-k1 30 nk2 = nk1+1 37 if(nk1.lt.k1 .or. nk1.gt.(m+ib1+ie1)) go to 80 52 if(x(1).ge.t(k2) .or. x(m).le.t(nk1)) go to 80 56 nk3 = nk1-1-ie1
|
/dports/astro/oskar/OSKAR-2.8.0/oskar/splines/ |
H A D | define_dierckx_bispev_bicubic.h | 26 int l, l1, l2, nk1, lx;\ 28 nk1 = nx - 4;\ 30 t = tx[nk1]; if (x_ > t) x_ = t;\ 31 l = 4; while (!(x_ < tx[l] || l == nk1)) l++;\ 34 nk1 = ny - 4;\ 36 t = ty[nk1]; if (y_ > t) y_ = t;\ 37 l = 4; while (!(y_ < ty[l] || l == nk1)) l++;\ 39 l1 = lx * nk1 + (l - 4);\ 44 l1 += nk1;\
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/XSpectra/src/ |
H A D | read_k_points.f90 | 5 USE start_k, ONLY : nk1, nk2, nk3, k1, k2, k3 23 READ(input_line, *) nk1, nk2, nk3, k1, k2 ,k3 28 IF ( nk1 <= 0 .OR. nk2 <= 0 .OR. nk3 <= 0 ) CALL errore & 34 CALL mp_bcast( nk1, ionode_id,world_comm ) 39 nks=nk1*nk2*nk3 40 do i=1,nk1 46 xk(1,n) = DBLE(i-1)/nk1 + DBLE(k1)/2/nk1
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/signal_processing/src/fortran/ |
H A D | nstabl.f | 26 10 nk1=n-k+1 27 do 11 j=1,nk1 28 11 w(n1+j)=w(nk1-j+1) 29 if(w(n1+nk1).eq.0.0d+0) return 30 al=w(nk1)/w(n1+nk1)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwxc/nwad/unit_tests/ |
H A D | test_dimensions.F | 14 integer nd1, nd2, nd3, n, i1, i2, i3, nk1, nk2, nk3, num 19 nk1 = 0 21 nk1 = nk1 + 1 40 write(*,'(x,i3,x,3i7,3x,3i7)')n,nk1,nk2,nk3,nd1,nd2,nd3
|
H A D | test_indexing.F | 14 integer nd1, nd2, nd3, n, i1, i2, i3, nk1, nk2, nk3, num 20 nk1 = 0 22 nk1 = nk1 + 1 23 write(*,*)'1st order: ',nk1,i1
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwxc/nwad/unit_tests/ |
H A D | test_dimensions.F | 14 integer nd1, nd2, nd3, n, i1, i2, i3, nk1, nk2, nk3, num 19 nk1 = 0 21 nk1 = nk1 + 1 40 write(*,'(x,i3,x,3i7,3x,3i7)')n,nk1,nk2,nk3,nd1,nd2,nd3
|