allocate_rank1_logical8 Subroutine

private subroutine allocate_rank1_logical8(array, length, bounds)

Arguments

Type IntentOptional Attributes Name
logical(kind=logical64), intent(inout), allocatable :: array(:)
integer(kind=int32), intent(in), optional :: length
integer(kind=int32), intent(in), optional :: bounds(:)

Calls

proc~~allocate_rank1_logical8~~CallsGraph proc~allocate_rank1_logical8 allocate_rank1_logical8 proc~error_message error_message proc~allocate_rank1_logical8->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~allocate_rank1_logical8~~CalledByGraph proc~allocate_rank1_logical8 allocate_rank1_logical8 interface~allocate_array allocate_array interface~allocate_array->proc~allocate_rank1_logical8 proc~apply_reordering type_domain%apply_reordering proc~apply_reordering->interface~allocate_array proc~build_csr_from_edges build_csr_from_edges proc~build_csr_from_edges->interface~allocate_array proc~build_node_adjacency_from_elements build_node_adjacency_from_elements proc~build_node_adjacency_from_elements->interface~allocate_array proc~initialize_node_adjacency type_node_adjacency%initialize_node_adjacency proc~build_node_adjacency_from_elements->proc~initialize_node_adjacency proc~cm_inverse_method cm_inverse_method proc~cm_inverse_method->interface~allocate_array proc~cm_reorder_method cm_reorder_method proc~cm_reorder_method->interface~allocate_array proc~cm_reorder_method->proc~build_node_adjacency_from_elements proc~execute_cm_ordering execute_cm_ordering proc~cm_reorder_method->proc~execute_cm_ordering proc~coloring_dsatur coloring_dsatur proc~coloring_dsatur->interface~allocate_array proc~get_neighbors_impl type_crs_adjacency_element%get_neighbors_impl proc~coloring_dsatur->proc~get_neighbors_impl proc~update_saturation update_saturation proc~coloring_dsatur->proc~update_saturation proc~coloring_lfo coloring_lfo proc~coloring_lfo->interface~allocate_array proc~coloring_lfo->proc~get_neighbors_impl proc~coloring_welsh_powell coloring_welsh_powell proc~coloring_welsh_powell->interface~allocate_array proc~find_smallest_available_color find_smallest_available_color proc~coloring_welsh_powell->proc~find_smallest_available_color proc~get_welsh_powell_order get_welsh_powell_order proc~coloring_welsh_powell->proc~get_welsh_powell_order proc~construct_side_first construct_side_first proc~construct_side_first->interface~allocate_array proc~construct_side_second construct_side_second proc~construct_side_second->interface~allocate_array proc~construct_square_first construct_square_first proc~construct_square_first->interface~allocate_array proc~construct_square_second construct_square_second proc~construct_square_second->interface~allocate_array proc~construct_triangle_first construct_triangle_first proc~construct_triangle_first->interface~allocate_array proc~construct_triangle_second construct_triangle_second proc~construct_triangle_second->interface~allocate_array proc~construct_type_hcf_base_bc Construct_Type_HCF_Base_BC proc~construct_type_hcf_base_bc->interface~allocate_array proc~construct_type_hcf_base_durner Construct_Type_HCF_Base_Durner proc~construct_type_hcf_base_durner->interface~allocate_array proc~construct_type_hcf_base_dvgch Construct_Type_HCF_Base_DVGCH proc~construct_type_hcf_base_dvgch->interface~allocate_array proc~construct_type_hcf_base_impedance_bc Construct_Type_HCF_Base_Impedance_BC proc~construct_type_hcf_base_impedance_bc->interface~allocate_array proc~construct_type_hcf_base_impedance_durner Construct_Type_HCF_Base_Impedance_Durner proc~construct_type_hcf_base_impedance_durner->interface~allocate_array proc~construct_type_hcf_base_impedance_dvgch Construct_Type_HCF_Base_Impedance_DVGCH proc~construct_type_hcf_base_impedance_dvgch->interface~allocate_array proc~construct_type_hcf_base_impedance_ko Construct_Type_HCF_Base_Impedance_KO proc~construct_type_hcf_base_impedance_ko->interface~allocate_array proc~construct_type_hcf_base_impedance_mvg Construct_Type_HCF_Base_Impedance_MVG proc~construct_type_hcf_base_impedance_mvg->interface~allocate_array proc~construct_type_hcf_base_impedance_vg Construct_Type_HCF_Base_Impedance_VG proc~construct_type_hcf_base_impedance_vg->interface~allocate_array proc~construct_type_hcf_base_impedance_viscosity_bc Construct_Type_HCF_Base_Impedance_Viscosity_BC proc~construct_type_hcf_base_impedance_viscosity_bc->interface~allocate_array proc~construct_type_hcf_base_impedance_viscosity_durner Construct_Type_HCF_Base_Impedance_Viscosity_Durner proc~construct_type_hcf_base_impedance_viscosity_durner->interface~allocate_array proc~construct_type_hcf_base_impedance_viscosity_dvgch Construct_Type_HCF_Base_Impedance_Viscosity_DVGCH proc~construct_type_hcf_base_impedance_viscosity_dvgch->interface~allocate_array proc~construct_type_hcf_base_impedance_viscosity_ko Construct_Type_HCF_Base_Impedance_Viscosity_KO proc~construct_type_hcf_base_impedance_viscosity_ko->interface~allocate_array proc~construct_type_hcf_base_impedance_viscosity_mvg Construct_Type_HCF_Base_Impedance_Viscosity_MVG proc~construct_type_hcf_base_impedance_viscosity_mvg->interface~allocate_array proc~construct_type_hcf_base_impedance_viscosity_vg Construct_Type_HCF_Base_Impedance_Viscosity_VG proc~construct_type_hcf_base_impedance_viscosity_vg->interface~allocate_array proc~construct_type_hcf_base_ko Construct_Type_HCF_Base_KO proc~construct_type_hcf_base_ko->interface~allocate_array proc~construct_type_hcf_base_mvg Construct_Type_HCF_Base_MVG proc~construct_type_hcf_base_mvg->interface~allocate_array proc~construct_type_hcf_base_vg Construct_Type_HCF_Base_VG proc~construct_type_hcf_base_vg->interface~allocate_array proc~construct_type_hcf_base_viscosity_bc Construct_Type_HCF_Base_Viscosity_BC proc~construct_type_hcf_base_viscosity_bc->interface~allocate_array proc~construct_type_hcf_base_viscosity_durner Construct_Type_HCF_Base_Viscosity_Durner proc~construct_type_hcf_base_viscosity_durner->interface~allocate_array proc~construct_type_hcf_base_viscosity_dvgch Construct_Type_HCF_Base_Viscosity_DVGCH proc~construct_type_hcf_base_viscosity_dvgch->interface~allocate_array proc~construct_type_hcf_base_viscosity_ko Construct_Type_HCF_Base_Viscosity_KO proc~construct_type_hcf_base_viscosity_ko->interface~allocate_array proc~construct_type_hcf_base_viscosity_mvg Construct_Type_HCF_Base_Viscosity_MVG proc~construct_type_hcf_base_viscosity_mvg->interface~allocate_array proc~construct_type_hcf_base_viscosity_vg Construct_Type_HCF_Base_Viscosity_VG proc~construct_type_hcf_base_viscosity_vg->interface~allocate_array proc~construct_type_hcf_impedance Construct_Type_HCF_Impedance proc~construct_type_hcf_impedance->interface~allocate_array proc~construct_type_hcf_impedance_viscosity Construct_Type_HCF_Impedance_Viscosity proc~construct_type_hcf_impedance_viscosity->interface~allocate_array proc~construct_type_hcf_viscosity Construct_Type_HCF_Viscosity proc~construct_type_hcf_viscosity->interface~allocate_array proc~construct_type_thermal_3phase_2d construct_type_thermal_3phase_2d proc~construct_type_thermal_3phase_2d->interface~allocate_array proc~initialize_type_crs type_crs%initialize_type_crs proc~construct_type_thermal_3phase_2d->proc~initialize_type_crs proc~copy_coo type_coo%copy_coo proc~copy_coo->interface~allocate_array proc~copy_crs type_crs%copy_crs proc~copy_crs->interface~allocate_array proc~copy_dense type_dense%copy_dense proc~copy_dense->interface~allocate_array proc~find_smallest_available_color->interface~allocate_array proc~find_smallest_available_color->proc~get_neighbors_impl proc~find_target_edges_by_group find_target_edges_by_group proc~find_target_edges_by_group->interface~allocate_array proc~generate_all_edges generate_all_edges proc~generate_all_edges->interface~allocate_array proc~get_neighbors_impl->interface~allocate_array proc~get_welsh_powell_order->interface~allocate_array proc~initialize_crs_adjacency type_crs_adjacency_element%initialize_crs_adjacency proc~initialize_crs_adjacency->interface~allocate_array proc~initialize_output_overall_vtk initialize_output_overall_vtk proc~initialize_output_overall_vtk->interface~allocate_array proc~type_dp_3d_initialize type_dp_3d%type_dp_3d_initialize proc~initialize_output_overall_vtk->proc~type_dp_3d_initialize proc~initialize_output_overall_vtu initialize_output_overall_vtu proc~initialize_output_overall_vtu->interface~allocate_array proc~initialize_output_overall_vtu->proc~type_dp_3d_initialize proc~initialize_type_bc_thermal_adiabatic initialize_type_bc_thermal_adiabatic proc~initialize_type_bc_thermal_adiabatic->interface~allocate_array interface~find_target_edges_by_group find_target_edges_by_group proc~initialize_type_bc_thermal_adiabatic->interface~find_target_edges_by_group proc~initialize_type_bc_thermal_dirichlet initialize_type_bc_thermal_dirichlet proc~initialize_type_bc_thermal_dirichlet->interface~allocate_array proc~initialize_type_bc_thermal_dirichlet->interface~find_target_edges_by_group proc~initialize_type_coo type_coo%initialize_type_coo proc~initialize_type_coo->interface~allocate_array interface~unique unique proc~initialize_type_coo->interface~unique proc~initialize_type_crs->interface~allocate_array proc~initialize_type_crs->proc~initialize_type_coo proc~initialize_type_dense type_dense%initialize_type_dense proc~initialize_type_dense->interface~allocate_array proc~initialize_type_time type_time%initialize_type_time proc~initialize_type_time->interface~allocate_array proc~output_overall_vtk_fields output_overall_vtk_fields proc~output_overall_vtk_fields->interface~allocate_array proc~output_overall_vtu_fields output_overall_vtu_fields proc~output_overall_vtu_fields->interface~allocate_array proc~rcm_inverse_method rcm_inverse_method proc~rcm_inverse_method->interface~allocate_array proc~rcm_reorder_method rcm_reorder_method proc~rcm_reorder_method->interface~allocate_array proc~rcm_reorder_method->proc~build_node_adjacency_from_elements proc~rcm_reorder_method->proc~execute_cm_ordering proc~read_parameters_materials_thermal read_parameters_materials_thermal proc~read_parameters_materials_thermal->interface~allocate_array proc~sort_and_enqueue_neighbors sort_and_enqueue_neighbors proc~sort_and_enqueue_neighbors->interface~allocate_array proc~type_dp_2d_initialize type_dp_2d%type_dp_2d_initialize proc~type_dp_2d_initialize->interface~allocate_array proc~type_dp_3d_initialize->interface~allocate_array proc~type_int_2d_initialize type_int_2d_initialize proc~type_int_2d_initialize->interface~allocate_array proc~type_int_3d_initialize type_int_3d_initialize proc~type_int_3d_initialize->interface~allocate_array proc~type_variable_initialize type_variable%type_variable_initialize proc~type_variable_initialize->interface~allocate_array proc~type_vtk_vtk_initialize type_vtk%type_vtk_vtk_initialize proc~type_vtk_vtk_initialize->interface~allocate_array proc~type_vtk_vtk_initialize->proc~type_dp_3d_initialize proc~type_vtk_vtu_initialize type_vtk%type_vtk_vtu_initialize proc~type_vtk_vtu_initialize->interface~allocate_array proc~type_vtk_vtu_initialize->proc~type_dp_3d_initialize proc~unique_int16 unique_int16 proc~unique_int16->interface~allocate_array proc~unique_int32 unique_int32 proc~unique_int32->interface~allocate_array proc~unique_int64 unique_int64 proc~unique_int64->interface~allocate_array proc~unique_int8 unique_int8 proc~unique_int8->interface~allocate_array interface~cm_inverse_method type_reordering%cm_inverse_method interface~cm_inverse_method->proc~cm_inverse_method interface~cm_reorder_method type_reordering%cm_reorder_method interface~cm_reorder_method->proc~cm_reorder_method interface~coloring_dsatur type_coloring%coloring_dsatur interface~coloring_dsatur->proc~coloring_dsatur interface~coloring_lfo type_coloring%coloring_lfo interface~coloring_lfo->proc~coloring_lfo interface~coloring_welsh_powell type_coloring%coloring_welsh_powell interface~coloring_welsh_powell->proc~coloring_welsh_powell interface~construct_side_first construct_side_first interface~construct_side_first->proc~construct_side_first interface~construct_side_second construct_side_second interface~construct_side_second->proc~construct_side_second interface~construct_square_first construct_square_first interface~construct_square_first->proc~construct_square_first interface~construct_square_second construct_square_second interface~construct_square_second->proc~construct_square_second interface~construct_triangle_first construct_triangle_first interface~construct_triangle_first->proc~construct_triangle_first interface~construct_triangle_second construct_triangle_second interface~construct_triangle_second->proc~construct_triangle_second interface~construct_type_hcf_base_bc Construct_Type_HCF_Base_BC interface~construct_type_hcf_base_bc->proc~construct_type_hcf_base_bc interface~construct_type_hcf_base_durner Construct_Type_HCF_Base_Durner interface~construct_type_hcf_base_durner->proc~construct_type_hcf_base_durner interface~construct_type_hcf_base_dvgch Construct_Type_HCF_Base_DVGCH interface~construct_type_hcf_base_dvgch->proc~construct_type_hcf_base_dvgch interface~construct_type_hcf_base_impedance_bc Construct_Type_HCF_Base_Impedance_BC interface~construct_type_hcf_base_impedance_bc->proc~construct_type_hcf_base_impedance_bc interface~construct_type_hcf_base_impedance_durner Construct_Type_HCF_Base_Impedance_Durner interface~construct_type_hcf_base_impedance_durner->proc~construct_type_hcf_base_impedance_durner interface~construct_type_hcf_base_impedance_dvgch Construct_Type_HCF_Base_Impedance_DVGCH interface~construct_type_hcf_base_impedance_dvgch->proc~construct_type_hcf_base_impedance_dvgch interface~construct_type_hcf_base_impedance_ko Construct_Type_HCF_Base_Impedance_KO interface~construct_type_hcf_base_impedance_ko->proc~construct_type_hcf_base_impedance_ko interface~construct_type_hcf_base_impedance_mvg Construct_Type_HCF_Base_Impedance_MVG interface~construct_type_hcf_base_impedance_mvg->proc~construct_type_hcf_base_impedance_mvg interface~construct_type_hcf_base_impedance_vg Construct_Type_HCF_Base_Impedance_VG interface~construct_type_hcf_base_impedance_vg->proc~construct_type_hcf_base_impedance_vg interface~construct_type_hcf_base_impedance_viscosity_bc Construct_Type_HCF_Base_Impedance_Viscosity_BC interface~construct_type_hcf_base_impedance_viscosity_bc->proc~construct_type_hcf_base_impedance_viscosity_bc interface~construct_type_hcf_base_impedance_viscosity_durner Construct_Type_HCF_Base_Impedance_Viscosity_Durner interface~construct_type_hcf_base_impedance_viscosity_durner->proc~construct_type_hcf_base_impedance_viscosity_durner interface~construct_type_hcf_base_impedance_viscosity_dvgch Construct_Type_HCF_Base_Impedance_Viscosity_DVGCH interface~construct_type_hcf_base_impedance_viscosity_dvgch->proc~construct_type_hcf_base_impedance_viscosity_dvgch interface~construct_type_hcf_base_impedance_viscosity_ko Construct_Type_HCF_Base_Impedance_Viscosity_KO interface~construct_type_hcf_base_impedance_viscosity_ko->proc~construct_type_hcf_base_impedance_viscosity_ko interface~construct_type_hcf_base_impedance_viscosity_mvg Construct_Type_HCF_Base_Impedance_Viscosity_MVG interface~construct_type_hcf_base_impedance_viscosity_mvg->proc~construct_type_hcf_base_impedance_viscosity_mvg interface~construct_type_hcf_base_impedance_viscosity_vg Construct_Type_HCF_Base_Impedance_Viscosity_VG interface~construct_type_hcf_base_impedance_viscosity_vg->proc~construct_type_hcf_base_impedance_viscosity_vg interface~construct_type_hcf_base_ko Construct_Type_HCF_Base_KO interface~construct_type_hcf_base_ko->proc~construct_type_hcf_base_ko interface~construct_type_hcf_base_mvg Construct_Type_HCF_Base_MVG interface~construct_type_hcf_base_mvg->proc~construct_type_hcf_base_mvg interface~construct_type_hcf_base_vg Construct_Type_HCF_Base_VG interface~construct_type_hcf_base_vg->proc~construct_type_hcf_base_vg interface~construct_type_hcf_base_viscosity_bc Construct_Type_HCF_Base_Viscosity_BC interface~construct_type_hcf_base_viscosity_bc->proc~construct_type_hcf_base_viscosity_bc interface~construct_type_hcf_base_viscosity_durner Construct_Type_HCF_Base_Viscosity_Durner interface~construct_type_hcf_base_viscosity_durner->proc~construct_type_hcf_base_viscosity_durner interface~construct_type_hcf_base_viscosity_dvgch Construct_Type_HCF_Base_Viscosity_DVGCH interface~construct_type_hcf_base_viscosity_dvgch->proc~construct_type_hcf_base_viscosity_dvgch interface~construct_type_hcf_base_viscosity_ko Construct_Type_HCF_Base_Viscosity_KO interface~construct_type_hcf_base_viscosity_ko->proc~construct_type_hcf_base_viscosity_ko interface~construct_type_hcf_base_viscosity_mvg Construct_Type_HCF_Base_Viscosity_MVG interface~construct_type_hcf_base_viscosity_mvg->proc~construct_type_hcf_base_viscosity_mvg interface~construct_type_hcf_base_viscosity_vg Construct_Type_HCF_Base_Viscosity_VG interface~construct_type_hcf_base_viscosity_vg->proc~construct_type_hcf_base_viscosity_vg interface~construct_type_hcf_impedance Construct_Type_HCF_Impedance interface~construct_type_hcf_impedance->proc~construct_type_hcf_impedance interface~construct_type_hcf_impedance_viscosity Construct_Type_HCF_Impedance_Viscosity interface~construct_type_hcf_impedance_viscosity->proc~construct_type_hcf_impedance_viscosity interface~construct_type_hcf_viscosity Construct_Type_HCF_Viscosity interface~construct_type_hcf_viscosity->proc~construct_type_hcf_viscosity interface~construct_type_thermal_3phase_2d construct_type_thermal_3phase_2d interface~construct_type_thermal_3phase_2d->proc~construct_type_thermal_3phase_2d interface~find_target_edges_by_group->proc~find_target_edges_by_group interface~initialize_output_overall_vtk type_output_overall%initialize_output_overall_vtk interface~initialize_output_overall_vtk->proc~initialize_output_overall_vtk interface~initialize_output_overall_vtu type_output_overall%initialize_output_overall_vtu interface~initialize_output_overall_vtu->proc~initialize_output_overall_vtu interface~initialize_type_bc_thermal_adiabatic type_bc_thermal_adiabatic%initialize_type_bc_thermal_adiabatic interface~initialize_type_bc_thermal_adiabatic->proc~initialize_type_bc_thermal_adiabatic interface~initialize_type_bc_thermal_dirichlet type_bc_thermal_dirichlet%initialize_type_bc_thermal_dirichlet interface~initialize_type_bc_thermal_dirichlet->proc~initialize_type_bc_thermal_dirichlet interface~rcm_inverse_method type_reordering%rcm_inverse_method interface~rcm_inverse_method->proc~rcm_inverse_method interface~rcm_reorder_method type_reordering%rcm_reorder_method interface~rcm_reorder_method->proc~rcm_reorder_method interface~unique->proc~unique_int16 interface~unique->proc~unique_int32 interface~unique->proc~unique_int64 interface~unique->proc~unique_int8 proc~execute_cm_ordering->proc~sort_and_enqueue_neighbors proc~initialize_node_adjacency->proc~build_csr_from_edges proc~initialize_node_adjacency->proc~generate_all_edges proc~initialize_type_domain type_domain%initialize_type_domain proc~initialize_type_domain->proc~apply_reordering proc~initialize_type_domain->proc~initialize_crs_adjacency proc~initialize_type_ftdss type_ftdss%initialize_type_ftdss proc~initialize_type_ftdss->proc~initialize_type_time proc~initialize_type_output_observation initialize_type_output_observation proc~initialize_type_output_observation->proc~type_dp_3d_initialize proc~inout_read_geometry inout_read_geometry proc~inout_read_geometry->proc~type_vtk_vtk_initialize proc~inout_read_geometry->proc~type_vtk_vtu_initialize proc~read_parameters_materials read_parameters_materials proc~read_parameters_materials->proc~read_parameters_materials_thermal proc~update_saturation->proc~get_neighbors_impl interface~initialize_type_output_observation type_output_observation%initialize_type_output_observation interface~initialize_type_output_observation->proc~initialize_type_output_observation interface~inout_read_geometry type_input%inout_read_geometry interface~inout_read_geometry->proc~inout_read_geometry interface~type_hcf_base_bc Type_HCF_Base_BC interface~type_hcf_base_bc->interface~construct_type_hcf_base_bc interface~type_hcf_base_durner Type_HCF_Base_Durner interface~type_hcf_base_durner->interface~construct_type_hcf_base_durner interface~type_hcf_base_dvgch Type_HCF_Base_DVGCH interface~type_hcf_base_dvgch->interface~construct_type_hcf_base_dvgch interface~type_hcf_base_impedance_bc Type_HCF_Base_Impedance_BC interface~type_hcf_base_impedance_bc->interface~construct_type_hcf_base_impedance_bc interface~type_hcf_base_impedance_durner Type_HCF_Base_Impedance_Durner interface~type_hcf_base_impedance_durner->interface~construct_type_hcf_base_impedance_durner interface~type_hcf_base_impedance_dvgch Type_HCF_Base_Impedance_DVGCH interface~type_hcf_base_impedance_dvgch->interface~construct_type_hcf_base_impedance_dvgch interface~type_hcf_base_impedance_ko Type_HCF_Base_Impedance_KO interface~type_hcf_base_impedance_ko->interface~construct_type_hcf_base_impedance_ko interface~type_hcf_base_impedance_mvg Type_HCF_Base_Impedance_MVG interface~type_hcf_base_impedance_mvg->interface~construct_type_hcf_base_impedance_mvg interface~type_hcf_base_impedance_vg Type_HCF_Base_Impedance_VG interface~type_hcf_base_impedance_vg->interface~construct_type_hcf_base_impedance_vg interface~type_hcf_base_impedance_viscosity_bc Type_HCF_Base_Impedance_Viscosity_BC interface~type_hcf_base_impedance_viscosity_bc->interface~construct_type_hcf_base_impedance_viscosity_bc interface~type_hcf_base_impedance_viscosity_durner Type_HCF_Base_Impedance_Viscosity_Durner interface~type_hcf_base_impedance_viscosity_durner->interface~construct_type_hcf_base_impedance_viscosity_durner interface~type_hcf_base_impedance_viscosity_dvgch Type_HCF_Base_Impedance_Viscosity_DVGCH interface~type_hcf_base_impedance_viscosity_dvgch->interface~construct_type_hcf_base_impedance_viscosity_dvgch interface~type_hcf_base_impedance_viscosity_ko Type_HCF_Base_Impedance_Viscosity_KO interface~type_hcf_base_impedance_viscosity_ko->interface~construct_type_hcf_base_impedance_viscosity_ko interface~type_hcf_base_impedance_viscosity_mvg Type_HCF_Base_Impedance_Viscosity_MVG interface~type_hcf_base_impedance_viscosity_mvg->interface~construct_type_hcf_base_impedance_viscosity_mvg interface~type_hcf_base_impedance_viscosity_vg Type_HCF_Base_Impedance_Viscosity_VG interface~type_hcf_base_impedance_viscosity_vg->interface~construct_type_hcf_base_impedance_viscosity_vg interface~type_hcf_base_ko Type_HCF_Base_KO interface~type_hcf_base_ko->interface~construct_type_hcf_base_ko interface~type_hcf_base_mvg Type_HCF_Base_MVG interface~type_hcf_base_mvg->interface~construct_type_hcf_base_mvg interface~type_hcf_base_vg Type_HCF_Base_VG interface~type_hcf_base_vg->interface~construct_type_hcf_base_vg interface~type_hcf_base_viscosity_bc Type_HCF_Base_Viscosity_BC interface~type_hcf_base_viscosity_bc->interface~construct_type_hcf_base_viscosity_bc interface~type_hcf_base_viscosity_durner Type_HCF_Base_Viscosity_Durner interface~type_hcf_base_viscosity_durner->interface~construct_type_hcf_base_viscosity_durner interface~type_hcf_base_viscosity_dvgch Type_HCF_Base_Viscosity_DVGCH interface~type_hcf_base_viscosity_dvgch->interface~construct_type_hcf_base_viscosity_dvgch interface~type_hcf_base_viscosity_ko Type_HCF_Base_Viscosity_KO interface~type_hcf_base_viscosity_ko->interface~construct_type_hcf_base_viscosity_ko interface~type_hcf_base_viscosity_mvg Type_HCF_Base_Viscosity_MVG interface~type_hcf_base_viscosity_mvg->interface~construct_type_hcf_base_viscosity_mvg interface~type_hcf_base_viscosity_vg Type_HCF_Base_Viscosity_VG interface~type_hcf_base_viscosity_vg->interface~construct_type_hcf_base_viscosity_vg interface~type_hcf_impedance Type_HCF_Impedance interface~type_hcf_impedance->interface~construct_type_hcf_impedance interface~type_hcf_impedance_viscosity Type_HCF_Impedance_Viscosity interface~type_hcf_impedance_viscosity->interface~construct_type_hcf_impedance_viscosity interface~type_hcf_viscosity Type_HCF_Viscosity interface~type_hcf_viscosity->interface~construct_type_hcf_viscosity interface~type_side_first type_side_first interface~type_side_first->interface~construct_side_first interface~type_side_second type_side_second interface~type_side_second->interface~construct_side_second interface~type_square_first type_square_first interface~type_square_first->interface~construct_square_first interface~type_square_second type_square_second interface~type_square_second->interface~construct_square_second interface~type_thermal_3phase_2d type_thermal_3phase_2d interface~type_thermal_3phase_2d->interface~construct_type_thermal_3phase_2d interface~type_triangle_first type_triangle_first interface~type_triangle_first->interface~construct_triangle_first interface~type_triangle_second type_triangle_second interface~type_triangle_second->interface~construct_triangle_second proc~get_active_region_info type_vtk%get_active_region_info proc~get_active_region_info->interface~unique proc~initialize_input_type_output_overall initialize_input_type_output_overall proc~initialize_input_type_output_overall->interface~initialize_output_overall_vtk proc~initialize_input_type_output_overall->interface~initialize_output_overall_vtu proc~initialize_type_coloring type_coloring%initialize_type_coloring proc~initialize_type_coloring->interface~coloring_dsatur proc~initialize_type_coloring->interface~coloring_lfo proc~initialize_type_coloring->interface~coloring_welsh_powell proc~initialize_type_reordering type_reordering%initialize_type_reordering proc~initialize_type_reordering->interface~cm_inverse_method proc~initialize_type_reordering->interface~cm_reorder_method proc~initialize_type_reordering->interface~rcm_inverse_method proc~initialize_type_reordering->interface~rcm_reorder_method proc~inout_read_basic_parameters inout_read_basic_parameters proc~inout_read_basic_parameters->proc~read_parameters_materials interface~initialize_input_type_output_overall type_output_overall%initialize_input_type_output_overall interface~initialize_input_type_output_overall->proc~initialize_input_type_output_overall interface~inout_read_basic_parameters type_input%inout_read_basic_parameters interface~inout_read_basic_parameters->proc~inout_read_basic_parameters proc~initialize type_material_manager%initialize proc~initialize->proc~get_active_region_info proc~initialize_type_input type_input%initialize_type_input proc~initialize_type_input->interface~inout_read_geometry proc~initialize_type_input->interface~inout_read_basic_parameters proc~initialize_type_output type_output%initialize_type_output proc~initialize_type_output->interface~initialize_type_output_observation proc~type_proereties_manager_initialize type_proereties_manager%type_proereties_manager_initialize proc~type_proereties_manager_initialize->proc~initialize

