Searched refs:ioDistr (Results 1 – 2 of 2) sorted by relevance
/dports/science/libgridxc/libgridxc-libgridxc-0.9.6/src/ |
H A D | cellxc.F90 | 228 ioDistr=-1, &! ID of input mesh distribution local 425 call setMeshDistr( ioDistr, nMesh, ioBox ) 429 myDistr = ioDistr 449 call associateMeshTask( io2my, ioDistr, myDistr ) 450 call copyMeshData( nMesh, ioDistr, dens(:,:,:,1:ndSpin), & 499 if (.not.sameMeshDistr(myDistr,ioDistr) .or. (GGA .and. myDistr/=0)) then 532 call associateMeshTask( io2my, ioDistr, myDistr ) 533 call copyMeshData( nMesh, ioDistr, dens, myBox, myDens, io2my ) 1232 if (sameMeshDistr(ioDistr,myDistr)) then ! Just copy myVxc to output array
|
/dports/science/siesta/siesta-4.1.5/Src/SiestaXC/ |
H A D | cellxc.F90 | 341 ioDistr=-1, &! ID of input mesh distribution local 479 call setMeshDistr( ioDistr, nMesh, ioBox ) 483 myDistr = ioDistr 503 call associateMeshTask( io2my, ioDistr, myDistr ) 504 call copyMeshData( nMesh, ioDistr, dens(:,:,:,1:ndSpin), & 553 if (.not.sameMeshDistr(myDistr,ioDistr) .or. (GGA .and. myDistr/=0)) then 586 call associateMeshTask( io2my, ioDistr, myDistr ) 587 call copyMeshData( nMesh, ioDistr, dens, myBox, myDens, io2my ) 1267 if (sameMeshDistr(ioDistr,myDistr)) then ! Just copy myVxc to output array
|