update code generation to properly print the used mode (interface of preload)

Author: marc-joos

src/resources/generator_data/code/C/templates/template_A.jinja

@@ -87,10 +87,16 @@
   int wi4mpi_rank;
   R_MPI_Comm_rank(R_MPI_COMM_WORLD, &wi4mpi_rank);
   if (wi4mpi_rank == 0)
+#if  defined(_MPC) || defined(_OMPI) || defined(_INTEL)
+    fprintf(
+        stdout, "You are using Wi4MPI-%s in the interface mode to %s\n",
+        getenv("WI4MPI_VERSION"), getenv("WI4MPI_TO"));
+#else
     fprintf(
         stdout, "You are using Wi4MPI-%s in the preload mode from %s to %s\n",
         getenv("WI4MPI_VERSION"), getenv("WI4MPI_FROM"), getenv("WI4MPI_TO"));
-    {%- endif -%}
+#endif
+    {% endif %}
     in_w=0;
     {# the code used in debug_printer to build parameters is wrong but lets as it is while the work on the generator is not done, to avoid modifing the generated code: we take into account arg_dep in the arguments to print but not in the control string construction code #}
     #ifdef DEBUG

src/resources/generator_data/code/fortran/static_sources/A_f_MPI_Init.c

@@ -29,9 +29,15 @@ void A_f_MPI_Init(int *ret) {
   int wi4mpi_rank;
   R_MPI_Comm_rank(R_MPI_COMM_WORLD, &wi4mpi_rank);
   if (wi4mpi_rank == 0)
+#if  defined(_MPC) || defined(_OMPI) || defined(_INTEL)
+    fprintf(
+        stdout, "You are using Wi4MPI-%s in the interface mode to %s\n",
+        getenv("WI4MPI_VERSION"), getenv("WI4MPI_TO"));
+#else
     fprintf(
         stdout, "You are using Wi4MPI-%s in the preload mode from %s to %s\n",
         getenv("WI4MPI_VERSION"), getenv("WI4MPI_FROM"), getenv("WI4MPI_TO"));
+#endif
   in_w = 0;
 #ifdef DEBUG
   if (WI4MPI_Init_print)

src/resources/generator_data/code/fortran/static_sources/A_f_MPI_Init_thread.c

@@ -21,9 +21,15 @@ void A_f_MPI_Init_thread(int *required, int *provided, int *ret) {
   int wi4mpi_rank;
   R_MPI_Comm_rank(R_MPI_COMM_WORLD, &wi4mpi_rank);
   if (wi4mpi_rank == 0)
+#if  defined(_MPC) || defined(_OMPI) || defined(_INTEL)
+    fprintf(
+        stdout, "You are using Wi4MPI-%s in the interface mode to %s\n",
+        getenv("WI4MPI_VERSION"), getenv("WI4MPI_TO"));
+#else
     fprintf(
         stdout, "You are using Wi4MPI-%s in the preload mode from %s to %s\n",
         getenv("WI4MPI_VERSION"), getenv("WI4MPI_FROM"), getenv("WI4MPI_TO"));
+#endif
   in_w = 0;
 #ifdef DEBUG
   if (WI4MPI_Init_thread_print)

src/resources/generator_data/code/fortran/templates/template_A.jinja

@@ -78,14 +78,6 @@
     wi4mpi_set_timeout(WI4{{func['name']}}_timeout);
     #endif
     in_w=1;
-    {%- if func['name'] == 'MPI_Init' or func['name'] == 'MPI_Init_thread' -%}
-  int wi4mpi_rank;
-  R_MPI_Comm_rank(R_MPI_COMM_WORLD, &wi4mpi_rank);
-  if (wi4mpi_rank == 0)
-    fprintf(
-        stdout, "You are using Wi4MPI-%s in the preload mode from %s to %s\n",
-        getenv("WI4MPI_VERSION"), getenv("WI4MPI_FROM"), getenv("WI4MPI_TO"));
-    {%- endif -%}
     {% if func['heading']|default("") != "" %}
         {{func['heading']}}
     {% endif %}