! { dg-additional-options "-Ofast -floop-parallelize-all" } | |
subroutine subsm ( n, x, xp, xx) | |
integer n, m, x(n),xp(n), xx(n), gg(n), dd_p | |
do 55 i=1, n | |
dd_p = dd_p + (x(i) - xx(i))*gg(i) | |
55 continue | |
if ( dd_p .gt. 0 ) then | |
call dcopy( n, xp, 1, x, 1 ) | |
endif | |
end |