24小时热门版块排行榜

返回列表

xiaowu787

木虫 (正式写手)

应助: 1 (幼儿园)
金币: 1411.9
散金: 95
红花: 1
帖子: 550
在线: 430.1小时
虫号: 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 ]

回复此楼