V3FIT
descriptor_mod.f90
1  MODULE descriptor_mod
2  USE stel_kinds
3  USE mpi_inc
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
8  INTEGER :: iam, nprocs
9 
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
17  LOGICAL :: isroot
18  LOGICAL :: LSCALAPACK
19 
20  LOGICAL :: DIAGONALDONE, INHESSIAN
21  LOGICAL :: ININITSTATE=.false.
22  LOGICAL :: INUPDATEFORCE=.false.
23  INTEGER :: GMRESPASS, WRAPPASS, MATVECPASS
24 #if defined(MPI_OPT)
25  INTEGER :: SIESTA_COMM=mpi_comm_world
26 #else
27  INTEGER :: SIESTA_COMM=0
28 #endif
29  END MODULE descriptor_mod
mpi_inc
Umbrella module avoid multiple inlcudes of the mpif.h header.
Definition: mpi_inc.f:11