Source Code

    subroutine allocate_rank1_logical8(array, length, bounds)
        implicit none
        logical(logical64), intent(inout), allocatable :: array(:)
        integer(int32), intent(in), optional :: length
        integer(int32), intent(in), optional :: bounds(:)
        integer(int32) :: stat
        logical(logical32) :: length_present, bounds_present
        integer(int64) :: requested_size
        integer(int32) :: first, last

        length_present = present(length)
        bounds_present = present(bounds)

        ! --- Argument validation ---
        if (length_present .and. bounds_present) call error_message(956)
        if (.not. length_present .and. .not. bounds_present) call error_message(957)
        if (bounds_present) then
            if (size(bounds) /= 2) call error_message(958)
        end if

        ! --- Main logic ---
        if (allocated(array)) call error_message(951)

        if (length_present) then
            ! Allocate by length
            if (length <= 0) call error_message(952)
            if (int(length, kind=int64) > huge(0_int32)) call error_message(953)
            allocate (array(length), stat=stat)

        else if (bounds_present) then
            ! Allocate by bounds
            first = bounds(1)
            last = bounds(2)

            if (first > last) call error_message(954)

            requested_size = int(last, kind=int64) - int(first, kind=int64) + 1_int64
            if (requested_size > huge(0_int64) / 4) call error_message(953)
            allocate (array(first:last), stat=stat)
        end if

        if (stat /= 0) call error_message(955)

    end subroutine allocate_rank1_logical8