w90_set_option_text Subroutine

public subroutine w90_set_option_text(common_data, keyword, text)

Uses

  • proc~~w90_set_option_text~~UsesGraph proc~w90_set_option_text w90_set_option_text module~w90_readwrite w90_readwrite proc~w90_set_option_text->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
character(len=*), intent(in) :: text

Calls

proc~~w90_set_option_text~~CallsGraph proc~w90_set_option_text w90_set_option_text proc~expand_settings expand_settings proc~w90_set_option_text->proc~expand_settings proc~init_settings init_settings proc~w90_set_option_text->proc~init_settings

Called by

proc~~w90_set_option_text~~CalledByGraph proc~w90_set_option_text w90_set_option_text interface~w90_set_option w90_set_option interface~w90_set_option->proc~w90_set_option_text 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_text(common_data, keyword, text)
    use w90_readwrite, only: init_settings, expand_settings

    implicit none

    character(*), intent(in) :: keyword, text
    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)%txtdata = text
    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_text