| 5 | 1/1 | 返回列表 |
| 查看: 2384 | 回復: 5 | ||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | ||
[求助]
運行結(jié)果為0,怎么回事?
|
||
|
我編了下面一段子程序,運行后結(jié)果輸出0,不知道是怎么回事,存儲空間肯定能存儲這么大的數(shù),而且沒有越界: implicit none real,intent(in)::q integer,intent(in)::Ng integer,dimension(1:Ng),intent(in)::ink real,dimension(1:Ng,1:3000,1:7),intent(in)::AN integer,intent(inout)::Nele,Nion integer i,j nele=0.0;nion=0.0 do i=1,Ng do j=1,ink(i) if(AN(i,j,1)<=0.0.and.q<0.0) then !AN(i,j,1)是路程 ! Nele=nele+1 else if(AN(i,j,1)<=0.0.and.q>0.0) then Nion=nion+1 end if end do end do 我想實現(xiàn)的目的是統(tǒng)計粒子在一個空間邊界處的數(shù)目,粒子在電場力的作用下向前走,每走一步(如果走到了邊界處)就把粒子數(shù)目加1 [ Last edited by xingxiao on 2012-2-10 at 13:22 ] |
木蟲 (小有名氣)
至尊木蟲 (職業(yè)作家)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 302求調(diào)劑 +9 | 負心者當誅 2026-03-11 | 9/450 |
|
|---|---|---|---|---|
|
[考研] 332求調(diào)劑 +6 | Zz版 2026-03-13 | 6/300 |
|
|
[考研] 一志愿天津大學化學工藝專業(yè)(081702)315分求調(diào)劑 +5 | yangfz 2026-03-17 | 5/250 |
|
|
[考研] 工科材料085601 279求調(diào)劑 +3 | 困于星晨 2026-03-17 | 3/150 |
|
|
[考研] 材料與化工專碩調(diào)劑 +5 | heming3743 2026-03-16 | 5/250 |
|
|
[考研] 08工科 320總分 求調(diào)劑 +4 | 梨花珞晚風 2026-03-17 | 4/200 |
|
|
[考研] 材料與化工304求B區(qū)調(diào)劑 +7 | 邱gl 2026-03-11 | 8/400 |
|
|
[考研] 318求調(diào)劑 +3 | Yanyali 2026-03-15 | 3/150 |
|
|
[考研] 283求調(diào)劑 +10 | 小樓。 2026-03-12 | 14/700 |
|
|
[考研] 中科院材料273求調(diào)劑 +4 | yzydy 2026-03-15 | 4/200 |
|
|
[考研] 080500,材料學碩302分求調(diào)劑學校 +4 | 初識可樂 2026-03-14 | 5/250 |
|
|
[考研] 279求調(diào)劑 +3 | 抓著星星的女孩 2026-03-10 | 3/150 |
|
|
[考研] 材料371求調(diào)劑 +9 | 鱷魚? 2026-03-11 | 11/550 |
|
|
[考研] 材料工程調(diào)劑 +9 | 咪咪空空 2026-03-12 | 9/450 |
|
|
[考研] 求材料調(diào)劑 +5 | 隔壁陳先生 2026-03-12 | 5/250 |
|
|
[考研] 四川大學085601材料工程專碩 初試294求調(diào)劑 +4 | 祝我們好在冬天 2026-03-11 | 4/200 |
|
|
[考研] 329求調(diào)劑 +3 | miaodesi 2026-03-12 | 4/200 |
|
|
[考研] 求調(diào)劑 +5 | 一定有學上- 2026-03-12 | 5/250 |
|
|
[論文投稿]
投稿問題
5+4
|
星光燦爛xt 2026-03-12 | 6/300 |
|
|
[考研] 大連大學化學專業(yè)研究生調(diào)劑 +3 | 琪久. 2026-03-10 | 8/400 |
|