idmutldfnselectormodule Module Reference

Functions/Subroutines
subroutine	set_param_pointer (input_dfn, input_dfn_target)
subroutine	set_block_pointer (input_dfn, input_dfn_target)
subroutine	set_subpkg_pointer (subpkg_list, subpkg_list_target)
type(inputparamdefinitiontype) function, dimension(:), pointer, public	utl_param_definitions (subcomponent)
type(inputparamdefinitiontype) function, dimension(:), pointer, public	utl_aggregate_definitions (subcomponent)
type(inputblockdefinitiontype) function, dimension(:), pointer, public	utl_block_definitions (subcomponent)
logical function, public	utl_idm_multi_package (subcomponent)
character(len=16) function, dimension(:), pointer, public	utl_idm_subpackages (subcomponent)
logical function, public	utl_idm_integrated (subcomponent)

Function/Subroutine Documentation

set_block_pointer()

subroutine idmutldfnselectormodule::set_block_pointer ( type(inputblockdefinitiontype), dimension(:), pointer  input_dfn, type(inputblockdefinitiontype), dimension(:), target  input_dfn_target  )

private

Definition at line 32 of file IdmUtlDfnSelector.f90.

    type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
    type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
    input_dfn => input_dfn_target

Here is the caller graph for this function:

set_param_pointer()

subroutine idmutldfnselectormodule::set_param_pointer ( type(inputparamdefinitiontype), dimension(:), pointer  input_dfn, type(inputparamdefinitiontype), dimension(:), target  input_dfn_target  )

private

Definition at line 26 of file IdmUtlDfnSelector.f90.

    type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
    type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
    input_dfn => input_dfn_target

Here is the caller graph for this function:

set_subpkg_pointer()

subroutine idmutldfnselectormodule::set_subpkg_pointer ( character(len=16), dimension(:), pointer  subpkg_list, character(len=16), dimension(:), target  subpkg_list_target  )

private

Definition at line 38 of file IdmUtlDfnSelector.f90.

    character(len=16), dimension(:), pointer :: subpkg_list
    character(len=16), dimension(:), target :: subpkg_list_target
    subpkg_list => subpkg_list_target

Here is the caller graph for this function:

utl_aggregate_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmutldfnselectormodule::utl_aggregate_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 66 of file IdmUtlDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    type(InputParamDefinitionType), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (subcomponent)
    case ('HPC')
      call set_param_pointer(input_definition, utl_hpc_aggregate_definitions)
    case ('NCF')
      call set_param_pointer(input_definition, utl_ncf_aggregate_definitions)
    case ('TVK')
      call set_param_pointer(input_definition, utl_tvk_aggregate_definitions)
    case ('TVS')
      call set_param_pointer(input_definition, utl_tvs_aggregate_definitions)
    case ('SPC')
      call set_param_pointer(input_definition, utl_spc_aggregate_definitions)
    case ('SPCA')
      call set_param_pointer(input_definition, utl_spca_aggregate_definitions)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

utl_block_definitions()

type(inputblockdefinitiontype) function, dimension(:), pointer, public idmutldfnselectormodule::utl_block_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 88 of file IdmUtlDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (subcomponent)
    case ('HPC')
      call set_block_pointer(input_definition, utl_hpc_block_definitions)
    case ('NCF')
      call set_block_pointer(input_definition, utl_ncf_block_definitions)
    case ('TVK')
      call set_block_pointer(input_definition, utl_tvk_block_definitions)
    case ('TVS')
      call set_block_pointer(input_definition, utl_tvs_block_definitions)
    case ('SPC')
      call set_block_pointer(input_definition, utl_spc_block_definitions)
    case ('SPCA')
      call set_block_pointer(input_definition, utl_spca_block_definitions)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

utl_idm_integrated()

logical function, public idmutldfnselectormodule::utl_idm_integrated

(

character(len=*), intent(in)

subcomponent

)

Definition at line 155 of file IdmUtlDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    logical :: integrated
    integrated = .false.
    select case (subcomponent)
    case ('HPC')
      integrated = .true.
    case ('NCF')
      integrated = .true.
    case ('TVK')
      integrated = .true.
    case ('TVS')
      integrated = .true.
    case ('SPC')
      integrated = .true.
    case ('SPCA')
      integrated = .true.
    case default
    end select
    return

Here is the caller graph for this function:

utl_idm_multi_package()

logical function, public idmutldfnselectormodule::utl_idm_multi_package

(

character(len=*), intent(in)

subcomponent

)

Definition at line 110 of file IdmUtlDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    logical :: multi_package
    select case (subcomponent)
    case ('HPC')
      multi_package = utl_hpc_multi_package
    case ('NCF')
      multi_package = utl_ncf_multi_package
    case ('TVK')
      multi_package = utl_tvk_multi_package
    case ('TVS')
      multi_package = utl_tvs_multi_package
    case ('SPC')
      multi_package = utl_spc_multi_package
    case ('SPCA')
      multi_package = utl_spca_multi_package
    case default
      call store_error('Idm selector subcomponent not found; '//&
                       &'component="UTL"'//&
                       &', subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

utl_idm_subpackages()

character(len=16) function, dimension(:), pointer, public idmutldfnselectormodule::utl_idm_subpackages

(

character(len=*), intent(in)

subcomponent

)

Definition at line 134 of file IdmUtlDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    character(len=16), dimension(:), pointer :: subpackages
    select case (subcomponent)
    case ('HPC')
      call set_subpkg_pointer(subpackages, utl_hpc_subpackages)
    case ('NCF')
      call set_subpkg_pointer(subpackages, utl_ncf_subpackages)
    case ('TVK')
      call set_subpkg_pointer(subpackages, utl_tvk_subpackages)
    case ('TVS')
      call set_subpkg_pointer(subpackages, utl_tvs_subpackages)
    case ('SPC')
      call set_subpkg_pointer(subpackages, utl_spc_subpackages)
    case ('SPCA')
      call set_subpkg_pointer(subpackages, utl_spca_subpackages)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

utl_param_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmutldfnselectormodule::utl_param_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 44 of file IdmUtlDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    type(InputParamDefinitionType), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (subcomponent)
    case ('HPC')
      call set_param_pointer(input_definition, utl_hpc_param_definitions)
    case ('NCF')
      call set_param_pointer(input_definition, utl_ncf_param_definitions)
    case ('TVK')
      call set_param_pointer(input_definition, utl_tvk_param_definitions)
    case ('TVS')
      call set_param_pointer(input_definition, utl_tvs_param_definitions)
    case ('SPC')
      call set_param_pointer(input_definition, utl_spc_param_definitions)
    case ('SPCA')
      call set_param_pointer(input_definition, utl_spca_param_definitions)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function: