character*80 protfiles(maxfile_prot,maxprot),
     & bprotfiles(maxprot),benefiles(maxprot)
      integer nfile_prot(maxfile_prot)
      integer read_stat,lenrec(maxprot),lenrec_ene(maxprot),
     &  lenrec_in(maxprot)
      common /protfil/ protfiles,bprotfiles,benefiles,
     &  nfile_prot,read_stat,lenrec,lenrec_ene,lenrec_in