Код Fortran выдает ошибку времени выполнения «операция не поддерживается» при попытке открыть текстовый файл - PullRequest
Новая
       77

Код Fortran выдает ошибку времени выполнения «операция не поддерживается» при попытке открыть текстовый файл

0 голосов
/ 22 октября 2019

Я пытаюсь запустить фрагмент кода на фортране, написанный на f95. Я скомпилировал его с помощью gfortran в Ubuntu.

В коде есть команда для чтения в текстовом файле. Когда я запускаю его, он выдает мне следующую ошибку: 

    Fortran runtime error: Cannot open file 'input_parameters.txt': Operation not supported

Это код до момента, когда мы пытаемся прочитать текстовый файл: 

    program LSmodel
    implicit none !this is a fortran thing that means that all variables that start with i,j,k,l,m,n are integers. 

    real :: sec,ran,gasdev                        ! random generator variables
    real :: x,y,z,u,v,w,ut,vt,wt,t,dt             ! simulation variables
    real :: wg                                    ! seed parametes
    real :: Um,sigma_u,sigma_v,sigma_w,uw         ! wind statistics variables
    real :: dvaru_dz,dvarv_dz,dvarw_dz,duw_dz     ! wind statistics variables
    real :: dissip_m,TL                           ! vector over the range of ustars
    real :: zs,zg,zmax                            ! release height & boundaries
    real :: Ainv,C0inv                            ! inverse parameters
    real :: C0,A,b,au,av,aw,dt_on_TL              ! LS model parameters
    real :: dz_max,dt_max                         ! time step limit
    real :: CT,beta                               ! Crossing Trajectories correction
    real :: C_chi,chi,TKE,T_chi,omega             ! DI parameters
    real :: a_ln,b_ln,sigma_chi,dissip_s          ! DI parameters
    real :: rhop,rho,r,g,gt,Re,AIP,Cd,nu          ! IP parameters
    real :: up,vp,wp,upt,vpt,wpt,vr,dt_ip,alpha   ! IP parameters
real :: keepseed, maxheight
    integer :: seed                              ! random generator variables, keepseed decides whether to keep the same seed or not for comparison of simulation
    integer :: pnum, traj_exit     ! simulation parameters. traj_exit counts the number of particles that have exited from the topo f the wind flow. 
    integer :: i,j,jj,n,ii                        ! counting parameters
    integer :: n_ip,IP=1                          ! IP parameters
    character(len=80) :: filename, wgchar, foldername
    real, allocatable,dimension(:) ::  z_vec,Um_vec,sigma_u_vec,sigma_v_vec,sigma_w_vec,uw_vec
    real, allocatable,dimension(:) ::  dvaru_dz_vec,dvarv_dz_vec,dvarw_dz_vec,duw_dz_vec,dissip_m_vec


    ! input
    open (23,file='input_parameters.txt') !opening a file for the input parameters....
    read (23, *) x,C0,wg,zs,zg,beta,dt_on_TL,y,sigma_chi,C_chi,r,rhop,alpha,rho,nu, keepseed, foldername
    close(23)

Я работаюUbuntu 18.04.2 LTS.

1 Ответ

0 голосов
/ 24 октября 2019

Обновление - я нашел (я считаю) причину, по которой этот код не работал, хотя я не знаю почему.

Папка находилась на сетевом диске, а не на моем локальном компьютере. Переместив папку на локальный компьютер, я перестал получать эту ошибку.

...