double precision aa,bb,augm,aad,bad,app,bpp,ale6,ael3,ael6,
&aa_lip,bb_lip,aa_aq,bb_aq,sc_aa_tube_par,sc_bb_tube_par,
& pep_aa_tube,pep_bb_tube
-
+ double precision wdti,wdti2,wdti4,wdti8,
+ & wdtii,wdtii2,wdtii4,wdtii8
+ common /nosehoover_dt/
+ & wdti(maxyosh),wdti2(maxyosh),wdti4(maxyosh),wdti8(maxyosh),
+ & wdtii(maxyosh),wdtii2(maxyosh),wdtii4(maxyosh),wdtii8(maxyosh)
integer expon,expon2
integer nnt,nct,nint_gr,istart,iend,itype,itel,itypro,
& ielstart,ielend,ielstart_vdw,ielend_vdw,nscp_gr,iscpstart,