Reorder some USE statements to overcome some ifort 12 error

Note: Unfortunately this does not fix the catastrophic compiler errors
that ifort 12 also produces.

cdn/cdnval.F90

@@ -24,6 +24,7 @@ SUBROUTINE cdnval(eig_id, mpi,kpts,jspin,noco,input,banddos,cell,atoms,enpara,st
    !     sqal     : l-like charge of each atom type. sum over all k-points and bands
    !************************************************************************************
 
+   USE m_types
    USE m_eig66_io
    USE m_genMTBasis
    USE m_calcDenCoeffs
@@ -46,7 +47,6 @@ SUBROUTINE cdnval(eig_id, mpi,kpts,jspin,noco,input,banddos,cell,atoms,enpara,st
    USE m_corespec, only : l_cs    ! calculation of core spectra (EELS)
    USE m_corespec_io, only : corespec_init
    USE m_corespec_eval, only : corespec_gaunt,corespec_rme,corespec_dos,corespec_ddscs
-   USE m_types
    USE m_xmlOutput
 #ifdef CPP_MPI
    USE m_mpi_col_den ! collect density data from parallel nodes

eigen/eigen_hssetup.F90

@@ -17,12 +17,12 @@ CONTAINS
   
   SUBROUTINE eigen_hssetup(isp,mpi,DIMENSION,hybrid,enpara,input,vacuum,noco,sym,&
        stars,cell,sphhar,atoms,ud,td,v,lapw,l_real,smat_final,hmat_final)
+    USE m_types
+    USE m_types_mpimat
     USE m_hs_int
     USE m_hsvac
     USE m_od_hsvac
     USE m_hsmt
-    USE m_types
-    USE m_types_mpimat
     USE m_eigen_redist_matrix
     IMPLICIT NONE
     INTEGER,INTENT(IN)           :: isp

eigen/hsmt.F90

@@ -17,11 +17,11 @@ CONTAINS
   
   SUBROUTINE hsmt(atoms,sym,enpara,&
        ispin,input,mpi,noco,cell,lapw,usdus,td,smat,hmat)
+    USE m_types
     USE m_hsmt_nonsph
     USE m_hsmt_sph
     use m_hsmt_lo
     USE m_hsmt_distspins
-    USE m_types
     USE m_hsmt_fjgj
     USE m_hsmt_spinor
     USE m_hsmt_soc_offdiag

main/cdngen.F90

@@ -20,6 +20,7 @@ SUBROUTINE cdngen(eig_id,mpi,input,banddos,sliceplot,vacuum,&
    !    core routines for the core contribution
    !*****************************************************
 
+   USE m_types
    USE m_constants
    USE m_prpqfftmap
    USE m_cdnval
@@ -29,7 +30,6 @@ SUBROUTINE cdngen(eig_id,mpi,input,banddos,sliceplot,vacuum,&
    USE m_cdnovlp
    USE m_qfix
    USE m_genNewNocoInp
-   USE m_types
    USE m_xmlOutput
    USE m_magMoms
    USE m_orbMagMoms