Program test Use omp_lib Integer :: ti, tn, nb, st, ed Integer, Parameter :: n = 2048 Real(kind=8) :: y(n), x(n) Real(kind=8) :: t0, t1 Character :: c do i=1,n x(i) = 1.0 end do !$omp parallel default(none) private(ti,tn,nb,st,ed,y,x,t0,t1…