w90_set_option_i2d Subroutine

public subroutine w90_set_option_i2d(common_data, keyword, arr)

Uses

  • proc~~w90_set_option_i2d~~UsesGraph proc~w90_set_option_i2d w90_set_option_i2d module~w90_readwrite w90_readwrite proc~w90_set_option_i2d->module~w90_readwrite module~w90_comms w90_comms module~w90_readwrite->module~w90_comms module~w90_constants w90_constants module~w90_readwrite->module~w90_constants module~w90_types w90_types module~w90_readwrite->module~w90_types module~w90_comms->module~w90_constants module~w90_error_base w90_error_base module~w90_comms->module~w90_error_base module~w90_types->module~w90_constants

Arguments

Type IntentOptional Attributes Name
type(lib_common_type), intent(inout) :: common_data
character(len=*), intent(in) :: keyword
integer, intent(in) :: arr(:,:)

Calls

proc~~w90_set_option_i2d~~CallsGraph proc~w90_set_option_i2d w90_set_option_i2d proc~expand_settings expand_settings proc~w90_set_option_i2d->proc~expand_settings proc~init_settings init_settings proc~w90_set_option_i2d->proc~init_settings

Called by

proc~~w90_set_option_i2d~~CalledByGraph proc~w90_set_option_i2d w90_set_option_i2d interface~w90_set_option w90_set_option interface~w90_set_option->proc~w90_set_option_i2d proc~w90_set_option_double1d_f w90_set_option_double1d_f proc~w90_set_option_double1d_f->interface~w90_set_option proc~w90_set_option_double2d_f w90_set_option_double2d_f proc~w90_set_option_double2d_f->interface~w90_set_option proc~w90_set_option_double_f w90_set_option_double_f proc~w90_set_option_double_f->interface~w90_set_option proc~w90_set_option_int1d_f w90_set_option_int1d_f proc~w90_set_option_int1d_f->interface~w90_set_option proc~w90_set_option_int2d_f w90_set_option_int2d_f proc~w90_set_option_int2d_f->interface~w90_set_option proc~w90_set_option_int_f w90_set_option_int_f proc~w90_set_option_int_f->interface~w90_set_option proc~w90_set_option_logical_f w90_set_option_logical_f proc~w90_set_option_logical_f->interface~w90_set_option proc~w90_set_option_text2d_f w90_set_option_text2d_f proc~w90_set_option_text2d_f->interface~w90_set_option proc~w90_set_option_text_f w90_set_option_text_f proc~w90_set_option_text_f->interface~w90_set_option

Source Code

  subroutine w90_set_option_i2d(common_data, keyword, arr)
    use w90_readwrite, only: init_settings, expand_settings

    implicit none

    character(*), intent(in) :: keyword
    integer, intent(in) :: arr(:, :)
    type(lib_common_type), intent(inout) :: common_data
    integer :: i

    if (.not. allocated(common_data%settings%entries)) call init_settings(common_data%settings)
    i = common_data%settings%num_entries + 1
    common_data%settings%entries(i)%keyword = keyword
    common_data%settings%entries(i)%i2d = arr
    common_data%settings%num_entries = i
    if (common_data%settings%num_entries == common_data%settings%num_entries_max) then
      call expand_settings(common_data%settings)
    end if
  end subroutine w90_set_option_i2d