| 查看: 1424 | 回复: 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 |
回复此楼» 猜你喜欢
材料专业344求调剂
已经有19人回复
-
085404 298分求调剂
已经有11人回复
-
296求调剂
已经有7人回复
-
初试261
已经有6人回复
-
284求调剂
已经有9人回复
-
材料085601调剂
已经有25人回复
-
272分材料子求调剂
已经有23人回复
-
22408调剂求助
已经有7人回复
-
调剂
已经有17人回复
-
材料类284调剂
已经有43人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 运行结果为0，怎么回事？
已经有5人回复
- 在centos5.4下运行高斯到 l301 就不给往下做，怎么回事？
已经有3人回复
- 【求助】mcnp程序运行中断电了怎么办
已经有4人回复
- 【求助】为何计算时候出现“另一程序运行”怎么回事？
已经有8人回复
- 【交流】各位虫友，油泵启动不了大概是怎么回事啊
已经有11人回复
- 【求助】运行fortran程序出现错误 : error LNK2019 怎么回事啊
已经有8人回复
- 【求助】cpmd.x生成出来，但是不能运行，是怎么回事啊？
已经有7人回复
- 【求助】matlab程序运行出错，是怎么回事啊【已完结】
已经有6人回复
夕阳西下
金虫 (著名写手)
- 应助: 138 (高中生)
- 贵宾: 0.041
- 金币: 9247.1
- 散金: 73
- 红花: 28
- 沙发: 1
- 帖子: 1268
- 在线: 1164.4小时
- 虫号: 220750
- 注册: 2006-03-20
- 专业: 凝聚态物性 II ：电子结构
- 管辖: 物理
8楼2012-02-28 17:39:27
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
