24小时热门版块排行榜    

CyRhmU.jpeg
查看: 843  |  回复: 1

zll201101

金虫 (正式写手)

[求助] VASP输出结果JCARBX、JCARBY、JCARBZ怎样作图?

VASP计算时输入文件INCAR加入如下参数时:
LCHIMAG=.TRUE.  !use linear response to calculate shielding tensor,perturbation theory with respect to B field
LWRTCUR=.TRUE.  !write current response to B field to file
LBFCONST=.TRUE.  !constant B field appiled
BCONST= 10.0000 10.0000 10.0000  !applied magnetic field
输出结果会产生JCARBX、JCARBY、JCARBZ三个文件(见附件)。文件内容可能是电流密度矢量图类似的内容。请问这结果用什么软件作图?
产生这三个文件的源代码应该是下面这段:

      ! we might want to look at the current
      IF (LWRTCUR) THEN
         IF (IO%IU6>=0) THEN
            OPEN(UNIT=99,FILE=DIR_APP(1IR_LEN)//'JCAR'//DIR_TEXT(BDIR),STATUS='UNKNOWN')
            ! write header
            CALL OUTPOS(99,.FALSE.,INFO%SZNAM1,T_INFO,LATT_CUR%SCALE,LATT_CUR%A,.FALSE.,T_INFO%POSION)
            WRITE(99,'(3I5)') GRID_SOFT%NGX,GRID_SOFT%NGY,GRID_SOFT%NGZ
            WRITE(99,'(5(1X,E17.11))') (0._q, I=1,GRID_SOFT%NGX*GRID_SOFT%NGY*GRID_SOFT%NGZ)
            DO J=1,3
               WRITE(99,'(3I5)') GRID_SOFT%NGX,GRID_SOFT%NGY,GRID_SOFT%NGZ
               WRITE(99,'(5(1X,E17.11))') &
              &  (REAL(S_BARE(I,J),q),I=1,GRID_SOFT%NGX*GRID_SOFT%NGY*GRID_SOFT%NGZ)
            ENDDO
            CLOSE(99)
         ENDIF
      ENDIF
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : JCARBX
  • 2019-08-24 15:27:39, 3.24 M
  • 附件 2 : JCARBY
  • 2019-08-24 15:28:06, 3.24 M
  • 附件 3 : JCARBZ
  • 2019-08-24 15:28:33, 3.24 M

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

provels

金虫 (正式写手)

你好,请问您最后搞清楚了吗? 谢谢
2楼2021-09-11 14:40:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zll201101 的主题更新
信息提示
请填处理意见