Advertisement
temerkhanov

filter.f95

Jun 6th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. subroutine test(src, dest, n, a1_n, b0_n)
  2.    real, intent(in) :: src(:), a1_n(:), b0_n(:)
  3.    integer, intent(in) :: n
  4.    real, intent(out) :: dest(:)
  5.    integer :: i
  6.    real, dimension(1:9) :: d
  7.    real :: in, out
  8. !$acc region
  9.    do i = 1, size(src)
  10.       in = src(i)
  11.       out = b0_n(i) * in + d(1)
  12.  
  13.       do j = 1, 8
  14.          d(j) = in * a1_n(j) + out * b0_n(j + 1) + d(j + 1)
  15.       enddo
  16.  
  17.    enddo
  18. !$acc end region
  19.  
  20. end subroutine test
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement