使用g77/gfortran编译mvapich的相关问题

wysilly

1. 1.安装
   
2. 在混和使用g77与gfortran编译mvapich时,官方文档<MVAPICH 1.0 User and Tuning Guide>中提到了要设置如下的相关的参数,这里我以make.mvapich.smp为例.
   
3. #vi make.mvapich.smp
   
4. 18 PREFIX=${PREFIX:-/usr/local/mvapich}
   
5. 19 export CC=${CC:-gcc}
   
6. 20 export CXX=${CXX:-g++}
   
7. 21 export F77=${F77:-g77}
   
8. 22 export F90=${F90:-gfortran}
   
9. 23 export F77_GETARGDECL=" "
   
10. 24 export F90FLAGS="-ff2c"
    
11. 
    
12. 修改完成后进行编译安装:
    
13. #./make.mvapich.smp
    
14. 通过查看目录下config-mine.log可以查看相关信息.
    
15. 
    
16. 完成安装后,可以看到存在/usr/local/mvapich/examples/pi3f90.f90,说明mpif90己经配置安装,可以使用了.
    
17. 
    
18. 2.测试
    
19. 开始测试mpif90是否能正常编译f90程序.
    
20. #cd /usr/local/mvapich/examples
    
21. #/usr/local/mvapich/bin/mpif90   pi3f90.f90
    
22. pi3f90.o: In function `MAIN__':
    
23. pi3f90.f90:(.text+0x2c): undefined reference to `mpi_init_'
    
24. pi3f90.f90:(.text+0x46): undefined reference to `mpi_comm_rank_'
    
25. pi3f90.f90:(.text+0x60): undefined reference to `mpi_comm_size_'
    
26. pi3f90.f90:(.text+0x254): undefined reference to `mpi_bcast_'
    
27. pi3f90.f90:(.text+0x338): undefined reference to `mpi_reduce_'
    
28. pi3f90.f90:(.text+0x3f5): undefined reference to `mpi_finalize_'
    
29. collect2: ld returned 1 exit status
    
30. 
    
31. 3.如何解决上面的问题呢?
    
32. 1)首先在mpif90中加入F90FLAGS的信息
    
33. #vi /usr/local/mvapich/bin/mpif90
    
34. 30 F90BASE="gfortran"
    
35. 31 F90LINKERBASE="gfortran"
    
36. 32 F90FLAGS="-ff2c"
    
37. 
    
38. #/usr/local/mvapich/bin/mpif90   pi3f90.f90
    
39. /usr/local/mvapich/lib/libmpich.a(farg.o): In function `mpir_iargc__':
    
40. farg.f:(.text+0x7): undefined reference to `f__xargc'
    
41. /usr/local/mvapich/lib/libmpich.a(farg.o): In function `mpir_getarg__':
    
42. farg.f:(.text+0x27): undefined reference to `G77_getarg_0'
    
43. collect2: ld returned 1 exit status
    
44. make: *** [pi3f90] Error 1
    
45. 
    
46. 2)接下来生成一个farg.f的文件,生成farg.o文件.
    
47. #vi farg.f
    
48.   1       integer function mpir_iargc()
    
49.   2
    
50.   3       mpir_iargc = IARGC()
    
51.   4       return
    
52.   5       end
    
53.   6 c     
    
54.   7       subroutine mpir_getarg( i, s )
    
55.   8
    
56.   9       integer       i
    
57. 10       character (LEN=*) s
    
58. 11
    
59. 12       call GETARG(i,s)
    
60. 13       return
    
61. 14       end
    
62. 
    
63. #gfortran -fsecond-underscore -c farg.f
    
64. 
    
65. 3)使用下面的命令生成pi3f90文件.
    
66. #/usr/local/mvapich/bin/mpif90  -c pi3f90.f90
    
67. #/usr/local/mvapich/bin/mpif90  -o pi3f90 pi3f90.o farg.o
    
68. 
    
69. (补充:若又出现了
    
70. 
    
71. /usr/local/mvapich/bin/mpif90  -o pi3f90 pi3f90.o farg.o
    
72. 
    
73. farg.o(.text+0x34): In function `mpir_getarg__':
    
74. 
    
75. : undefined reference to `getarg_'
    
76. 
    
77. collect2: ld returned 1 exit status )
    
78. 
    
79. 
    
80. 
    
81. 修改mpif90下面两行类似以下
    
82. 
    
83. USER_FFLAGS="-L/usr/lib/gcc/x86_64-redhat-linux/3.4.6 -L/usr/lib64" ( 我的g77是3.4.6版的)
    
84. 
    
85. BASE_LIB_LIST=" -L/usr/lib64 -Wl,-rpath=/usr/lib64 -libverbs -libumad -lpthread  -lpthread  -lrt -lg2c")
    
86. 
    
87. 
    
88. 4)最终测试
    
89. #mpirun_rsh -np 2 n1 n2 GFORTRAN_UNBUFFERED_ALL=y ./pi3f90
    
90. Process            0  of            2  is alive
    
91. Enter the number of intervals: (0 quits)
    
92. Process            1  of            2  is alive
    
93. 10000000
    
94.   pi is approximately: 3.1415926535899814  Error is: 0.0000000000001883
    
95. Enter the number of intervals: (0 quits)
    
96. 
    
97. 写这篇文档的原由是由于在解决这个问题的过程中,google后很失望,通过对[url]http://www.pgroup.com/support/link.htm[/url] 这篇文档的反复琢磨,有了上面的文档,希望对后来者有用.

复制代码

[ 本帖最后由 wysilly 于 2008-2-28 17:15 编辑 ]

nntp

great job!