check_file Function

private function check_file(file) result(res)

Functional wrapper around inquire to check if file exits

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file

file to be checked

Return Value logical


Source Code

        logical function check_file(file) result(res)
            !! Functional wrapper around inquire to check if file exits

            !> file to be checked
            character(len=*), intent(IN) :: file

            inquire(file=trim(file), exist=res)
        
        end function check_file