descriptor_mod.f90

      MODULE descriptor_mod
      USE stel_kinds
      USE mpi_inc
      INTEGER, PARAMETER ::  BLOCK_CYCLIC_2D = 1, dlen_ = 9, dtype_ = 1, &
                         ctxt_ = 2, m_ = 3, n_ = 4, mb_ = 5, nb_ = 6,    &
                         rsrc_ = 7, csrc_ = 8, lld_ = 9
      INTEGER, PARAMETER :: nrhs1 = 1
      INTEGER :: iam, nprocs
 
      REAL(dp), TARGET, ALLOCATABLE, DIMENSION(:,:) :: ublkp, dblkp, lblkp
      REAL(dp), ALLOCATABLE, DIMENSION(:) :: tempp
      INTEGER :: icontxt_global, icontxt, icontxt_px1, icontxt_1xp
      INTEGER, DIMENSION(DLEN_) :: descA, descX, descR, descA_1xp, descR_all
      INTEGER :: nprow,npcol,myrow,mycol
      INTEGER :: ineed,ineedR,mblk_size2,Locp,Locq,LocpR,LocqR,lld,info,ierr
      INTEGER :: mb,nb, rsrc,csrc,ir,jr,mm,mm0,nrhs0
      LOGICAL :: isroot
      LOGICAL :: LSCALAPACK
 
      LOGICAL :: DIAGONALDONE, INHESSIAN
      LOGICAL :: ININITSTATE=.false.
      LOGICAL :: INUPDATEFORCE=.false.
      INTEGER :: GMRESPASS, WRAPPASS, MATVECPASS
#if defined(MPI_OPT)
      INTEGER :: SIESTA_COMM=mpi_comm_world
#else
      INTEGER :: SIESTA_COMM=0
#endif
      END MODULE descriptor_mod