Dear all.
I have some problem with MPI_TYPE_CREATE_STRUCT and as a consequence
with SENDRECV.
I have this variable type
*type particle*
*integer :: ip*
* real :: RP(2)*
* real :: QQ(4)*
*end type particle*
When I compile in double precision with:
*mpif90 -r8 -fpp -DPARALLEL *.f90 *
So when I create my own variable type for MPI, I have
*TYPES(1)=MPI_INTEGER !We have three variables
type in the new varible*
*TYPES(2)=MPI_DOUBLE_PRECISION !Integer and Real and Real*
* TYPES(3)=MPI_DOUBLE_PRECISION !Integer and Real and Real*
* nBLOCKS(1)=1 !number of
element in each block *
* nBLOCKS(2)=2*
* nBLOCKS(3)=4*
* !*
* DISPLACEMENTS(1)=0*
* DISPLACEMENTS(2)=sizeof(dummy%ip)*
*
DISPLACEMENTS(3)=sizeof(dummy%ip)+sizeof(dummy%RP(1))+sizeof(dummy%RP(2))*
* ! *
* CALL
MPI_TYPE_CREATE_STRUCT(3,nBLOCKS,DISPLACEMENTS,TYPES,MPI_PARTICLE_TYPE,
PI%ierr)*
* CALL MPI_TYPE_COMMIT(MPI_PARTICLE_TYPE,MPI%ierr)*
Am I right?
Thanks, in advance, for any kind of help
Diego
