PBLAS -- Examples

. . .

CALL DESCINIT( DESCA, 5, 5, 2, 2, 0, 0, ICTXT, LDA, INFO )

CALL DESCINIT( DESCB, 5, 5, 2, 2, 0, 0, ICTXT, LDB, INFO )

CALL DESCINIT( DESCC, 5, 5, 2, 2, 0, 0, ICTXT, LDC, INFO )

. . .

CALL PDGEMM( ‘No transpose’, ‘No transpose’, 4, 4, 4, 1.0D+0,

$ A, 1, 1, DESCA, B, 1, 1, DESCB, 0.0D+0, C, 1, 1, DESCC )

. . .

CALL PBFREEBUF()

CALL BLACS_GRIDEXIT( ICTXT )

CALL BLACS_EXIT( 0 )

Previous slide

Next slide

Back to first slide

View graphic version