Autotasking Example: Threshold Test
original
IF (M*N.GT.1666)THEN
CALL T$1(M,N,A)
ELSE
DO J=1,M
DO I=1,N
A(I,J)=0.0
ENDDO
ENDDO
...
SUBROUTINE T$1(M,N,A)
INTEGER M,N,I,J
REAL A(999,999)
*PDIR PARDO FOR=4
DO J=1,M
DO I=1,N
A(I,J)=0.0
ENDDO
ENDDO
RETURN
END
!CDIR CONCUR
DO J=1,M
DO I=1,N
A(I,J)=0.0
ENDDO
ENDDO
translation
Vorherige Folie
Nächste Folie
Zurück zur ersten Folie
Graphik-Version anzeigen