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

parallel_include missing and other small things 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1002 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2004-06-25 15:01:44 +00:00
parent e10d903786
commit 97e28817f3
6 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
PP/Makefile
View File

@ -46,6 +46,7 @@ MODULES = \
../Modules/mp_global.o \
../Modules/mp_wave.o \
../Modules/mp.o \
../Modules/parallel_include.o \
../Modules/parameters.o \
../Modules/parser.o \
../Modules/pseudo_types.o \

2
PP/bands.f90
View File

@ -23,7 +23,7 @@ program bands
namelist / inputpp / outdir, prefix, filband
CHARACTER (LEN=80) :: input_file
INTEGER :: nargs, iiarg, ierr
INTEGER :: nargs, iiarg, ierr, ilen
INTEGER, EXTERNAL :: iargc
!

5
PP/chdens.f90
View File

@ -58,7 +58,7 @@ program chdens
makov, plot_out, output_format, fileout, epsilon, filepol
CHARACTER (LEN=80) :: input_file
INTEGER :: nargs, iiarg, ierr
INTEGER :: nargs, iiarg, ierr, ilen
INTEGER, EXTERNAL :: iargc
!
@ -1291,7 +1291,7 @@ subroutine makov_payne (ibrav, alat, at, nat, tau, ityp, zv, ntyp, x0, &
! differs from the "traditional" one found in the literature. See
! Lento, Mozos, Nieminen, J. Phys.: Condens. Matter 14 (2002), 2637-2645
real(kind=DP), parameter:: Madelung(3) = [2.8373, 2.8883, 2.885]
real(kind=DP), parameter:: Madelung(3) = (/ 2.8373, 2.8883, 2.885/)
if (ibrav < 1 .or. ibrav > 3) then
WRITE(stdout,'("Makov-Payne correction only for cubic lattices")')
@ -1315,6 +1315,7 @@ subroutine makov_payne (ibrav, alat, at, nat, tau, ityp, zv, ntyp, x0, &
dr = omega * deltax * deltay * deltaz
rhomin = MAX ( MINVAL (rhor), 1.d-10 )
rhotot = 0.d0
!
! compute electronic total charge, dipole and quadrupole moments
!

2
PP/dos.f90
View File

@ -52,7 +52,7 @@ program dos
logical :: minus_q
CHARACTER (LEN=80) :: input_file
INTEGER :: nargs, iiarg, ierr
INTEGER :: nargs, iiarg, ierr, ilen
INTEGER, EXTERNAL :: iargc
!

2
PP/postproc.f90
View File

@ -44,7 +44,7 @@ program postproc
filplot, lsign
CHARACTER (LEN=80) :: input_file
INTEGER :: nargs, iiarg, ierr
INTEGER :: nargs, iiarg, ierr, ilen
INTEGER, EXTERNAL :: iargc
!

2
PP/projwfc.f90
View File

@ -42,7 +42,7 @@ program projwfc
Emin, Emax, DeltaE, smoothing
CHARACTER (LEN=80) :: input_file
INTEGER :: nargs, iiarg, ierr
INTEGER :: nargs, iiarg, ierr, ilen
INTEGER, EXTERNAL :: iargc