integer maxconf,maxene,maxT,maxprot
      parameter (maxconf=100000,maxene=30,maxT=20,maxprot=30)
      integer nbase,nnbase
      parameter (nbase=5,nnbase=nbase*(nbase+1)/2)