Commit 01e24598 authored by Frank Freimuth's avatar Frank Freimuth

Update types_wannier.f90

parent c747d430
......@@ -521,6 +521,22 @@ CONTAINS
CALL juDFT_error("problem with jobparam=",calledby="wann_read_inp")
endif
endif
ELSEIF(jobname.EQ.'perpmag')THEN
this%l_perpmag=.TRUE.
if(l_param)then
read(param,*,iostat=stat) this%perpmagfmt
if(stat/=0)then
CALL juDFT_error("problem with jobparam=",calledby="wann_read_inp")
endif
endif
ELSEIF(jobname.EQ.'perpmagrs')THEN
this%l_perpmagrs=.TRUE.
if(l_param)then
read(param,*,iostat=stat) this%perpmagrsfmt
if(stat/=0)then
CALL juDFT_error("problem with jobparam=",calledby="wann_read_inp")
endif
endif
ELSEIF(this%jobList(i).EQ.'projmethod')THEN
this%l_projmethod=.TRUE.
ELSEIF(this%jobList(i).EQ.'matrixamn')THEN
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment