hillclimber 0.1.5__cp313-cp313-musllinux_1_2_aarch64.whl

plumed/_lib/lib/plumed/patches/qespresso-7.0.diff/Modules/Makefile.preplumed

@@ -0,0 +1,171 @@
+#/a Makefile for Modules
+
+include ../make.inc
+
+# location of needed modules
+MODFLAGS=$(BASEMOD_FLAGS) \
+         $(MOD_FLAG)../ELPA/src
+
+# list of modules
+
+MODULES = \
+additional_kpoints.o \
+autopilot.o \
+basic_algebra_routines.o \
+becmod.o \
+bfgs_module.o \
+bspline.o \
+bz_form.o \
+cell_base.o  \
+check_stop.o  \
+command_line_options.o \
+compute_dipole.o \
+constants.o \
+constraints_module.o \
+control_flags.o \
+coulomb_vcut.o \
+dist.o \
+electrons_base.o \
+environment.o \
+fd_gradient.o \
+fft_base.o \
+fft_rho.o \
+fsockets.o \
+funct.o \
+generate_function.o \
+gradutils.o \
+gvecw.o \
+input_parameters.o \
+invmat.o \
+io_files.o \
+io_global.o  \
+ions_base.o \
+kind.o \
+lmdif.o \
+mdiis.o \
+mm_dispersion.o \
+mp_bands.o \
+mp_exx.o \
+mp_global.o \
+mp_images.o \
+mp_pools.o \
+mp_wave.o \
+mp_world.o \
+noncol.o \
+open_close_input_file.o \
+parameters.o \
+parser.o \
+plugin_flags.o \
+plugin_arguments.o \
+plugin_variables.o \
+pw_dot.o \
+qmmm.o \
+random_numbers.o \
+read_cards.o \
+read_input.o \
+read_namelists.o \
+read_pseudo.o \
+recvec.o \
+recvec_subs.o \
+run_info.o \
+space_group.o \
+set_para_diag.o \
+set_signal.o \
+set_vdw_corr.o \
+setqf.o \
+timestep.o\
+tsvdw.o\
+mbdlib.o\
+version.o \
+wannier_gw.o\
+wannier_new.o \
+wavefunctions.o \
+ws_base.o \
+xc_vdW_DF.o \
+xc_rVV10.o \
+io_base.o \
+qes_types_module.o \
+qes_libs_module.o  \
+qes_write_module.o \
+qes_read_module.o \
+qes_reset_module.o \
+qes_init_module.o \
+qes_bcast_module.o \
+qexsd.o   \
+qexsd_copy.o   \
+qexsd_init.o   \
+qexsd_input.o \
+hdf5_qe.o\
+qeh5_module.o\
+fox_init_module.o \
+xsf.o \
+wyckoff.o \
+wypos.o \
+zvscal.o \
+wave_gauge.o
+
+# list of subroutines and functions (not modules) previously found in flib/clib
+
+OBJS = \
+atom_weight.o \
+capital.o \
+cryst_to_car.o \
+expint.o \
+generate_k_along_lines.o \
+has_xml.o \
+inpfile.o \
+int_to_char.o \
+latgen.o \
+linpack.o \
+matches.o \
+plot_io.o \
+radial_gradients.o \
+rgen.o \
+recips.o \
+remove_tot_torque.o \
+set_hubbard_l.o \
+set_hubbard_n.o \
+sort.o \
+trimcheck.o \
+test_input_file.o \
+date_and_tim.o \
+volume.o \
+wgauss.o \
+w0gauss.o \
+w1gauss.o \
+deviatoric.o \
+customize_signals.o \
+qmmm_aux.o \
+sockets.o \
+stack.o
+
+# GPU versions of modules
+MODULES += \
+  wavefunctions_gpu.o \
+  becmod_gpu.o \
+  becmod_subs_gpu.o \
+  cuda_subroutines.o \
+  random_numbers_gpu.o
+
+TLDEPS= libfox libutil libla libfft librxc
+
+all : libqemod.a
+
+## The following is needed only for lapack compiled from sources
+
+dlamch.o : dlamch.f
+	$(F77) $(FFLAGS_NOOPT) -c $<
+
+libqemod.a: 	$(MODULES) $(OBJS)
+	$(AR) $(ARFLAGS) $@ $?       
+	$(RANLIB) $@    
+
+tldeps :
+	if test -n "$(TLDEPS)" ; then \
+	( cd ../.. ; $(MAKE) $(TLDEPS) || exit 1 ) ; fi
+
+
+clean :
+	- /bin/rm -f *.o *.a *.d *.i *~ *_tmp.f90 *.mod *.L
+
+include make.depend

