PGI User Forum
 SearchSearch   MemberlistMemberlist     RegisterRegister   ProfileProfile    Log inLog in 

Free OpenACC Webinar

do seq loop

 
Post new topic   Reply to topic    PGI User Forum Forum Index -> Accelerator Programming
View previous topic :: View next topic  
Author Message
WENYANG LIU



Joined: 26 Sep 2010
Posts: 11

PostPosted: Fri Oct 08, 2010 6:05 am    Post subject: do seq loop Reply with quote

Hi everyone,

I'm using Accelerator on a MD code. But I found that the result is somehow not updated at each timestep.
I simplified my code as following:
Code:

program seqloop

implicit none
integer::i,j,k,f(10)
integer::ff(10)
ff=0
f=0

!$acc data region copyin(f),copy(ff)
!$acc region

!$acc do seq
do k=1,2


   do j=1,10
      ff(j)=f(j)*2
   end do
 
   do i=1,10
      f(i)=i       
   end do
   

end do

!$acc end region
!$acc end data region


write(*,*)ff

end program


The output of "ff" is a zero vector. However, if i change the "k loop" to "do host", the result is correct.

Can anyone point out my mistake in the code?
Thanks.
Back to top
View user's profile
WENYANG LIU



Joined: 26 Sep 2010
Posts: 11

PostPosted: Fri Oct 08, 2010 1:48 pm    Post subject: Reply with quote

I got a reply from PGI technical support by email.
This problem is fixed in the 10.8 release.
Thanks for all of your help and concern.
Back to top
View user's profile
Display posts from previous:   
Post new topic   Reply to topic    PGI User Forum Forum Index -> Accelerator Programming All times are GMT - 7 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group