Home
last modified time | relevance | path

Searched refs:nk1 (Results 1 – 25 of 376) sorted by relevance

12345678910>>...16

/dports/science/dynare/dynare-4.6.4/matlab/
H A Dcompute_Pinf_Pstar.m72 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 Dkpoint_grid.f9061 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 Dfermisurfer_common.f9032 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 Dfermi_velocity.f9027 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 DK_for_bands.f9096 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 Dvband_ibz.f901 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 Dsmearing_mod.f9047 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 DTestDuplicateImport.java119 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 DTestDuplicateImport.java119 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 DTestDuplicateImport.java119 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 DTestDuplicateImport.java119 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 DTestDuplicateImport.java119 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 DTestDuplicateImport.java119 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 DTestDuplicateImport.java119 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 DTestDuplicateImport.java119 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 Dspillage.py77 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 Dfpintb.f1 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 Dfpchec.f22 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 Dfpched.f24 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 Ddefine_dierckx_bispev_bicubic.h26 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 Dread_k_points.f905 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 Dnstabl.f26 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 Dtest_dimensions.F14 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 Dtest_indexing.F14 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 Dtest_dimensions.F14 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

12345678910>>...16