htrdr

commit 1b1e2bf40b28bb58b3e9a39ec1cb11f281e0e6d3
parent 3de03d168c619c25b50d77509fc38f8b9f7649d1
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Thu,  5 Nov 2020 15:51:29 +0100

Add log messages

On htrdr invocation, log the #procs and #threads. Log also a message
when the loading of the ground geometry starts.

Diffstat:
M
src/htrdr.c
 | 
4
++++
M
src/htrdr_ground.c
 | 
1
+

2 files changed, 5 insertions(+), 0 deletions(-)
diff --git a/src/htrdr.c b/src/htrdr.c
@@ -27,6 +27,7 @@
 #include "htrdr_ran_wlen.h"
 #include "htrdr_sun.h"
 #include "htrdr_solve.h"
+#include "htrdr_version.h"
 
 #include <rsys/cstr.h>
 #include <rsys/mem_allocator.h>
@@ -433,6 +434,9 @@ htrdr_init
   res = init_mpi(htrdr);
   if(res != RES_OK) goto error;
 
+  htrdr_log(htrdr, "Number of processes: %d\n", htrdr->mpi_nprocs);
+  htrdr_log(htrdr, "Number of per process threads: %u\n", htrdr->nthreads);
+
   if(!args->output) {
     htrdr->output = stdout;
     output_name = "<stdout>";
diff --git a/src/htrdr_ground.c b/src/htrdr_ground.c
@@ -541,6 +541,7 @@ htrdr_ground_create
 
   if(!obj_filename) goto exit;
 
+  htrdr_log(ground->htrdr, "Loading ground geometry from `%s'.\n",obj_filename);
   time_current(&t0);
   res = setup_ground(ground, obj_filename);
   if(res != RES_OK) goto error;