Searched refs:qsend (Results 1 – 1 of 1) sorted by relevance
49 real*8, allocatable :: qrecv(:), qsend(:) local967 allocate(qsend(icountN(irN+1)*numvar))968 qsend(:) = -9.87654321e32975 qsend( (ifill-1)*numvar+1) = vID(i) ! no shift to start from 1 yet979 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)[all …]