siesta-4.1.5/Src/iodmhs_netcdf.F90

74       integer  :: MPIerror, stat(MPI_STATUS_SIZE), count, BNode, tag  local
164       do BNode = 0, Nodes - 1
166             if (BNode == 0) then
169                call MPI_Recv(numd_buf,norbs_node(BNode),MPI_integer,BNode,BNode, &
175             do io = 1, norbs_node(BNode)
176                call LocalToGlobalOrb(io,BNode,Nodes,iog)
180             if (Node == BNode) then
181                call MPI_Send(numd(1:nbasis),nbasis,MPI_integer,0,BNode,MPI_Comm_World,mpierror)
207       do BNode = 0, Nodes - 1
209             if (BNode == 0) then
212                call MPI_Recv(listd_buf,nnzs_node(BNode),MPI_integer,BNode,BNode,    &
221             do io = 1, norbs_node(BNode)
222                call LocalToGlobalOrb(io,BNode,Nodes,iog)
229             if (Node == BNode) then
230                call MPI_Send(listd(1:maxnd),maxnd,MPI_integer,0,BNode,MPI_Comm_World,mpierror)
243       do BNode = 0, Nodes - 1
245             if (BNode == 0) then
248                call MPI_Recv(s_buf,nnzs_node(BNode),MPI_double_precision,BNode,tag,  &
257             do io = 1, norbs_node(BNode)
258                call LocalToGlobalOrb(io,BNode,Nodes,iog)
267             if (Node == BNode) then
325       integer  :: MPIerror, stat(MPI_STATUS_SIZE), count, BNode, tag  local
379       do BNode = 0, Nodes - 1
381             if (BNode == 0) then
384                call MPI_Recv(dp_buf,nnzs_node(BNode),MPI_double_precision,BNode,tag,  &
393             do io = 1, norbs_node(BNode)
394                call LocalToGlobalOrb(io,BNode,Nodes,iog)
403             if (Node == BNode) then
413       do BNode = 0, Nodes - 1
415             if (BNode == 0) then
418                call MPI_Recv(dp_buf,nnzs_node(BNode),MPI_double_precision,BNode,tag,  &
427             do io = 1, norbs_node(BNode)
428                call LocalToGlobalOrb(io,BNode,Nodes,iog)
437             if (Node == BNode) then
447       do BNode = 0, Nodes - 1
449             if (BNode == 0) then
452                call MPI_Recv(dp_buf,nnzs_node(BNode),MPI_double_precision,BNode,tag,  &
461             do io = 1, norbs_node(BNode)
462                call LocalToGlobalOrb(io,BNode,Nodes,iog)
471             if (Node == BNode) then