PBLAS -- Examples

INTEGER IAM, ICTXT, INFO, LDA, LDB, LDC, NMAX, NPROCS

PARAMETER ( NMAX = 3, LDA = NMAX, LDB = NMAX, LDC = NMAX )

INTEGER DESCA( 9 ), DESCB( 9 ), DESCC( 9 )

DOUBLE PRECISION A( NMAX, NMAX ), B( NMAX, NMAX ), C( NMAX, NMAX )

CALL BLACS_PINFO( IAM, NPROCS )

IF( NPROCS.LT.1 ) THEN

NPROCS = 4

CALL BLACS_SETUP( IAM, NPROCS )

END IF

CALL BLACS_GET( -1, 0, ICTXT )

CALL BLACS_GRIDINIT( ICTXT, ‘Row’, 2, 2 )

Previous slide

Next slide

Back to first slide

View graphic version