Skip to content

Commit

Permalink
Relocate parameter declarations
Browse files Browse the repository at this point in the history
  • Loading branch information
@mkrack
mkrack committed Aug 16, 2020
1 parent e27f9b7 commit 457c210
Showing 1 changed file with 23 additions and 1 deletion.
24 changes: 23 additions & 1 deletion src/pw/pw_cuda.F
View file
Original file line number Diff line number Diff line change
Expand Up @@ -293,13 +293,16 @@ SUBROUTINE pw_cuda_r3dc1d_3d(pw1, pw2, scale)
MARK_USED(pw2)
MARK_USED(scale)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_r3dc1d_3d'
INTEGER :: handle, ngpts
INTEGER :: l1, l2, l3
INTEGER, DIMENSION(:), POINTER :: npts
REAL(KIND=dp), POINTER :: ptr_pwin
COMPLEX(KIND=dp), POINTER :: ptr_pwout
INTEGER, POINTER :: ptr_ghatmap
CALL timeset(routineN, handle)
ngpts = SIZE(pw2%pw_grid%gsq)
Expand Down Expand Up @@ -341,6 +344,8 @@ SUBROUTINE pw_cuda_c1dr3d_3d(pw1, pw2, scale)
MARK_USED(pw2)
MARK_USED(scale)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_c1dr3d_3d'
INTEGER :: handle, ngpts, nmaps
INTEGER :: l1, l2, l3
INTEGER, DIMENSION(:), POINTER :: npts
Expand Down Expand Up @@ -391,6 +396,8 @@ SUBROUTINE pw_cuda_r3dc1d_3d_ps(pw1, pw2, scale)
MARK_USED(pw2)
MARK_USED(scale)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_r3dc1d_3d_ps'
INTEGER :: handle
INTEGER :: ngpts, iout
INTEGER :: lg, mg, mmax, lmax, rp, mx2, mz2, n1, n2, nmax
Expand Down Expand Up @@ -577,6 +584,8 @@ SUBROUTINE pw_cuda_c1dr3d_3d_ps(pw1, pw2, scale)
MARK_USED(pw2)
MARK_USED(scale)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_c1dr3d_3d_ps'
INTEGER :: handle
INTEGER :: ngpts, iout
INTEGER :: lg, mg, mmax, lmax, rp, mx2, mz2, n1, n2, nmax
Expand Down Expand Up @@ -765,6 +774,8 @@ SUBROUTINE pw_cuda_cff(pw1, pwbuf)
MARK_USED(pw1)
MARK_USED(pwbuf)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_cff'
INTEGER :: l1, l2, l3, handle
INTEGER, DIMENSION(:), POINTER :: npts
REAL(KIND=dp), POINTER :: ptr_pwin
Expand Down Expand Up @@ -804,6 +815,8 @@ SUBROUTINE pw_cuda_ffc(pwbuf, pw2)
MARK_USED(pwbuf)
MARK_USED(pw2)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_ffc'
INTEGER :: l1, l2, l3, handle
INTEGER, DIMENSION(:), POINTER :: npts
COMPLEX(KIND=dp), POINTER :: ptr_pwin
Expand Down Expand Up @@ -843,6 +856,8 @@ SUBROUTINE pw_cuda_cf(pw1, pwbuf)
MARK_USED(pw1)
MARK_USED(pwbuf)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_cf'
INTEGER :: l1, l2, l3, handle
INTEGER, DIMENSION(:), POINTER :: npts
REAL(KIND=dp), POINTER :: ptr_pwin
Expand Down Expand Up @@ -882,6 +897,8 @@ SUBROUTINE pw_cuda_fc(pwbuf, pw2)
MARK_USED(pwbuf)
MARK_USED(pw2)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_fc'
INTEGER :: l1, l2, l3, handle
INTEGER, DIMENSION(:), POINTER :: npts
COMPLEX(KIND=dp), POINTER :: ptr_pwin
Expand Down Expand Up @@ -930,6 +947,8 @@ SUBROUTINE pw_cuda_f(pwbuf1, pwbuf2, dir, n, m)
MARK_USED(n)
MARK_USED(m)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_f'
INTEGER :: handle
COMPLEX(KIND=dp), POINTER :: ptr_pwin
COMPLEX(KIND=dp), POINTER :: ptr_pwout
Expand Down Expand Up @@ -966,6 +985,8 @@ SUBROUTINE pw_cuda_fg(pwbuf, pw2, scale)
MARK_USED(pw2)
MARK_USED(scale)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_fg'
INTEGER :: mmax, mg, handle, ngpts
INTEGER, DIMENSION(:), POINTER :: npts
COMPLEX(KIND=dp), POINTER :: ptr_pwin
Expand Down Expand Up @@ -1014,6 +1035,8 @@ SUBROUTINE pw_cuda_sf(pw1, pwbuf, scale)
MARK_USED(pwbuf)
MARK_USED(scale)
#else
CHARACTER(len=*), PARAMETER :: routineN = 'pw_cuda_sf'
INTEGER :: mmax, mg, ngpts, handle, nmaps
INTEGER, DIMENSION(:), POINTER :: npts
Expand Down Expand Up @@ -1046,4 +1069,3 @@ SUBROUTINE pw_cuda_sf(pw1, pwbuf, scale)
#endif
END SUBROUTINE pw_cuda_sf
END MODULE pw_cuda

0 comments on commit 457c210

Please sign in to comment.