integer ntot(maxslice),isampl(max_parm),nslice
      common /protein/ ntot,isampl,nslice