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

回復此樓

» 猜你喜歡

0703化學調劑已經有7人回復
0854，計算機類招收調劑已經有6人回復
【0703化學調劑】-一志愿華中師范大學-六級475 已經有6人回復
0854可跨調劑，一作一項核心論文五項專利，省、國級證書40+數一英一287 已經有4人回復
能源材料化學課題組招收碩士研究生8-10名已經有8人回復
0817 化學工程 299分求調劑有科研經歷有二區(qū)文章已經有3人回復
281求調劑（0805）已經有11人回復
299求調劑已經有5人回復
收復試調劑生已經有3人回復
280求調劑已經有7人回復

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

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

查看全部散金貼

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ā)表

[考研] 0703化學調劑 +4	pupcoco 2026-03-17	7/350	2026-03-18 12:14 by djl2006
[考研] 【0703化學調劑】-一志愿華中師范大學-六級475 +6	Becho359 2026-03-11	6/300	2026-03-18 12:09 by djl2006
[考研] 281求調劑（0805） +4	煙汐憶海 2026-03-16	11/550	2026-03-18 11:57 by djl2006
[考研] 303求調劑 +4	睿08 2026-03-17	6/300	2026-03-18 11:01 by Iveryant
[考研] 0703化學求調劑總分331 +3	ZY-05 2026-03-13	3/150	2026-03-18 10:58 by macy2011
[考研] 307求調劑 +3	冷笙123 2026-03-17	3/150	2026-03-18 09:55 by macy2011
[考博] 26博士申請 +3	1042136743 2026-03-17	3/150	2026-03-17 23:30 by 輕松不少隨
[考研] 302求調劑 +9	負心者當誅 2026-03-11	9/450	2026-03-17 17:13 by ruiyingmiao
[考研] 有沒有道鐵/土木的想調劑南林，給自己招師弟中～ +3	TqlXswl 2026-03-16	7/350	2026-03-17 15:23 by TqlXswl
[考研] 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
[考研] 302求調劑 +4	小賈同學123 2026-03-15	8/400	2026-03-17 10:33 by 小賈同學123
[考研] 267一志愿南京工業(yè)大學0817化工求調劑 +6	SUICHILD 2026-03-12	6/300	2026-03-17 09:24 by 霧散后相遇lc
[考研] 326求調劑 +3	mlpqaz03 2026-03-15	3/150	2026-03-16 07:33 by Iveryant
[考博] 東華理工大學化材專業(yè)26屆碩士博士申請 +6	zlingli 2026-03-13	6/300	2026-03-15 20:00 by ryzcf
[考研] 315求調劑 +9	小羊小羊_ 2026-03-11	10/500	2026-03-13 21:13 by SXNU李老師
[考研] 求b區(qū)學校調劑 +3	周56 2026-03-11	3/150	2026-03-13 16:20 by JourneyLucky
[考研] 310求調劑 +3	【上上簽】 2026-03-11	3/150	2026-03-13 16:16 by JourneyLucky
[考研] 材料專碩350 求調劑 +4	王金科 2026-03-12	4/200	2026-03-13 16:02 by ruiyingmiao
[考研] 290求調劑 +3	ADT 2026-03-13	3/150	2026-03-13 10:19 by peike