/dports/science/quantum-espresso/q-e-qe-6.7.0/PP/simple_transport/src/ |
H A D | vband_ibz.f90 | 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 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 D | smearing_mod.f90 | 47 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 D | lint.f90 | 2 & 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 D | kpoint_grid.f90 | 61 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 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 163 DO i2 = 1, nk2 [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)) 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 D | fermi_proj.f90 | 201 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 D | clinear.f90 | 13 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 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 & 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 D | test_algo_gauss_reduce.cxx | 28 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 D | TestDuplicateImport.java | 120 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 D | TestDuplicateImport.java | 120 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 D | TestDuplicateImport.java | 120 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 D | TestDuplicateImport.java | 120 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 D | TestDuplicateImport.java | 120 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 D | TestDuplicateImport.java | 120 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 D | TestDuplicateImport.java | 120 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 D | TestDuplicateImport.java | 120 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 D | test_dimensions.F | 14 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 D | test_indexing.F | 14 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 D | test_dimensions.F | 14 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 D | test_indexing.F | 14 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 D | tetra_mod2.f90 | 8 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 D | tetra_mod1.f90 | 8 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 D | create_qlist.f90 | 6 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
|