Respect coding conventions

cp2k · Oct 6, 2021 · 196c15b · 196c15b
1 parent 2d2fde0
commit 196c15b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 7 deletions.
diff --git a/src/ec_environment.F b/src/ec_environment.F
@@ -414,18 +414,15 @@ SUBROUTINE ec_write_input(ec_env, unit_nr)
 
       CALL timeset(routineN, handle)
 
-      !WRITE (unit_nr, '()')
-      WRITE (unit_nr, '(T2,A,A,A,A,A)') "!", REPEAT("-", 29), &
-         " Energy Correction ", REPEAT("-", 29), "!"
+      WRITE (unit_nr, '(T2,A)') &
+         "!"//REPEAT("-", 29)//" Energy Correction "//REPEAT("-", 29)//"!"
 
       ! Algorithm
       SELECT CASE (ec_env%ks_solver)
       CASE (ec_diagonalization)
          WRITE (unit_nr, '(T2,A,T61,A20)') "Algorithm: ", "DIAGONALIZATION"
-         WRITE (*, *) "print diagonalization"
       CASE (ec_ot_diag)
          WRITE (unit_nr, '(T2,A,T61,A20)') "Algorithm: ", "OT DIAGONALIZATION"
-         WRITE (*, *) "print ot diagonalization"
       CASE (ec_matrix_sign)
          WRITE (unit_nr, '(T2,A,T61,A20)') "Algorithm: ", "MATRIX_SIGN"
       CASE (ec_matrix_trs4)

diff --git a/src/response_solver.F b/src/response_solver.F
@@ -422,8 +422,8 @@ SUBROUTINE response_solver_write_input(input, linres_control, unit_nr)
       IF (unit_nr > 0) THEN
 
          ! linres_control
-         WRITE (unit_nr, '()')
-         WRITE (unit_nr, '(T2,A,A,A)') REPEAT("-", 30), " Linear Response Solver ", REPEAT("-", 26)
+         WRITE (unit_nr, '(/,T2,A)') &
+            REPEAT("-", 30)//" Linear Response Solver "//REPEAT("-", 25)
 
          ! Which type of solver is used
          CALL section_vals_val_get(input, "METHOD", i_val=solver_method)