fortran95

    1熱度

    2回答

    當使用命令gfortran -g -fcheck=all -Wall -Wextra myprogram.f95以下錯誤編譯它運行後,程序顯示 Fortran runtime error: Substring out of bounds: lower bound (0) of 'x' is less than one 也有報道的錯誤在於對下面的子例程的第10行錯誤。 01 subroutine

    0熱度

    1回答

    我需要生成大量的隨機數(從零到1,均勻分佈)。 我最初有一個Do循環,並在飛行中產生的隨機數爲這樣: Real :: RandomN Integer :: N DO N = 1, 10000 Call RANDOM_NUMBER(RandomN) ... Some Code ... ENDDO 然而,生成數字時(如果我評論了「呼叫RANDOM_NUMBER(我得到一個

    2熱度

    1回答

    我是Fortran的新手。我想開發以打印出指定變量信息用Fortran 95大派生類型爲簡化子程序,可以說我們有一個派生類型聲明和assigmnent如下: type SubjectType character(20) :: genre character(20) :: maindude end type SubjectType type BookType ch

    -1熱度

    1回答

    我有一個.dat文件,我嘗試逐行閱讀並打印它。 任何人都可以請幫助關於如何在Fortran中做到這一點? 提前致謝! 數據: REMARK GENERATED BY TRJCONV TITLE UNNAMED t= 0.00000 REMARK THIS IS A SIMULATION BOX CRYST1 26.178 26.178 26.178 90.00 90.00 90.00 P

    1熱度

    1回答

    原問題 據我所知,從Fortran 95開始,聲明函數已被聲明爲過時而偏向於內部函數。但是,內部函數並沒有涵蓋所有的用例,特別是當使用語句函數作爲縮寫時,爲了使長公式的實現更具可讀性,隱含的參數。有沒有足夠的替代這個用例? 例 例如,讓我們說我們有一個關係                 Cᵢⱼ=∫dx₁∫dx₂∫dx₃∫dy₁∫dy₂∫dy₃(AᵢⱼBᵢⱼ+BᵢⱼAⱼᵢ) Eg比較使用直接A的內

    -2熱度

    1回答

    !subroutine No.10: to calculate positive capilary pressure required subroutine Pcow_positive1(sigma_ow,R,alpha,b,teta_ow,Pcow_positive,r1,time) implicit none !dummy argument declarat

    1熱度

    1回答

    當我提出我的包CRAN,它不與下面的警告通過自動傳入檢查: * checking whether package 'EpiILM' can be installed ... WARNING Found the following significant warnings: Warning: GNU Extension: Different type kinds at (1)

    1熱度

    1回答

    有幾個線程的標題類似,但我不相信它們是相同的。其中一個非常類似於fortran pass allocated array to main procedure,但答案需要Fortran 2008.我是在Fortran 90/95解決方案之後。 另一個非常好的,非常相似的線程是Dynamic array allocation in fortran90。然而,在這種方法中,當它們在子程序中分配時,它們似

    0熱度

    1回答

    我想在Fortran 95中編寫一個雙求和,但是,我似乎從來沒有得到正確的輸出。它似乎總是輸出Fortran的非常小的實數。這裏是我的代碼: program summation implicit none integer::i,j,m,n real::s,s1 s1=0 do i=1,100 do j=1,100 s1=

    -1熱度

    1回答

    我已經從一本基本上運行善良的書中讀取了這個Fortran程序,以適合測試某些數據並給出輸出結果。代碼和它的實際結果/輸出給定爲下:這個程序的 real*4 x(50),xc(50,20),omega(50) integer ir(50) real*8 xx c This code tests goodness of fit. n=47 c The method of Bak, Niels