include 'COMMON.GEO'
include 'COMMON.FFIELD'
include 'COMMON.SBRIDGE'
- include 'COMMON.DISTFIT'
+c include 'COMMON.DISTFIT'
include 'COMMON.CHAIN'
dimension var(maxvar),erg(mxch*(mxch+1)/2+1)
dimension var2(maxvar)
- integer iffr(maxres),ihpbt(maxdim),jhpbt(maxdim)
+ integer iffr(maxres),ihpbt(maxdim_cont),jhpbt(maxdim_cont)
double precision d(maxvar),garbage(maxvar),g(maxvar)
double precision energia(0:n_ene),time0s,time1s
dimension indx(9),info(12)