CFG_check Subroutine

public subroutine CFG_check(cfg)

Arguments

Type IntentOptional Attributes Name
type(CFG_t), intent(in) :: cfg

Calls

proc~~cfg_check~~CallsGraph proc~cfg_check CFG_check proc~handle_error handle_error proc~cfg_check->proc~handle_error

Called by

proc~~cfg_check~~CalledByGraph proc~cfg_check CFG_check proc~cfg_write CFG_write proc~cfg_write->proc~cfg_check proc~cfg_write_markdown CFG_write_markdown proc~cfg_write_markdown->proc~cfg_check

Source Code

  subroutine CFG_check(cfg)
    type(CFG_t), intent(in)       :: cfg
    integer                       :: n
    character(len=CFG_string_len) :: err_string

    do n = 1, cfg%num_vars
       if (cfg%vars(n)%var_type == CFG_unknown_type) then
          write(err_string, *) "CFG_check: unknown variable ",&
              trim(cfg%vars(n)%var_name), " in a config file"
          call handle_error(err_string)
       end if
    end do
  end subroutine CFG_check