Remove some redundant USE statements

5be524db · Gregor Michalicek · cb659010 · 5be524db · 5be524db
Commit 5be524db authored Aug 07, 2017 by Gregor Michalicek
--- a/cdn/qal_21.f90
+++ b/cdn/qal_21.f90
@@ -7,7 +7,6 @@ MODULE m_qal21
 CONTAINS
  SUBROUTINE qal_21(atoms, input,noccbd,we,ccof, noco,acof,bcof,mt21,lo21,uloulopn21, qal,qmat)

-    USE m_types, ONLY : t_mt21, t_lo21
    USE m_rotdenmat
    USE m_types
    IMPLICIT NONE

--- a/cdn_mt/rhomt21.f90
+++ b/cdn_mt/rhomt21.f90
@@ -9,7 +9,6 @@ MODULE m_rhomt21
 CONTAINS
  SUBROUTINE rhomt21(atoms, we,ne,acof,bcof, ccof,mt21,lo21,uloulop21)

-    USE m_types, ONLY : t_mt21,t_lo21
    USE m_types
    IMPLICIT NONE
    TYPE(t_atoms),INTENT(IN)   :: atoms