Add format specifier

cp2k · Aug 5, 2021 · 5e7206d · 5e7206d
1 parent 254b392
commit 5e7206d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/qs_scf_post_gpw.F b/src/qs_scf_post_gpw.F
@@ -443,15 +443,15 @@ SUBROUTINE scf_post_calculation_gpw(qs_env, wf_type)
       ! Makes the MOs eigenstates, computes eigenvalues, write cubes
       IF (do_kpoints) THEN
          IF (do_mo_cubes) THEN
-            CPWARN("Print MO Cubes not implemented for k-point calculations!!")
+            CPWARN("Print MO cubes not implemented for k-point calculations")
          END IF
       ELSE
          CALL get_qs_env(qs_env, &
                          mos=mos, &
                          matrix_ks=ks_rmpv)
          IF ((do_mo_cubes .AND. nhomo /= 0) .OR. do_stm .OR. dft_control%do_tddfpt_calculation) THEN
             IF (dft_control%restricted) THEN
-               IF (output_unit > 0) WRITE (output_unit, *) &
+               IF (output_unit > 0) WRITE (output_unit, FMT="(/,T2,A)") &
                   " Unclear how we define MOs in the restricted case ... skipping"
             ELSE
                CALL get_qs_env(qs_env, mo_derivs=mo_derivs)
@@ -487,7 +487,7 @@ SUBROUTINE scf_post_calculation_gpw(qs_env, wf_type)
          IF (do_kpoints) THEN
             CPWARN("Localization not implemented for k-point calculations!!")
          ELSEIF (dft_control%restricted) THEN
-            IF (output_unit > 0) WRITE (output_unit, *) &
+            IF (output_unit > 0) WRITE (output_unit, FMT="(/,T2,A)") &
                " Unclear how we define MOs / localization in the restricted case ... skipping"
          ELSE
             ALLOCATE (occupied_orbs(dft_control%nspins))