Nodes of different colours represent the following:
Solid arrows point from a file to a file which depends upon it. A file is dependent upon another if the latter must be compiled before the former can be. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a file to a file which depends upon it. A file is dependent upon another if the latter must be compiled before the former can be. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
module procedures_string_factory use types_string_wrapper, only: String_Wrapper use classes_number_to_string, only: Number_to_String_Wrapper, Number_to_String_Line implicit none private public :: destroy interface destroy module procedure :: destroy_number_triangle module procedure :: destroy_number_line module procedure :: destroy_line end interface destroy contains subroutine destroy_number_triangle(strings) type(Number_to_String_Line), allocatable, intent(inout) :: strings(:) integer :: i_string if (allocated(strings)) then do i_string = size(strings), 1, -1 call destroy(strings(i_string)%line) end do deallocate(strings) end if end subroutine destroy_number_triangle subroutine destroy_number_line(strings) type(Number_to_String_Wrapper), allocatable, intent(inout) :: strings(:) integer :: i_string if (allocated(strings)) then do i_string = size(strings), 1, -1 if (allocated(strings(i_string)%string)) deallocate(strings(i_string)%string) end do end if end subroutine destroy_number_line !> @note Fortran needs generics. subroutine destroy_line(strings) type(String_Wrapper), allocatable, intent(inout) :: strings(:) integer :: i_string if (allocated(strings)) then do i_string = size(strings), 1, -1 if (allocated(strings(i_string)%string)) deallocate(strings(i_string)%string) end do end if end subroutine destroy_line end module procedures_string_factory