Sets a comment for the PNM image.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(format_pnm), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | comment |
elemental pure subroutine set_comment(this, comment) class(format_pnm), intent(inout) :: this character(*), intent(in) :: comment this%comment = comment end subroutine set_comment