!  Copyright (C) 2017 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/>.

integer function lsdalton_chemsh_comm() result(communicator)

    use ChemShellParallelModule, only : chemsh_parallel

    communicator = chemsh_parallel%comm_workgroup

endfunction lsdalton_chemsh_comm

subroutine lsdaltonjumpout
! TWK TODO should be able to eliminate this call from LSDalton
! TWK TODO now that the Fortran STOP for replicas has been removed
! TWK TODO see LSDalton src/lsutil/lsmpiType.f90

    print *, "Warning: unexpected call to lsdaltonjumpout"

endsubroutine lsdaltonjumpout
