We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3789b3c commit 0c344a6Copy full SHA for 0c344a6
src/json_value_module.F90
@@ -143,13 +143,13 @@ module json_value_module
143
!### Usage
144
!````fortran
145
! program test
146
- ! use json_module
+ ! use json_module, wp=>json_RK
147
! implicit none
148
! type(json_core) :: json !<--have to declare this
149
! type(json_value),pointer :: p
150
! call json%create_object(p,'') !create the root
151
! call json%add(p,'year',1805) !add some data
152
- ! call json%add(p,'value',1.0_RK) !add some data
+ ! call json%add(p,'value',1.0_wp) !add some data
153
! call json%print(p,'test.json') !write it to a file
154
! call json%destroy(p) !cleanup
155
! end program test
0 commit comments