Commit 65e7bc60 authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files

Fix polar plotting feature switch

parent 2b969166
...@@ -174,7 +174,7 @@ SUBROUTINE plotdop(oneD,dimension,stars,vacuum,sphhar,atoms,& ...@@ -174,7 +174,7 @@ SUBROUTINE plotdop(oneD,dimension,stars,vacuum,sphhar,atoms,&
! Open the plot_inp file for input ! Open the plot_inp file for input
OPEN (18,file='plot_inp') OPEN (18,file='plot_inp')
READ(18,'(i2,5x,l1,a)') nplot,xsf,textline READ(18,'(i2,5x,l1,1x,a)') nplot,xsf,textline
polar = .FALSE. polar = .FALSE.
IF ((noco%l_noco).AND.(numInFiles.EQ.4)) THEN IF ((noco%l_noco).AND.(numInFiles.EQ.4)) THEN
polar = (textline(1:7)=='polar=T').OR.(textline(1:7)=='polar=t') polar = (textline(1:7)=='polar=T').OR.(textline(1:7)=='polar=t')
......
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