plumed/_lib/lib/plumed/patches/qespresso-7.0.diff/PW/src/forces.f90

@@ -0,0 +1,486 @@
+!
+! Copyright (C) 2001-2011 Quantum ESPRESSO group
+! This file is distributed under the terms of the
+! GNU General Public License. See the file `License'
+! in the root directory of the present distribution,
+! or http://www.gnu.org/copyleft/gpl.txt .
+!
+!----------------------------------------------------------------------------
+SUBROUTINE forces()
+  !----------------------------------------------------------------------------
+  !! This routine is a driver routine which computes the forces
+  !! acting on the atoms. The complete expression of the forces
+  !! contains many parts which are computed by different routines:
+  !
+  !! - force_lc: local potential contribution 
+  !! - force_us: non-local potential contribution
+  !! - (esm_)force_ew: (ESM) electrostatic ewald term
+  !! - force_cc: nonlinear core correction contribution
+  !! - force_corr: correction term for incomplete self-consistency
+  !! - force_hub: contribution due to the Hubbard term;
+  !! - force_london: Grimme DFT+D dispersion forces
+  !! - force_d3: Grimme-D3 (DFT-D3) dispersion forces
+  !! - force_xdm: XDM dispersion forces
+  !! - more terms from external electric fields, Martyna-Tuckerman, etc.
+  !
+  USE kinds,             ONLY : DP
+  USE io_global,         ONLY : stdout
+  USE cell_base,         ONLY : at, bg, alat, omega  
+  USE ions_base,         ONLY : nat, ntyp => nsp, ityp, tau, zv, amass, extfor, atm
+  USE fft_base,          ONLY : dfftp
+  USE gvect,             ONLY : ngm, gstart, ngl, igtongl, igtongl_d, g, gg, &
+                                g_d, gcutm
+  USE lsda_mod,          ONLY : nspin
+  USE symme,             ONLY : symvector
+  USE vlocal,            ONLY : strf, vloc
+  USE force_mod,         ONLY : force, sumfor
+  USE scf,               ONLY : rho
+  USE ions_base,         ONLY : if_pos
+  USE ldaU,              ONLY : lda_plus_u, U_projection
+  USE extfield,          ONLY : tefield, forcefield, gate, forcegate, relaxz
+  USE control_flags,     ONLY : gamma_only, remove_rigid_rot, textfor, &
+                                iverbosity, llondon, ldftd3, lxdm, ts_vdw, &
+                                mbd_vdw, lforce => tprnfor
+  USE plugin_flags
+  USE bp,                ONLY : lelfield, gdir, l3dstring, efield_cart, &
+                                efield_cry,efield
+  USE uspp,              ONLY : okvan
+  USE martyna_tuckerman, ONLY : do_comp_mt, wg_corr_force
+  USE london_module,     ONLY : force_london
+  USE dftd3_api,         ONLY : get_atomic_number, dftd3_calc
+  USE dftd3_qe,          ONLY : dftd3_pbc_gdisp, dftd3
+
+  USE xdm_module,        ONLY : force_xdm
+  USE tsvdw_module,      ONLY : FtsvdW
+  USE libmbd_interface,  ONLY : FmbdvdW
+  USE esm,               ONLY : do_comp_esm, esm_bc, esm_force_ew
+  USE qmmm,              ONLY : qmmm_mode
+  !
+  USE control_flags,     ONLY : use_gpu
+  USE device_fbuff_m,          ONLY : dev_buf
+  USE device_memcpy_m,     ONLY : dev_memcpy
+  !
+  IMPLICIT NONE
+  !
+  REAL(DP), ALLOCATABLE :: forcenl(:,:),         &
+                           forcelc(:,:),         &
+                           forcecc(:,:),         &
+                           forceion(:,:),        &
+                           force_disp(:,:),      &
+                           force_d3(:,:),        &
+                           force_disp_xdm(:,:),  &
+                           force_mt(:,:),        &
+                           forcescc(:,:),        &
+                           forces_bp_efield(:,:),&
+                           forceh(:,:)
+  ! nonlocal, local, core-correction, ewald, scf correction terms, and hubbard
+  !
+  ! aux is used to store a possible additional density
+  ! now defined in real space
+  !
+  COMPLEX(DP), ALLOCATABLE :: auxg(:), auxr(:)
+  !
+  REAL(DP) :: sumscf, sum_mm
+  REAL(DP), PARAMETER :: eps = 1.e-12_dp
+  INTEGER  :: ipol, na
+  ! counter on polarization
+  ! counter on atoms
+  !
+  REAL(DP) :: latvecs(3,3)
+  INTEGER :: atnum(1:nat)
+  REAL(DP) :: stress_dftd3(3,3)
+  !
+  ! TODO: get rid of this !!!! Use standard method for duplicated global data
+  REAL(DP), POINTER :: vloc_d (:, :)
+  INTEGER :: ierr
+#if defined(__CUDA)
+  attributes(DEVICE) :: vloc_d
+#endif
+  !
+  force(:,:)    = 0.D0
+  !
+  ! Early return if all forces to be set to zero
+  !
+  IF ( ALL( if_pos == 0 ) ) RETURN
+  !
+  CALL start_clock( 'forces' )
+  ! Cleanup scratch space used in previous SCF iterations.
+  ! This will reduce memory footprint.
+  CALL dev_buf%reinit(ierr)
+  IF (ierr .ne. 0) CALL infomsg('forces', 'Cannot reset GPU buffers! Some buffers still locked.')
+  !
+  !
+  ALLOCATE( forcenl(3,nat), forcelc(3,nat), forcecc(3,nat), &
+            forceh(3,nat), forceion(3,nat), forcescc(3,nat) )
+  !    
+  forcescc(:,:) = 0.D0
+  forceh(:,:)   = 0.D0
+  !
+  ! ... The nonlocal contribution is computed here
+  !
+  call start_clock('frc_us') 
+  IF (.not. use_gpu) CALL force_us( forcenl )
+  IF (      use_gpu) CALL force_us_gpu( forcenl )
+  call stop_clock('frc_us') 
+  !
+  ! ... The local contribution
+  !
+  CALL start_clock('frc_lc') 
+  IF (.not. use_gpu) & ! On the CPU
+     CALL force_lc( nat, tau, ityp, alat, omega, ngm, ngl, igtongl, &
+                 g, rho%of_r(:,1), dfftp%nl, gstart, gamma_only, vloc, &
+                 forcelc )
+  IF (      use_gpu) THEN ! On the GPU
+     ! move these data to the GPU
+     CALL dev_buf%lock_buffer(vloc_d, (/ ngl, ntyp /) , ierr)
+     IF (ierr /= 0) CALL errore( 'forces', 'cannot allocate buffers', -1 )
+     CALL dev_memcpy(vloc_d, vloc)
+     CALL force_lc_gpu( nat, tau, ityp, alat, omega, ngm, ngl, igtongl_d, &
+                   g_d, rho%of_r(:,1), dfftp%nl_d, gstart, gamma_only, vloc_d, &
+                   forcelc )
+     CALL dev_buf%release_buffer(vloc_d, ierr)
+  END IF
+  call stop_clock('frc_lc') 
+  !
+  ! ... The NLCC contribution
+  !
+  call start_clock('frc_cc') 
+  IF (.not. use_gpu) CALL force_cc( forcecc )
+  IF (      use_gpu) CALL force_cc_gpu( forcecc )
+  !
+  call stop_clock('frc_cc') 
+
+  ! ... The Hubbard contribution
+  !     (included by force_us if using beta as local projectors)
+  !
+  IF (.not. use_gpu) THEN
+     IF ( lda_plus_u .AND. U_projection.NE.'pseudo' ) CALL force_hub( forceh )
+  ELSE
+     IF ( lda_plus_u .AND. U_projection.NE.'pseudo' ) CALL force_hub_gpu( forceh )
+  ENDIF
+  !
+  ! ... The ionic contribution is computed here
+  !
+  IF( do_comp_esm ) THEN
+     CALL esm_force_ew( forceion )
+  ELSE
+     CALL force_ew( alat, nat, ntyp, ityp, zv, at, bg, tau, omega, g, &
+                    gg, ngm, gstart, gamma_only, gcutm, strf, forceion )
+  ENDIF
+  !
+  ! ... the semi-empirical dispersion correction
+  !
+  IF ( llondon ) THEN
+    !
+    ALLOCATE( force_disp(3,nat) )
+    force_disp(:,:) = 0.0_DP
+    force_disp = force_london( alat , nat , ityp , at , bg , tau )
+    !
+  ENDIF
+  !
+  ! ... The Grimme-D3 dispersion correction
+  !
+  IF ( ldftd3 ) THEN
+    !
+    CALL start_clock('force_dftd3')
+    ALLOCATE( force_d3(3, nat) )
+    force_d3(:,:) = 0.0_DP
+    latvecs(:,:) = at(:,:)*alat
+    tau(:,:) = tau(:,:)*alat
+    atnum(:) = get_atomic_number(atm(ityp(:)))
+    CALL dftd3_pbc_gdisp( dftd3, tau, atnum, latvecs, &
+                          force_d3, stress_dftd3 )
+    force_d3 = -2.d0*force_d3
+    tau(:,:) = tau(:,:)/alat
+    CALL stop_clock('force_dftd3')
+  ENDIF
+  !
+  !
+  IF (lxdm) THEN
+     ALLOCATE( force_disp_xdm(3,nat) )
+     force_disp_xdm = 0._dp
+     force_disp_xdm = force_xdm(nat)
+  ENDIF
+  !
+  ! ... The SCF contribution
+  !
+  call start_clock('frc_scc')
+  ! Cleanup scratch space again, next subroutines uses a lot of memory.
+  ! In an ideal world this should be done only if really needed (TODO).
+  CALL dev_buf%reinit(ierr)
+  IF (ierr .ne. 0) CALL errore('forces', 'Cannot reset GPU buffers! Buffers still locked: ', abs(ierr))
+  !
+  IF ( .not. use_gpu ) CALL force_corr( forcescc )
+  IF (       use_gpu ) CALL force_corr_gpu( forcescc )
+  call stop_clock('frc_scc') 
+  !
+  IF (do_comp_mt) THEN
+    !
+    ALLOCATE( force_mt(3,nat) )
+    CALL wg_corr_force( .TRUE., omega, nat, ntyp, ityp, ngm, g, tau, zv, strf, &
+                        rho%of_g(:,1), force_mt )
+  ENDIF
+  !
+  ! ... call void routine for user define/ plugin patches on internal forces
+  !
+  CALL plugin_int_forces()
+  !
+  ! ... Berry's phase electric field terms
+  !
+  IF (lelfield) THEN
+     ALLOCATE( forces_bp_efield(3,nat) )
+     forces_bp_efield(:,:) = 0.d0
+     IF (.NOT.l3dstring) THEN
+        IF (okvan) CALL forces_us_efield( forces_bp_efield, gdir, efield )
+        CALL forces_ion_efield( forces_bp_efield, gdir, efield )
+     ELSE
+        IF (okvan) THEN
+           DO ipol = 1, 3
+              CALL forces_us_efield( forces_bp_efield, ipol, efield_cry(ipol) )
+           ENDDO
+        ENDIF
+        DO ipol = 1, 3
+           CALL forces_ion_efield( forces_bp_efield, ipol, efield_cart(ipol) )
+        ENDDO
+     ENDIF
+  ENDIF
+  !
+  ! ... here we sum all the contributions and compute the total force acting
+  ! ... on the crystal
+  !
+  DO ipol = 1, 3
+     !
+     sumfor = 0.D0
+     !
+     DO na = 1, nat
+        !
+        force(ipol,na) = force(ipol,na)    + &
+                         forcenl(ipol,na)  + &
+                         forceion(ipol,na) + &
+                         forcelc(ipol,na)  + &
+                         forcecc(ipol,na)  + &
+                         forceh(ipol,na)   + &
+                         forcescc(ipol,na)
+        !
+        IF ( llondon )  force(ipol,na) = force(ipol,na) + force_disp(ipol,na)
+        IF ( ldftd3 )   force(ipol,na) = force(ipol,na) + force_d3(ipol,na)
+        IF ( lxdm )     force(ipol,na) = force(ipol,na) + force_disp_xdm(ipol,na)
+        ! factor 2 converts from Ha to Ry a.u.
+        ! the IF condition is to avoid double counting
+        IF ( mbd_vdw ) THEN
+          force(ipol, na) = force(ipol, na) + 2.0_dp*FmbdvdW(ipol, na)
+        ELSE IF ( ts_vdw ) THEN
+          force(ipol, na) = force(ipol, na) + 2.0_dp*FtsvdW(ipol, na)
+        ENDIF
+        IF ( tefield )  force(ipol,na) = force(ipol,na) + forcefield(ipol,na)
+        IF ( gate )     force(ipol,na) = force(ipol,na) + forcegate(ipol,na) ! TB
+        IF (lelfield)   force(ipol,na) = force(ipol,na) + forces_bp_efield(ipol,na)
+        IF (do_comp_mt) force(ipol,na) = force(ipol,na) + force_mt(ipol,na) 
+        !
+        sumfor = sumfor + force(ipol,na)
+        !
+     ENDDO
+     !
+     !TB
+     IF ((gate.AND.relaxz).AND.(ipol==3)) WRITE( stdout, '("Total force in z direction = 0 disabled")')
+     !
+     IF ( (do_comp_esm .AND. ( esm_bc /= 'pbc' )).OR.(gate.AND.relaxz) ) THEN
+        !
+        ! ... impose total force along xy = 0
+        !
+        DO na = 1, nat
+           IF ( ipol /= 3) force(ipol,na) = force(ipol,na)  &
+                                            - sumfor / DBLE( nat )
+        ENDDO
+        !
+     ELSEIF ( qmmm_mode < 0 ) THEN
+        !
+        ! ... impose total force = 0 except in a QM-MM calculation
+        !
+        DO na = 1, nat
+           force(ipol,na) = force(ipol,na) - sumfor / DBLE( nat ) 
+        ENDDO
+        !
+     ENDIF
+     !
+  ENDDO
+  !
+  ! ... resymmetrize (should not be needed, but ...)
+  !
+  CALL symvector( nat, force )
+  !
+  IF ( remove_rigid_rot ) &
+     CALL remove_tot_torque( nat, tau, amass(ityp(:)), force  )
+  !
+  IF( textfor ) force(:,:) = force(:,:) + extfor(:,:)
+  !
+  ! ... call void routine for user define/ plugin patches on external forces
+  !
+  ! plugin should be called after stress has been computed
+  ! look in run_pwscf.f90
+  !CALL plugin_ext_forces()
+  !
+  ! ... write on output the forces
+  !
+  WRITE( stdout, '(/,5x,"Forces acting on atoms (cartesian axes, Ry/au):", / )')
+  DO na = 1, nat
+     WRITE( stdout, 9035) na, ityp(na), force(:,na)
+  ENDDO
+  !
+  ! ... forces on fixed coordinates are set to zero ( C.S. 15/10/2003 )
+  !
+  force(:,:)    = force(:,:)    * DBLE( if_pos )
+  forcescc(:,:) = forcescc(:,:) * DBLE( if_pos )
+  !
+  IF ( iverbosity > 0 ) THEN
+     IF ( do_comp_mt ) THEN
+        WRITE( stdout, '(5x,"The Martyna-Tuckerman correction term to forces")')
+        DO na = 1, nat
+           WRITE( stdout, 9035) na, ityp(na), ( force_mt(ipol,na), ipol = 1, 3 )
+        ENDDO
+     END IF
+     !
+     WRITE( stdout, '(5x,"The non-local contrib.  to forces")')
+     DO na = 1, nat
+        WRITE( stdout, 9035) na, ityp(na), ( forcenl(ipol,na), ipol = 1, 3 )
+     ENDDO
+     WRITE( stdout, '(5x,"The ionic contribution  to forces")')
+     DO na = 1, nat
+        WRITE( stdout, 9035) na, ityp(na), ( forceion(ipol,na), ipol = 1, 3 )
+     ENDDO
+     WRITE( stdout, '(5x,"The local contribution  to forces")')
+     DO na = 1, nat
+        WRITE( stdout, 9035) na, ityp(na), ( forcelc(ipol,na), ipol = 1, 3 )
+     ENDDO
+     WRITE( stdout, '(5x,"The core correction contribution to forces")')
+     DO na = 1, nat
+        WRITE( stdout, 9035) na, ityp(na), ( forcecc(ipol,na), ipol = 1, 3 )
+     ENDDO
+     WRITE( stdout, '(5x,"The Hubbard contrib.    to forces")')
+     DO na = 1, nat
+        WRITE( stdout, 9035) na, ityp(na), ( forceh(ipol,na), ipol = 1, 3 )
+     ENDDO
+     WRITE( stdout, '(5x,"The SCF correction term to forces")')
+     DO na = 1, nat
+        WRITE( stdout, 9035) na, ityp(na), ( forcescc(ipol,na), ipol = 1, 3 )
+     ENDDO
+     !
+     IF ( llondon) THEN
+        WRITE( stdout, '(/,5x,"Dispersion contribution to forces:")')
+        DO na = 1, nat
+           WRITE( stdout, 9035) na, ityp(na), (force_disp(ipol,na), ipol = 1, 3)
+        ENDDO
+     END IF
+     !
+     IF ( ldftd3 ) THEN
+        WRITE( stdout, '(/,5x,"DFT-D3 dispersion contribution to forces:")')
+        DO na = 1, nat
+           WRITE( stdout, 9035) na, ityp(na), (force_d3(ipol,na), ipol = 1, 3)
+        ENDDO
+     END IF
+     !
+     IF (lxdm) THEN
+        WRITE( stdout, '(/,5x,"XDM contribution to forces:")')
+        DO na = 1, nat
+           WRITE( stdout, 9035) na, ityp(na), (force_disp_xdm(ipol,na), ipol = 1, 3)
+        ENDDO
+     END IF
+     !
+     ! again, as above, if condition is to avoid redundant printing
+     IF ( mbd_vdw ) THEN
+        WRITE( stdout, '(/,5x, "MBD contribution to forces")')
+        DO na = 1, nat
+           WRITE( stdout, 9035) na, ityp(na), (2.0d0*FmbdvdW(ipol, na), ipol = 1, 3)
+        ENDDO
+     ELSE IF ( ts_vdw ) THEN
+        WRITE( stdout, '(/,5x, "TS-VDW contribution to forces")')
+        DO na = 1, nat
+           WRITE( stdout, 9035) na, ityp(na), (2.0d0*FtsvdW(ipol, na), ipol = 1, 3)
+        ENDDO
+     ENDIF
+
+     !
+     ! TB gate forces
+     IF ( gate ) THEN
+        WRITE( stdout, '(/,5x,"Gate contribution to forces:")')
+        DO na = 1, nat
+           WRITE( stdout, 9035) na, ityp(na), (forcegate(ipol,na), ipol = 1, 3)
+        ENDDO
+     END IF
+     !
+  END IF
+  !
+  sumfor = 0.D0
+  sumscf = 0.D0
+  !
+  DO na = 1, nat
+     !
+     sumfor = sumfor + force(1,na)**2 + force(2,na)**2 + force(3,na)**2
+     sumscf = sumscf + forcescc(1,na)**2 + forcescc(2,na)**2+ forcescc(3,na)**2
+     !
+  ENDDO
+  !
+  sumfor = SQRT( sumfor )
+  sumscf = SQRT( sumscf )
+  !
+  WRITE( stdout, '(/5x,"Total force = ",F12.6,5X, &
+              &  "Total SCF correction = ",F12.6)') sumfor, sumscf
+  !
+  IF ( llondon .AND. iverbosity > 0 ) THEN
+     !
+     sum_mm = 0.D0
+     DO na = 1, nat
+        sum_mm = sum_mm + &
+                 force_disp(1,na)**2 + force_disp(2,na)**2 + force_disp(3,na)**2
+     ENDDO
+     sum_mm = SQRT( sum_mm )
+     WRITE ( stdout, '(/,5x, "Total Dispersion Force = ",F12.6)') sum_mm
+     !
+  END IF
+  !
+  IF ( ldftd3 .AND. iverbosity > 0 ) THEN
+     !
+     sum_mm = 0.D0
+     DO na = 1, nat
+        sum_mm = sum_mm + &
+                 force_d3(1,na)**2 + force_d3(2,na)**2 + force_d3(3,na)**2
+     ENDDO
+     sum_mm = SQRT( sum_mm )
+     WRITE ( stdout, '(/,5x, "DFT-D3 dispersion Force = ",F12.6)') sum_mm
+     !
+  END IF
+  !
+  IF ( lxdm .AND. iverbosity > 0 ) THEN
+     !
+     sum_mm = 0.D0
+     DO na = 1, nat
+        sum_mm = sum_mm + &
+                 force_disp_xdm(1,na)**2 + force_disp_xdm(2,na)**2 + force_disp_xdm(3,na)**2
+     ENDDO
+     sum_mm = SQRT( sum_mm )
+     WRITE ( stdout, '(/,5x, "Total XDM Force = ",F12.6)') sum_mm
+     !
+  END IF
+  !
+  DEALLOCATE( forcenl, forcelc, forcecc, forceh, forceion, forcescc )
+  IF ( llondon  ) DEALLOCATE( force_disp       )
+  IF ( ldftd3   ) DEALLOCATE( force_d3         )
+  IF ( lxdm     ) DEALLOCATE( force_disp_xdm   ) 
+  IF ( lelfield ) DEALLOCATE( forces_bp_efield )
+  IF(ALLOCATED(force_mt))   DEALLOCATE( force_mt )
+  !
+  ! FIXME: what is the following line good for?
+  !
+  lforce = .TRUE.
+  !
+  CALL stop_clock( 'forces' )
+  !
+  IF ( ( sumfor < 10.D0*sumscf ) .AND. ( sumfor > nat*eps ) ) &
+  WRITE( stdout,'(5x,"SCF correction compared to forces is large: ", &
+                   &  "reduce conv_thr to get better values")')
+
+  RETURN
+  !
+9035 FORMAT(5X,'atom ',I4,' type ',I2,'   force = ',3F14.8)
+  !
+END SUBROUTINE forces