init_settings Subroutine

public subroutine init_settings(settings)

Arguments

Type IntentOptional Attributes Name
type(settings_type), intent(inout) :: settings

Called by

proc~~init_settings~~CalledByGraph proc~init_settings init_settings proc~w90_set_option_c2d w90_set_option_c2d proc~w90_set_option_c2d->proc~init_settings proc~w90_set_option_i1d w90_set_option_i1d proc~w90_set_option_i1d->proc~init_settings proc~w90_set_option_i2d w90_set_option_i2d proc~w90_set_option_i2d->proc~init_settings proc~w90_set_option_int w90_set_option_int proc~w90_set_option_int->proc~init_settings proc~w90_set_option_logical w90_set_option_logical proc~w90_set_option_logical->proc~init_settings proc~w90_set_option_r1d w90_set_option_r1d proc~w90_set_option_r1d->proc~init_settings proc~w90_set_option_r2d w90_set_option_r2d proc~w90_set_option_r2d->proc~init_settings proc~w90_set_option_real w90_set_option_real proc~w90_set_option_real->proc~init_settings proc~w90_set_option_text w90_set_option_text proc~w90_set_option_text->proc~init_settings interface~w90_set_option w90_set_option interface~w90_set_option->proc~w90_set_option_c2d interface~w90_set_option->proc~w90_set_option_i1d interface~w90_set_option->proc~w90_set_option_i2d interface~w90_set_option->proc~w90_set_option_int interface~w90_set_option->proc~w90_set_option_logical interface~w90_set_option->proc~w90_set_option_r1d interface~w90_set_option->proc~w90_set_option_r2d interface~w90_set_option->proc~w90_set_option_real 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 init_settings(settings)
    implicit none
    type(settings_type), intent(inout) :: settings
    integer, parameter :: defsize = 20 ! default size of settings array
    allocate (settings%entries(defsize))
    settings%num_entries = 0
    settings%num_entries_max = defsize
  end subroutine init_settings