use comm_cipiszcze
use energy_data
use geometry_data, only: nres
- use control_data
+ use control_data !el, only: mucadyn,lmuca
#ifdef MPI
include 'mpif.h'
real(kind=8) :: time00
enddo
enddo
endif
- deallocate(Gcopy)
+! deallocate(Gcopy)
return
end subroutine setup_MD_matrices
!-----------------------------------------------------------------------------