0
Ich beginne mit MPI in Fortran und versuche, eine Streuung von einem Array zu machen. Dies ist der Code:Kein spezielles Unterprogramm für 'mpi_scatter'
program test_scatter
use mpi
implicit none
integer :: ierr, rank, size, comm, i, j
integer, parameter :: dim = 5, dim_nodos = 4
real, dimension(dim, dim) :: panel_pos
real, dimension(dim_nodos) :: nodos
real :: rev_buf
forall(i = 1:dim_nodos) nodos(i) = i
comm = MPI_COMM_WORLD
call MPI_INIT(ierr)
call MPI_COMM_SIZE(comm, size, ierr)
call MPI_COMM_RANK(comm, rank, ierr)
call MPI_Bcast(panel_pos, dim*dim, MPI_REAL, 1, comm, ierr)
call MPI_Scatter(nodos, 1, MPI_REAL, rev_buf, 1, 1, comm, ierr)
print *, panel_pos, 'from rank', rank
! Finalizar MPI
call MPI_FINALIZE(ierr)
end program test_scatter
Ich versuche, mit zu kompilieren:
mpif90 test_scatter.F90 -o test_scatter.e
Aber ich bekomme diese Fehlermeldung:
call MPI_Scatter(nodos, 1, MPI_REAL, rev_buf, 1, 1, comm, ierr) 1 Error: There is no specific subroutine for the generic ‘mpi_scatter’ at (1)
Ich habe Debian Testing. Das System ist auf dem neuesten Stand. Ich installiere OpenMPI wie:
$ sudo apt-get install openmpi-bin openmpi-common openmpi-doc libopenmpi-dev
Was habe ich falsch gemacht?
Als Ihr Titel möglicherweise ein Fehlverständnis schon sagt, es ist nicht „kein Unterprogramm“ es ist „kein _specific_ Subroutine". Insbesondere scheinen Sie den Typ beim Empfang nicht anzugeben. Bitte überprüfen Sie Ihre Dokumentation sorgfältig. – francescalus
Sie haben einfach den Typ der empfangenen Daten vergessen. Ihr Aufruf sollte 'call MPI_Scatter (nodos, 1, MPI_REAL, rev_buf, 1, MPI_REAL, 1, comm, ierr)' sein (NB das extra 'MPI_REAL') – Gilles