将 gfortran 链接到 LAPACK 和 BLAS 时出错

Question

我已经从 Ubuntu 中的 Synaptic 包管理器安装了 LAPACK 和 BLAS。

whereis libblas
libblas: /usr/lib/libblas.so /usr/lib/libblas.a /usr/lib/libblas

whereis liblapack
liblapack: /usr/lib/liblapack.a /usr/lib/liblapack.so

当我尝试编译randomsys1 示例时，gfortran我收到以下错误消息。

gfortran randomsys1.f90 -L/usr/lib/lapack -llapack -L/usr/lib/libblas -lblas
/tmp/cclwtifh.o: In function `MAIN__':
randomsys1.f90:(.text+0x12): undefined reference to `init_random_seed_'
collect2: error: ld returned 1 exit status

或者

gfortran randomsys1.f90 -llapack -lblas
/tmp/ccB1isEC.o: In function `MAIN__':
randomsys1.f90:(.text+0x12): undefined reference to `init_random_seed_'
collect2: error: ld returned 1 exit status

根据我的理解，这是gfortran与lapackand链接的推荐方式blas（请参考gfortran LAPACK “undefined reference” error）。提前感谢您指出fortran使用gfortran.

Answer 1

试试这个

gfortran randomsys1.f90 -L/usr/lib -llapack -L/usr/lib -lblas

我认为你走得太远了一个目录

我使用 LAPACK eigensolver 编写了一个程序，这是我在自己的计算机上成功编译它的方法。它用于计算弹簧质量系统的模式。

gfortran eigen.f90 -L/usr/local/lib -lblas -L/usr/local/lib -llapack

这也适用于我的电脑

gfortran eigen.f90 -lblas -llapack

我只是尝试了两者来验证。

PS，既然您知道如何编译，我认为您需要在程序中使用子例程 init_random_seed（在“包含”之后但在“结束程序”之前）。这个来自谷歌。不知道这是否是您需要的，您的教授应该能够正确引导您。

! Initialize the random number generator using current time,
! so a new sequence of random numbers is generated each 
! execution time.

! Taken from http://gcc.gnu.org/onlinedocs/gfortran/RANDOM_005fSEED.html

    SUBROUTINE init_random_seed()
        INTEGER :: i, n, clock
        INTEGER, DIMENSION(:), ALLOCATABLE :: seed

        CALL RANDOM_SEED(size = n)
        ALLOCATE(seed(n))

        CALL SYSTEM_CLOCK(COUNT=clock)

        seed = clock + 37 * (/ (i - 1, i = 1, n) /)
        CALL RANDOM_SEED(PUT = seed)

        print *, "Using random seed = ", seed
        print *, " "

        DEALLOCATE(seed)
    END SUBROUTINE