程序無法運行怎么回事
program L
implicit none
integer,parameter:: nx=100,nt=100,p=2,te=5,E=2
integer:: i,j
real v
real:: ne(x,t)
real:: n0=5E+2,m=2.1,q=0.6E-19,k=0.514E-9,R=50.0,me=1.2E-3
v=n0*k
x=0.0
t=0.0
do i=1,nx
x=x+i*0.02
do j=1,nt
t=t+j*0.01
ne(0,0)=0.6E-19
ne(x+i*0.02,t+(j+1)*0.01)=-25*te/(me*v)*ne(x+(i+1)*0.02,t+j*0.01)+(1+50*te/(me*v))*ne(x+i*0.02,t+j*0.01)-25*te/(me*v)*ne(x+(i-1)*0.02,t+j*0.01)
open (unit=10,file="1.txt")
write (10,*) ne(x,t)
end do
end do
stop
end
返回小木蟲查看更多
今日熱帖
京公網(wǎng)安備 11010802022153號
在聲明 A(n,n) 時，n 必須有值，而不能等后面再賦值，除非你動態(tài)分配內(nèi)存……
脗茅路魯賂忙脰陋攏盧脭玫脙麓脡錨脙梅攏驢
大概這個樣子：
找本書看吧，從你貼出來的問題來看，你還是需要一本基礎(chǔ)的書，讓你知道 Fortran 的語法，以及程序結(jié)構(gòu)啥的……
，
你是不是搞錯了，我們有這樣寫啊�。『竺娴某绦蚴菚系�，我沒有改動。
你給我找找看你的程序中哪里有 allocatable 這樣的關(guān)鍵字……
在主程序call driver(N,M)之前加上
N=6
M=6