fortran90

0熱度

2回答

如何在Matlab中檢查Fortran中的值？例如在下面的小程序中，爲什麼它會在子程序testing中顯示c=0主要是c=36？你如何在主程序中這樣做c=36？你能以某種方式撥打價值c嗎？我知道在主程序中變量c要麼是未定義的，要麼值爲0，但是有沒有辦法在子程序中保存c的值，以便您可以在其他子程序中再次使用它，而無需再次計算它？當程序非常大時，隨時檢查值是很方便的。 program main

0熱度

1回答

使用FORTRAN 90中的ran1 FORTRAN 77子程序90

我試圖在我的FORTRAN 90代碼中使用來自Numerical Recipes的ran1。我認爲一種常見的方法是分別編譯舊的子程序，然後使用目標文件。但是在這裏我想知道在我的代碼中直接使用它需要進行哪些更改。 FUNCTION ran1(idum) INTEGER idum,IA,IM,IQ,IR,NTAB,NDIV REAL ran1,AM,EPS,RNMX PARAMETER (IA=

4熱度

3回答

Fortran嵌套的WHERE語句

我有一個嵌套的WHERE語句的Fortran 90源代碼。有一個問題，但似乎很難理解究竟發生了什麼。我想將其轉換爲DO-IF結構以進行調試。我不清楚的是如何翻譯嵌套的WHERE。所有的數組都有相同的大小。 WHERE (arrayA(:) > 0) diff_frac(:) = 1.5 * arrayA(:) WHERE (diff_frac(:) > 2) ar

0熱度

1回答

Fortran：將KIND = 8數組有效轉換爲KIND = 4

我正在使用一個外部fortran庫，它返回大量的數據，其類型爲REAL(kind=8)。但是，我需要將數據寫出爲REAL(kind=4)。將大量數據轉換爲不同的KIND類型的最佳方法是什麼？我天真地只是這樣做的那一刻： REAL(KIND=8), ALLOCATABLE :: data64(:,:) REAL(KIND=4), ALLOCATABLE :: data32(:,:) # a

0熱度

1回答

創建動態名稱

是否可以在Fortran中創建動態變量名稱？（ft1，ft2，ft3正在從文件輸入中讀取，全部相同）（現在的deg = 10）。我在這裏給片斷，以及： call RKUTTA(h,TX,X,Y,ft1,ft2,ft3,kglobal,cglobal,invmass,Xout1,Yout1) write(20,*) " TIME STEP VALUES " write(20,*) " X

-5熱度

1回答

Gnuplot矢量堡壘

如何在gnuplot中以矢量形式繪製該程序（fortran）？命令：調用execute_command_line（「gnuplot plotvel.txt」）似乎不起作用。什麼都沒有發生什麼使用1：2：3：4是指？在「暗算‘FILE.DAT’用1：2：3：4與載體填充頭LW 3」 call execute_command_line("gnuplot plotvel.txt")

2熱度

1回答

包含聲明

我不理解的的重要性，通過定義主程序外的子程序中包含Fortran 90的聲明例如 PROGRAM BLABLA IMPLICIT NONE INTEGER :: i,j,k i = 1; j = 1;k =1 PRINT *, i,j,k CALL ABC(i,j,k) PRINT *, i,j,k CONTAINS SUBROUTINE ABC(r,s,

0熱度

1回答

週期性邊界條件 - 有限差分

嗨，我有一個代碼解決了非線性耦合偏微分方程。不過，我需要實施週期性的邊界條件。週期性的邊界條件讓我感到困擾，我應該在我的代碼中加入什麼來強制實施週期性邊界條件？根據下面的模塊化算術建議更新。注意，t> = 0且x在區間[0,1]中。下面是耦合方程，下面我提供我的代碼其中a，b> 0 這些是初始條件，但現在我需要施加週期性邊界條件。這些可以在數學上寫成u（0，t）= u（1，t）和du（0，t）

1熱度

1回答

唯一子句和從模塊

我已經在三個不同的模塊（在三個不同的文件）中所定義三種類型的級聯使用以下層次繼承： MODULE module1 (low_level) IMPLICIT NONE TYPE type1 real(kind=kind(0.d0)) :: var1 END TYPE type1 ... more declarations ... END MODU

1熱度

1回答

隨機熱方程 - Fortran

我有一段代碼，它解決了一維隨機熱方程的週期性邊界條件。隨機項是高斯白噪聲。我的問題是，我正確實施噪音？高斯噪聲被定義爲具有均值爲零，並且第二時刻告訴我們在任何時間對的值是相同分佈的且在統計上是獨立的。 !I first define arrays for the uniform and gaussian random numbers real, dimension (-1:n) :: u,