Lines Matching refs:qsend
49 real*8, allocatable :: qrecv(:), qsend(:) local
967 allocate(qsend(icountN(irN+1)*numvar))
968 qsend(:) = -9.87654321e32
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)
1034 call mpi_send(qsend(1), ifill*numvar, MPI_DOUBLE, irN,
1036 deallocate(qsend)