58£®¡¡ ²»ÕýÈ·µÄINDEPENDENT ¶ÏÑÔʵÀý
INDEPENDENT
²»´¦Àí¹éÔ¼
!HPF$ INDEPENDENT
DO i = 1, n
¡¡¡¡x = x + a(i)*a(i)
END DO
INDEPENDENT
²»ÖªµÀ¸ß²ãµÄÕýÈ·ÐÔ
DO WHILE (err > err_tol)
¡¡¡¡ !HPF$ INDEPENDENT
¡¡¡¡DO i = 2, n-1
¡¡¡¡¡¡¡¡b(i) = a(i)
¡¡¡¡¡¡¡¡a(i) = 0.5 * (a(i-1) + a(i+1))
¡¡¡¡¡¡¡¡b(i) = ABS(b(i) - a(i))
¡¡¡¡END DO
¡¡¡¡err = MAXVAL(b(2:n-1))
END DO
Copyright: NPACT
