is_lazy_fortran_file Function

public function is_lazy_fortran_file(filename) result(is_lazy)

Check if file is a lazy fortran file (.lf or .LF extension)

Arguments

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

Return Value logical


Source Code

    function is_lazy_fortran_file(filename) result(is_lazy)
        character(len=*), intent(in) :: filename
        logical :: is_lazy

        ! Check for .lf or .LF extensions (lazy fortran)
        is_lazy = (index(filename, '.lf', back=.true.) == len_trim(filename) - 2) .or. &
                  (index(filename, '.LF', back=.true.) == len_trim(filename) - 2)
    end function is_lazy_fortran_file