Searched refs:ifill (Results 1 – 1 of 1) sorted by relevance
| /phasta/M2N/src/ |
| H A D | readnblk.f | 66 integer :: ncount, ifill, tag local
833 ifill = icountN(irN+1)
834 call mpi_gather(ifill, 1, MPI_INT, getinfo, 1, MPI_INT,
903 ifill = getinfo(irM+1)
904 if(ifill .gt. 0) then
907 allocate(qrecv(ifill*numvar))
909 call mpi_recv(qrecv, ifill*numvar, MPI_DOUBLE, irM,
911 do i=1,ifill
965 ifill = 0
973 ifill = ifill+1
[all …]
|