XAS_TDP: Remove unused variable

cp2k · Apr 20, 2020 · 72cfd92 · 72cfd92
1 parent 42512eb
commit 72cfd92
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/xas_tdp_integrals.F b/src/xas_tdp_integrals.F
@@ -285,9 +285,9 @@ SUBROUTINE fill_pqX_tensor(pq_X, ab_nl, ac_nl, basis_set_list_a, basis_set_list_
                                                             nsgfb, nsgfc
       INTEGER, DIMENSION(:, :), POINTER                  :: first_sgfa, first_sgfb, first_sgfc
       LOGICAL                                            :: do_screen, my_sort_bc
-      REAL(dp)                                           :: dij, dik, djk, max_val, my_eps_screen, &
-                                                            ri(3), rij(3), rik(3), rj(3), rjk(3), &
-                                                            rk(3), sabc_ext, screen_radius
+      REAL(dp)                                           :: dij, dik, djk, my_eps_screen, ri(3), &
+                                                            rij(3), rik(3), rj(3), rjk(3), rk(3), &
+                                                            sabc_ext, screen_radius
       REAL(dp), ALLOCATABLE, DIMENSION(:, :)             :: max_contr, max_contra, max_contrb, &
                                                             max_contrc
       REAL(dp), ALLOCATABLE, DIMENSION(:, :, :)          :: iabc, sabc, work
@@ -432,7 +432,7 @@ SUBROUTINE fill_pqX_tensor(pq_X, ab_nl, ac_nl, basis_set_list_a, basis_set_list_
 !$OMP          la_max,la_min,lb_max,lb_min,lc_max,lc_min,npgfa,npgfb,npgfc,nsgfa,nsgfb,nsgfc,ri,rk,&
 !$OMP          first_sgfa,first_sgfb,first_sgfc,set_radius_a,set_radius_b,set_radius_c, nsetc,rj,&
 !$OMP          rpgf_a,rpgf_b,rpgf_c,sphi_a,sphi_b,sphi_c,zeta,zetb,zetc,basis_set_b,basis_set_c,&
-!$OMP          dij,dik,djk,ni,nj,nk,iabc,sabc,jset,kset,ncob,ncoc,sgfb,sgfc,egfb,egfc,max_val,&
+!$OMP          dij,dik,djk,ni,nj,nk,iabc,sabc,jset,kset,ncob,ncoc,sgfb,sgfc,egfb,egfc,&
 !$OMP          sabc_ext)
 
       mepos = 0