get_format Function

private pure function get_format(this) result(encoding)

Gets the encoding of the PNM image.

Type Bound

format_pnm

Arguments

Type IntentOptional Attributes Name
class(format_pnm), intent(in) :: this

Return Value character(len=:), allocatable


Source Code

   pure function get_format(this) result(encoding)
      class(format_pnm), intent(in) :: this
      character(:), allocatable        :: encoding

      encoding = trim(this%encoding)
   end function get_format