deallocate_pnm Subroutine

private pure elemental subroutine deallocate_pnm(this)

Deallocates memory for the PNM image.

Type Bound

format_pnm

Arguments

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

Called by

proc~~deallocate_pnm~~CalledByGraph proc~deallocate_pnm format_pnm%deallocate_pnm program~demo_ppm demo_ppm program~demo_ppm->proc~deallocate_pnm program~test test program~test->proc~deallocate_pnm program~test1 test1 program~test1->proc~deallocate_pnm program~test10 test10 program~test10->proc~deallocate_pnm program~test11 test11 program~test11->proc~deallocate_pnm program~test12 test12 program~test12->proc~deallocate_pnm program~test13 test13 program~test13->proc~deallocate_pnm program~test14 test14 program~test14->proc~deallocate_pnm program~test17 test17 program~test17->proc~deallocate_pnm program~test18 test18 program~test18->proc~deallocate_pnm program~test19 test19 program~test19->proc~deallocate_pnm program~test2 test2 program~test2->proc~deallocate_pnm program~test20 test20 program~test20->proc~deallocate_pnm program~test21 test21 program~test21->proc~deallocate_pnm program~test22 test22 program~test22->proc~deallocate_pnm program~test23 test23 program~test23->proc~deallocate_pnm program~test24 test24 program~test24->proc~deallocate_pnm program~test25 test25 program~test25->proc~deallocate_pnm program~test3 test3 program~test3->proc~deallocate_pnm program~test4 test4 program~test4->proc~deallocate_pnm program~test6 test6 program~test6->proc~deallocate_pnm program~test7 test7 program~test7->proc~deallocate_pnm program~test8 test8 program~test8->proc~deallocate_pnm program~test9 test9 program~test9->proc~deallocate_pnm

Source Code

   elemental pure subroutine deallocate_pnm(this)
      class(format_pnm), intent(inout)    :: this
      if (allocated(this%pixels)) deallocate(this%pixels)
      if (allocated(this%comment)) deallocate(this%comment)
   end subroutine deallocate_pnm