4 INTEGER,
PARAMETER :: BLOCK_CYCLIC_2D = 1, dlen_ = 9, dtype_ = 1,
5 ctxt_ = 2, m_ = 3, n_ = 4, mb_ = 5, nb_ = 6,
6 rsrc_ = 7, csrc_ = 8, lld_ = 9
7 INTEGER,
PARAMETER :: nrhs1 = 1
10 REAL(dp),
TARGET,
ALLOCATABLE,
DIMENSION(:,:) :: ublkp, dblkp, lblkp
11 REAL(dp),
ALLOCATABLE,
DIMENSION(:) :: tempp
12 INTEGER :: icontxt_global, icontxt, icontxt_px1, icontxt_1xp
13 INTEGER,
DIMENSION(DLEN_) :: descA, descX, descR, descA_1xp, descR_all
14 INTEGER :: nprow,npcol,myrow,mycol
15 INTEGER :: ineed,ineedR,mblk_size2,Locp,Locq,LocpR,LocqR,lld,info,ierr
16 INTEGER :: mb,nb, rsrc,csrc,ir,jr,mm,mm0,nrhs0
20 LOGICAL :: DIAGONALDONE, INHESSIAN
21 LOGICAL :: ININITSTATE=.false.
22 LOGICAL :: INUPDATEFORCE=.false.
23 INTEGER :: GMRESPASS, WRAPPASS, MATVECPASS
25 INTEGER :: SIESTA_COMM=mpi_comm_world
27 INTEGER :: SIESTA_COMM=0
29 END MODULE descriptor_mod