| 查看: 1097 | 回复: 6 | ||
[求助]
只有这么点金币了，帮忙看看吧。非常简单的程序，都不好意思拿出来 已有5人参与
|
|
PROGRAM ekjunyun INTEGER :: N=100 INTEGER :: i real(8) :: eC1=0.000000000000000E+000,eC2=33.5369210179650 real(8) :: du REAL(8),DIMENSION (1:100) :: ek_c OPEN(UNIT=14,FILE='ek_c.dat') du=(eC2-eC1)/99 write (*,*) "du=",du ek_c(1)=eC1 do i=2,100,du ek_c(y)=ek_c(y-1)+du write(14,*) ek_c(y) end do end 上面这是我编的程序，目的是想在ec1和ec2数值间得到均匀等差数值放在数组中。但是运行的时候有一个警告 Warning: Variable Y is used before its value has been defined ek_c(y)=ek_c(y-1)+du 不知道怎么改一下，求帮忙 |
回复此楼» 猜你喜欢
提交了我也来说说感想
已经有11人回复
-
评审有感
已经有30人回复
-
青B发送上会通知了吗
已经有9人回复
-
西安交大新媒学院副院长用撤稿论文结题
已经有6人回复
-
论文撤稿了
已经有8人回复
-
博士申请
已经有7人回复
-
化学专业申博
已经有4人回复
-
河北省自然科学基金
已经有9人回复
-
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！
已经有5人回复
-
26/27申博自荐
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于 共轭梯度法 求助～～～好心人帮忙 有金币的哦
已经有11人回复
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
2楼2013-12-27 17:41:55
3楼2013-12-27 18:59:06
4楼2013-12-28 02:02:54
5楼2014-01-05 12:28:08
6楼2014-01-07 17:27:28
学虫dj
金虫 (正式写手)
- 应助: 18 (小学生)
- 金币: 892.4
- 散金: 63
- 帖子: 688
- 在线: 89.9小时
- 虫号: 1829966
- 注册: 2012-05-22
- 性别: GG
- 专业: 应用地球物理学
7楼2014-01-07 22:18:39