文章/答案/技术大牛

发布

社区首页 >问答首页 >fortran中函数参数中的语法错误

问fortran中函数参数中的语法错误
EN

Stack Overflow用户

提问于 2015-09-07 12:11:48

回答 1查看 2.4K关注 0票数 1

我有一个子程序文件如下所示

subroutine grids(Ngrids,gridsize,boundx,boundy,boundz,occmatrix,myid)

  implicit NONE

  integer           i,j,k,Ngrids, occmatrix(14,14,10)
  integer           locx,locy,locz,myid
  double precision  gridsize,boundx,boundy,boundz


  do i = 1, 14
     do j = 1, 14
        do k = 1, 10
           occmatrix(i,j,k) = 0
        enddo
     enddo
  enddo

  open (13, file = 'grid_data.9deg')    
  write(*,'(A,i2)'),' READING GRID FILE ON PROC.....',myid
  read(13,*) Ngrids,gridsize
  read(13,*) boundx,boundy,boundz       
  do i = 1, Ngrids
    read(13,*) locx, locy, locz
    occmatrix(locx,locy,locz) = 1 
  enddo 
  close(13)

  return
end

它在编译时会出现以下语法错误

subroutine grids(Ngrids,gridsize,boundx,boundy,boundz,occmatrix,my
                                                                  1
Error: Unexpected junk in formal argument list at (1)

它以前跑得很好

fortran

gfortran

回答 1

Stack Overflow用户

回答已采纳

发布于 2015-09-07 12:29:09

我相信，你的队伍太长了。你加入新论点了吗？您的代码看起来是免费的，但可能是编译器试图应用固定的表单，因为文件名中有一个.f后缀或类似的东西。说服编译器采用免费的格式化源代码(通过编译器选项或通常是.f90后缀)。

即使在自由格式化的文件中，您的线宽也是有限的，您应该中断较长的行，例如：

subroutine grids( Ngrids,gridsize,boundx,boundy,boundz, &
  &               occmatrix,myid )

如果使用固定格式，则需要在第6列中用非空白字符指示连续行。

以下是固定形式的外观：

      subroutine grids(Ngrids,gridsize,boundx,boundy,boundz,
     &                 occmatrix,myid)

请不要再使用固定格式了！相反，将您的文件更改为以.f90结尾，大多数编译器都承认这是免费格式化的代码。

票数 3

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/32438459

复制

相似问题

问fortran中函数参数中的语法错误
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问fortran中函数参数中的语法错误EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问fortran中函数参数中的语法错误
EN