@@ -527,7 +527,11 @@ end subroutine array_callback_func
527
527
public :: json_remove ! remove from a JSON structure
528
528
public :: json_remove_if_present ! remove from a JSON structure (if it is present)
529
529
public :: json_update ! update a value in a JSON structure
530
-
530
+
531
+ !
532
+ ! Note: the following global variables make this module non thread safe.
533
+ !
534
+
531
535
! exception handling [private variables]
532
536
logical (LK) :: is_verbose = .false. ! if true, all exceptions are immediately printed to console
533
537
logical (LK) :: exception_thrown = .false. ! the error flag
@@ -537,7 +541,7 @@ end subroutine array_callback_func
537
541
integer (IK) :: char_count = 0 ! character position in the current line
538
542
integer (IK) :: line_count = 1 ! lines read counter
539
543
integer (IK) :: pushed_index = 0
540
- character (kind= CK,len= 10 ) :: pushed_char ! JW : what is this magic number 10??
544
+ character (kind= CK,len= 10 ) :: pushed_char = ' ' ! JW : what is this magic number 10??
541
545
542
546
contains
543
547
! *****************************************************************************************
@@ -2922,7 +2926,7 @@ end subroutine json_value_print
2922
2926
! json_get_by_path
2923
2927
!
2924
2928
! USAGE
2925
- ! call json_get(me,path,p,found)
2929
+ ! call json_get(me,path,p,found)
2926
2930
!
2927
2931
! DESCRIPTION
2928
2932
! Returns the json_value pointer given the path string.
0 commit comments