Searched refs:qrecv (Results 1 – 1 of 1) sorted by relevance
49 real*8, allocatable :: qrecv(:), qsend(:) local907 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 1916 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)[all …]