More small fixes

QEF · Jul 17, 2021 · 1518a16 · 1518a16
1 parent 8dd7371
commit 1518a16
Show file tree

Hide file tree

Showing 4 changed files with 1 addition and 5 deletions.
diff --git a/Doc/user_guide.tex b/Doc/user_guide.tex
@@ -524,7 +524,7 @@ \subsection{Building with \make}
 \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).

diff --git a/PP/src/pw2bgw.f90 b/PP/src/pw2bgw.f90
@@ -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
 

diff --git a/QEHeat/src/project.f90 b/QEHeat/src/project.f90
@@ -64,8 +64,6 @@ subroutine project(ipol, dvpsi_save, save_dvpsi)
       ! 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
 

diff --git a/TDDFPT/src/lr_Opsi_magnons.f90 b/TDDFPT/src/lr_Opsi_magnons.f90
@@ -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')