On May 14, 2007, at 10:21 AM, Nym wrote:
I am trying to use MPI_TYPE_STRUCT in a 64 bit Fortran 90 program. I'm
using the Intel Fortran Compiler 9.1.040 (and C/C++ compilers
9.1.045).
If I try to call MPI_TYPE_STRUCT with the array of displacements that
are of type INTEGER(KIND=MPI_ADDRESS_KIND), then I get a compilation
error:
fortcom: Error: ./test_basic.f90, line 34: There is no matching
specific subroutine for this generic subroutine call.
[MPI_TYPE_STRUCT]
CALL MPI_TYPE_STRUCT(numTypes, blockLengths, displacements,
oldTypes &
-------^
compilation aborted for ./test_basic.f90 (code 1)
Attached is a small test program to demonstrate this. I thought
according to the MPI specs that the displacement array should be of
type MPI_ADDRESS_KIND. Am I wrong?
Have a look at the last paragraph of Section 10.2.2 of the MPI-2
standard. Functions from MPI-1 that take address-sized arguments use
INTEGER in Fortran. This was obviously a problem, which is why the
functions from MPI-1 that take an address-sized argument are
depricated in favor of new functions in MPI-2 that take proper
address kind arguments.
Two options:
1) Use MPI_TYPE_STRUCT with INTEGER arguments
2) Use MPI_TYPE_CREATE_STRUCT with ADDRESS_KIND arguments
Hope this helps,
Brian
--
Brian W. Barrett
Open MPI Team, CCS-1
Los Alamos National Laboratory
