Lines Matching refs:numvar
65 integer :: maxicountN, maxicountNglob, numvar, sumvar local
817 numvar = 1+ndof+ndofybar+ndoferrors
907 allocate(qrecv(ifill*numvar))
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)
967 allocate(qsend(icountN(irN+1)*numvar))
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,