! @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ !
! @@                                                                @@ !
! @@       PROGRAM  ASCOT 2014.440 (ver.4.40)                       @@ !
! @@     "Abinitio Simulation Code for Quantum Transport"           @@ !
! @@                                                                @@ !
! @@                                                                @@ !
! @@  AUTHOR(S): Hisashi KONDO (Univ. Tokyo)                        @@ !
! @@                                                09/May/2014     @@ !
! @@                                                                @@ !
! @@  Contact address: Phase System Consortium                      @@ !
! @@                                                                @@ !
! @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ !

module hamiltonian_sgf

  implicit none

  integer :: iw_max_ll,kx_max_ll,ky_max_ll,kz_max_ll,mat_max_ll,iw_dos_ll
  integer :: spin_switch_ll
  real(8) :: cp_l

  integer :: iw_max_rr,kx_max_rr,ky_max_rr,kz_max_rr,mat_max_rr,iw_dos_rr
  integer :: spin_switch_rr
  real(8) :: cp_r

end module hamiltonian_sgf
