Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

program main
use openacc, only : acc_init, acc_device_nvidia
implicit none
integer, parameter :: n = 2**27 ! = 128M
  real(8) :: x(n), y(n) ! these vector will never be allocated on the host CPU due to the next line
  real(8) :: a, dn, sum, check_sum, diff
  real(8), external :: init, sum_up

...