@@ -22,15 +22,15 @@ module json_module
22
22
! JSON-FORTRAN: A Fortran 2008 JSON API
23
23
!
24
24
! http://github.com/jacobwilliams/json-fortran
25
- !
25
+ !
26
26
! Copyright (c) 2014, Jacob Williams
27
27
!
28
28
! All rights reserved.
29
- !
29
+ !
30
30
! Redistribution and use in source and binary forms, with or without modification,
31
31
! are permitted provided that the following conditions are met:
32
32
! * Redistributions of source code must retain the above copyright notice, this
33
- ! list of conditions and the following disclaimer.
33
+ ! list of conditions and the following disclaimer.
34
34
! * Redistributions in binary form must reproduce the above copyright notice, this
35
35
! list of conditions and the following disclaimer in the documentation and/or
36
36
! other materials provided with the distribution.
@@ -50,18 +50,18 @@ module json_module
50
50
! Original FSON License:
51
51
!
52
52
! http://github.com/josephalevin/fson
53
- !
53
+ !
54
54
! Copyright (c) 2012 Joseph A. Levin
55
- !
55
+ !
56
56
! Permission is hereby granted, free of charge, to any person obtaining a copy of this
57
57
! software and associated documentation files (the "Software"), to deal in the Software
58
58
! without restriction, including without limitation the rights to use, copy, modify, merge,
59
59
! publish, distribute, sublicense, and/or sell copies of the Software, and to permit
60
60
! persons to whom the Software is furnished to do so, subject to the following conditions:
61
- !
61
+ !
62
62
! The above copyright notice and this permission notice shall be included in all copies or
63
63
! substantial portions of the Software.
64
- !
64
+ !
65
65
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
66
66
! INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
67
67
! PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
@@ -528,7 +528,7 @@ end subroutine array_callback_func
528
528
! end subroutine example1
529
529
!
530
530
! Note: it should NOT be called for a json_value pointer than has already been
531
- ! added to another json_value structure, since doing so may render the
531
+ ! added to another json_value structure, since doing so may render the
532
532
! other structure invalid. Consider the following example:
533
533
! subroutine example2(p)
534
534
! type(json_value),pointer,intent(out) :: p
@@ -538,7 +538,7 @@ end subroutine array_callback_func
538
538
! call json_create_object(q,'q')
539
539
! call json_add(q,'val',1)
540
540
! call json_add(p, q) !add q to p structure
541
- ! ! do NOT call json_destroy(q) here, because q is
541
+ ! ! do NOT call json_destroy(q) here, because q is
542
542
! ! now part of the output structure p. p should be destroyed
543
543
! ! somewhere upstream by the caller of this routine.
544
544
! nullify(q) !OK, but not strictly necessary
@@ -1566,7 +1566,7 @@ end subroutine json_value_create
1566
1566
!
1567
1567
! AUTHOR
1568
1568
! Jacob Williams : 1/22/2014 : The original version of this
1569
- ! routine was not properly freeing the memory.
1569
+ ! routine was not properly freeing the memory.
1570
1570
! It has been rewritten.
1571
1571
!
1572
1572
! SOURCE
@@ -4088,7 +4088,7 @@ end subroutine json_get_array
4088
4088
!
4089
4089
! INPUTS
4090
4090
! The inputs can be:
4091
- ! * file and unit : the specified unit is used to read JSON from file.
4091
+ ! * file and unit : the specified unit is used to read JSON from file.
4092
4092
! [note if unit is already open, then the filename is ignored]
4093
4093
! * file : JSON is read from file using internal unit number
4094
4094
! * str : JSON data is read from the string instead
@@ -5541,7 +5541,7 @@ end subroutine real_to_string
5541
5541
! compact_real_string
5542
5542
!
5543
5543
! DESCRIPTION
5544
- ! Compact a string representing a real number, so that
5544
+ ! Compact a string representing a real number, so that
5545
5545
! the same value is displayed with fewer characters.
5546
5546
!
5547
5547
! SEE ALSO
@@ -5714,4 +5714,4 @@ end subroutine json_print_error_message
5714
5714
5715
5715
! *****************************************************************************************
5716
5716
end module json_module
5717
- ! *****************************************************************************************
5717
+ ! *****************************************************************************************
0 commit comments