deallocate_lut Subroutine

private pure elemental subroutine deallocate_lut(this)

Type Bound

format_lut

Arguments

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

Called by

proc~~deallocate_lut~~CalledByGraph proc~deallocate_lut format_lut%deallocate_lut program~test15 test15 program~test15->proc~deallocate_lut program~test16 test16 program~test16->proc~deallocate_lut

Source Code

   pure elemental subroutine deallocate_lut(this)
      class(format_lut), intent(inout) :: this
      if (allocated(this%colors)) deallocate(this%colors)
   end subroutine deallocate_lut