!--------------------------------------------------------------------------------! Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany! This file is part of FLEUR and available as free software under the conditions! of the MIT license as expressed in the LICENSE file in more detail.!--------------------------------------------------------------------------------

MODULEm_radovlpCONTAINSSUBROUTINErad_ovlp(atoms,usdus,input,vr,epar,uun21,udn21,dun21,ddn21)!***********************************************************************! calculates the overlap of the radial basis functions with different! spin directions. These overlapp integrals are needed to calculate! the contribution to the hamiltonian from the constant constraint! B-field.!! Philipp Kurz 2000-04!***********************************************************************USEm_int21USEm_radfunUSEm_typesIMPLICITNONETYPE(t_input),INTENT(IN)::inputTYPE(t_atoms),INTENT(IN)::atomsTYPE(t_usdus),INTENT(INOUT)::usdus! .. Array Arguments ..