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