RPN_COMM |
(RPN_COMM_swapns) |
SUBROUTINE RPN_COMM_swapns (nwen,wden,nwes,wdes, % nwin,nwrn,wdin,nwis,nwrs,wdis,periody, % status)
nwen,nwes | Nombre de mots à envoyer au nord/sud | integer | I |
wden,wdes | Vecteur à envoyer au nord/sud | integer | I | nwin,nwis | Nombre de mots à recevoir du nord/sud | integer | I |
wdin,wdis | Vecteur à recevoir du nord/sud | integer | O |
periody | Périodicité nord-sud | logical | I | nwrn,nwrs | Nombre de mots effectivement reçus du nord/sud | integer | O |
status | Statut, erreur | integer | O |
À noter: le nombre de mots reçus peut être différent du nombre de mots attendus, d'où la présence des variables nwrn/s. Ces valeurs sont obtenues avec MPI_GET_COUNT.
call RPN_COMM_swapns (nwen,wden,nwes,wdes,
%
nwin,nwrn,wdin,nwis,nwrs,wdis,periody,
%
status)