Ошибка при компиляции: Не удается открыть файл модуля

Question

У меня есть этот код:

 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 

Не могли бы вы сказать мне, как я могу реши это?

Answer 1

Сообщаем вам, что вам нужен модуль ran_state, который будет создан первым. Если вы скомпилируете свой модуль, который содержит run_state, тогда вы получите файл .mod. Если вы затем создадите свою программу, вы больше не сможете получить эту ошибку.

Answer 2

Я видел ту же ошибку, когда я построил так:

gfortran test.f90 -o test.exe 

use modulename

1

Fatal Error: Can't open module file 'modulename.mod' for reading at (1): No such file or directory

say modulename.mod is at /usr/local/include

and some dependencies at /usr/local/lib

Вы можете сделать ошибки уйти с следующим:

gfortran test.f90 -o test.exe -I/usr/local/include -L/usr/local/lib