| 查看: 694 | 回复: 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 ] |
回复此楼» 猜你喜欢
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有6人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
同事接到电话了，我却没有
已经有4人回复
-
准备明年的基金了
已经有5人回复
-
今年的WR进展到哪一步了？
已经有6人回复
-
这种情况还有戏吗
已经有8人回复
-
时间戳他又来了
已经有11人回复
-
小木虫看见有人已经知道结果了
已经有15人回复
-
这个自发加氧反应的机理是什么？
已经有6人回复
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