double precision rmstb
      integer ntot, ntot_work, list_conf, tsil, 
     &  ntot_MD, ntot_work_MD, list_conf_MD, tsil_MD, 
     &  nprot, num_nat
      common /classes/ rmstb(maxstr,maxprot),
     &  ntot(0:maxprot),ntot_work(0:maxprot), 
     &  list_conf(maxstr,maxprot),tsil(maxstr,maxprot),
     &  ntot_MD(0:maxprot),ntot_work_MD(0:maxprot), 
     &  list_conf_MD(maxstr,maxprot),tsil_MD(maxstr,maxprot),nprot