2016-03-31 17 views
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?

+1

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

+1

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

Antwort

0

Wie in den Kommentaren bemerkt haben, müssen Sie zusätzlich die MPI_Datatype des Empfangspuffers angeben:

call MPI_Scatter(nodos, 1, MPI_REAL, rev_buf, 1, MPI_REAL, 1, comm, ierr) 
Verwandte Themen