open_config_file Subroutine

private subroutine open_config_file(me, filename)

Open the file.

Type Bound

config_file

Arguments

Type IntentOptional Attributes Name
class(config_file), intent(inout) :: me
character(len=*), intent(in) :: filename

the name of the JSON file

Calls

proc~~open_config_file~~CallsGraph proc~open_config_file config_file%open_config_file failed failed proc~open_config_file->failed load load proc~open_config_file->load

Source Code

    subroutine open_config_file(me, filename)

    class(config_file),intent(inout) :: me
    character(len=*),intent(in) :: filename !! the name of the JSON file

    call me%json%load(filename=filename)
    if (me%json%failed()) error stop 'error reading json file '//trim(filename)

    end subroutine open_config_file