undeclare some intents

cp2k · Mar 5, 2020 · 2209383 · 2209383
1 parent 8853cb6
commit 2209383
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/minimax/minimax_rpa.F b/src/minimax/minimax_rpa.F
@@ -36,12 +36,12 @@ MODULE minimax_rpa
 !> \author Mauro Del Ben
 ! **************************************************************************************************
    SUBROUTINE get_rpa_minimax_coeff(k, E_range, aw, ierr, print_warning)
-      INTEGER, INTENT(IN)                                :: k
+      INTEGER                                            :: k
       REAL(KIND=dp), INTENT(IN)                          :: E_range
       REAL(KIND=dp), ALLOCATABLE, DIMENSION(:), &
          INTENT(OUT)                                     :: aw
       INTEGER, INTENT(OUT)                               :: ierr
-      LOGICAL, INTENT(OUT), OPTIONAL                     :: print_warning
+      LOGICAL, INTENT(IN), OPTIONAL                      :: print_warning
 
       CHARACTER(LEN=*), PARAMETER :: routineN = 'get_rpa_minimax_coeff', &
          routineP = moduleN//':'//routineN