Skip to content

Commit 9d69453

Browse files
committed
added missing arguments to some of the wrapper routines. Fixes #347
1 parent dcf8539 commit 9d69453

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/json_value_module.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3743,7 +3743,7 @@ subroutine json_add_string_by_path_path_ascii(json,me,path,value,found,&
37433743
logical(LK),intent(in),optional :: trim_str !! if TRIM() should be called for each element
37443744
logical(LK),intent(in),optional :: adjustl_str !! if ADJUSTL() should be called for each element
37453745

3746-
call json%json_add_string_by_path(me,to_unicode(path),value,found,was_created)
3746+
call json%json_add_string_by_path(me,to_unicode(path),value,found,was_created,trim_str,adjustl_str)
37473747

37483748
end subroutine json_add_string_by_path_path_ascii
37493749
!*****************************************************************************************
@@ -3766,7 +3766,7 @@ subroutine json_add_string_by_path_value_ascii(json,me,path,value,found,&
37663766
logical(LK),intent(in),optional :: trim_str !! if TRIM() should be called for each element
37673767
logical(LK),intent(in),optional :: adjustl_str !! if ADJUSTL() should be called for each element
37683768

3769-
call json%json_add_string_by_path(me,path,to_unicode(value),found,was_created)
3769+
call json%json_add_string_by_path(me,path,to_unicode(value),found,was_created,trim_str,adjustl_str)
37703770

37713771
end subroutine json_add_string_by_path_value_ascii
37723772
!*****************************************************************************************
@@ -4133,7 +4133,7 @@ subroutine json_add_string_vec_by_path_path_ascii(json,me,path,value,&
41334133
logical(LK),intent(in),optional :: adjustl_str !! if ADJUSTL() should be called for each element
41344134

41354135
call json%json_add_string_vec_by_path(me,to_unicode(path),value,&
4136-
found,was_created,ilen)
4136+
found,was_created,ilen,trim_str,adjustl_str)
41374137

41384138
end subroutine json_add_string_vec_by_path_path_ascii
41394139
!*****************************************************************************************

0 commit comments

Comments
 (0)