| 查看: 1403 | 回复: 13 | ||
| 【悬赏金币】回答本帖问题，作者夕阳西下将赠送您 20 个金币 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
夕阳西下金虫 (著名写手)
|
[求助]
程序无法运行怎么回事
|
|
|
program L implicit none integer,parameter:: nx=100,nt=100,p=2,te=5,E=2 integer:: i,j real v real:: ne(x,t) real:: n0=5E+2,m=2.1,q=0.6E-19,k=0.514E-9,R=50.0,me=1.2E-3 v=n0*k x=0.0 t=0.0 do i=1,nx x=x+i*0.02 do j=1,nt t=t+j*0.01 ne(0,0)=0.6E-19 ne(x+i*0.02,t+(j+1)*0.01)=-25*te/(me*v)*ne(x+(i+1)*0.02,t+j*0.01)+(1+50*te/(me*v))*ne(x+i*0.02,t+j*0.01)-25*te/(me*v)*ne(x+(i-1)*0.02,t+j*0.01) open (unit=10,file="1.txt"  write (10,*) ne(x,t) end do end do stop end |
回复此楼» 猜你喜欢
0703化学/290求调剂/本科经历丰富/工科也可
已经有11人回复
-
南京大学化学调剂
已经有15人回复
-
292求调剂
已经有4人回复
-
材料专硕调剂
已经有8人回复
-
085601材料工程找调剂
已经有17人回复
-
面上5B能上会吗？
已经有6人回复
-
化学308分调剂
已经有7人回复
-
化学工程085602 305分求调剂
已经有25人回复
-
求化学调剂
已经有11人回复
-
085602 化学工程专硕 340分求调剂
已经有3人回复
夕阳西下
金虫 (著名写手)
- 应助: 138 (高中生)
- 贵宾: 0.041
- 金币: 9247.1
- 散金: 73
- 红花: 28
- 沙发: 1
- 帖子: 1268
- 在线: 1164.4小时
- 虫号: 220750
- 注册: 2006-03-20
- 专业: 凝聚态物性 II ：电子结构
- 管辖: 物理
12楼2012-03-01 17:14:07
lurencyj
木虫 (著名写手)
- 应助: 159 (高中生)
- 金币: 2869.2
- 散金: 520
- 红花: 8
- 沙发: 10
- 帖子: 1244
- 在线: 148.3小时
- 虫号: 888093
- 注册: 2009-10-29
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
2楼2012-02-20 16:54:38
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
3楼2012-02-23 14:09:20
夕阳西下
金虫 (著名写手)
- 应助: 138 (高中生)
- 贵宾: 0.041
- 金币: 9247.1
- 散金: 73
- 红花: 28
- 沙发: 1
- 帖子: 1268
- 在线: 1164.4小时
- 虫号: 220750
- 注册: 2006-03-20
- 专业: 凝聚态物性 II ：电子结构
- 管辖: 物理
4楼2012-02-23 23:33:50
20