Я новичок в OpenA CC. Я хочу ускорить мою программу, используя OpenA CC на фортранском языке с компилятором G CC. мой код:
Program Test
use openacc
Implicit None
integer(8)::I1,I2,I3,I4,I5,I6,I,ii,jj,J
!$acc kernels
!$acc loop
do I=1,1200000000
do II=1,300
do jj=1,200
do I1=1,200
do I2=1,500
if(I2==20.and.I1==200.and.JJ==200.and.II==200)then
print*,"Hello"
endif
Data1(I)=I-I+I-I+I
enddo
enddo
enddo
enddo
enddo
!$acc end kernels
end
скорость моего кода не изменилась. Как я могу узнать, что мой код выполняется на процессоре или графическом процессоре? Или Как я могу изменить свой код, чтобы ускорить мою программу?