Searched defs:fftr2k (Results 1 – 2 of 2) sorted by relevance
| /dports/science/libgridxc/libgridxc-libgridxc-0.9.6/src/ |
| H A D | fftr.F90 | 177 subroutine fftr2k( nMesh, rDistr, f ) subroutine
189 character(len=*),parameter:: myName='fftr2k ' argument
190 integer:: ib1, ib2, ib3, ic, ic1, ic2, ic3, ip, jc1, jc2, jc3, jf, jp, &
191 kBox(2,3), mkBox(2,3), myKmesh(3), myRmesh(3), rBox(2,3)
192 real(gp),pointer:: fc(:,:,:,:)=>null()
|
| /dports/science/siesta/siesta-4.1.5/Src/SiestaXC/ |
| H A D | fftr.F90 | 173 subroutine fftr2k( nMesh, rDistr, f ) subroutine
185 character(len=*),parameter:: myName='fftr2k ' argument
186 integer:: ib1, ib2, ib3, ic, ic1, ic2, ic3, ip, jc1, jc2, jc3, jf, jp, &
187 kBox(2,3), mkBox(2,3), myKmesh(3), myRmesh(3), rBox(2,3)
188 real(gp),pointer:: fc(:,:,:,:)=>null()
|