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

Makefile and module names updated; format P should be 1P 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2873 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2006-03-07 13:29:01 +00:00
parent dda5f85506
commit 2ecc42bbb4
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
atomic/Makefile
View File

@ -94,7 +94,7 @@ MODULES = \
../Modules/io_files.o \ ../Modules/io_files.o \
../Modules/pseudo_types.o \ ../Modules/pseudo_types.o \
../Modules/random_numbers.o \ ../Modules/random_numbers.o \
../Modules/readpseudo.o \ ../Modules/read_upf.o \
../Modules/version.o \ ../Modules/version.o \
../Modules/parameters.o ../Modules/parallel_include.o ../Modules/parameters.o ../Modules/parallel_include.o

4
atomic/c6_tfvw.f90
View File

@ -99,7 +99,7 @@ subroutine c6_tfvw (mesh, zed, dx, r, r2, rho)
! !
call dvxc_dn(mesh, rho, dvxc) call dvxc_dn(mesh, rho, dvxc)
! !
!write(*,'(PE20.12)')sum(abs(dvxc)) !write(*,'(1PE20.12)')sum(abs(dvxc))
!stop !stop
write(6,'(5x,''Frequency dependent polarizability is written into freq-pol.dat'',/)') write(6,'(5x,''Frequency dependent polarizability is written into freq-pol.dat'',/)')
@ -163,7 +163,7 @@ subroutine c6_tfvw (mesh, zed, dx, r, r2, rho)
! write (*,'(4e16.6)') alpha, dalpha, error, error2 ! write (*,'(4e16.6)') alpha, dalpha, error, error2
end do end do
write (1,'(17x, f8.4, 3x, PE14.6, 9x, PE14.6)') u, pp(mesh)*0.529177**3, pp(mesh) write (1,'(17x, f8.4, 3x, 1PE14.6, 9x, 1PE14.6)') u, pp(mesh)*0.529177**3, pp(mesh)
if (iu .eq. 0) & if (iu .eq. 0) &
write (6,'(5x, "Static polarizability: ", f10.5, " (in angstrom^3) --->", f10.5,& write (6,'(5x, "Static polarizability: ", f10.5, " (in angstrom^3) --->", f10.5,&
& " (in e^2a0^3)")') pp(mesh)*0.529177**3, pp(mesh) & " (in e^2a0^3)")') pp(mesh)*0.529177**3, pp(mesh)

2
atomic/read_pseudoupf.f90
View File

@ -21,7 +21,7 @@ subroutine read_pseudoupf
use funct, only: set_dft_from_name use funct, only: set_dft_from_name
! !
use pseudo_types use pseudo_types
use read_pseudo_module use read_upf_module
! !
implicit none implicit none
! !