File tree Expand file tree Collapse file tree 1 file changed +5
-5
lines changed Expand file tree Collapse file tree 1 file changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -475,15 +475,15 @@ contains
475475 subroutine s_prohibit_abort(condition, message)
476476 character(len=*), intent(in) :: condition, message
477477
478- print *, " "
479- print *, " "
480- print *, " CASE FILE ERROR "
481- print *, " "
478+ print *, ""
479+ print *, "==================================================================================================== "
480+ print *, " CASE FILE ERROR "
481+ print *, "---------------------------------------------------------------------------------------------------- "
482482 print *, "Prohibited condition: ", trim(condition)
483483 if (len_trim(message) > 0) then
484484 print *, "Note: ", trim(message)
485485 end if
486- print *, " "
486+ print *, "==================================================================================================== "
487487 print *, ""
488488 call s_mpi_abort
489489 end subroutine s_prohibit_abort
You can’t perform that action at this time.
0 commit comments