Remove unused parameters from mp2_ri_2c.F

cp2k · Jan 9, 2023 · e390d0e · e390d0e
1 parent ebdeb28
commit e390d0e
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/src/mp2_ri_2c.F b/src/mp2_ri_2c.F
@@ -1530,8 +1530,6 @@ SUBROUTINE Gamma_only_inversion_of_M_and_mult_with_chol_dec_of_Vtrunc(fm_matrix_
 
       CHARACTER(LEN=*), PARAMETER :: &
          routineN = 'Gamma_only_inversion_of_M_and_mult_with_chol_dec_of_Vtrunc'
-      COMPLEX(KIND=dp), PARAMETER :: cone = CMPLX(1.0_dp, 0.0_dp, KIND=dp), &
-         czero = CMPLX(0.0_dp, 0.0_dp, KIND=dp), ione = CMPLX(0.0_dp, 1.0_dp, KIND=dp)
 
       INTEGER                                            :: dimen_RI, handle, ndep
       REAL(KIND=dp)                                      :: eps_eigval_S_Gamma