deallocate_rank1_int8 Subroutine

private subroutine deallocate_rank1_int8(array)

Arguments

Type IntentOptional Attributes Name
integer(kind=int8), intent(inout), allocatable :: array(:)

Calls

proc~~deallocate_rank1_int8~~CallsGraph proc~deallocate_rank1_int8 deallocate_rank1_int8 proc~error_message error_message proc~deallocate_rank1_int8->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~deallocate_rank1_int8~~CalledByGraph proc~deallocate_rank1_int8 deallocate_rank1_int8 interface~deallocate_array deallocate_array interface~deallocate_array->proc~deallocate_rank1_int8 proc~apply_reordering type_domain%apply_reordering proc~apply_reordering->interface~deallocate_array 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~create_inverse_permutation create_inverse_permutation proc~create_inverse_permutation->interface~deallocate_array proc~destroy_coo type_coo%destroy_coo proc~destroy_coo->interface~deallocate_array proc~destroy_crs type_crs%destroy_crs proc~destroy_crs->interface~deallocate_array proc~destroy_dense type_dense%destroy_dense proc~destroy_dense->interface~deallocate_array proc~destroy_hybrid type_node_adjacency%destroy_hybrid proc~destroy_hybrid->interface~deallocate_array proc~destroy_type_dp_2d type_dp_2d%destroy_type_dp_2d proc~destroy_type_dp_2d->interface~deallocate_array proc~destroy_type_dp_3d type_dp_3d%destroy_type_dp_3d proc~destroy_type_dp_3d->interface~deallocate_array proc~destroy_type_int_2d type_int_2d%destroy_type_int_2d proc~destroy_type_int_2d->interface~deallocate_array proc~destroy_type_int_3d type_int_3d%destroy_type_int_3d proc~destroy_type_int_3d->interface~deallocate_array proc~execute_reordering_core execute_reordering_core proc~execute_reordering_core->interface~deallocate_array proc~execute_bfs_ordering execute_bfs_ordering proc~execute_reordering_core->proc~execute_bfs_ordering 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_hybrid_from_mesh type_node_adjacency%initialize_hybrid_from_mesh proc~initialize_hybrid_from_mesh->interface~deallocate_array 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_controls type_controls%initialize_type_controls proc~initialize_type_controls->interface~deallocate_array 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~process_element_hydraulic_linear_1 process_element_hydraulic_linear_1 proc~process_element_hydraulic_linear_1->interface~deallocate_array proc~process_element_hydraulic_linear_1->proc~destroy_dense proc~rcm_reorder_method rcm_reorder_method proc~rcm_reorder_method->interface~deallocate_array proc~rcm_reorder_method->proc~execute_reordering_core proc~sort_and_enqueue_neighbors sort_and_enqueue_neighbors proc~sort_and_enqueue_neighbors->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~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~create_inverse_permutation type_reordering%create_inverse_permutation interface~create_inverse_permutation->proc~create_inverse_permutation 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_reorder_method type_reordering%rcm_reorder_method interface~rcm_reorder_method->proc~rcm_reorder_method proc~cm_reorder_method cm_reorder_method proc~cm_reorder_method->proc~execute_reordering_core proc~execute_bfs_ordering->proc~sort_and_enqueue_neighbors proc~hydraulic_assemble_system_linear_1 hydraulic_assemble_system_linear_1 proc~hydraulic_assemble_system_linear_1->proc~process_element_hydraulic_linear_1 proc~hydraulic_assemble_system_linear_1_parallel hydraulic_assemble_system_linear_1_parallel proc~hydraulic_assemble_system_linear_1_parallel->proc~process_element_hydraulic_linear_1 proc~initialize_type_domain type_domain%initialize_type_domain proc~initialize_type_domain->proc~apply_reordering proc~initialize_type_domain->proc~initialize_hybrid_from_mesh 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~cm_reorder_method type_reordering%cm_reorder_method interface~cm_reorder_method->proc~cm_reorder_method 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~create_inverse_permutation proc~initialize_type_reordering->interface~rcm_reorder_method proc~initialize_type_reordering->interface~cm_reorder_method proc~initialize_type_input type_input%initialize_type_input proc~initialize_type_input->interface~inout_read_geometry

Source Code

    subroutine deallocate_rank1_int8(array)
        implicit none
        integer(int8), allocatable, intent(inout) :: array(:)
        integer(int32) :: stat

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

    end subroutine deallocate_rank1_int8