| 查看: 581 | 回复: 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 ] |
回复此楼» 猜你喜欢
国家级人才课题组招收2026年入学博士
已经有4人回复
-
青年基金C终止
已经有4人回复
-
青椒八年已不青，大家都被折磨成啥样了？
已经有7人回复
-
为什么nbs上溴 没有产物点出现呢
已经有10人回复
-
救命帖
已经有11人回复
-
招博士
已经有5人回复
-
26申博求博导推荐-遥感图像处理方向
已经有4人回复
-
限项规定
已经有7人回复
-
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向
已经有3人回复
-
英文综述是否需要润色及查重
已经有5人回复
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