now for fully real

optional/plot.f90

@@ -729,7 +729,7 @@ noco,sphhar,sym,vacuum,den,fileNameIN,logicPotential) !filename: READ filename o
    SUBROUTINE makeplots(jspins,noco,iplot,plot_const,den)   
       USE m_constants
       INTEGER, INTENT(IN) :: iplot
-      INTEGER INTENT(IN) :: plot_const !Index of the plot according to constant set in constants.f90
+      INTEGER, INTENT(IN) :: plot_const !Index of the plot according to constant set in constants.f90
       TYPE(t_noco),      INTENT(IN)    :: noco
       LOGICAL :: allowplot