Home
last modified time | relevance | path

Searched refs:IJK (Results 1 – 25 of 223) sorted by relevance

123456789

/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/int/
H A Dhfmkr.F205 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 Dhferi.F1 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 Dhfnai.f1 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 Dhfmkr.F205 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 Dhferi.F1 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 Dhfnai.f1 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 Dka46.f66 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 DBoundaryState.h35 : 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 Drpassm.f490 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 Drpassm.F462 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 Dgenerate_tetra.f61 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 Decr_pts.f62 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 Dmg3d.N.w2p2650 # 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 DSUMA_SegFunc.h209 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 Dvpmg.c7008 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 Dvgrid.c67 #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 Drotat.f12 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 Dgeoutg.f127 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 Dhfefi.f1 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 Dhfefi.f1 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 DThreadIndicesPointNeighborhood.h56 : 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 Dmergedx.c11 #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 Dmergedx2.c10 #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 Dlint-dead-code-4.rs35 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 DUnstructuredGhostZonesCommon.cxx351 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()

123456789