- Code: Select all
PROGRAM SCALAPACK_H
IMPLICIT NONE
!Global varriables - i.e common across all processors
!Local Varriables - i.e common only to the local processor
INTEGER :: ICTXT, NPRow, NPCol, MyRow, MyCol
INTEGER, DIMENSION(1:9) :: DESCA, DESCZ
INTEGER :: MB, NB, N, M, RSRC, CSRC, MXLLDA, LDX, LDY
INTEGER :: r, j, k, l, i, LWORK, LRWORK, INFO
COMPLEX, DIMENSION(:,:), ALLOCATABLE :: AA
REAL, DIMENSION(:), ALLOCATABLE :: W
COMPLEX, DIMENSION(:), ALLOCATABLE :: Work, RWork
COMPLEX, DIMENSION(1) :: Dummy
!EXTERNAL FUNCTIONS
EXTERNAL SL_INIT, BLACS_GRIDINFO, DESCINIT, PCHEEV, MATI_BCdis, BLACS_GRIDEXIT, BLACS_EXIT
!*******************************************************************************************************
!Assignable values which affect processors and distribution
NPRow = 2
NPCol = 4
NB = 2
MB = NB
RSRC = 0
CSRC = 0
!Initiate the process grid, using asigned values for the grid
CALL SL_INIT( ICTXT, NPRow, NPCol )
Im using the following compiler call, ive removed address from libaries to make it shorter, but it shows the ones im linking
> gfortran -C -o ScalpckH ScalpckH.f95 -L libscalapack.a libblacs.a libblacsCinit.a libblacsF77init.a libblas.a libpmpich.a
Anybody got any suggestions would be great
Regards Mark