| 查看: 563 | 回复: 3 | |||
[交流]
【求助】fortran新手求教【已完结】 已有3人参与
|
|
第一次用fortran写级数的求和，编译是出现问题，求大侠帮忙解决一下！ do j=1,7 total=0.0 tot=0.0 do i=1,32 wsin(j,i)=p*cos(j*thita(1)*(t(1,i)+l/(2*v(1)))) fcos(j,i)=p*sin(j*thita(1)*(t(1,i)+l/(2*v(1)))) total=total+wsin(j,i) tot=tot+fcos(j,i) end do s(j)=total u(j)=tot end do do i=1,7,2 do j=1,7 a(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*s(j)/((i*pi*(l+d(32)))*(1-(j*thita(1)*l/(i*pi*v(1)))**2) b(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*u(j)/((i*pi*(l+d(32)))*(1-(j*thita(1)*l/(i*pi*v(1)))**2) end do end do 编译时a（i，j）和b（i，j）那两行出现错误rror: Syntax error, found END-OF-STATEMENT when expecting one of: , ) b(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*u(j)/((i*pi*(l+d(32)))*(1-(j*thita(1)*l/(i*pi*v(1)))**2) [ Last edited by 余泽成 on 2010-7-13 at 20:55 ] |
回复此楼» 猜你喜欢
不自信的我
已经有5人回复
-
磺酰氟产物，毕不了业了！
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有16人回复
-
求个博导看看
已经有19人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
holmescn
金虫 (正式写手)
- 程序强帖: 37
- 应助: 1 (幼儿园)
- 金币: 1918.8
- 散金: 275
- 红花: 1
- 帖子: 699
- 在线: 102.6小时
- 虫号: 913482
- 注册: 2009-11-26
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2010-07-10 12:25:41
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
3楼2010-07-10 18:46:42
4楼2010-07-13 20:00:01