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),
6 common /protfil/ protfiles,bprotfiles,benefiles,
7 & nfile_prot,read_stat,lenrec,lenrec_ene,lenrec_in