Home
last modified time | relevance | path

Searched refs:nk2 (Results 1 – 25 of 335) sorted by relevance

12345678910>>...14

/dports/science/quantum-espresso/q-e-qe-6.7.0/PP/simple_transport/src/
H A Dvband_ibz.f9014 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
36 do j=1,nk2
38 n = (k-1) + (j-1)*nk3 + (i-1)*nk2*nk3 + 1
43 np = (k-1) + (j-1)*nk3 + (i)*nk2*nk3 + 1
49 np = (k-1) + (j-1)*nk3 + (i)*nk2*nk3 + 1
59 nm = (k-1) + (j-2+nk2)*nk3 + (i-1)*nk2*nk3 + 1
60 else if (j .eq. nk2) then
[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
54 dF2 = ( vk(2) - vkq(2) ) * 1.0/nk2
68 double precision function sig0(nk1,nk2,nk3,vk,aa)
70 integer, intent(in) :: nk1, nk2, nk3 local
75 dF2 = vk(2) * 1.0/nk2
H A Dlint.f902 & nk1,nk2,nk3, nks, xk, kunit, nkBZ, eqBZ, sBZ) argument
6 nk1, nk2, nk3, kunit, nkBZ local
45 do j=1,nk2
47 n = (k-1) + (j-1)*nk3 + (i-1)*nk2*nk3 + 1
49 xkg(2,n) = dble(j-1)/nk2 + dble(k2)/2/nk2
/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/
H A Dkpoint_grid.f9061 nkr=nk1*nk2*nk3
66 DO j=1,nk2
72 xkg(2,n) = dble(j-1)/nk2 + dble(k2)/2/nk2
112 j = mod ( nint ( xkr(2)*nk2 - 0.5d0*k2 + 2*nk2), nk2 ) + 1
131 j = mod ( nint (-xkr(2)*nk2 - 0.5d0 * k2 + 2*nk2), nk2 ) + 1
233 DO j=1,nk2
239 xk(2,n) = dble(j-1)/nk2 + dble(k2)/2/nk2
245 nks=nk1*nk2*nk3
256 nppstr_3d(2)=nk2
271 DO j=1,nk2
[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
163 DO i2 = 1, nk2
[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))
86 DO i2 = 1, nk2
101 DO i2 = 1, nk2
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 …]
H A Dfermi_proj.f90201 USE start_k, ONLY : nk1, nk2, nk3
231 ALLOCATE(equiv(nk1, nk2, nk3))
253 ALLOCATE(wfc(b_low:b_high, nk1, nk2, nk3, ns), &
254 & eig(b_low:b_high, nk1, nk2, nk3, ns))
259 DO i2 = 1, nk2
279 CALL write_fermisurfer(eig(b_low:b_high, 1:nk1, 1:nk2, 1:nk3, 1), &
280 & wfc(b_low:b_high, 1:nk1, 1:nk2, 1:nk3, 1), "proj1.frmsf")
281 CALL write_fermisurfer(eig(b_low:b_high, 1:nk1, 1:nk2, 1:nk3, 2), &
282 & wfc(b_low:b_high, 1:nk1, 1:nk2, 1:nk3, 2), "proj2.frmsf")
284 CALL write_fermisurfer(eig(b_low:b_high, 1:nk1, 1:nk2, 1:nk3, 1), &
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/
H A Dclinear.f9013 nkr = nk1*nk2*nk3
20 np2=nk2*ntj
23 nkr = nk1*nk2*nk3
43 do jold = 2,nk2
74 ij1 = (nk2-1)*np3*ntj + knew
85 ik1 = (iold-1)*nk2*nk3 + kold
86 ik2 = (iold-1)*nk2*nk3 + kold+1
92 ik1 = (iold-1)*nk2*nk3 + nk3
93 ik2 = (iold-1)*nk2*nk3 + 1
99 do jold = 2,nk2
[all …]
/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 &
35 CALL mp_bcast( nk2, ionode_id,world_comm )
39 nks=nk1*nk2*nk3
41 do j=1,nk2
44 n = (k-1) + (j-1)*nk3 + (i-1)*nk2*nk3 + 1
47 xk(2,n) = DBLE(j-1)/nk2 + DBLE(k2)/2/nk2
/dports/misc/vxl/vxl-3.3.2/contrib/mul/vil3d/tests/
H A Dtest_algo_gauss_reduce.cxx28 unsigned nk2 = (nk+1)/2; in test_algo_gauss_reduce_float() local
68 unsigned nk2 = nk; // Shouldn't change first level in test_algo_gauss_reduce_ij() local
75 TEST("Level 1 size k", image1.nk(), nk2); in test_algo_gauss_reduce_ij()
112 unsigned nk2 = (nk+1)/2; in test_algo_gauss_reduce_ik() local
115 TEST("Level 1 size k", image1.nk(),nk2); in test_algo_gauss_reduce_ik()
152 unsigned nk2 = (nk+1)/2; in test_algo_gauss_reduce_jk() local
155 TEST("Level 1 size k", image1.nk(),nk2); in test_algo_gauss_reduce_jk()
187 unsigned nk2 = (nk+1)/2; in test_algo_gauss_reduce_int() local
196 TEST("size k",image1.nk(),nk2); in test_algo_gauss_reduce_int()
206 TEST_NEAR("LFT corner pixel", image1(0,nj2-1,nk2-1), 243, 0); in test_algo_gauss_reduce_int()
[all …]
/dports/java/openjdk12/openjdk-jdk12u-jdk-12.0.2-10-4/test/langtools/tools/javac/importscope/
H A DTestDuplicateImport.java120 for (NameKind nk2 : NameKind.values()) { in main()
121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main()
136 NameKind nk2; field in TestDuplicateImport
140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument
146 this.nk2 = nk2; in TestDuplicateImport()
175 .replaceAll("#I2", ik2.getImportStatement(qk2, nk2)); in JavaSource()
201 if (!nk1.exists() || !nk2.exists()) { in check()
207 (nk2.isMember() && !ik2.isStatic())) { in check()
213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check()
219 (qk2 == QualifierKind.C && !ik2.isStatic() && nk2 != NameKind.STAR)) { in check()
/dports/java/openjdk11/jdk11u-jdk-11.0.13-8-1/test/langtools/tools/javac/importscope/
H A DTestDuplicateImport.java120 for (NameKind nk2 : NameKind.values()) { in main()
121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main()
136 NameKind nk2; field in TestDuplicateImport
140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument
146 this.nk2 = nk2; in TestDuplicateImport()
175 .replaceAll("#I2", ik2.getImportStatement(qk2, nk2)); in JavaSource()
201 if (!nk1.exists() || !nk2.exists()) { in check()
207 (nk2.isMember() && !ik2.isStatic())) { in check()
213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check()
219 (qk2 == QualifierKind.C && !ik2.isStatic() && nk2 != NameKind.STAR)) { in check()
/dports/java/openjdk11-jre/jdk11u-jdk-11.0.13-8-1/test/langtools/tools/javac/importscope/
H A DTestDuplicateImport.java120 for (NameKind nk2 : NameKind.values()) { in main()
121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main()
136 NameKind nk2; field in TestDuplicateImport
140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument
146 this.nk2 = nk2; in TestDuplicateImport()
175 .replaceAll("#I2", ik2.getImportStatement(qk2, nk2)); in JavaSource()
201 if (!nk1.exists() || !nk2.exists()) { in check()
207 (nk2.isMember() && !ik2.isStatic())) { in check()
213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check()
219 (qk2 == QualifierKind.C && !ik2.isStatic() && nk2 != NameKind.STAR)) { in check()
/dports/java/openjdk15/jdk15u-jdk-15.0.6-1-1/test/langtools/tools/javac/importscope/
H A DTestDuplicateImport.java120 for (NameKind nk2 : NameKind.values()) { in main()
121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main()
136 NameKind nk2; field in TestDuplicateImport
140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument
146 this.nk2 = nk2; in TestDuplicateImport()
175 .replaceAll("#I2", ik2.getImportStatement(qk2, nk2)); in JavaSource()
201 if (!nk1.exists() || !nk2.exists()) { in check()
207 (nk2.isMember() && !ik2.isStatic())) { in check()
213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check()
219 (qk2 == QualifierKind.C && !ik2.isStatic() && nk2 != NameKind.STAR)) { in check()
/dports/java/openjdk16/jdk16u-jdk-16.0.2-7-1/test/langtools/tools/javac/importscope/
H A DTestDuplicateImport.java120 for (NameKind nk2 : NameKind.values()) { in main()
121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main()
136 NameKind nk2; field in TestDuplicateImport
140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument
146 this.nk2 = nk2; in TestDuplicateImport()
175 .replaceAll("#I2", ik2.getImportStatement(qk2, nk2)); in JavaSource()
201 if (!nk1.exists() || !nk2.exists()) { in check()
207 (nk2.isMember() && !ik2.isStatic())) { in check()
213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check()
219 (qk2 == QualifierKind.C && !ik2.isStatic() && nk2 != NameKind.STAR)) { in check()
/dports/java/openjdk14/jdk14u-jdk-14.0.2-12-1/test/langtools/tools/javac/importscope/
H A DTestDuplicateImport.java120 for (NameKind nk2 : NameKind.values()) { in main()
121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main()
136 NameKind nk2; field in TestDuplicateImport
140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument
146 this.nk2 = nk2; in TestDuplicateImport()
175 .replaceAll("#I2", ik2.getImportStatement(qk2, nk2)); in JavaSource()
201 if (!nk1.exists() || !nk2.exists()) { in check()
207 (nk2.isMember() && !ik2.isStatic())) { in check()
213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check()
219 (qk2 == QualifierKind.C && !ik2.isStatic() && nk2 != NameKind.STAR)) { in check()
/dports/java/openjdk13/jdk13u-jdk-13.0.10-1-1/test/langtools/tools/javac/importscope/
H A DTestDuplicateImport.java120 for (NameKind nk2 : NameKind.values()) { in main()
121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main()
136 NameKind nk2; field in TestDuplicateImport
140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument
146 this.nk2 = nk2; in TestDuplicateImport()
175 .replaceAll("#I2", ik2.getImportStatement(qk2, nk2)); in JavaSource()
201 if (!nk1.exists() || !nk2.exists()) { in check()
207 (nk2.isMember() && !ik2.isStatic())) { in check()
213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check()
219 (qk2 == QualifierKind.C && !ik2.isStatic() && nk2 != NameKind.STAR)) { in check()
/dports/java/openjdk17/jdk17u-jdk-17.0.1-12-1/test/langtools/tools/javac/importscope/
H A DTestDuplicateImport.java120 for (NameKind nk2 : NameKind.values()) { in main()
121 new TestDuplicateImport(ik1, ik2, qk1, qk2, nk1, nk2).run(comp, fm); in main()
136 NameKind nk2; field in TestDuplicateImport
140 …ImportKind ik1, ImportKind ik2, QualifierKind qk1, QualifierKind qk2, NameKind nk1, NameKind nk2) { in TestDuplicateImport() argument
146 this.nk2 = nk2; in TestDuplicateImport()
175 .replaceAll("#I2", ik2.getImportStatement(qk2, nk2)); in JavaSource()
201 if (!nk1.exists() || !nk2.exists()) { in check()
207 (nk2.isMember() && !ik2.isStatic())) { in check()
213 if (nk1 == nk2 && nk1 != NameKind.STAR && !qk1.compatible(qk2) && in check()
219 (qk2 == QualifierKind.C && !ik2.isStatic() && nk2 != NameKind.STAR)) { in check()
/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
24 nk2 = 0
27 nk2 = nk2 + 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
27 nk2 = 0
30 nk2 = nk2 + 1
31 write(*,*)'2nd order: ',nk2,i1*(i1-1)/2+i2
/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
24 nk2 = 0
27 nk2 = nk2 + 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
27 nk2 = 0
30 nk2 = nk2 + 1
31 write(*,*)'2nd order: ',nk2,i1*(i1-1)/2+i2
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/simple_ip/
H A Dtetra_mod2.f908 subroutine tetrahedra1 (nk1, nk2, nk3, ntetra, tetra) argument
16 integer, intent(in):: nk1, nk2, nk3, ntetra local
23 nkr = nk1*nk2*nk3
28 do j=1,nk2
32 jp1 = mod(j,nk2)+1
34 n1 = ( k-1) + ( j-1)*nk3 + ( i-1)*nk2*nk3 + 1
35 n2 = ( k-1) + ( j-1)*nk3 + (ip1-1)*nk2*nk3 + 1
36 n3 = ( k-1) + (jp1-1)*nk3 + ( i-1)*nk2*nk3 + 1
37 n4 = ( k-1) + (jp1-1)*nk3 + (ip1-1)*nk2*nk3 + 1
38 n5 = (kp1-1) + ( j-1)*nk3 + ( i-1)*nk2*nk3 + 1
[all …]
H A Dtetra_mod1.f908 subroutine tetrahedra1 (nk1, nk2, nk3, ntetra, tetra) argument
16 integer, intent(in):: nk1, nk2, nk3, ntetra local
23 nkr = nk1*nk2*nk3
28 do j=1,nk2
32 jp1 = mod(j,nk2)+1
34 n1 = ( k-1) + ( j-1)*nk3 + ( i-1)*nk2*nk3 + 1
35 n2 = ( k-1) + ( j-1)*nk3 + (ip1-1)*nk2*nk3 + 1
36 n3 = ( k-1) + (jp1-1)*nk3 + ( i-1)*nk2*nk3 + 1
37 n4 = ( k-1) + (jp1-1)*nk3 + (ip1-1)*nk2*nk3 + 1
38 n5 = (kp1-1) + ( j-1)*nk3 + ( i-1)*nk2*nk3 + 1
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/EPW/ZG_displacement/src/
H A Dcreate_qlist.f906 integer :: nk1, nk2, nk3, nk_tot !, k1, k2, k3 variable
13 read(*,*) nk1, nk2, nk3
15 nk_tot=nk1*nk2*nk3
19 DO j=1,nk2
22 n = (k-1) + (j-1)*nk3 + (i-1)*nk2*nk3 + 1
25 xkg(2,n) = dble(j-1)/nk2 ! + dble(k2)/2/nk2

12345678910>>...14