| 查看: 604 | 回复: 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 ] |
回复此楼» 猜你喜欢
国自科面上基金字体
已经有6人回复
-
304求调剂
已经有3人回复
-
304求调剂
已经有6人回复
-
材料与化工一志愿南昌大学327求调剂推荐
已经有8人回复
-
0703 物理化学调剂
已经有5人回复
-
化学工程321分求调剂
已经有7人回复
-
0703化学调剂 290分有科研经历，论文在投
已经有7人回复
-
308求调剂
已经有3人回复
-
本人考085602 化学工程 专硕
已经有10人回复
-
焦虑
已经有9人回复
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
