应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 第一性原理 » Vasp&MedeA » VASP的源代码是公开的吗？还有其他可以读懂的程序吗？
132/2返回列表上一页12
查看: 4461  |  回复: 12
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 2 个 1ST强帖 ，点击这里进行查看

magicmonk

至尊木虫 (著名写手)
引用回帖:
10楼: Originally posted by 绿遍山原 at 2014-07-20 19:46:39
好像是RDTAB啥的，在vasp.5.lib里面。你随便找个子程序就能看见用法了。vasp读INCAR不是一次性读的，可以通过这个子程序直接读取命名的数据。...

多谢
回复此楼
我们最深的恐惧不是我们能力不够，我们最深的恐惧是能力超越了极限。
11楼2014-07-20 19:49:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

绿遍山原

铜虫 (小有名气)
引用回帖:
9楼: Originally posted by magicmonk at 2014-07-20 10:25:36
请问侯老师是否有过相关经验？我尝试将自己编的一个程序像vtst那样编译到VASP里，然后在INCAR中设置是否开启，但是不知道读INCAR中tag的子程序在哪里？...

maxmove = 0.2_q
      CALL RDATAB(.TRUE.,'INCAR',IO%IU5,'MAXMOVE','=','#',';','F', &
     &            IDUM,maxmove,CDUM,LDUM,CHARAC,N,1,IERR)
      IF (((IERR/=0).AND.(IERR/=3)).OR. ((IERR==0).AND.(N<1))) THEN
         IF (iu0>=0) WRITE(iu0,*) 'Error reading item ''MAXMOVE'' from file INCAR.'
         STOP
      ENDIF
就是这个RDATAB
赞一下 回复此楼
要夢遊，不要催眠。
12楼2014-07-20 19:50:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

magicmonk

至尊木虫 (著名写手)
引用回帖:
12楼: Originally posted by 绿遍山原 at 2014-07-20 19:50:23
maxmove = 0.2_q
      CALL RDATAB(.TRUE.,'INCAR',IO%IU5,'MAXMOVE','=','#',';','F', &
     &            IDUM,maxmove,CDUM,LDUM,CHARAC,N,1,IERR)
      IF (((IERR/=0).AND.(IERR/=3)).OR. ((IE ...

嗯，找到了，在源码包的drdatab.F中，在reader.F等文件中CALL
赞一下 回复此楼
我们最深的恐惧不是我们能力不够，我们最深的恐惧是能力超越了极限。
13楼2014-07-20 20:08:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xinqing98 的主题更新
132/2返回列表上一页12
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