set_magicnumber Subroutine

private pure elemental subroutine set_magicnumber(this, magic_number)

Sets the magic number of the PNM image. Supported values are P1, P2, P3, P4, P5, and P6.

Type Bound

format_pnm

Arguments

Type IntentOptional Attributes Name
class(format_pnm), intent(inout) :: this
character(len=*), intent(in) :: magic_number

Called by

proc~~set_magicnumber~~CalledByGraph proc~set_magicnumber format_pnm%set_magicnumber proc~set_header format_pnm%set_header proc~set_header->proc~set_magicnumber proc~set_pnm format_pnm%set_pnm proc~set_pnm->proc~set_header proc~save color%save proc~save->proc~set_pnm program~demo_ppm demo_ppm program~demo_ppm->proc~set_pnm program~test test program~test->proc~set_pnm program~test1 test1 program~test1->proc~set_pnm program~test17 test17 program~test17->proc~set_pnm program~test18 test18 program~test18->proc~set_pnm program~test19 test19 program~test19->proc~set_pnm program~test2 test2 program~test2->proc~set_pnm program~test20 test20 program~test20->proc~set_pnm program~test21 test21 program~test21->proc~set_pnm program~test22 test22 program~test22->proc~set_pnm program~test23 test23 program~test23->proc~set_pnm program~test24 test24 program~test24->proc~set_pnm program~test25 test25 program~test25->proc~set_pnm program~test3 test3 program~test3->proc~set_pnm program~test4 test4 program~test4->proc~set_pnm program~test6 test6 program~test6->proc~set_pnm

Source Code

   elemental pure subroutine set_magicnumber(this, magic_number)
      class(format_pnm), intent(inout) :: this
      character(*), intent(in)         :: magic_number
      this%magic_number = magic_number
   end subroutine set_magicnumber