format_lut Derived Type

type, public :: format_lut


Components

Type Visibility Attributes Name Initial
integer, public, dimension(:,:), allocatable :: colors
integer, public :: dim_colors
integer, public :: num_colors

Type-Bound Procedures

procedure, public :: allocate_colors

  • private pure elemental subroutine allocate_colors(this)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

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

procedure, public :: export

  • private impure subroutine export(this, file_name)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

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

procedure, public :: finalize => deallocate_lut

  • private pure elemental subroutine deallocate_lut(this)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

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

procedure, public :: get_colors

  • private pure function get_colors(this) result(colors)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

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

    Return Value integer, dimension(:,:), allocatable

procedure, public :: get_dim_colors

  • private pure elemental function get_dim_colors(this) result(dim_colors)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

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

    Return Value integer

procedure, public :: get_num_colors

  • private pure elemental function get_num_colors(this) result(num_colors)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

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

    Return Value integer

procedure, public :: import

  • private impure subroutine import(this, file_name, dim_colors)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

    Type IntentOptional Attributes Name
    class(format_lut), intent(inout) :: this
    character(len=*), intent(in) :: file_name
    integer, intent(in) :: dim_colors

procedure, public :: set

  • private pure subroutine set(this, num_colors, dim_colors, colors)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

    Type IntentOptional Attributes Name
    class(format_lut), intent(inout) :: this
    integer, intent(in) :: num_colors
    integer, intent(in) :: dim_colors
    integer, intent(in), dimension(:,:) :: colors

procedure, public :: set_colors

  • private pure subroutine set_colors(this, colors)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

    Type IntentOptional Attributes Name
    class(format_lut), intent(inout) :: this
    integer, intent(in), dimension(:,:) :: colors

procedure, public :: set_dim_colors

  • private pure elemental subroutine set_dim_colors(this, dim_colors)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

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

procedure, public :: set_num_colors

  • private pure elemental subroutine set_num_colors(this, num_colors)

    Author
    Seyed Ali Ghasemi
    License
    BSD 3-Clause

    Arguments

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

Source Code

   type format_lut
      integer                              :: num_colors
      integer                              :: dim_colors
      integer, dimension(:,:), allocatable :: colors
   contains
      procedure :: allocate_colors
      procedure :: set
      procedure :: set_num_colors
      procedure :: get_num_colors
      procedure :: set_dim_colors
      procedure :: get_dim_colors
      procedure :: set_colors
      procedure :: get_colors
      procedure :: export
      procedure :: import
      procedure :: finalize => deallocate_lut
   end type format_lut