Remove some more unused parameters

cp2k · Feb 1, 2023 · 03b4147 · 03b4147
1 parent 3916455
commit 03b4147
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/src/pw/fft_tools.F b/src/pw/fft_tools.F
@@ -27,7 +27,6 @@
 ! **************************************************************************************************
 MODULE fft_tools
    USE ISO_C_BINDING,                   ONLY: C_F_POINTER,&
-                                              C_INT,&
                                               C_LOC,&
                                               C_PTR,&
                                               C_SIZE_T
@@ -2892,7 +2891,6 @@ SUBROUTINE get_fft_scratch(fft_scratch, tf_type, n, fft_sizes)
       INTEGER(KIND=C_SIZE_T)    :: length
       TYPE(C_PTR)               :: cptr_r1buf, cptr_tbuf, &
                                    cptr_p2buf, cptr_p3buf, cptr_p4buf, cptr_p5buf, cptr_p7buf
-      INTEGER(KIND=C_INT), PARAMETER :: cudaHostAllocDefault = 0
 #endif
       CALL timeset(routineN, handle)
 

diff --git a/src/pw/pw_grids.F b/src/pw/pw_grids.F
@@ -421,8 +421,7 @@ SUBROUTINE pw_grid_create_ghatmap(pw_grid)
 
       TYPE(pw_grid_type), INTENT(INOUT), POINTER         :: pw_grid
 
-      CHARACTER(len=*), PARAMETER :: routineN = 'pw_grid_create_ghatmap', &
-         routineP = moduleN//':'//routineN
+      CHARACTER(len=*), PARAMETER :: routineN = 'pw_grid_create_ghatmap'
 
       INTEGER                                            :: gpt, handle, l, m, mn, n, ngpts
       INTEGER, DIMENSION(:), POINTER                     :: nmapl, nmapm, nmapn, npts, pmapl, pmapm, &