some refactoring.

commented out debug lines in build.sh.

Author: jacobwilliams

build.sh

@@ -68,8 +68,8 @@
 #    Jacob Williams : 12/27/2014
 #
 
-set -x
-set -v
+#set -x
+#set -v
 set -o errexit
 
 FORDMD='json-fortran.md'        # FORD options file for building documentation
@@ -340,20 +340,20 @@ if [[ $JF_SKIP_TESTS != [yY]* ]] ; then
             fi
             if [ -f ${SRCFILE}-unicode.gcov ] && [ -f ${SRCFILE}-no-unicode.gcov ]; then
 
-                ##############
-                echo ""
-                echo "-------------------"
-                echo "no-unicode file"
-                echo "-------------------"
-                cat ${SRCFILE}-no-unicode.gcov
-                echo ""
-                echo "-------------------"
-                echo "unicode file"
-                echo "-------------------"
-                cat ${SRCFILE}-unicode.gcov
-                echo ""
-                ./pages/development-resources/gccr.pl -n -c ${SRCFILE}-no-unicode.gcov no-unicode \
-                                  ${SRCFILE}-unicode.gcov unicode
+                ############## for debugging
+                #echo ""
+                #echo "-------------------"
+                #echo "no-unicode file"
+                #echo "-------------------"
+                #cat ${SRCFILE}-no-unicode.gcov
+                #echo ""
+                #echo "-------------------"
+                #echo "unicode file"
+                #echo "-------------------"
+                #cat ${SRCFILE}-unicode.gcov
+                #echo ""
+                #./pages/development-resources/gccr.pl -n -c ${SRCFILE}-no-unicode.gcov no-unicode \
+                #                  ${SRCFILE}-unicode.gcov unicode
                 ##############
 
                 # merge them

src/json_string_utilities.F90

@@ -62,6 +62,7 @@ module json_string_utilities
     public :: integer_to_string
     public :: real_to_string
     public :: string_to_integer
+    public :: string_to_real
     public :: valid_json_hex
     public :: to_unicode
     public :: escape_string
@@ -176,6 +177,35 @@ subroutine real_to_string(rval,real_fmt,compact_real,str)
     end subroutine real_to_string
 !*****************************************************************************************
 
+!*****************************************************************************************
+!> author: Jacob Williams
+!  date: 1/19/2014
+!
+!  Convert a string into a `real(RK)`.
+!
+!# History
+!  * Jacob Williams, 10/27/2015 : Now using `fmt=*`, rather than
+!    `fmt=real_fmt`, since it doesn't work for some unusual cases
+!    (e.g., when `str='1E-5'`).
+!  * Jacob Williams : 2/6/2017 : moved core logic to this routine.
+
+    subroutine string_to_real(str,rval,status_ok)
+
+    implicit none
+
+    character(kind=CK,len=*),intent(in) :: str
+    real(RK),intent(out)                :: rval
+    logical(LK),intent(out)             :: status_ok  !! true if there were no errors
+
+    integer(IK) :: ierr  !! read iostat error code
+
+    read(str,fmt=*,iostat=ierr) rval
+    status_ok = (ierr==0)
+    if (.not. status_ok) rval = 0.0_RK
+
+    end subroutine string_to_real
+!*****************************************************************************************
+
 !*****************************************************************************************
 !> author: Izaak Beekman
 !  date: 02/24/2015

src/json_value_module.F90

@@ -557,7 +557,7 @@ module json_value_module
         procedure :: name_equal
         procedure :: json_value_print
         procedure :: string_to_int
-        procedure :: string_to_double
+        procedure :: string_to_dble
         procedure :: parse_value
         procedure :: parse_number
         procedure :: parse_string
@@ -4514,10 +4514,6 @@ end subroutine wrap_json_get_path
 !>
 !  Convert a string into an integer.
 !
-!# History
-!  * Jacob Williams : 12/10/2013 : Rewrote routine.  Added error checking.
-!  * Modified by Izaak Beekman
-!
 !@note Replacement for the `parse_integer` function in the original code.
 
     function string_to_int(json,str) result(ival)
@@ -4550,34 +4546,26 @@ end function string_to_int
 !*****************************************************************************************
 
 !*****************************************************************************************
-!> author: Jacob Williams
-!  date: 1/19/2014
-!
+!>
 !  Convert a string into a double.
-!
-!# History
-!  * Jacob Williams, 10/27/2015 : Now using `fmt=*`, rather than
-!    `fmt=real_fmt`, since it doesn't work for some unusual cases
-!    (e.g., when `str='1E-5'`).
 
-    function string_to_double(json,str) result(rval)
+    function string_to_dble(json,str) result(rval)
 
     implicit none
 
     class(json_core),intent(inout)      :: json
     character(kind=CK,len=*),intent(in) :: str
     real(RK)                            :: rval
 
-    integer(IK) :: ierr  !! read iostat error code
+    logical(LK) :: status_ok  !! error flag
 
     if (.not. json%exception_thrown) then
 
-        !string to double
-        read(str,fmt=*,iostat=ierr) rval
+        call string_to_real(str,rval,status_ok)
 
-        if (ierr/=0) then    !if there was an error
+        if (.not. status_ok) then    !if there was an error
             rval = 0.0_RK
-            call json%throw_exception('Error in string_to_double: '//&
+            call json%throw_exception('Error in string_to_dble: '//&
                                       'string cannot be converted to a double: '//&
                                       trim(str))
         end if
@@ -4586,7 +4574,7 @@ function string_to_double(json,str) result(rval)
         rval = 0.0_RK
     end if
 
-    end function string_to_double
+    end function string_to_dble
 !*****************************************************************************************
 
 !*****************************************************************************************
@@ -7098,7 +7086,7 @@ subroutine parse_number(json, unit, str, value)
                         ival = json%string_to_int(tmp)
                         call to_integer(value,ival)
                     else
-                        rval = json%string_to_double(tmp)
+                        rval = json%string_to_dble(tmp)
                         call to_double(value,rval)
                     end if