找回密码
 注册
Simdroid-非首页
查看: 224|回复: 2

【求助】read disp0 file

[复制链接]
发表于 2004-6-15 16:40:41 | 显示全部楼层 |阅读模式 来自 加拿大
我编了了小程序想读一下disp0等文件来验证前处理数据的正确,怎么就读不出来?怪了
  program readdisp
  dimension u0(2,700),coor(2,700)
  OPEN(1,FILE='disp0',FORM='UNFORMATTED',STATUS='OLD')
  READ(1) NUMNOD,NODDOF,((U0(I,J),I=1,NODDOF),J=1,NUMNOD)
  CLOSE(1)
  open(22,file='initial value',status='unknown')
   
  write(22,*)((U0(I,J),I=1,NODDOF),J=1,NUMNOD)
  close(22)
  end
  
谢谢
发表于 2004-6-15 17:36:26 | 显示全部楼层 来自 北京

回复: 【求助】read disp0 file

Simdroid开发平台
在run下
运行prt
查看Out文件
发表于 2008-10-6 11:13:06 | 显示全部楼层 来自 大连理工大学
你的程序是可以用的,我已经试过了,可能是你在编制了程序以后,没有编译。
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-29 05:29 , Processed in 0.057961 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表