model_file Function

private function model_file(self) result(file)

The model file ('' if none).

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(Model),	intent(in)			::	self

Return Value character(len=:), allocatable

Source Code

    function model_file(self) result(file)
        class(Model), intent(in) :: self
        character(len=:), allocatable :: file
        file = ''
        if (allocated(self%file)) file = self%file
    end function model_file