47 lines
2.1 KiB
Fortran
47 lines
2.1 KiB
Fortran
BEGIN_PROVIDER [ character*(64), json_int_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_int_fmtx ]
|
|
&BEGIN_PROVIDER [ character*(64), json_real_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_real_fmtx ]
|
|
&BEGIN_PROVIDER [ character*(64), json_str_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_str_fmtx ]
|
|
&BEGIN_PROVIDER [ character*(64), json_true_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_true_fmtx ]
|
|
&BEGIN_PROVIDER [ character*(64), json_false_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_false_fmtx ]
|
|
&BEGIN_PROVIDER [ character*(64), json_array_open_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_array_uopen_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_array_close_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_array_close_uopen_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_array_close_fmtx ]
|
|
&BEGIN_PROVIDER [ character*(64), json_dict_open_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_dict_uopen_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_dict_close_uopen_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_dict_close_fmt ]
|
|
&BEGIN_PROVIDER [ character*(64), json_dict_close_fmtx ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Formats for JSON output.
|
|
! x: used to mark the last write (no comma)
|
|
END_DOC
|
|
json_int_fmt = '('' "'',A,''": '',I10,'','')'
|
|
json_int_fmtx = '('' "'',A,''": '',I10)'
|
|
json_real_fmt = '('' "'',A,''": '',E22.15,'','')'
|
|
json_real_fmtx = '('' "'',A,''": '',E22.15)'
|
|
json_str_fmt = '('' "'',A,''": "'',A,''",'')'
|
|
json_str_fmtx = '('' "'',A,''": "'',A,''"'')'
|
|
json_true_fmt = '('' "'',A,''": true,'')'
|
|
json_true_fmtx = '('' "'',A,''": true'')'
|
|
json_false_fmt = '('' "'',A,''": false,'')'
|
|
json_false_fmtx = '('' "'',A,''": false'')'
|
|
json_array_open_fmt = '('' "'',A,''": ['')'
|
|
json_array_uopen_fmt = '('' ['')'
|
|
json_array_close_fmt = '('' ],'')'
|
|
json_array_close_uopen_fmt = '('' ], ['')'
|
|
json_array_close_fmtx = '('' ]'')'
|
|
json_dict_open_fmt = '('' "'',A,''": {'')'
|
|
json_dict_uopen_fmt = '('' {'')'
|
|
json_dict_close_fmt = '('' },'')'
|
|
json_dict_close_uopen_fmt = '('' }, {'')'
|
|
json_dict_close_fmtx = '('' }'')'
|
|
END_PROVIDER
|