mirror of https://gitlab.com/QEF/q-e.git
More small fixes
This commit is contained in:
parent
8dd7371453
commit
1518a16984
|
@ -524,7 +524,7 @@ Some environment variables that are relevant to \configure\ are:
|
|||
\texttt{LIBDIRS}& extra directories where to search for libraries\\
|
||||
\end{tabular}\\
|
||||
(note that \texttt{F90} is an ``historical'' name -- we actually use
|
||||
Fortran 2003 -- and that it should be used only together with option
|
||||
Fortran 2008 -- and that it should be used only together with option
|
||||
\texttt{--disable-parallel}. In fact, the value of F90 must be
|
||||
consistent with the parallel Fortran compiler which is determined by
|
||||
\configure\ and stored in the \texttt{MPIF90} variable).
|
||||
|
|
|
@ -4891,7 +4891,6 @@ SUBROUTINE write_vhub_g (output_file_name, diag_nmin, diag_nmax, offdiag_nmin, o
|
|||
complex (DP), allocatable :: hc(:,:)
|
||||
integer :: nspin_
|
||||
integer :: kdim, kdmx
|
||||
COMPLEX (DP) :: zdotc
|
||||
integer :: ldim, is1, ibnd, i, na, m1, nt
|
||||
character(LEN=20) :: ik_string, ib_string, is_string
|
||||
|
||||
|
|
|
@ -64,8 +64,6 @@ contains
|
|||
! the desired convergence of linter
|
||||
logical :: conv_root
|
||||
! true if convergence has been achieved
|
||||
COMPLEX(DP), EXTERNAL :: zdotc
|
||||
real(DP), EXTERNAL ::ddot
|
||||
real(DP) ::emme(nbnd, nbnd)
|
||||
! logical ::l_test, exst
|
||||
|
||||
|
|
|
@ -60,7 +60,6 @@ SUBROUTINE lr_Opsi_magnons (ik, ip, dOpsi)
|
|||
COMPLEX(DP) :: Tevc(npol*npwx,nbnd) ! T-rev op. applied to u_{-k}
|
||||
COMPLEX(DP) :: Tevq(npol*npwx,nbnd) ! T-rev op. applied to u_{-k-Q}
|
||||
!
|
||||
COMPLEX(DP), EXTERNAL :: zdotc
|
||||
INTEGER :: ibnd1, ibnd2
|
||||
!
|
||||
CALL start_clock ('lr_Opsi_magnons')
|
||||
|
|
Loading…
Reference in New Issue