主题：fortran数据格式求教
wangweizong
[专家分：0] 发布于 2010-12-05 05:56:00
用一个单独的bockd.f文件定义了一下全局变量，为了省略数据部分没有列出。该代码原来用fortran77编写。不清楚其中的3D1代表什么意思，在编译的时候出错，我的理解是3D应该是一种数据格式？由于不了解77的标准，程序的其他部分也并未对3D1定义。请高手赐教。该处的3D1的用法，因为其他源程序中也含有这个，不知道为什么编译出错。
block data
common /misc/atom(3,3)
data((atom(i,j),i=3D1,3),j=3D1,3)/ 数据部分/
end
回复列表 （共4个回复）
沙发
yeg001 [专家分：14390] 发布于 2010-12-05 09:59:00
3D1 按理是双精度浮点数30.0. 不应该出现在 i=3D1 虽然f90标准曾经支持这么做.
楼主你帖的是一小段的源码?
板凳
wangweizong [专家分：0] 发布于 2010-12-06 01:28:00
是的，这是一段数据源码，是用fortran77编写的，应该没什么问题，因为整个代码之中还有其他类似的表达式或者变量，在之前都有3D的标志，所以想问，这个3D代表什么
3 楼
dongyuanxun [专家分：7180] 发布于 2010-12-07 12:46:00
data隐含循环必须整型，3D是real型，编译通过才怪
4 楼
vrgdfdsg [专家分：0] 发布于 2010-12-10 11:08:00
Three waves [url=http://www.ccqdiy.com]重庆团购[/url] of enemies will spawn and attack the Skyguard NPC's, each wave stronger then the previous. It is your
job to ensure that the Skyguard NPC's survive for as long as possible. If all of the Skyguard NPC's
[url=http://www.ccqdiy.url=http://www.mmopowerlevel.net/powerlist.php?fid=7422]cheap aion power leveling[/url] defeated. Once he is defeated a vendor will
appear to sell special items. Three different vendors are available, but only one will spawn for each wave defeated.
The first sells special flasks that cannot [url=http://www.ccqdiy.com]重庆二手电脑[/url] be attained at any other time. The second vendor to spawn will sell
rare gems. The third vendor to spawn will sell rare meta gems. You must use Apexis Shards as [url=http://www.ccqdiy.com]重庆二手手机[/url] currency for these
vendors. The waves and subsequent bosses that spawn during this event get increasingly difficult. In order [url=http://www.mogxe.com/PowerLevel.php?gid=1]
world of warcraft power leveling[/url] to complete the event, a well organized raid of at least 25 people is needed.
我来回复
您所在位置：