| 查看: 565 | 回复: 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人回复
-
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有8人回复
-
Cas 72-43-5需要30g，定制合成，能接单的留言
已经有7人回复
-
磺酰氟产物，毕不了业了！
已经有5人回复
-
论文终于录用啦！满足毕业条件了
已经有25人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有3人回复
-
自荐读博
已经有3人回复
-
不自信的我
已经有5人回复
-
投稿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