24小时热门版块排行榜    

查看: 4461  |  回复: 12
本帖产生 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 的主题更新
信息提示
请填处理意见