fix(error stop): replace with internal_error_stop

Author: rouson

src/julienne/julienne_formats_s.F90

@@ -3,6 +3,8 @@
 
 submodule(julienne_formats_m) julienne_formats_s
   !! Construct separated-value formats 
+  use julienne_multi_image_m, only : internal_error_stop
+
   implicit none
 
 contains
@@ -27,10 +29,10 @@
           type is(character(len=*))
             format_string = prefix // separator // suffix
           class default
-             error stop "format_s separated_values: unsupported type"
+             call internal_error_stop("format_s separated_values: unsupported type")
         end select
       rank default
-        error stop "formats_s separated_values: unsupported rank"
+        call internal_error_stop("formats_s separated_values: unsupported rank")
     end select
   end procedure
 

src/julienne/julienne_stop_and_print_s.F90

@@ -163,7 +163,7 @@ pure subroutine stop_and_print_header_data_footer(data, header, footer)
             stringy_stuff =  [( [(.csv. string_t(stuff(row,:,page)) , row=1,size(stuff,1))] .separatedBy. new_line(''), page = 1,size(stuff,3) )] .separatedBy. (new_line('') // new_line(''))
             stop_code = stringy_stuff%string()
           class default
-             call internal_errorestop("character_stop_code (in print_and_stop_s): unsupported stop-code type for rank-3 array")
+             call internal_error_stop("character_stop_code (in print_and_stop_s): unsupported stop-code type for rank-3 array")
         end select
       rank default
         associate(stop_code_rank => string_t(stop_code))

src/julienne/julienne_test_diagnosis_s.F90

@@ -7,6 +7,7 @@
 submodule(julienne_test_diagnosis_m) julienne_test_diagnosis_s
   use assert_m
   use julienne_string_m, only : operator(.cat.)
+  use julienne_multi_image_m, only : internal_error_stop
   use iso_c_binding, only : c_associated, c_intptr_t
   implicit none
 contains
@@ -89,7 +90,7 @@
         diagnosis = aggregate_vector_diagnosis(reshape(diagnoses, shape=[size(diagnoses)]))
       rank default 
         associate(diagnoses_rank => string_t(rank(diagnoses)))
-          error stop "aggregate_diagnosis (julienne_test_diagnosis_s): rank " // diagnoses_rank%string() // " unspported"
+          call internal_error_stop("aggregate_diagnosis (julienne_test_diagnosis_s): rank " // diagnoses_rank%string() // " unspported")
         end associate
     end select