jf_test_1_mod Module

  1. jf_test_1.f90
  2. jf_test_1_mod
module~~jf_test_1_mod~~UsesGraph module~jf_test_1_mod jf_test_1_mod iso_fortran_env iso_fortran_env iso_fortran_env->module~jf_test_1_mod module~json_file_module json_file_module iso_fortran_env->module~json_file_module module~json_value_module json_value_module iso_fortran_env->module~json_value_module module~json_kinds json_kinds iso_fortran_env->module~json_kinds module~json_module json_module module~json_module->module~jf_test_1_mod module~json_file_module->module~json_module module~json_value_module->module~json_module module~json_value_module->module~json_file_module module~json_kinds->module~json_module module~json_kinds->module~json_file_module module~json_kinds->module~json_value_module module~json_parameters json_parameters module~json_kinds->module~json_parameters module~json_string_utilities json_string_utilities module~json_kinds->module~json_string_utilities module~json_parameters->module~json_module module~json_parameters->module~json_file_module module~json_parameters->module~json_value_module module~json_parameters->module~json_string_utilities module~json_string_utilities->module~json_file_module module~json_string_utilities->module~json_value_module
Help

Module for the first unit test.

HISTORY

  • Izaak Beekman : 2/18/2015 : Created (refactoried original json_example.f90 file)

Used By

module~~jf_test_1_mod~~UsedByGraph module~jf_test_1_mod jf_test_1_mod program~jf_test_1 jf_test_1 module~jf_test_1_mod->program~jf_test_1
Help

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
character(len=*), public, parameter:: dir ='../files/inputs/'

working directory
character(len=*), public, parameter:: filename1 ='test1.json'

file to read
logical, public :: namelist_style

for printing JSON variable paths

Subroutines

public subroutine print_json_variable(json, p, finished)

A traverse routine for printing out all the variables in a JSON structure.

Arguments

Type IntentOptional AttributesName
class(json_core), intent(inout) :: json
type(json_value), intent(in), pointer:: p
logical(kind=json_LK), intent(out) :: finished

set true to stop traversing

public subroutine test_1(error_cnt)

Read a sample JSON file and retrieve some data from it

Arguments

Type IntentOptional AttributesName
integer, intent(out) :: error_cnt

All Modules