Fix error message formatting in

read_input_module.f90
RQC-HU · Dec 15, 2023 · 494d6e8 · 494d6e8
1 parent ee6f324
commit 494d6e8
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/read_input_module.f90 b/src/read_input_module.f90
@@ -734,9 +734,11 @@ subroutine validate_nroot_selectroot
         implicit none
         if (nroot < selectroot) then
             if (rank == 0) then
-                print *, "ERROR: The number of root must be larger than or equal to the number of selected root."
-                print *, "The number of root:", nroot
-                print *, "The number of selected root:", selectroot
+                print *, "ERROR: The number of root must be larger than or equal to"
+                print *, "the number of selected root."
+                print '(a,i0)', "The number of nroot: ", nroot
+                print '(a,i0)', "The number of selectroot: ", selectroot
+                print *, "Please check your input file."
                 print *, "Exit the program."
             end if
             call stop_with_errorcode(1)