编译错误：无法打开模块文件

我有这个代码：

        PROGRAM xfit
!   driver for routine fit
    USE nrtype; USE nrutil
    USE nr
    USE ran_state, ONLY : ran_seed
    IMPLICIT NONE
    INTEGER(I4B), PARAMETER :: NPT=100
    REAL(SP), PARAMETER :: SPREAD=0.5_sp
    INTEGER(I4B) :: mwt
    REAL(SP) :: a,b,chi2,q,siga,sigb
    REAL(SP), DIMENSION(NPT) :: harvest,sig,x,y
    call ran_seed(sequence=731)
    x(:)=arth(0.1_sp,0.1_sp,NPT)
    call gasdev(harvest)
    y(:)=-2.0_sp*x(:)+1.0_sp+SPREAD*harvest
    sig(:)=SPREAD
    do mwt=0,1
        if (mwt == 0) then
            write(*,'(//1x,a)') 'Ignoring standard deviation'
            call fit(x,y,a,b,siga,sigb,chi2,q)
        else
            write(*,'(//1x,a)') 'Including standard deviation'
            call fit(x,y,a,b,siga,sigb,chi2,q,sig)
        end if
        write(*,'(1x,t5,a,f9.6,t24,a,f9.6)') 'A = ',a,'Uncertainty: ',&
            siga
        write(*,'(1x,t5,a,f9.6,t24,a,f9.6)') 'B = ',b,'Uncertainty: ',&
            sigb
        write(*,'(1x,t5,a,4x,f10.6)') 'Chi-squared: ',chi2
        write(*,'(1x,t5,a,f10.6)') 'Goodness-of-fit: ',q
    end do
    END PROGRAM xfit

但是当我编译它时，我收到以下错误

USE ran_state, ONLY : ran_seed
     1
Fatal Error: Can't open module file 'ran_state.mod' for reading at (1):
              No such file or directory

你能告诉我如何解决吗？

一个相当晚的答案。

1. 获取你的子模块并编译：

   gfortran -c nrtype.f90 nrutil.f90 nr.f90 ran_state.f90

2. 现在链接生成的o您的主程序的文件：xfit.f90并创建可执行文件，我称之为main:

   gfortran -o main xfit.f90 nrtype.o nrutil.o nr.o ran_state.o

3. 运行可执行文件：

   ./main