Lines Matching refs:qrecv
49 real*8, allocatable :: qrecv(:), qsend(:) local
907 allocate(qrecv(ifill*numvar))
908 qrecv = -9.87654321e32
909 call mpi_recv(qrecv, ifill*numvar, MPI_DOUBLE, irM,
912 intvID = qrecv( (i-1)*numvar+1 )+1.1 ! shift to start from 1
916 qoldN(intvID,idof) = qrecv( (i-1)*numvar+sumvar )
922 ybarN(intvID,idof) = qrecv( (i-1)*numvar+sumvar)
930 & qrecv( (i-1)*numvar+sumvar)
940 & qrecv( (i-1)*numvar+sumvar)
950 & qrecv( (i-1)*numvar+sumvar)
957 dwalN(intvID) = qrecv ( (i-1)*numvar+sumvar)
960 deallocate(qrecv)