← Back to branch summary

~nickpapior/siesta/trunk-kpoint-dos

« back to all changes in this revision

Viewing changes to Pseudo/atom/ggaxc.f

  • Committer: Alberto Garcia
  • Date: 2004-11-25 18:49:43 UTC
  • Revision ID: Arch-1:siesta@uam.es--2004%siesta-devel--reference--0.11--patch-1
Siesta 0.11 -- imported from CVS
Import from cvs using date instead of siesta-0-11-release tag, since
the Pseudo structure was not properly integrated at that time and
did not get the tag.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Pseudo/atom/ggaxc.f
10
10
      IMPLICIT          NONE
11
11
      CHARACTER*(*)     AUTHOR
12
12
      INTEGER           IREL, NSPIN
13
 
      DOUBLE PRECISION  D(NSPIN), DECDD, DECDGD, DEXDD, DEXDGD,
 
13
cc      DOUBLE PRECISION  D(NSPIN), DECDD, DECDGD, DEXDD, DEXDGD,
 
14
cc     .                  EPSC, EPSX, GD(3,NSPIN)
 
15
      DOUBLE PRECISION  D(NSPIN), DECDD(NSPIN), DECDGD(3,NSPIN), 
 
16
     .                  DEXDD(NSPIN), DEXDGD(3,NSPIN),
14
17
     .                  EPSC, EPSX, GD(3,NSPIN)
15
18
 
16
19
      IF (AUTHOR.EQ.'PBE' .OR. AUTHOR.EQ.'pbe') THEN
17
20
        CALL PBEXC( IREL, NSPIN, D, GD,
18
21
     .              EPSX, EPSC, DEXDD, DECDD, DEXDGD, DECDGD )
 
22
      ELSE IF (AUTHOR.EQ.'LYP'.OR.AUTHOR.EQ.'lyp') THEN
 
23
        CALL BLYPXC(NSPIN,D,GD,EPSX,EPSC,dEXdd,dECdd,dEXdgd,dECdgd)
19
24
      ELSE
20
25
        WRITE(6,*) 'GGAXC: Unknown author ', AUTHOR
21
26
        STOP