/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/int/ |
H A D | hfmkr.F | 205 IJK(0,0,0)=1 207 IJK(1,0,0)=2 208 IJK(0,1,0)=3 209 IJK(0,0,1)=4 238 IJK(0,0,0)=1 239 IJK(1,0,0)=2 240 IJK(0,1,0)=3 241 IJK(0,0,1)=4 242 IJK(2,0,0)=5 243 IJK(1,1,0)=6 [all …]
|
H A D | hferi.F | 1 Subroutine hferi(Ep,Eq,R0,IJK,ERI,E3,sum,MPP,MPQ, argument 26 Integer IJK(0:Lr,0:Lr,0:Lr) 105 nqmx = max(IJK(Iq,Jq,Kq),nqmx) 164 nq = IJK(Iq,Jq,Kq) 168 nr = IJK(Ir,Jr,Kr) 257 nq = IJK(Iq,Jq,Kq) 282 nq = IJK(Iq,Jq,Kq) 283 nq1 = IJK(Iq1,Jq,Kq) 299 nq = IJK(Iqfin,Jq,Kq)
|
H A D | hfnai.f | 1 Subroutine hfnai(E,R0,IJK,Vab,Nints,NPP,La,Lb,Li,Lp,Lp3,canAB) argument 16 integer IJK(0:Lp,0:Lp,0:Lp) 90 np = IJK(Ip,Jp,Kp) 112 Subroutine hfnai_gc(E,R0,IJK,Vab,VabP,VabH,Acoefs,Bcoefs,ipairp, argument 131 integer IJK(0:Lp,0:Lp,0:Lp) 194 np = IJK(Ip,Jp,Kp)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/int/ |
H A D | hfmkr.F | 205 IJK(0,0,0)=1 207 IJK(1,0,0)=2 208 IJK(0,1,0)=3 209 IJK(0,0,1)=4 238 IJK(0,0,0)=1 239 IJK(1,0,0)=2 240 IJK(0,1,0)=3 241 IJK(0,0,1)=4 242 IJK(2,0,0)=5 243 IJK(1,1,0)=6 [all …]
|
H A D | hferi.F | 1 Subroutine hferi(Ep,Eq,R0,IJK,ERI,E3,sum,MPP,MPQ, argument 26 Integer IJK(0:Lr,0:Lr,0:Lr) local 105 nqmx = max(IJK(Iq,Jq,Kq),nqmx) 164 nq = IJK(Iq,Jq,Kq) 168 nr = IJK(Ir,Jr,Kr) 257 nq = IJK(Iq,Jq,Kq) 282 nq = IJK(Iq,Jq,Kq) 283 nq1 = IJK(Iq1,Jq,Kq) 299 nq = IJK(Iqfin,Jq,Kq)
|
H A D | hfnai.f | 1 Subroutine hfnai(E,R0,IJK,Vab,Nints,NPP,La,Lb,Li,Lp,Lp3,canAB) argument 16 integer IJK(0:Lp,0:Lp,0:Lp) local 90 np = IJK(Ip,Jp,Kp) 112 Subroutine hfnai_gc(E,R0,IJK,Vab,VabP,VabH,Acoefs,Bcoefs,ipairp, argument 131 integer IJK(0:Lp,0:Lp,0:Lp) local 194 np = IJK(Ip,Jp,Kp)
|
/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/ |
H A D | ka46.f | 66 IJK = IJ + KMK 69 IJKE = IJK + 1 70 IJKW = IJK - 1 71 IJKN = IJK + IMAX 72 IJKS = IJK - IMAX 76 IJK = IJ + KMK 79 IJKE = IJK + 1 80 IJKW = IJK - 1 87 IJK = IJ + KMK 90 IJKE = IJK + 1 [all …]
|
/dports/math/vtk9/VTK-9.1.0/ThirdParty/vtkm/vtkvtkm/vtk-m/vtkm/exec/ |
H A D | BoundaryState.h | 35 : IJK(ijk) in BoundaryState() 53 return (((this->IJK[0] - radius) >= 0) && ((this->IJK[0] + radius) < this->PointDimensions[0])); in IsRadiusInXBoundary() 58 return (((this->IJK[1] - radius) >= 0) && ((this->IJK[1] + radius) < this->PointDimensions[1])); in IsRadiusInYBoundary() 63 return (((this->IJK[2] - radius) >= 0) && ((this->IJK[2] + radius) < this->PointDimensions[2])); in IsRadiusInZBoundary() 90 return (((this->IJK[0] + offset) >= 0) && ((this->IJK[0] + offset) < this->PointDimensions[0])); in IsNeighborInXBoundary() 94 return (((this->IJK[1] + offset) >= 0) && ((this->IJK[1] + offset) < this->PointDimensions[1])); in IsNeighborInYBoundary() 98 return (((this->IJK[2] + offset) >= 0) && ((this->IJK[2] + offset) < this->PointDimensions[2])); in IsNeighborInZBoundary() 121 if (this->IJK[component] >= radius) in MinNeighborIndices() 186 return this->IJK + neighbor; in NeighborIndexToFullIndex() 249 vtkm::Id3 full = this->IJK + neighbor; in NeighborIndexToFlatIndex() [all …]
|
/dports/misc/libemos/libemos-4.5.9-Source/fft/ |
H A D | rpassm.f | 490 C(JB+J)=C1*(A10(IJK)-A11(IJK))-S1*(B10(IJK)+B11(IJK)) 491 D(JB+J)=S1*(A10(IJK)-A11(IJK))+C1*(B10(IJK)+B11(IJK)) 492 C(JE+J)=C4*(A10(IJK)+A11(IJK))-S4*(B10(IJK)-B11(IJK)) 493 D(JE+J)=S4*(A10(IJK)+A11(IJK))+C4*(B10(IJK)-B11(IJK)) 494 C(JC+J)=C2*(A20(IJK)-A21(IJK))-S2*(B20(IJK)+B21(IJK)) 495 D(JC+J)=S2*(A20(IJK)-A21(IJK))+C2*(B20(IJK)+B21(IJK)) 496 C(JD+J)=C3*(A20(IJK)+A21(IJK))-S3*(B20(IJK)-B21(IJK)) 497 D(JD+J)=S3*(A20(IJK)+A21(IJK))+C3*(B20(IJK)-B21(IJK)) 652 C(JC+J)=C2*(A20(IJK)-B21(IJK))-S2*(B20(IJK)+A21(IJK)) 653 D(JC+J)=S2*(A20(IJK)-B21(IJK))+C2*(B20(IJK)+A21(IJK)) [all …]
|
/dports/misc/libemos/libemos-4.5.9-Source/interpolation/ |
H A D | rpassm.F | 462 C(JB+J)=C1*(A10(IJK)-A11(IJK))-S1*(B10(IJK)+B11(IJK)) 463 D(JB+J)=S1*(A10(IJK)-A11(IJK))+C1*(B10(IJK)+B11(IJK)) 464 C(JE+J)=C4*(A10(IJK)+A11(IJK))-S4*(B10(IJK)-B11(IJK)) 465 D(JE+J)=S4*(A10(IJK)+A11(IJK))+C4*(B10(IJK)-B11(IJK)) 466 C(JC+J)=C2*(A20(IJK)-A21(IJK))-S2*(B20(IJK)+B21(IJK)) 467 D(JC+J)=S2*(A20(IJK)-A21(IJK))+C2*(B20(IJK)+B21(IJK)) 468 C(JD+J)=C3*(A20(IJK)+A21(IJK))-S3*(B20(IJK)-B21(IJK)) 469 D(JD+J)=S3*(A20(IJK)+A21(IJK))+C3*(B20(IJK)-B21(IJK)) 616 C(JC+J)=C2*(A20(IJK)-B21(IJK))-S2*(B20(IJK)+A21(IJK)) 617 D(JC+J)=S2*(A20(IJK)-B21(IJK))+C2*(B20(IJK)+A21(IJK)) [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/QHA/Phonon_DOS/ |
H A D | generate_tetra.f | 61 DO 21 IJK=0,N1 62 L=N1-IJK 63 DO 21 JK=0,IJK 64 I=IJK-JK 117 DO 15 IJK=0,N1 118 DO 15 JK=0,IJK 119 I=IJK-JK 122 IF(IJK.EQ.N1)GOTO 15 123 IF(IJK.EQ.N1-1)GOTO 16 124 IF(IJK.EQ.N1-2)GOTO 17 [all …]
|
/dports/graphics/xd3d/xd3d-8.3.1/src/trad_nopo/ |
H A D | ecr_pts.f | 62 IJK = 0 64 & IJK = IJK+100 66 & IJK = IJK+20 68 & IJK = IJK+3 69 IJK = -IJK 92 WRITE(IFIL)(XYZ(K,I),K=1,3),0,0,0,IREF(I),ISD(I),0,0,IPRES,IJK
|
/dports/math/cloog/cloog-cloog-0.20.0/test/bigs/ |
H A D | mg3d.N.w2p26 | 50 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 61 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 72 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 83 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 217 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 228 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 239 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 250 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 261 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 272 # L IJK IFAC INC2 INC4 INC1 INC3 M LOT LA doloop_count JBASE I 1 [all …]
|
/dports/science/afni/afni-AFNI_21.3.16/src/SUMA/ |
H A D | SUMA_SegFunc.h | 209 m_i = IJK[0]-1; \ 212 ijkn = m_i+IJK[1]*ni+IJK[2]*nij; \ 219 m_j = IJK[1]-1; \ 222 ijkn = IJK[0]+m_j*ni+IJK[2]*nij; \ 229 m_i = IJK[0]+1; \ 232 ijkn=m_i+IJK[1]*ni+IJK[2]*nij; \ 242 ijkn = IJK[0]+m_j*ni+IJK[2]*nij; \ 252 ijkn = IJK[0]+IJK[1]*ni+m_k*nij; \ 262 ijkn = IJK[0]+IJK[1]*ni+m_k*nij; \ 270 IJK[0] = ((IJK[1]) % (ni)); \ [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/src/mg/ |
H A D | vpmg.c | 7008 proj += f[IJK(i,j,k)]*phi[IJK(i,j,k)]; in zlapSolve() 7030 u[IJK(i,j,k)] += coef*phi[IJK(i,j,k)]; in zlapSolve() 8575 (dHxijk[0] *(u[IJK(i+1,j,k)]-u[IJK(i,j,k)]) in Vpmg_dbPermanentMultipoleForce() 8577 + (dHyijk[0] *(u[IJK(i,j+1,k)]-u[IJK(i,j,k)]) in Vpmg_dbPermanentMultipoleForce() 8579 + (dHzijk[0] *(u[IJK(i,j,k+1)]-u[IJK(i,j,k)]) in Vpmg_dbPermanentMultipoleForce() 8582 (dHxijk[1] *(u[IJK(i+1,j,k)]-u[IJK(i,j,k)]) in Vpmg_dbPermanentMultipoleForce() 8584 + (dHyijk[1] *(u[IJK(i,j+1,k)]-u[IJK(i,j,k)]) in Vpmg_dbPermanentMultipoleForce() 8586 + (dHzijk[1] *(u[IJK(i,j,k+1)]-u[IJK(i,j,k)]) in Vpmg_dbPermanentMultipoleForce() 8589 (dHxijk[2] *(u[IJK(i+1,j,k)]-u[IJK(i,j,k)]) in Vpmg_dbPermanentMultipoleForce() 8591 + (dHyijk[2] *(u[IJK(i,j+1,k)]-u[IJK(i,j,k)]) in Vpmg_dbPermanentMultipoleForce() [all …]
|
H A D | vgrid.c | 67 #define IJK(i,j,k) (((k)*(nx)*(ny))+((j)*(nx))+(i)) macro 260 thee->data[IJK(ihi,jhi,khi)]); in Vgrid_value() 262 thee->data[IJK(ihi,jlo,khi)]); in Vgrid_value() 264 thee->data[IJK(ihi,jhi,klo)]); in Vgrid_value() 266 thee->data[IJK(ihi,jlo,klo)]); in Vgrid_value() 268 thee->data[IJK(ilo,jhi,khi)]); in Vgrid_value() 270 thee->data[IJK(ilo,jlo,khi)]); in Vgrid_value() 1519 if (pvec[IJK(i,j,k)] > 0.0) { in Vgrid_writeDXBIN() 1532 if (pvec[IJK(i,j,k)] > 0.0) { in Vgrid_writeDXBIN() 1546 if (pvec[IJK(i,j,k)] > 0.0) { in Vgrid_writeDXBIN() [all …]
|
/dports/biology/mopac/mopac7-1.15/fortran/ |
H A D | rotat.f | 12 DO 10 IJK=1,3 13 TX(IJK)=0.0D0 14 TY(IJK)=0.0D0 15 TZ(IJK)=0.0D0 16 TDX(IJK)=0.0D0 17 TDY(IJK)=0.0D0 18 TDZ(IJK)=0.0D0
|
H A D | geoutg.f | 127 DIMENSION IJK(4) 129 IJK(1)=I 130 IJK(2)=J 131 IJK(3)=K 132 IJK(4)=L 135 II=IJK(LOOP)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/deriv/ |
H A D | hfefi.f | 1 Subroutine hfefi(E,R0C,IJK,bEFI, argument 16 Dimension R0C(ncenters,NPP,Lp3),IJK(0:Lp,0:Lp,0:Lp) 87 npx = IJK(Ip+1,Jp ,Kp ) 88 npy = IJK(Ip ,Jp+1,Kp ) 89 npz = IJK(Ip ,Jp ,Kp+1)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/deriv/ |
H A D | hfefi.f | 1 Subroutine hfefi(E,R0C,IJK,bEFI, argument 16 Dimension R0C(ncenters,NPP,Lp3),IJK(0:Lp,0:Lp,0:Lp) 87 npx = IJK(Ip+1,Jp ,Kp ) 88 npy = IJK(Ip ,Jp+1,Kp ) 89 npz = IJK(Ip ,Jp ,Kp+1)
|
/dports/math/vtk8/VTK-8.2.0/ThirdParty/vtkm/vtk-m/vtkm/exec/arg/ |
H A D | ThreadIndicesPointNeighborhood.h | 56 : IJK(ijk) in BoundaryState() 140 i += this->IJK[0]; in Clamp() 141 j += this->IJK[1]; in Clamp() 142 k += this->IJK[2]; in Clamp() 169 i += this->IJK[0]; in ClampAndFlatten() 170 j += this->IJK[1]; in ClampAndFlatten() 171 k += this->IJK[2]; in ClampAndFlatten() 194 vtkm::Id3 IJK; member 300 vtkm::Id3 GetInputIndex3D() const { return this->State.IJK; } in GetInputIndex3D()
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/tools/mesh/ |
H A D | mergedx.c | 11 #define IJK(i,j,k) (((k)*(nx)*(ny))+((j)*(nx))+(i)) macro 133 (mgrid->data)[IJK(i,j,k)] = 0.0; in main() 134 carray[IJK(i,j,k)] = 0; in main() 169 carray[IJK(i,j,k)] += 1; in main() 194 if ( carray[IJK(i,j,k)] >= 1 ) { in main() 195 (mgrid->data)[IJK(i,j,k)] /= carray[IJK(i,j,k)]; in main() 447 u = dx *dy *dz *(thee->data[IJK(ihi,jhi,khi)]) in Vgrid_value2() 448 + dx *(1.0-dy)*dz *(thee->data[IJK(ihi,jlo,khi)]) in Vgrid_value2() 449 + dx *dy *(1.0-dz)*(thee->data[IJK(ihi,jhi,klo)]) in Vgrid_value2() 450 + dx *(1.0-dy)*(1.0-dz)*(thee->data[IJK(ihi,jlo,klo)]) in Vgrid_value2() [all …]
|
H A D | mergedx2.c | 10 #define IJK(i,j,k) (((k)*(nx)*(ny))+((j)*(nx))+(i)) macro 247 (mgrid->data)[IJK(i,j,k)] = 0.0; in main() 248 carray[IJK(i,j,k)] = 0; in main() 277 (mgrid->data)[IJK(i,j,k)] += value; in main() 278 carray[IJK(i,j,k)] += 1; in main() 303 if ( carray[IJK(i,j,k)] >= 1 ) { in main() 304 (mgrid->data)[IJK(i,j,k)] /= carray[IJK(i,j,k)]; in main() 403 u = dx *dy *dz *(thee->data[IJK(ihi,jhi,khi)]) in Vgrid_value2() 404 + dx *(1.0-dy)*dz *(thee->data[IJK(ihi,jlo,khi)]) in Vgrid_value2() 405 + dx *dy *(1.0-dz)*(thee->data[IJK(ihi,jhi,klo)]) in Vgrid_value2() [all …]
|
/dports/lang/rust/rustc-1.58.1-src/src/test/ui/lint/dead-code/ |
H A D | lint-dead-code-4.rs | 35 enum IJK { enum 46 fn struct_variant_partial_use(b: IJK) -> String { in struct_variant_partial_use() 48 IJK::J { a, b: _, .. } => a, in struct_variant_partial_use() 80 struct_variant_partial_use(IJK::J { a: "".into(), b: 1, c: -1 }); in main()
|
/dports/math/vtk8/VTK-8.2.0/Filters/ParallelGeometry/Testing/Cxx/ |
H A D | UnstructuredGhostZonesCommon.cxx | 351 int IJK[3]; in GenerateDataSet() local 352 I(IJK) = i+hexNodeOffSet[node*3]; in GenerateDataSet() 353 J(IJK) = j+hexNodeOffSet[node*3+1]; in GenerateDataSet() 354 K(IJK) = k+hexNodeOffSet[node*3+2]; in GenerateDataSet() 356 vtkStructuredData::ComputePointId(global::Dims,IJK,dataDescription); in GenerateDataSet() 359 GetPoint(I(IJK),J(IJK),K(IJK),&nodesPtr[localNodeIdx*3]); in GenerateDataSet()
|