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_command_arguments use data_strings, only: max_word_length use procedures_errors, only: error_exit use procedures_checks, only: check_positive, check_string_not_empty, check_file_exists implicit none private public :: create_filename_from_argument contains subroutine create_filename_from_argument(filename_i, i_argument) character(len=:), allocatable, intent(out) :: filename_i integer, intent(in) :: i_argument character(len=max_word_length) :: filename integer :: length, argument_stat call check_positive("procedures_command_arguments: create_filename_from_argument", & "i_argument", i_argument) call get_command_argument(i_argument, filename, length, argument_stat) if (argument_stat /= 0) then call error_exit("create_filename_from_argument: error") end if call check_file_exists(filename(1:length)) filename_i = filename(1:length) end subroutine create_filename_from_argument end module procedures_command_arguments