scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

More removal of unused references to DDOT

This commit is contained in:
Paolo Giannozzi 2020-01-09 15:33:14 +00:00
parent f187bc2038
commit 3a5b0df082
8 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CPV/src/cplib.f90
View File

@ -1730,7 +1730,6 @@ END SUBROUTINE print_lambda_x
INTEGER :: k, is, ia, iv, jv, i, j, inl, isa, iss, nss, istart, ir, ic, nr, nc, ibgrp_i
INTEGER :: n1, n2, m1, m2, nrcx
INTEGER :: nrr(nspin), irr, nrrx
REAL(DP), EXTERNAL :: ddot
REAL(DP), ALLOCATABLE :: temp(:,:), tmpbec(:,:),tmpdr(:,:), tmplam(:,:,:)
REAL(DP), ALLOCATABLE :: fion_tmp(:,:)
REAL(DP), ALLOCATABLE :: bec(:,:,:)

2
EPW/src/io_transport.f90
View File

@ -193,8 +193,6 @@
!! Auxiliary variables
REAL(KIND = DP) :: inv_tau_allcb_MPI(nbndfst, nktotf, nstemp)
!! Auxiliary variables
REAL(KIND = DP), EXTERNAL :: DDOT
!! Dot product function
REAL(KIND = DP), EXTERNAL :: efermig
!! Function that returns the Fermi energy
REAL(KIND = DP), EXTERNAL :: wgauss

4
GWW/bse/cgsolve.f90
View File

@ -33,11 +33,11 @@ SUBROUTINE cgsolve (npw,evc,npwx,nbnd,overlap, &
!
INTEGER :: ibnd, jbnd, i, info
real(DP) :: lagrange(nbnd,nbnd)
real(DP) :: lambda, u_u, uu0, u_A_h, alfa, eps, uu(nbnd), ddot
real(DP) :: lambda, u_u, uu0, u_A_h, alfa, eps, uu(nbnd)
logical :: debug
real(kind=DP), allocatable :: omat(:,:)
integer j
EXTERNAL ddot, H_h
EXTERNAL H_h
!
CALL start_clock('cgsolve')
debug=.false.

1
HP/src/hp_dnsq.f90
View File

@ -65,7 +65,6 @@ SUBROUTINE hp_dnsq (lmetq0, iter, conv_root, dnsq)
! number of plane waves at k and k+q
COMPLEX(DP), ALLOCATABLE :: dpsi(:, :), proj1(:,:), proj2(:,:)
REAL(DP) :: weight, wdelta, w1
REAL(DP), EXTERNAL :: DDOT
COMPLEX(DP), EXTERNAL :: ZDOTC
REAL(DP), EXTERNAL :: w0gauss ! an approximation to the delta function
COMPLEX(DP) :: trace_dns(2)

1
PHonon/PH/dnsq_bare.f90
View File

@ -58,7 +58,6 @@ SUBROUTINE dnsq_bare
ibeta, n, ihubst, ihubst1, ihubst2, nah, m, m1, m2, &
ibnd, ldim, npw, npwq, ik, ikk, ikq, iundnsbare
COMPLEX(DP), ALLOCATABLE :: dqsphi(:,:), dmqsphi(:,:), dwfcatom_(:)
REAL(DP), EXTERNAL :: DDOT
COMPLEX(DP), EXTERNAL :: ZDOTC
LOGICAL :: exst
!

1
PHonon/PH/dnsq_scf.f90
View File

@ -67,7 +67,6 @@ SUBROUTINE dnsq_scf (npe, lmetq0, imode0, irr, lflag)
COMPLEX(DP), ALLOCATABLE :: dpsi(:,:)
REAL(DP) :: weight, wdelta, w1
REAL(DP), EXTERNAL :: w0gauss
REAL(DP), EXTERNAL :: DDOT
COMPLEX(DP), EXTERNAL :: ZDOTC
!
CALL start_clock( 'dnsq_scf' )

3
PP/src/wannier_proj.f90
View File

@ -41,8 +41,7 @@ subroutine wannier_proj(ik, wan_func)
INTEGER :: current_spin, npw, i,j,k, ierr, ibnd, iwan
REAL(DP), EXTERNAL :: ddot
COMPLEX(DP) :: zdotc
COMPLEX(DP), EXTERNAL :: zdotc
ALLOCATE(trialwf(npwx,nwan))
ALLOCATE(pp(nwan, nbnd))

1
TDDFPT/src/lr_dav_routines.f90
View File

@ -1363,7 +1363,6 @@ contains
complex(dp) :: wfck(npwx,1)
complex(dp), allocatable :: dvrss(:),wfcr(:),dvrs(:)
real(dp) :: w1,temp
real(kind=dp), external :: ddot
ALLOCATE( psic(dfftp%nnr) )
ALLOCATE( dvrss(dffts%nnr) )