【有獎交流】積極回復本帖子，參與交流，就有機會分得作者夕陽西下的 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

回復此樓

» 猜你喜歡

深圳大學碩士招生（2026秋，傳感器方向，僅錄取第一志愿）已經有10人回復
278求調劑已經有5人回復
化學工程321分求調劑已經有15人回復
材料專碩306英一數二已經有11人回復
334求調劑已經有3人回復
268求調劑已經有5人回復
293求調劑已經有16人回復
302求調劑已經有7人回復
312求調劑已經有6人回復
281求調劑（0805）已經有9人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

★ ★ ★
夕陽西下(金幣+1):謝謝參與
jjdg(金幣+1): 感謝參與 2012-02-06 10:16:30
jjdg(金幣+1): 元宵節(jié)快樂 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發(fā)消息送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發(fā)消息送TA紅花 TA的回帖

baobiao007

木蟲 (職業(yè)作家)

應助: 201 (大學生)
金幣: 6482.7
帖子: 3050
在線: 1009.9小時
蟲號: 505962

★
夕陽西下(金幣+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發(fā)消息送TA紅花 TA的回帖

夕陽西下

金蟲 (著名寫手)

應助: 138 (高中生)
貴賓: 0.041
金幣: 9247.1
帖子: 1268
在線: 1164.4小時
蟲號: 220750

引用回帖:

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發(fā)消息送TA紅花 TA的回帖

cean

金蟲 (職業(yè)作家)

應助: 23 (小學生)
金幣: 53.1
帖子: 3442
在線: 578.8小時
蟲號: 1147499

★
夕陽西下(金幣+1):謝謝參與
余澤成(金幣+1): 謝謝參與應助！ 2012-02-21 00:28:01

函數要定義，比如：

real function ne（）

該函數沒有輸入數據，結果是返回一個實型變量。

贊一下

回復此樓

6樓2012-02-11 13:32:24

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

emanlee

木蟲 (小有名氣)

應助: 28 (小學生)
金幣: 3521.6
帖子: 116
在線: 125.6小時
蟲號: 1466309

★
夕陽西下(金幣+1):謝謝參與
余澤成(金幣+1): 謝謝參與應助！ 2012-02-21 00:28:14

如果是編譯錯誤，一般有提示。
如果是運行結果錯誤的話，建議用單步執(zhí)行的方式來調試。

贊一下

回復此樓

7樓2012-02-11 14:39:11

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

gaojack1991

至尊木蟲 (著名寫手)

應助: 111 (高中生)
金幣: 13477.2
帖子: 2760
在線: 873.7小時
蟲號: 1431314

★
夕陽西下(金幣+1):謝謝參與

這個有點陌生啊……沒學過……

贊一下

回復此樓

8樓2012-02-12 12:25:47

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

q1036210267

木蟲 (正式寫手)

應助: 26 (小學生)
金幣: 2182.2
帖子: 893
在線: 262.1小時
蟲號: 1346635

★
夕陽西下(金幣+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發(fā)消息送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發(fā)消息送TA紅花 TA的回帖

q1036210267

木蟲 (正式寫手)

應助: 26 (小學生)
金幣: 2182.2
帖子: 893
在線: 262.1小時
蟲號: 1346635

引用回帖:

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發(fā)消息送TA紅花 TA的回帖

夕陽西下

金蟲 (著名寫手)

應助: 138 (高中生)
貴賓: 0.041
金幣: 9247.1
帖子: 1268
在線: 1164.4小時
蟲號: 220750

引用回帖:

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發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[碩博家園] 深圳大學碩士招生（2026秋，傳感器方向，僅錄取第一志愿） +4	xujiaoszu 2026-03-11	10/500	2026-03-18 08:50 by xujiaoszu
[考研] 278求調劑 +5	煙火先于春 2026-03-17	5/250	2026-03-18 08:43 by 星空星月
[基金申請] 被我言中：新模板不強調格式了，假專家開始管格式了 +4	beefly 2026-03-14	4/200	2026-03-17 22:04 by 黃鳥于飛Chao
[考研] 268求調劑 +7	好運連綿不絕 2026-03-12	8/400	2026-03-17 20:28 by xilongliang
[考研] 299求調劑 +4	△小透明* 2026-03-17	4/200	2026-03-17 20:09 by peike
[考研] 308求調劑 +4	是Lupa啊 2026-03-16	4/200	2026-03-17 17:12 by ruiyingmiao
[考研] 085600材料與化工 +4	安全上岸！ 2026-03-16	4/200	2026-03-17 14:02 by 勇敢太監(jiān)王公公
[考研] 材料工程專碩274一志愿211求調劑 +6	薛云鵬 2026-03-15	6/300	2026-03-17 11:05 by 學員h26Tkc
[考研] 274求調劑 +5	時間點 2026-03-13	5/250	2026-03-17 07:34 by 熱情沙漠
[考研] 070303一志愿西北大學學碩310找調劑 +5	d如愿上岸 2026-03-12	8/400	2026-03-16 15:19 by peike
[考研] 0703 物理化學調劑 +3	我可以上岸的對?/a> 2026-03-13	5/250	2026-03-16 10:50 by 我可以上岸的對?/a>
[考研] 326求調劑 +3	mlpqaz03 2026-03-15	3/150	2026-03-16 07:33 by Iveryant
[考研] 080500，材料學碩302分求調劑學校 +4	初識可樂 2026-03-14	5/250	2026-03-14 21:08 by peike
[考研] 中科大材料專碩319求調劑 +3	孟鑫材料 2026-03-13	3/150	2026-03-14 18:10 by houyaoxu
[考研] 330求調劑 +3	?醬給調劑跪了 2026-03-13	3/150	2026-03-14 10:13 by JourneyLucky
[考研] 材料專碩350 求調劑 +4	王金科 2026-03-12	4/200	2026-03-13 16:02 by ruiyingmiao
[考研] 一志愿211化學學碩310分求調劑 +8	努力奮斗112 2026-03-12	9/450	2026-03-13 15:41 by JourneyLucky
[考研] 274求調劑 +3	S.H1 2026-03-12	3/150	2026-03-13 15:15 by JourneyLucky
[考研] 328化工專碩求調劑 +4	。，。，。，。i 2026-03-12	4/200	2026-03-13 14:44 by JourneyLucky
[考研] 化工學碩306求調劑 +9	42838695 2026-03-12	9/450	2026-03-13 10:16 by houyaoxu