Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- subroutine test(src, dest, n, a1_n, b0_n)
- real, intent(in) :: src(:), a1_n(:), b0_n(:)
- integer, intent(in) :: n
- real, intent(out) :: dest(:)
- integer :: i
- real, dimension(1:9) :: d
- real :: in, out
- !$acc region
- do i = 1, size(src)
- in = src(i)
- out = b0_n(i) * in + d(1)
- do j = 1, 8
- d(j) = in * a1_n(j) + out * b0_n(j + 1) + d(j + 1)
- enddo
- enddo
- !$acc end region
- end subroutine test
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement