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