我正在使用鄰接列表方法創建圖。每個節點都表示爲指向連接到其上的其他節點的節點。下面是我的代碼 program main
use graphs
implicit none
type(node),pointer :: start
type(node), dimension(:), pointer :: grp
integer :: n, ios=0, a,b, i
open(1, fil
有幾個線程的標題類似，但我不相信它們是相同的。其中一個非常類似於fortran pass allocated array to main procedure，但答案需要Fortran 2008.我是在Fortran 90/95解決方案之後。 另一個非常好的，非常相似的線程是Dynamic array allocation in fortran90。然而，在這種方法中，當它們在子程序中分配時，它們似
而不是使用三個連續的標量IF語句我想使用帶有向量參數的單個IF語句（如果可能的話）。我無法弄清楚如何。 想要這個的原因是測試它的速度。我的代碼可以在幾天內運行數天。即使稍微加快速度也可以產生很大的差異。 下面是虛擬場景中帶有三條IF語句的工作代碼。 program main
!==============================================
! Define
我已經從一本基本上運行善良的書中讀取了這個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