cleanup

io/r_inpXML.F90

@@ -1152,10 +1152,8 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu
          IF(xmlGetNumberOfNodes(TRIM(xPathB) // '/@etot_correlation') == 1) THEN
             valueString = TRIM(ADJUSTL(xmlGetAttributeValue(TRIM(xPathB) // '/@etot_correlation')))
             exc_id_c =  xc_f03_functional_get_number(TRIM(valueString))
-            write (*,*) "read exc_id_c"
          ELSE
             exc_id_c = vxc_id_c
-            write (*,*) "ignore exc_id_c"
          ENDIF
 #else
          CALL judft_error("To use libxc functionals you have to compile with libXC support")

xc-pot/metagga.F90

@@ -33,8 +33,7 @@ CONTAINS
         if(any(kinEnergyDen_RS < eps)) then
            write (6,*) "         lowest kinetic energy density cutoff = ", minval(kinEnergyDen_RS)
            kinEnergyDen_RS = max(kinEnergyDen_RS, eps)
-           write (6,*) "         afterwards = ", minval(kinEnergyDen_RS)
-        endif
+        endif 
 
 #else
         USE m_juDFT_stop