Commit c2bfc37a authored by Gregor Michalicek's avatar Gregor Michalicek

Small bugfix in wannier/wann_read_inp.f90 for gfortran

parent 0b046d09
......@@ -575,7 +575,7 @@ subroutine wann_read_inp(input,l_p0,wann)
endif
enddo
IF (wann%l_byindex.EQ..TRUE.) THEN
IF (wann%l_byindex) THEN
if(l_p0)write(6,*)"band_min1=",wann%band_min(1)
if(l_p0)write(6,*)"band_max1=",wann%band_max(1)
if(l_p0)write(6,*)"band_min2=",wann%band_min(2)
......
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