!  Copyright (C) 2020 The authors of Py-ChemShell
!
!  This file is part of Py-ChemShell.
!
!  Py-ChemShell is free software: you can redistribute it and/or modify
!  it under the terms of the GNU Lesser General Public License as
!  published by the Free Software Foundation, either version 3 of the
!  License, or (at your option) any later version.
!
!  Py-ChemShell is distributed in the hope that it will be useful,
!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!  GNU Lesser General Public License for more details.
!
!  You should have received a copy of the GNU Lesser General Public
!  License along with Py-ChemShell.  If not, see
!  <http://www.gnu.org/licenses/>.

module DLMONTEModule
public :: dl_monte, dl_monte_energy, dl_monte_gradients, dl_monte_global_indices
real(kind=8)             :: dl_monte_energy
real(kind=8)   , pointer :: dl_monte_gradients(:,:)
integer(kind=4), pointer :: dl_monte_global_indices(:)
contains
subroutine dl_monte(workgroup)
    integer, intent(in) :: workgroup
endsubroutine dl_monte
endmodule DLMONTEModule
