! common /back_constr/ in module.energy
! common /qmeas/ others in module.geometry
real(kind=8) :: eq_time
- integer :: iset,nset
+ integer :: iset,nset,itime_mat
integer,dimension(:),allocatable :: mset !(maxprocs/20)
logical :: usampl
! common /mdpar/