fortran77+MPI编译错误
FFLAGS = -O2 -w -I/usr/lib/openmpi/include -I/usr/lib/openmpi/lib
CFLAGS = -O2 -w
CODE = p2d3t.e
XDIR = run
SG21:$(SRC) $(SG21SRC)
mpif77 $(FFLAGS) -o $(CODE) $(SRC) $(SG21SRC)
cp $(CODE) $(XDIR)/run1
别人的f77+mpi程序,在我的虚拟机ubuntu系统下编译出错,上面是部分makefile代码,我将FFLAGS路径修改后还是有问题,具体问题如下:
l****@ubuntu:~/Downloads/soft3$ make
f77 -O2 -w -I/usr/lib/openmpi/include -I/usr/lib/openmpi/lib -c -o e2d3ts.o e2d3ts.f
e2d3ts:
Error on line 138: Declaration error for t0: adjustable dimension on non-argument
Error on line 138: wr_ardecls: nonconstant array size
Error on line 138: wr_ardecls: nonconstant array size
/usr/bin/f77: aborting compilation
make: *** [e2d3ts.o] Error 25
我自己感觉应该是可调数组维数的问题,提示错误的源程序如下:
c
subroutine e2d3ts(nconv,redf,linear_niter,
1 iter_method_sles,npreconditioner)
implicit real*8 (a-h,o-z)
include "mpi2d3t.i"
include "snesf.h"
c
dimension t0(n,0:imcell+1,0:jmcell+1)
dimension linear_niter(1)
但是不知道怎么修改,我查看相关介绍,f77是支持可调数组维数的啊,望高人指点,多谢。我刚刚接触fortran希望能回答的详细些。
[解决办法]
还有一种可能,是不是你使用的编译器和这个mpi程序版本的兼容性有问题?
混合编译时,不同语言版本之间往往不是完全支持的。
[解决办法]
我觉得可能这里用些问题。
“FFLAGS = -O2 -w -I/usr/lib/openmpi/include -I/usr/lib/openmpi/lib ”
链接lib需要用“-L”而不是“-I”,同时还需要指明链接哪个lib。上面需要改为
“FFLAGS = -O2 -w -I/usr/lib/openmpi/include -L/usr/lib/openmpi/lib lib???”
lib??? 是您需要指明的链接函数。
现在fortran已经发展到f2003了。更新的08标准也在酝酿了。老的f77,很多语法已经过时。您可以用新的gfortran来编译。