get_project_path Function

public function get_project_path() result(project_path)

Arguments

None

Return Value character(len=256)


Calls

proc~~get_project_path~~CallsGraph proc~get_project_path get_project_path proc~inout_project_path_initialize inout_project_path_initialize proc~get_project_path->proc~inout_project_path_initialize proc~error_message error_message proc~inout_project_path_initialize->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~get_project_path~~CalledByGraph proc~get_project_path get_project_path proc~initialize_type_input type_input%initialize_type_input proc~initialize_type_input->proc~get_project_path proc~initialize_type_output type_output%initialize_type_output proc~initialize_type_output->proc~get_project_path

Source Code

    function get_project_path() result(project_path)
        implicit none
        character(256) :: project_path

        if (.not. is_initialize_project_path) call inout_project_path_initialize

        project_path = ProjectPath

    end function get_project_path