Commit 4ca5bceb authored by Gregor Michalicek's avatar Gregor Michalicek

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.
parent 33b36346
......@@ -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
......@@ -17,12 +17,12 @@ CONTAINS
SUBROUTINE eigen_hssetup(isp,mpi,DIMENSION,hybrid,enpara,input,vacuum,noco,sym,&
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
......@@ -17,11 +17,11 @@ CONTAINS
SUBROUTINE hsmt(atoms,sym,enpara,&
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
......@@ -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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment