24小时热门版块排行榜

返回列表

【有奖交流】积极回复本帖子，参与交流，就有机会分得作者夕阳西下的 4 个金币，回帖就立即获得 1 个金币，每人有 1 次机会

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

夕阳西下

金虫 (著名写手)

应助: 138 (高中生)
贵宾: 0.041
金币: 9247.1
帖子: 1268
在线: 1164.4小时
虫号: 220750

[交流] 程序运行不了问题在哪

下面这个程序有错误，怎么改呢？
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

回复此楼

» 猜你喜欢

上海工程技术大学【激光智能制造】课题组招收硕士已经有6人回复
带资进组求博导收留已经有11人回复
自荐读博已经有5人回复
求个博导看看已经有16人回复
上海工程技术大学张培磊教授团队招收博士生已经有4人回复
求助院士们，这个如何合成呀已经有4人回复
临港实验室与上科大联培博士招生1名已经有9人回复
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？已经有6人回复
最近几年招的学生写论文不引自己组发的文章已经有11人回复
中科院杭州医学所招收博士生一名（生物分析化学、药物递送）已经有3人回复

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2012-02-05 22:36:24

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

夕阳西下

金虫 (著名写手)

应助: 138 (高中生)
贵宾: 0.041
金币: 9247.1
帖子: 1268
在线: 1164.4小时
虫号: 220750

引用回帖:

9楼: Originally posted by q1036210267 at 2012-02-14 10:42:28:
ne 是与变量有关的函数吗，若不是，取消ne（j）的数组定义，直接定义ne就行

有变量关系，怎么定义？

赞一下

回复此楼

10楼2012-02-14 11:11:06

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 12 个回答

snoopyzhao

至尊木虫 (职业作家)

★ ★ ★
夕阳西下(金币+1):谢谢参与
jjdg(金币+1): 感谢参与 2012-02-06 10:16:30
jjdg(金币+1): 元宵节快乐 2012-02-06 10:16:45
ben_ladeng(专家考核): 2012-02-14 12:10:21

你这个是 fortran 的程序吗？
里面有很多变量根本就没有定义，比如 H1
ne 是数组还是普通的变量？
I、J作为 HX 和 NE 的维度的时候没有赋值……

你这个程序用任何一个编译器都编译不过去，根据编译器的提示修改吧……

赞一下(3人)

回复此楼

2楼2012-02-05 23:25:40

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

夕阳西下

金虫 (著名写手)

应助: 138 (高中生)
贵宾: 0.041
金币: 9247.1
帖子: 1268
在线: 1164.4小时
虫号: 220750

引用回帖:

2楼: Originally posted by snoopyzhao at 2012-02-05 23:25:40:
你这个是 fortran 的程序吗？
里面有很多变量根本就没有定义，比如 H1
ne 是数组还是普通的变量？
I、J作为 HX 和 NE 的维度的时候没有赋值……

你这个程序用任何一个编译器都编译不过去，根据编译器的提示 ...

主要是ne的问题，ne是个函数，就是根据编译器不知道ne该如何修改，改了很多次。

赞一下

回复此楼

3楼2012-02-06 10:01:51

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