1.     PROGRAM fortest
2.     
3.     ! simple program which creates 2 vectors and adds them in a 
4.     ! cuda function
5.     
6.     IMPLICIT NONE
7.     
8.     integer*4 :: i
9.     integer*4, parameter :: N=8
10.    real*4, Dimension(N) :: a, b
11.    
12.    DO i=1,N
13.      a(i)=i*1.0
14.      b(i)=2.0
15.    END DO
16.    
17.     print *, 'a = ', (a(i), i=1,N)
18.    
19.      CALL kernel_wrapper(a, b, N)
20.    
21.     print *, 'a + 2 = ', (a(i), i=1,N)
22.    
23.    END PROGRAM