Search found 5 matches

by imorozov
Fri Sep 06, 2019 9:39 pm
Forum: Accelerator Programming
Topic: FORTRAN: memory management & auto allocation failed
Replies: 2
Views: 54

Re: FORTRAN: memory management & auto allocation failed

Hi, Mat,

Thank you for your answer, this solves my problem.
by imorozov
Thu Sep 05, 2019 11:20 pm
Forum: Accelerator Programming
Topic: FORTRAN: pghpf_maxloc_i8 has no acc info & maxloc inside subroutine
Replies: 2
Views: 49

Re: FORTRAN: pghpf_maxloc_i8 has no acc info & maxloc inside subroutine

MAXVAL works just fine, can be used to define new MAXLOC ! MAXLOC (PGFORTRAN 19.4) PURE INTEGER FUNCTION MAXLOC_(ARR) !$ACC ROUTINE SEQ REAL(RK),DIMENSION(:),INTENT(IN) :: ARR REAL(RK),DIMENSION(SIZE(ARR)) :: LIS REAL(RK) :: VAL INTEGER :: I VAL=MAXVAL(ARR) DO I=1,SIZE(ARR),1 IF(ARR(I)==VAL)THEN MA...
by imorozov
Thu Sep 05, 2019 8:54 pm
Forum: Accelerator Programming
Topic: FORTRAN: memory management & auto allocation failed
Replies: 2
Views: 54

FORTRAN: memory management & auto allocation failed

Hi, The code bellow crashes at run time on my device (GTX 1070) for NUM=2**10 in mdl.f90 (ok, for 2**9, should be 2**n). I need to do ffts (and some processing of them) for a large number of arrays. I'm quite new to gpu programming. Is it related to some memory problems? How this can be handled? mdl...
by imorozov
Fri Aug 30, 2019 12:22 am
Forum: Accelerator Programming
Topic: FORTRAN: pghpf_maxloc_i8 has no acc info & maxloc inside subroutine
Replies: 2
Views: 49

FORTRAN: pghpf_maxloc_i8 has no acc info & maxloc inside subroutine

Hi, When used in subroutine maxloc seems to be replaced by pghpf_maxloc_i8 without acc routine info. But direct usage in program unit is ok. Is there a workaround? program pro use mdl implicit none real(8) :: arr(100,100) integer :: pos(100) integer :: i arr = reshape([(real(mod(i,100)),i=1,100*100)...
by imorozov
Thu Aug 29, 2019 4:23 am
Forum: Accelerator Programming
Topic: FORTRAN: Explicit array argument & No device symbol for address reference
Replies: 1
Views: 41

FORTRAN: Explicit array argument & No device symbol for address reference

Hi, Is it possible to call subroutines with explicit array arguments? program test implicit none real(8), dimension(100) :: a, b integer :: i do i=1,100,1 a(i) = real(i,8) b(i) = a(i)**2 end do !$acc data copy(a(:),b(:)) !$acc parallel loop do i=1,100,1 call sub(a(i),b(i)) end do !$acc end data writ...