redist_type Derived Type

  type :: redist_type
     private
     integer, dimension (6) :: to_low, from_low, to_high, from_high
     type (index_map), dimension (:), allocatable :: to
     type (index_map), dimension (:), allocatable :: from
     complex, dimension (:), allocatable :: complex_buff
     real,    dimension (:), allocatable :: real_buff
     integer, dimension (:), allocatable :: integer_buff
     logical, dimension (:), allocatable :: logical_buff
     integer :: nsend, nrecv !Note these swap meaning when doing inverse communication
     type(redist_buffer), dimension(:), allocatable :: buff_send, buff_recv
     integer, dimension(:), allocatable :: send_hand, recv_hand, send_inv_hand, recv_inv_hand
     integer, dimension(:), allocatable :: recv_ip, recv_inv_ip
     ! optimised choice and optimised_choice_inv set the algorithm used for
     ! gather/scatters. With default zero, different algorithms are timed
     ! during initialization. Putting these inside the redist object allows
     ! this behaviour to be overridden. This is useful, for example, when using
     ! "split domains" layouts, where one of the optimized algorithms cannot be
     ! used as it makes assumptions about the form of layouts.
     integer :: optimised_choice = 0
     integer :: optimised_choice_inv = 0
     character (len=3) :: redistname = ""
     character (len=1) :: char = 'X'
  end type redist_type