Commit 05199b22 authored by Matthias Redies's avatar Matthias Redies

remove super verbose output

parent 76a471b8
......@@ -10,7 +10,7 @@ fleurinput_read_xml.f90 fleurinput_mpi_bc.f90
types_fleurinput_base.F90 types_input.f90 types_oneD.f90
types_coreSpecInput.f90 types_hybinp.f90 types_noco.f90
types_vacuum.f90 types_banddos.f90 types_wannier.f90
types_cell.f90 types_kpts.f90 types_fleurinput.f90
types_cell.f90 types_kpts.F90 types_fleurinput.f90
types_sliceplot.f90 types_sym.f90 types_atoms.F90
types_econfig.F90 types_field.F90 types_xcpot.F90
types_enparaXML.f90 types_forcetheo_data.f90
......
......@@ -367,7 +367,9 @@ CONTAINS
do ikpt = 1, kpts%nkptf
k = kpts%bkf(:,ikpt)
write (*,"(I3,A,F8.4,F8.4,F8.4)") ikpt, ": ", kpts%bkf(:,ikpt)
#ifdef CPP_EXPLICIT_HYB
write (*,"(I5,A,F8.4,F8.4,F8.4)") ikpt, ": ", kpts%bkf(:,ikpt)
#endif
if(abs(k(2)) < 1e-10 .and. abs(k(3)) < 1e-10) nkpt3(1) = nkpt3(1) + 1
if(abs(k(1)) < 1e-10 .and. abs(k(3)) < 1e-10) nkpt3(2) = nkpt3(2) + 1
if(abs(k(1)) < 1e-10 .and. abs(k(2)) < 1e-10) nkpt3(3) = nkpt3(3) + 1
......
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