scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
3,370 Commits 5 Branches 40 Tags 1.8 GiB
Commit Graph

9 Commits

Author SHA1 Message Date
degironc 91433749f9 More small changes to funct module, some clean up of the EXX part. 
stefano


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2420 c92efa57-630b-4861-b058-cf58834340f0
 2005-11-04 11:47:42 +00:00
degironc c209f8233b Modules/functionals.f90 modified. 
The idea is that module funct contains data defining the DFT functional in use
and a number of functions and subroutines to manage them.
Data are PRIVATE and are (shuold be) accessed and set only by function calls.
Basic drivers to compute XC quantities are also included.

It should be the main place where definitions for and calculation of xc
functionals are centralized.

In CPV printout [A.U.] replaced by [HARTREE A.U.] in many places.

stefano


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2411 c92efa57-630b-4861-b058-cf58834340f0
 2005-11-02 15:42:06 +00:00
giannozz f533b052d5 dbl => DP (defined as previously dbl was) 
syntax for declarations: real(DP), without "kind="


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2135 c92efa57-630b-4861-b058-cf58834340f0
 2005-08-28 14:09:42 +00:00
giannozz bf4bfe222f General cleanup of intrinsic functions: 
conversion to real    => DBLE
(including real part of a complex number)
conversion to complex => CMPLX
complex conjugate     => CONJG
imaginary part        => AIMAG

All functions are uppercase.
CMPLX is preprocessed by f_defs.h and performs an explicit cast:
#define CMPLX(a,b)  cmplx(a,b,kind=DP)
This implies that 1) f_defs.h must be included whenever a CMPLX is present,
2) CMPLX should stay in a single line, 3) DP must be defined.

All occurrences of real, float, dreal, dfloat, dconjg, dimag, dcmplx
removed - please do not reintroduce any of them.
Tested only with ifc7 and g95 - beware unintended side effects

Maybe not the best solution (explicit casts everywhere would be better)
but it can be easily changed with a script if the need arises.
The following code might be used to test for possible trouble:

program test_intrinsic

  implicit none
  integer, parameter :: dp = selected_real_kind(14,200)
  real (kind=dp) :: a = 0.123456789012345_dp
  real (kind=dp) :: b = 0.987654321098765_dp
  complex (kind=dp) :: c = ( 0.123456789012345_dp, 0.987654321098765_dp)

  print *, '      A = ', a
  print *, ' DBLE(A)= ', DBLE(a)
  print *, '      C = ', c
  print *, 'CONJG(C)= ', CONJG(c)
  print *, 'DBLE(c),AIMAG(C)  = ', DBLE(c), AIMAG(c)
  print *, 'CMPLX(A,B,kind=dp)= ', CMPLX( a, b, kind=dp)

end program test_intrinsic

Note that CMPLX and REAL without a cast yield single precision numbers on
ifc7 and g95 !!!


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2133 c92efa57-630b-4861-b058-cf58834340f0
 2005-08-26 17:44:42 +00:00
sbraccia b181c7f33f Old parallel variables (such as me mypool) removed from PH. 
C.S.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1415 c92efa57-630b-4861-b058-cf58834340f0
 2004-11-03 10:58:17 +00:00
sbraccia 0caeadbd7b Machine-dependent definitions are now contained in two different files (both in /include): 
1) f_defs.h  for definitions to be included in FORTRAN files ONLY
   2) c_defs.h  for definitions to be included in C       files ONLY

C.S.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1012 c92efa57-630b-4861-b058-cf58834340f0
 2004-06-25 17:25:37 +00:00
giannozz 0b1a5c9fd8 Extensive module cleanup: DP moved from wrong place (parameters) to the 
correct place (kinds); module "varie" replaced by "control_flags" (not
yet in pwcom, though) - many many files changed.
64-bit cpus (Opteron, maybe Itanium) should now work if __LINUX64 is defined


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@513 c92efa57-630b-4861-b058-cf58834340f0
 2004-01-23 15:08:03 +00:00
degironc 0e2edd9002 speed-up of z* calculation 
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@340 c92efa57-630b-4861-b058-cf58834340f0
 2003-10-24 15:57:43 +00:00
degironc 9c38e39f43 16 Oct 2003 US effective charges now available in the phonon code. 
Contributed by Gernot Deinzer


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@333 c92efa57-630b-4861-b058-cf58834340f0
 2003-10-16 14:39:25 +00:00