Fix formatting

PHOTOX · Dec 5, 2023 · c015445 · c015445
1 parent 37a99cb
commit c015445
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/sh_integ.F90 b/src/sh_integ.F90
@@ -453,7 +453,7 @@ end subroutine sh_set_energy_shift
    subroutine sh_write_wf(outunit)
       integer, intent(in) :: outunit
       integer :: ist1
-      write (outunit, '(A4, ES24.16E3)')'E0= ', Eshift
+      write (outunit, '(A4, ES24.16E3)') 'E0= ', Eshift
       do ist1 = 1, nstate
          write (outunit, *) cel_re(ist1), cel_im(ist1)
       end do