首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > 其他开发语言 >

fortran77+MPI编译异常

2012-03-21 
fortran77+MPI编译错误FFLAGS -O2-w -I/usr/lib/openmpi/include -I/usr/lib/openmpi/libCFLAGS -O2-wCO

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来编译。

热点排行