More small fixes

This commit is contained in:
Paolo Giannozzi 2021-07-17 09:58:25 +02:00
parent 8dd7371453
commit 1518a16984
4 changed files with 1 additions and 5 deletions

View File

@ -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).

View File

@ -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

View File

@ -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

View File

@ -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')