Searched refs:ivec_local (Results 1 – 1 of 1) sorted by relevance
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | iowfs_netcdf.F90 | 85 integer :: MPIerror, stat(MPI_STATUS_SIZE), count, BNode, tag, ivec_local local 101 call GlobalToLocalOrb(ivec,BNode,Nodes,ivec_local) 106 psi_buf(1:2,1:norbs) = psi(1:2,1:norbs,ivec_local) ! Could do with pointer 117 call MPI_Send(psi(1,1,ivec_local),2*norbs, &
|