<div dir="ltr">Dear Developers:<br><br> I just checked out source code via cvs, and found a compilation error due to <br>routine ptoolkit.f90 with information below :<br>"<br>IF( ( ii - 1 )/nproc + 1 > SIZE(a,1) ) CALL errore( msg, ' ( ii - 1 )/npr <br>
The upper bound in the last dimension must appear in the reference to the assumed size array 'a' at (1). "<br>My compilor is gfortran v4.1.2.<br><br>I then examined this routine ,and found subroutine check_sndbuf_index only <br>
called by cyc2blk_*redist in parallel computation. But no mpi macros are defined<br>for this subroutine. I just wonder we should modify this routine by adding mpi <br>macro as following :<br>#if defined (_MPI)<br> IF( j > SIZE(sndbuf,2) ) CALL errore( msg, ' j > SIZE(sndbuf,2) ', ip+1 )<br>
IF( il > SIZE(sndbuf,1) ) CALL errore( msg, ' il > SIZE(sndbuf,1) ', ip+1 )<br> IF( ( ii - 1 )/nproc + 1 < 1 ) CALL errore( msg, ' ( ii - 1 )/nproc + 1 < 1 ', ip+1 )<br> IF( ( ii - 1 )/nproc + 1 > SIZE(a,1) ) CALL errore( msg, ' ( ii - 1 )/nproc + 1 > SIZE(a,1) ', ip+1 )<br>
IF( jj < 1 ) CALL errore( msg, ' jj < 1 ', ip+1 )<br> IF( jj > n ) CALL errore( msg, ' jj > n ', ip+1 )<br>#endif<br> RETURN<br><br><br>I then recompiled it, and found no error occured again during compiling. I would like <br>
to know whether it is reasonable by adding this mpi macro for ptoolkit subroutine.<br><br>Best,<br><br>Hai-Ping<br clear="all"><br>-- <br>Hai-Ping Lan <br>Department of Electronics ,<br>Peking University , Bejing, 100871<br>
<a href="mailto:lanhaiping@gmail.com">lanhaiping@gmail.com</a>, <a href="mailto:hplan@pku.edu.cn">hplan@pku.edu.cn</a><br>
</div>