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_coordinates_micro use, intrinsic :: iso_fortran_env, only: DP => REAL64, iostat_end use data_constants, only: num_dimensions use data_strings, only: max_line_length use procedures_errors, only: error_exit use procedures_checks, only: check_file_exists implicit none private public :: increase_coordinates_size integer, parameter :: increase_factor = 2 contains pure subroutine increase_coordinates_size(coordinates) real(DP), allocatable, intent(inout) :: coordinates(:, :) real(DP), allocatable :: coordinates_tmp(:, :) integer :: size1, size2 size1 = size(coordinates, 1) size2 = size(coordinates, 2) allocate(coordinates_tmp(size1, size2)) coordinates_tmp = coordinates deallocate(coordinates) allocate(coordinates(size1, increase_factor * size2)) coordinates(:, 1:size2) = coordinates_tmp deallocate(coordinates_tmp) end subroutine increase_coordinates_size end module procedures_coordinates_micro