Fortran里面EQUIVALENCE命令报错，怎么改？

小哼 · 发表于 2008-11-14 22:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

别人编好的程序，应该是没有问题的，我运行的时候却报错。
原程序片段：
subroutine readit (name,varname,field)

   implicit none

   integer nlo30,nla30,ntim
   parameter (nlo30=96,nla30=48,ntim=12)

   character*100 name
   character*9 varname
   character*9 chdummy

   real field(nlo30,nla30,ntim)
   real ztest(nlo30*nla30*ntim)
   integer j
   EQUIVALENCE(ztest,field)
报错：
Error: A dummy argument cannot be an equivalenced object. [FIELD]
   EQUIVALENCE(ztest,field)
比较急，请问各位应该怎么改呢？谢谢！

ChaChing · 发表于 2008-11-14 23:08

一般使用EQUIVALENCE是为了解决磁碟空间问题, 或者资料互用
错误讯息告知subroutine的argument(field)是不能EQUIVALENCE的
若确确定没资料互用, 取消EQUIVALENCE
太久没接触fortran了, 不怎麽确定!

小哼 · 发表于 2008-11-15 11:08

呵呵，我去掉试试，谢谢啦！

账号		自动登录	找回密码
密码			我要加入

[Fortran] Fortran里面EQUIVALENCE命令报错，怎么改？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。