我在一個相當簡單的代碼中有一個簡單的問題,但是我真的沒有在幾個小時後發現錯誤。這裏的代碼,發生問題的最小化版本: SUBROUTINE Partial_KlassRKV(x,y,f,f_xMarge,f_yMarge)
USE DGL_Functions
IMPLICIT NONE
REAL :: x(:),y(:),f(:,:,:),f_xMarge(:,:),f
我有一個Fortran 95的程序,在這種形式寫一個數組文件: do temp = 1, temp_final
do MC = 1, N_MC
do x = 0, N
do y = 0, M
write(1,*) x, y, array(x,y)
enddo
enddo
enddo
write(1,*) T
我寫了這段代碼,但我不知道爲什麼它不起作用。我認爲這主要是因爲濫用子程序。我知道子程序的格式是什麼,但不知道這有什麼問題。任何人都可以爲我調試這段代碼嗎?謝謝。 PROGRAM AKI
IMPLICIT NONE
INTEGER:: i,j,k,l,m,n
REAL :: R2,R1,dteta,dr
REAL ,DIMENSION (0:100) :: teta,r
REAL,DIME
我在Ubuntu 14.04編譯了一個fortran 95程序。在運行時,我得到了以下錯誤: 這是從不同:(1) Program received signal SIGSEGV: Segmentation fault - invalid memory reference.
Backtrace for this error:
^Z
[9]+ Stopped ./a.out
我甚至
爲什麼我處於無限循環? PROGRAM tayls
USE kertoma
USE tforexp
IMPLICIT NONE
INTEGER :: n= 5
INTEGER :: i
REAL :: x
WRITE(*,*) "f1(x)= (e**x-1)/x"
DO i=1,10
x= 0.01*i