integer to string routine no longer public.

other minor changes.

Author: jacobwilliams

src/json_example.f90

@@ -200,15 +200,16 @@ subroutine test_4()
     write(*,'(A)') ''
     write(*,'(A)') 'creating structure'
 
-    call json_value_create(p)            ! create the value and associate the pointer
-    call to_object(p,dir//filename4)     !add the file name as the name of the overall structure:
+    call json_value_create(p)            !create the value and associate the pointer
+    call to_object(p,dir//filename4)     !add the file name as the name of the overall structure
 
     !config structure:
     call json_value_create(inp)          !an object
     call to_object(inp,'INPUTS')
     !add just integers:
     do i=1,100
-        call integer_to_string(i,istr)
+        write(istr,fmt='(I10)') i
+        istr = adjustl(istr)
         call json_value_add(inp, 'x'//trim(istr),i)
     end do
     call json_value_add(p, inp)
@@ -421,7 +422,8 @@ subroutine test_3()
         !get vectors:
         do i=1,4
 
-            call integer_to_string(i,str)
+            write(str,fmt='(I10)') i
+            str = adjustl(str)
 
             write(*,'(A)') ''
             call json%get('trajectory('//trim(str)//').VARIABLE', cval)

src/json_module.f90

@@ -270,9 +270,9 @@ end subroutine array_callback_func
     interface json_get
         module procedure :: json_get_by_path
         module procedure :: json_get_integer, json_get_integer_vec
-        module procedure :: json_get_double, json_get_double_vec
+        module procedure :: json_get_double,  json_get_double_vec
         module procedure :: json_get_logical, json_get_logical_vec
-        module procedure :: json_get_chars, json_get_char_vec
+        module procedure :: json_get_chars,   json_get_char_vec
         module procedure :: json_get_array
     end interface json_get
 
@@ -308,18 +308,15 @@ end subroutine array_callback_func
     public :: to_object                  !
     public :: to_array                   !
 
-    public :: integer_to_string          !basic integer to string routine
-
     !exception handling [private variables]
     logical :: exception_thrown = .false.            !the error flag
     character(len=:),allocatable :: err_message      !the error message
-    logical,parameter :: print_tracebacks = .false.  !used when debugging
 
     ! POP/PUSH CHARACTER [private variables]
     integer :: char_count = 0
     integer :: line_count = 1
     integer :: pushed_index = 0
-    character (len = 10) :: pushed_char              !JW : what is this magic number 10??
+    character(len=10) :: pushed_char    !JW : what is this magic number 10??
 
     contains
 !*****************************************************************************************
@@ -633,7 +630,6 @@ subroutine get_integer_vec_from_json_file(me, path, vec, found)
     integer,dimension(:),allocatable,intent(out)    :: vec
     logical,intent(out),optional                    :: found
 
-
     call json_get(me%p, path, vec, found)
 
     end subroutine get_integer_vec_from_json_file
@@ -910,17 +906,6 @@ subroutine throw_exception(msg)
     exception_thrown = .true.
     err_message = trim(msg)
 
-    !if (print_tracebacks) then
-    !
-    !    !This is a feature of the Intel Fortran Compiler:
-    !    !Throw a traceback and return control to the user.
-    !    call tracebackqq(string=trim(msg), user_exit_code=-1)
-    !
-    !    !write(*,'(A)') trim(msg)        !gfortran version
-    !    !stop
-    !
-    !end if
-
     end subroutine throw_exception
 !*****************************************************************************************