1!
2! Copyright (C) 1996-2016	The SIESTA group
3!  This file is distributed under the terms of the
4!  GNU General Public License: see COPYING in the top directory
5!  or http://www.gnu.org/copyleft/gpl.txt.
6! See Docs/Contributors.txt for a list of contributors.
7!
8      module on_main
9
10        use precision, only: dp, on_p
11
12        implicit none
13
14        integer,  pointer, save :: numc(:)
15        integer,  pointer, save :: numcold(:)
16        integer,  pointer, save :: listc(:,:)
17        integer,  pointer, save :: listcold(:,:)
18        integer,  pointer, save :: ncG2L(:)
19        integer,  pointer, save :: ncL2G(:)
20        integer,  pointer, save :: ncP2T(:)
21        integer,  pointer, save :: ncT2P(:)
22C
23C  Band pointers
24C
25C  nbandsloc = no. of bands to which local orbitals belong
26C  nbL2G     = pointer from local band to global band index
27C
28        integer,           save :: nbandsloc = 1
29        integer,  pointer, save :: nbL2G(:)
30        integer,  pointer, save :: nbG2L(:)
31
32        real(dp), pointer, save :: c(:,:,:)
33        real(dp), pointer, save :: cold(:,:,:)
34        real(dp), pointer, save :: xi(:,:,:)
35
36        real(on_p),   pointer, save :: g(:,:,:)
37        real(on_p),   pointer, save :: hg(:,:,:)
38
39      end module on_main
40
41      module on_core
42
43        use precision, only: dp
44
45        implicit none
46
47        integer,  pointer, save :: numct(:)
48        integer,  pointer, save :: numf(:)
49        integer,  pointer, save :: numft(:)
50        integer,  pointer, save :: numft2(:)
51        integer,  pointer, save :: numhij(:)
52        integer,  pointer, save :: indon(:)
53        integer,  pointer, save :: nindv(:)
54        integer,  pointer, save :: cttoc(:,:)
55        integer,  pointer, save :: fttof(:,:)
56        integer,  pointer, save :: listct(:,:)
57        integer,  pointer, save :: listf(:,:)
58        integer,  pointer, save :: listft(:,:)
59        integer,  pointer, save :: listft2(:,:)
60        integer,  pointer, save :: listhij(:,:)
61
62        real(dp), pointer, save :: f(:,:)
63        real(dp), pointer, save :: fs(:,:)
64
65      end module on_core
66