应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 程序运行不了问题在哪
121/1返回列表
查看: 1591  |  回复: 11
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 夕阳西下 的 4 个金币 ，回帖就立即获得 1 个金币，每人有 1 次机会

夕阳西下

金虫 (著名写手)

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

下面这个程序有错误，怎么改呢？
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楼 2012-02-05 22:36:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

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的回帖

夕阳西下

金虫 (著名写手)
引用回帖:
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的回帖

baobiao007

木虫 (职业作家)
★
夕阳西下(金币+1):谢谢参与
余泽成(金币+2): 谢谢参与应助！ 2012-02-21 00:27:51
我感觉就程序编写来说，似乎有两个问题：
1.  不能用变量I 直接定义数组ne的大小。
    应写成(按fortran90风格)
    integer,parameter:: J
      real:: ne(J)
2.  Hx(0),Hx(I)那两行，你似乎把ne数组的下标丢了。
赞一下(1人) 回复此楼
4楼2012-02-06 16:53:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

夕阳西下

金虫 (著名写手)
引用回帖:
4楼: Originally posted by baobiao007 at 2012-02-06 16:53:00:
我感觉就程序编写来说，似乎有两个问题：
1.  不能用变量I 直接定义数组ne的大小。
    应写成(按fortran90风格)
    integer,parameter:: J
      real:: ne(J)
2.  Hx(0),Hx(I)那两行，你似乎把ne数组的下 ...

这里I是变量，ne是函数
赞一下 回复此楼
5楼2012-02-06 17:24:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cean

金虫 (职业作家)
★
夕阳西下(金币+1):谢谢参与
余泽成(金币+1): 谢谢参与应助！ 2012-02-21 00:28:01
函数要定义，比如：

real function ne（）

该函数没有输入数据，结果是返回一个实型变量。
赞一下 回复此楼
6楼2012-02-11 13:32:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

emanlee

木虫 (小有名气)
★
夕阳西下(金币+1):谢谢参与
余泽成(金币+1): 谢谢参与应助！ 2012-02-21 00:28:14
如果是编译错误，一般有提示。
如果是运行结果错误的话，建议用单步执行的方式来调试。
赞一下 回复此楼
7楼2012-02-11 14:39:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gaojack1991

至尊木虫 (著名写手)
★
夕阳西下(金币+1):谢谢参与
这个有点陌生啊……没学过……
赞一下 回复此楼
8楼2012-02-12 12:25:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q1036210267

木虫 (正式写手)
★
夕阳西下(金币+1):谢谢参与
jjdg(金币+1): 2012-02-14 13:14:02
jjdg: 感谢参与 2012-02-14 13:14:07
ne 是与变量有关的函数吗，若不是，取消ne（j）的数组定义，直接定义ne就行
赞一下 回复此楼
9楼2012-02-14 10:42:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

夕阳西下

金虫 (著名写手)
引用回帖:
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的回帖

q1036210267

木虫 (正式写手)
引用回帖:
9楼: Originally posted by q1036210267 at 2012-02-14 10:42:28:
ne 是与变量有关的函数吗，若不是，取消ne（j）的数组定义，直接定义ne就行

有变量关系，那就应该定义数组 格式。但是，你后面使用的ne 又是整数或浮点数格式，因此有冲突，因此编译的时候会显示程序错误。
赞一下 回复此楼
11楼2012-02-15 09:39:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

夕阳西下

金虫 (著名写手)
引用回帖:
11楼: Originally posted by q1036210267 at 2012-02-15 09:39:11:
有变量关系，那就应该定义数组 格式。但是，你后面使用的ne 又是整数或浮点数格式，因此有冲突，因此编译的时候会显示程序错误。

数组怎么定义的？
integer:: i,j

real hx(j),ne(i)
这样定义提示错误，怎么办？
赞一下 回复此楼
12楼2012-02-18 14:28:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 夕阳西下 的主题更新
121/1返回列表
提示: 如果您在30分钟内回复过其他散金贴，则可能无法领取此贴金币
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 266求调剂 +3 哇呼哼呼哼 2026-03-20 3/150 2026-03-21 16:46 by barlinike
[考研] 279求调剂 +5 红衣隐官 2026-03-21 5/250 2026-03-21 14:59 by lature00
[考研] 初始318分求调剂（有工作经验） +3 1911236844 2026-03-17 3/150 2026-03-21 02:33 by JourneyLucky
[考研] 265求调剂 +9 梁梁校校 2026-03-17 9/450 2026-03-21 02:17 by JourneyLucky
[考研] 324分 085600材料化工求调剂 +4 llllkkkhh 2026-03-18 4/200 2026-03-21 01:24 by JourneyLucky
[考研] 一志愿重庆大学085700资源与环境专硕，总分308求调剂 +3 墨墨漠 2026-03-18 3/150 2026-03-21 00:39 by JourneyLucky
[考研] 323求调剂 +3 洼小桶 2026-03-18 3/150 2026-03-20 22:54 by JourneyLucky
[考研] 一志愿华中农业071010，总分320求调剂 +3 困困困困坤坤 2026-03-20 3/150 2026-03-20 20:38 by 学员8dgXkO
[考研] 261求B区调剂，科研经历丰富 +3 牛奶很忙 2026-03-20 4/200 2026-03-20 19:34 by JourneyLucky
[考博] 招收博士1-2人 +3 QGZDSYS 2026-03-18 3/150 2026-03-20 11:58 by 呱呱呱呱叫
[考研] 266求调剂 +5 阳阳哇塞 2026-03-14 10/500 2026-03-19 15:08 by 阳阳哇塞
[考研] 一志愿985，本科211，0817化学工程与技术319求调剂 +10 Liwangman 2026-03-15 10/500 2026-03-19 10:25 by 无际的草原
[考研] 【同济软件】软件（085405）考研求调剂 +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by 搏击518
[考研] 290求调剂 +3 p asserby. 2026-03-15 4/200 2026-03-17 16:35 by wangkm
[考研] 304求调剂 +5 素年祭语 2026-03-15 5/250 2026-03-16 17:00 by 我的船我的海
[考研] 321求调剂 +5 大米饭！ 2026-03-15 5/250 2026-03-16 16:33 by houyaoxu
[考研] 070303 总分349求调剂 +3 LJY9966 2026-03-15 5/250 2026-03-16 14:24 by xwxstudy
[考研] 0703化学调剂 290分有科研经历，论文在投 +7 腻腻gk 2026-03-14 7/350 2026-03-16 10:12 by houyaoxu
[考研] 0856求调剂 +3 刘梦微 2026-03-15 3/150 2026-03-16 10:00 by houyaoxu
[考研] 0856专硕279求调剂 +5 加油加油！? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
信息提示
关闭
请填处理意见
关闭