24小时热门版块排行榜

>论坛更新日志 (3291)
>虫友互识 (451)
>导师招生 (163)
>休闲灌水 (163)
>文献求助 (146)
>论文投稿 (108)
>考博 (97)
>博后之家 (75)
>论文道贺祈福 (63)
>招聘信息布告栏 (56)
>基金申请 (49)
>硕博家园 (47)
>教师之家 (45)
>找工作 (44)
>考研 (41)
>公派出国 (18)

返回列表

xiaowu787

木虫 (正式写手)

应助: 1 (幼儿园)
金币: 1406.9
散金: 95
红花: 1
帖子: 550
在线: 430.3小时
虫号: 326816
注册: 2007-03-18
性别: GG

[求助] fortran的小程序编译时下出现错误，请大家帮忙看一下----已解决谢谢！

CODE:

81行

           vol(j)=box(1,j)*box(2,j)*box(3,j)*dsqrt(1-(box(4,j)/box(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(5,j)/box(3,j))*(box(5,j)/box(3,j))))

106行

           vol(j)=box(1,j)*box(2,j)*box(3,j)*dsqrt(1.0-(box(4,j)/box(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(5,j)/box(3,j))*(box(5,j)/box(3,j))))

131行

           vol(j)=box(1,j)*box(2,j)*box(3,j)*dsqrt(1.0-(box(4,j)/box(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(5,j)/box(3,j))*(box(5,j)/box(3,j))))

是不是一行的字符太多了
出现如下错误：
$ gfortran box.f90 -o box
box.f90:20.132:

ox(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(5,
                                                                        1
Error: Expected array subscript at (1)
box.f90:20.132:

ox(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(5,
                                                                        1
Warning: Line truncated at (1)
box.f90:81.132:

ox(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(5,
                                                                        1
Error: Expected array subscript at (1)
box.f90:81.132:

ox(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(5,
                                                                        1
Warning: Line truncated at (1)
box.f90:106.132:

/box(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(
                                                                        1
Error: Expected array subscript at (1)
box.f90:106.132:

/box(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(
                                                                        1
Warning: Line truncated at (1)
box.f90:131.132:

/box(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(
                                                                        1
Error: Expected array subscript at (1)
box.f90:131.132:

/box(1,j))*(box(4,j)/box(1,j))-(box(6,j)/box(3,j))*(box(6,j)/box(3,j)-(box(
                                                                        1
Warning: Line truncated at (1)

[ Last edited by xiaowu787 on 2012-3-9 at 10:33 ]

回复此楼