Search found 10 matches

by afiguer
Thu May 21, 2020 9:12 pm
Forum: Accelerator Programming
Topic: How to efficiently parallelize these loops, Fortran
Replies: 2
Views: 115

Re: How to efficiently parallelize these loops, Fortran

Thank you Mat, I did the following changes in the code: c$acc kernels present(unkno,vicop,deltp) c c -----loop over the points, computing the allowable timestep c c$acc loop independent reduction(min:dtmin) collapse(2) do 1200 ipoiz=izmin,izmax do 1210 ipoiy=iymin,iymax ipo0z=nxny*(ipoiz-1) ipo0y= n...
by afiguer
Tue May 19, 2020 7:14 pm
Forum: Accelerator Programming
Topic: How to efficiently parallelize these loops, Fortran
Replies: 2
Views: 115

How to efficiently parallelize these loops, Fortran

Hi, I have the following code written in Fortran (I use the PGI 18.3 compiler) and the output from the compiler: c$acc parallel present(unkno,vicop,deltp) c c -----loop over the points, computing the allowable timestep c c$acc loop reduction(min:dtmin) collapse(2) do 1200 ipoiz=izmin,izmax do 1210 i...
by afiguer
Wed Mar 25, 2020 8:47 am
Forum: Accelerator Programming
Topic: serial construct in openacc, Fortran
Replies: 13
Views: 3217

Re: serial construct in openacc, Fortran

Hi Matt,

Thank you for your answer. I will ask for permission for sending the code, but I think
this will not be a problem. Please, ask the support team to contact me.

Best,
Alejandro
by afiguer
Tue Mar 24, 2020 8:35 pm
Forum: Accelerator Programming
Topic: serial construct in openacc, Fortran
Replies: 13
Views: 3217

Re: serial construct in openacc, Fortran

I tried to create a reproducing example but I had not success. However I tried something different: subroutine fd_bcunkperibc_gpu(nppni ,nppnr ,nunkp ,npoin ,mppne , & bppni ,bppnr ,lppas ,unkno ) c implicit real*8 (a-h,o-z) c integer bppni(nppni,mppne),lppas(50) integer ippne,nppn0,nppn1 real*8 bpp...
by afiguer
Tue Mar 24, 2020 10:48 am
Forum: Accelerator Programming
Topic: serial construct in openacc, Fortran
Replies: 13
Views: 3217

Re: serial construct in openacc, Fortran

This occurs in the first loop iteration. In the subroutine I use the following:

Code: Select all

implicit real*8 (a-h,o-z)
Based on that ippne is an integer. Any suggestion on how to declare the variable
in the device?