BLACS -- Combine

EPS = 1.0D+0

10 CONTINUE

EPS = EPS / 2.0D+0

IF( ( 1.0D+0 + EPS ) .GT. 1.0D+0 ) GO TO 10

CALL DGAMX2D( ICTXT, ‘All’, ‘ ‘, 1, 1, EPS, 1, IRSRC, ICSRC, -1, -1, 0 )

Previous slide

Next slide

Back to first slide

View graphic version