Lines Matching refs:ifill
66 integer :: ncount, ifill, tag local
833 ifill = icountN(irN+1)
834 call mpi_gather(ifill, 1, MPI_INT, getinfo, 1, MPI_INT,
903 ifill = getinfo(irM+1)
904 if(ifill .gt. 0) then
907 allocate(qrecv(ifill*numvar))
909 call mpi_recv(qrecv, ifill*numvar, MPI_DOUBLE, irM,
911 do i=1,ifill
965 ifill = 0
973 ifill = ifill+1
975 qsend( (ifill-1)*numvar+1) = vID(i) ! no shift to start from 1 yet
979 qsend( (ifill-1)*numvar+sumvar) = qold(i,idof)
985 qsend( (ifill-1)*numvar+sumvar) = ybar(i,idof)
992 qsend( (ifill-1)*numvar+sumvar) =
1002 qsend( (ifill-1)*numvar+sumvar) =
1012 qsend( (ifill-1)*numvar+sumvar) =
1020 qsend( (ifill-1)*numvar+sumvar) = dwal(i)
1025 if(ifill .ne. icountN(irN+1)) then
1027 & ifill, icountN(irN+1)
1032 if(ifill .gt. 0) then !if the size of the data is >0, send it for good
1034 call mpi_send(qsend(1), ifill*numvar, MPI_DOUBLE, irN,