@@ -2715,39 +2715,39 @@ end subroutine json_value_validate
2715
2715
! > author: Jacob Williams
2716
2716
! date: 12/6/2014
2717
2717
!
2718
- ! Given the path string, remove the variable from
2719
- ! the [[json_value]] structure , if it exists.
2718
+ ! Given the path string, remove the variable
2719
+ ! from [[json_value]], if it exists.
2720
2720
2721
- subroutine json_value_remove_if_present (json ,p ,name )
2721
+ subroutine json_value_remove_if_present (json ,p ,path )
2722
2722
2723
2723
implicit none
2724
2724
2725
2725
class(json_core),intent (inout ) :: json
2726
2726
type (json_value),pointer :: p
2727
- character (kind= CK,len=* ),intent (in ) :: name
2727
+ character (kind= CK,len=* ),intent (in ) :: path ! ! the path to the variable to remove
2728
2728
2729
2729
type (json_value),pointer :: p_var
2730
2730
logical (LK) :: found
2731
2731
2732
- call json% get(p,name ,p_var,found)
2732
+ call json% get(p,path ,p_var,found)
2733
2733
if (found) call json% remove(p_var)
2734
2734
2735
2735
end subroutine json_value_remove_if_present
2736
2736
! *****************************************************************************************
2737
2737
2738
2738
! *****************************************************************************************
2739
2739
! >
2740
- ! Alternate version of [[json_value_remove_if_present]], where `name ` is kind=CDK.
2740
+ ! Alternate version of [[json_value_remove_if_present]], where `path ` is kind=CDK.
2741
2741
2742
- subroutine wrap_json_value_remove_if_present (json ,p ,name )
2742
+ subroutine wrap_json_value_remove_if_present (json ,p ,path )
2743
2743
2744
2744
implicit none
2745
2745
2746
2746
class(json_core),intent (inout ) :: json
2747
2747
type (json_value),pointer :: p
2748
- character (kind= CDK,len=* ),intent (in ) :: name
2748
+ character (kind= CDK,len=* ),intent (in ) :: path
2749
2749
2750
- call json% remove_if_present(p,to_unicode(name ))
2750
+ call json% remove_if_present(p,to_unicode(path ))
2751
2751
2752
2752
end subroutine wrap_json_value_remove_if_present
2753
2753
! *****************************************************************************************
0 commit comments