tFix NaN/inf message reporting, increase VERSION to 0.3.1 - cngf-pf - continuum model for granular flows with pore-pressure dynamics (renamed from 1d_fd_simple_shear)
 (HTM) git clone git://src.adamsgaard.dk/cngf-pf
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit 7ab8ed88e89f9bb5f2890264559147c10388a16f
 (DIR) parent 6849a3075184bf86a78f553945099b8c3c250d58
 (HTM) Author: Anders Damsgaard <anders@adamsgaard.dk>
       Date:   Mon,  8 Jul 2019 12:29:22 +0200
       
       Fix NaN/inf message reporting, increase VERSION to 0.3.1
       
       Diffstat:
         M main.c                              |       2 +-
         M simulation.c                        |      13 +++++++++----
       
       2 files changed, 10 insertions(+), 5 deletions(-)
       ---
 (DIR) diff --git a/main.c b/main.c
       t@@ -7,7 +7,7 @@
        #include "simulation.h"
        #include "fluid.h"
        
       -#define VERSION "0.3.0"
       +#define VERSION "0.3.1"
        #define PROGNAME "1d_fd_simple_shear"
        
        #include "parameter_defaults.h"
 (DIR) diff --git a/simulation.c b/simulation.c
       t@@ -46,19 +46,24 @@ warn_parameter_value(const char message[],
                             const double value,
                             int* return_status)
        {
       -        fprintf(stderr, "check_simulation_parameters: %s (%.17g)\n",
       -                message, value);
       +        fprintf(stderr,
       +                "check_simulation_parameters: %s (%.17g)\n",
       +                message,
       +                value);
                *return_status = 1;
        }
        
        static void
        check_float(const char name[], const double value, int* return_status)
        {
       +        char message[100];
                if (isnan(value)) {
       -                warn_parameter_value("%s is NaN", value, return_status);
       +                sprintf(message, "%s is NaN", name);
       +                warn_parameter_value(message, value, return_status);
                        *return_status = 1;
                } else if (isinf(value)) {
       -                warn_parameter_value("%s is infinite", value, return_status);
       +                sprintf(message, "%s is infinite", name);
       +                warn_parameter_value(message, value, return_status);
                        *return_status = 1;
                }
        }