TABLE OF CONTENTS

ABINIT/defs_aimfields [ Modules ]

[ Top ] [ Modules ]

NAME

 defs_aimfields

FUNCTION

 Default declarations and 2 spline subroutines for the aim.f utility.

COPYRIGHT

 Copyright (C) 2002-2018 ABINIT group (PCasek,FF,XG)
 This file is distributed under the terms of the
 GNU General Public License, see ~abinit/COPYING
 or http://www.gnu.org/copyleft/gpl.txt .
 For the initials of contributors, see ~abinit/doc/developers/contributors.txt .

 WARNING
 This file does not follow the ABINIT coding rules (yet)

PARENTS

CHILDREN

INPUTS

OUTPUT

SOURCE

29 #if defined HAVE_CONFIG_H
30 #include "config.h"
31 #endif
32 
33 module defs_aimfields
34 
35  use defs_basis
36 
37  implicit none
38 
39 integer, save :: ngfft(3),nmax
40 integer, allocatable, save :: ndat(:)
41 real(dp), allocatable, target, save :: dig1(:),llg1(:),&
42 & dig2(:),llg2(:),dig3(:),llg3(:)
43 real(dp), allocatable, target, save :: cdig1(:),cdig2(:),cdig3(:)
44 real(dp), save :: dix(3)
45 real(dp), allocatable, target, save :: dvl(:,:,:),&
46 & ddx(:,:,:),ddy(:,:,:),ddz(:,:,:),rval(:,:,:)
47 real(dp), allocatable, save :: rrad(:,:),crho(:,:),sp2(:,:),sp3(:,:),&
48 & sp4(:,:),pdd(:),pd(:)
49 end module defs_aimfields