deallocate_rank1_logical4 Subroutine

private subroutine deallocate_rank1_logical4(array)

Arguments

Type IntentOptional Attributes Name
logical(kind=logical32), intent(inout), allocatable :: array(:)

Calls

proc~~deallocate_rank1_logical4~~CallsGraph proc~deallocate_rank1_logical4 deallocate_rank1_logical4 proc~error_message error_message proc~deallocate_rank1_logical4->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~deallocate_rank1_logical4~~CalledByGraph proc~deallocate_rank1_logical4 deallocate_rank1_logical4 interface~deallocate_array deallocate_array interface~deallocate_array->proc~deallocate_rank1_logical4 proc~build_csr_from_edges build_csr_from_edges proc~build_csr_from_edges->interface~deallocate_array proc~build_node_adjacency_from_elements build_node_adjacency_from_elements proc~build_node_adjacency_from_elements->interface~deallocate_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~deallocate_array proc~cm_reorder_method cm_reorder_method proc~cm_reorder_method->interface~deallocate_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~deallocate_array proc~update_saturation update_saturation proc~coloring_dsatur->proc~update_saturation proc~coloring_lfo coloring_lfo proc~coloring_lfo->interface~deallocate_array proc~coloring_welsh_powell coloring_welsh_powell proc~coloring_welsh_powell->interface~deallocate_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~destory_coo type_coo%destory_coo proc~destory_coo->interface~deallocate_array proc~destory_crs type_crs%destory_crs proc~destory_crs->interface~deallocate_array proc~destroy_node_adjacency type_node_adjacency%destroy_node_adjacency proc~destroy_node_adjacency->interface~deallocate_array proc~finalize_type_reordering finalize_type_reordering proc~finalize_type_reordering->interface~deallocate_array proc~find_smallest_available_color->interface~deallocate_array proc~get_welsh_powell_order->interface~deallocate_array proc~initialize_crs_adjacency type_crs_adjacency_element%initialize_crs_adjacency proc~initialize_crs_adjacency->interface~deallocate_array proc~initialize_node_adjacency->interface~deallocate_array proc~initialize_node_adjacency->proc~build_csr_from_edges proc~initialize_type_bc_thermal_adiabatic initialize_type_bc_thermal_adiabatic proc~initialize_type_bc_thermal_adiabatic->interface~deallocate_array proc~initialize_type_bc_thermal_dirichlet initialize_type_bc_thermal_dirichlet proc~initialize_type_bc_thermal_dirichlet->interface~deallocate_array proc~initialize_type_coo type_coo%initialize_type_coo proc~initialize_type_coo->interface~deallocate_array proc~initialize_type_crs type_crs%initialize_type_crs proc~initialize_type_crs->interface~deallocate_array proc~initialize_type_crs->proc~destory_coo proc~initialize_type_crs->proc~initialize_type_coo proc~output_overall_vtk_fields output_overall_vtk_fields proc~output_overall_vtk_fields->interface~deallocate_array proc~output_overall_vtu_fields output_overall_vtu_fields proc~output_overall_vtu_fields->interface~deallocate_array proc~rcm_inverse_method rcm_inverse_method proc~rcm_inverse_method->interface~deallocate_array proc~rcm_reorder_method rcm_reorder_method proc~rcm_reorder_method->interface~deallocate_array proc~rcm_reorder_method->proc~build_node_adjacency_from_elements proc~rcm_reorder_method->proc~execute_cm_ordering proc~sort_and_enqueue_neighbors sort_and_enqueue_neighbors proc~sort_and_enqueue_neighbors->interface~deallocate_array proc~type_dp_2d_destroy type_dp_2d%type_dp_2d_destroy proc~type_dp_2d_destroy->interface~deallocate_array proc~type_dp_3d_destroy type_dp_3d_destroy proc~type_dp_3d_destroy->interface~deallocate_array proc~type_int_2d_destroy type_int_2d_destroy proc~type_int_2d_destroy->interface~deallocate_array proc~type_int_3d_destroy type_int_3d_destroy proc~type_int_3d_destroy->interface~deallocate_array proc~type_vtk_vtk_initialize type_vtk%type_vtk_vtk_initialize proc~type_vtk_vtk_initialize->interface~deallocate_array proc~type_vtk_vtu_initialize type_vtk%type_vtk_vtu_initialize proc~type_vtk_vtu_initialize->interface~deallocate_array proc~update_saturation->interface~deallocate_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~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 proc~construct_type_thermal_3phase_2d construct_type_thermal_3phase_2d proc~construct_type_thermal_3phase_2d->proc~initialize_type_crs proc~execute_cm_ordering->proc~sort_and_enqueue_neighbors proc~initialize_type_domain type_domain%initialize_type_domain proc~initialize_type_domain->proc~initialize_crs_adjacency 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 interface~construct_type_thermal_3phase_2d construct_type_thermal_3phase_2d interface~construct_type_thermal_3phase_2d->proc~construct_type_thermal_3phase_2d interface~inout_read_geometry type_input%inout_read_geometry interface~inout_read_geometry->proc~inout_read_geometry 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 interface~type_thermal_3phase_2d type_thermal_3phase_2d interface~type_thermal_3phase_2d->interface~construct_type_thermal_3phase_2d proc~initialize_type_input type_input%initialize_type_input proc~initialize_type_input->interface~inout_read_geometry

Source Code

    subroutine deallocate_rank1_logical4(array)
        implicit none
        logical(logical32), allocatable, intent(inout) :: array(:)
        integer(int32) :: stat

        if (allocated(array)) then
            deallocate (array, stat=stat)
            if (stat /= 0) call error_message(961)
        end if

    end subroutine deallocate_rank1_logical4