COMMON.PROTFILES

   1       character*80 protfiles(maxfile_prot,maxprot),
   2      & bprotfiles(maxprot),benefiles(maxprot)
   3       integer nfile_prot(maxfile_prot)
   4       integer read_stat,lenrec(maxprot),lenrec_ene(maxprot),
   5      &  lenrec_in(maxprot)
   6       common /protfil/ protfiles,bprotfiles,benefiles,
   7      &  nfile_prot,read_stat,lenrec,lenrec_ene,lenrec_in