下面这个程序有错误，怎么改呢？
program Ne
integer :: I,J, N, Ny
real:: ne(J)
real:: Hx(I)
N=1000
Ny=1000
Dx=0.1
Dt=0.1
n0=5E+2
m=2.1
p=2
Te=5
q=0.6E-19
E=2
k=0.514E-9
v=n0*k
Hx(0)=sqrt(8*Te/pm)*ne*(1-0.25)
Hx(I)=-(q/m*v)*E(ne/(1-exp(q*E*Dx/Te)+ne/(1-exp(-q*E*Dx/Te))
open (unit=10,FILE='1.txt')
DO I=2,N-1
DO J=2,Ny-1
HX(I)=(H1(I+1)-H1(I-1))/(2*DX)
ne(J)=(ne(J+1)-ne(J-1))/(2*Dt)
ne(J)=Hx(I)+R
end do
end do
write (10,"('N=?,Ny=?')" ne(I)
stop
end |
回复此楼
+1/176
