24小时热门版块排行榜    

CyRhmU.jpeg
查看: 1353  |  回复: 13
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

园中园

新虫 (正式写手)

[求助] 求大神指点,如何用Fortran 语言读取数据已有2人参与

求大神指点,如何用Fortran 语言读取数据  ,由于数据中存在非常小的数据(显示*****)

   1 ******  1.754  2.326 ****** ****** ****** ****** ****** ******
   1  0.002 -0.343 -0.602 -0.196 -0.001 -0.001 -0.001  0.001  0.000
   2 ****** ****** ****** ****** ****** ****** ****** ****** ******
回复此楼
追求,奋斗,再追求,再奋斗
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

--power

金虫 (小有名气)

引用回帖:
10楼: Originally posted by --power at 2016-07-11 18:37:37
real*8 a(9)       open(unit = 1, file = 'data.dat')

发错了,应该是:
real*8 a(9)
open(unit = 1,file = 'data.dat', iostate = io)
do while (io ==0)
    read(1,*) a      
end do
用手机发的,不怎么方便,见谅

发自小木虫Android客户端

» 本帖已获得的红花(最新10朵)

11楼2016-07-11 18:50:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

未岸亡灵

铁杆木虫 (著名写手)

暂时离开小木虫


【答案】应助回帖

★ ★ ★ ★
感谢参与,应助指数 +1
园中园: 金币+4 2016-07-08 21:52:38
*****无论如何都读不出来,你应该考虑如何得到不带***的txt文本
3楼2016-07-08 21:51:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

园中园

新虫 (正式写手)

引用回帖:
3楼: Originally posted by 未岸亡灵 at 2016-07-08 21:51:34
*****无论如何都读不出来,你应该考虑如何得到不带***的txt文本

您好,这是Vasp 计算出来的 PROCAR中的相位因子,出现了*****,读不了,
追求,奋斗,再追求,再奋斗
4楼2016-07-08 21:54:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

未岸亡灵

铁杆木虫 (著名写手)

暂时离开小木虫


【答案】应助回帖

★ ★
园中园: 金币+2 2016-07-09 15:55:31
引用回帖:
4楼: Originally posted by 园中园 at 2016-07-08 21:54:32
您好,这是Vasp 计算出来的 PROCAR中的相位因子,出现了*****,读不了,...

那你得改改VASP源码了,调整下它的输出格式。或者近似成0来处理

发自小木虫Android客户端
5楼2016-07-09 11:54:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见