module array_descriptor
! define parameters used to descibe BLACS distributed arrays:
! Time-stamp: "03/07/04 14:31:08 cjn"
  implicit none

  public

  integer, parameter :: dlen_ = 9
  integer, parameter :: block_cyclic_2d = 1
  integer, parameter :: ctxt_ = 2
  integer, parameter :: m_ = 3
  integer, parameter :: n_ = 4
  integer, parameter :: mb_ = 5
  integer, parameter :: nb_ = 6
  integer, parameter :: rsrc_ = 7
  integer, parameter :: csrc_ = 8
  integer, parameter :: lld_ = 9
end module array_descriptor
