<html>
<head>
<meta http-equiv="content-type" content="text/html;
charset=ISO-8859-15">
<link href="chrome://translator/skin/floatingPanel.css"
type="text/css" rel="stylesheet">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Hi,<br>
<br>
I work with a Fortran code. I use Visual Studio 2008 and Intel
Fortran 11.<br>
I have always used 32 bit MPI successfully.<br>
Now I need to switch my code to 64 bit. First of all I uninstalled
32 bit MPICH2 and I installed mpich2-1.4.1p1-win-x86-64.<br>
I have several problems.<br>
When I launch my program, the first value of some integer array (<i>block_lengths</i>)
changes sign after some MPI_GET_ADDRESS and I have an error message.
Below you can find a piece of code. <br>
<br>
<i>block_lengths(:) = 1</i><i><br>
</i><i><br>
</i><i>!get addresses</i><i><br>
</i><i>CALL
MPI_GET_ADDRESS(var_name%distance,address(1),MY_MPI_error)</i><i><br>
</i><i>CALL
MPI_GET_ADDRESS(var_name%min_distance,address(2),MY_MPI_error)</i><i><br>
</i><i>CALL
MPI_GET_ADDRESS(var_name%max_distance,address(3),MY_MPI_error)</i><i><br>
</i><i>CALL MPI_GET_ADDRESS(var_name%flag,address(4),MY_MPI_error)</i><br>
<br>
So, I changed the position of these arrays in the code and I have
bypass the error, but after the change, however the code doesn't
work. The problem is with a mpi_send and mpi_receiver.<br>
<br>
address is defined as <i>INTEGER(KIND = MPI_ADDRESS_KIND) ::
address(SIZE)</i> , but <i>write(*,*) MPI_GET_ADDRESS</i> returns
4. <br>
<br>
In the mpif.h I found:<br>
<i>INTEGER MPI_ADDRESS_KIND, MPI_OFFSET_KIND</i><i><br>
</i><i> PARAMETER (MPI_ADDRESS_KIND=8)</i><i><br>
</i><i> PARAMETER (MPI_OFFSET_KIND=8)</i><br>
<br>
There is a mistake. <br>
<br>
Do you have any idea to help me??<br>
<br>
With 32 bit MPICH2 and 32 bit code I don't have error.<br>
If I try <i>mpiexec -n 1 code_64bit.exe</i> , the 64 bit code
works fine.<br>
<br>
Thank you,<br>
regards,<br>
<br>
<div class="moz-signature">-- <br>
<p style="font-family:verdana;color:black"> <b>Ing. Marco De
Gregorio</b><br>
Microwave & Radiation Laboratory<br>
Dip. Ingegneria dell'Informazione - Universitą di Pisa<br>
via G. Caruso 16, 56122 Pisa - Italy<br>
<i>Lab:</i> (+39)050.2217681<br>
<i>Mail:</i> <a class="moz-txt-link-abbreviated"
href="mailto:marco.degregorio@iet.unipi.it">marco.degregorio@iet.unipi.it</a>
<br>
</p>
</div>
<div style="bottom: auto; left: 135px; right: auto; top: 28px;
display: none;" class="translator-theme-default"
id="translator-floating-panel"> </div>
</body>
</html>