! Local variables integer :: i real(R8) :: t1, t2 call cpu_t( time=t1 ) do concurrent ( i = 1:size(x) ) x(i) = 56*real(i)-1000 y(i) = 56*real(i)-1000*log(real(i)) z(i) = 56*real(i)-1000*log(real(i+1)) xx(i) = 56*real(i)-1000*log(real(i+10)) yy(i) = 56*real(i)-1000*log(real(i+3)) zz(i) = 56*real(i)-1000*log(real(i+2)) xxx(i) = 56*real(i)-1000*log(real(i+5)) yyy(i) = 56*real(i)-1000*log(real(i+4)) zzz(i) = 56*real(i)-1000*log(real(i+9)) end do aux = sum(x) - sum(y) + sum(z) - sum(xx) + sum(yy) - sum(zz) + sum(xxx) - sum(yyy) - sum(zzz) call cpu_t( time=t2 ) calc_time = t2 - t1