deallocate_table Subroutine

private pure elemental subroutine deallocate_table(this)

Type Bound

table

Arguments

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

Called by

proc~~deallocate_table~~CalledByGraph proc~deallocate_table table%deallocate_table proc~deallocate_colormaps_info Colormaps_info%deallocate_Colormaps_info proc~deallocate_colormaps_info->proc~deallocate_table program~colormaps_list colormaps_list program~colormaps_list->proc~deallocate_colormaps_info program~write_info write_info program~write_info->proc~deallocate_colormaps_info

Source Code

   pure elemental subroutine deallocate_table(this)
      class(table), intent(inout) :: this
      if (allocated(this%name)) deallocate(this%name)
      if (allocated(this%family)) deallocate(this%family)
      if (allocated(this%gradient)) deallocate(this%gradient)
      if (allocated(this%palette)) deallocate(this%palette)
      if (allocated(this%colorbar)) deallocate(this%colorbar)
      if (allocated(this%package)) deallocate(this%package)
      if (allocated(this%author)) deallocate(this%author)
      if (allocated(this%license)) deallocate(this%license)
      if (allocated(this%url)) deallocate(this%url)
   end subroutine deallocate_table