1 character*80 protfiles(maxfile_prot,maxprot),
2 & fpdbfile(maxprot),fcoordfile(maxprot),fforcefile(maxprot),
3 & bprotfiles(maxprot),benefiles(maxprot),
4 & bprotfiles_MD(maxprot),bforcefiles(maxprot)
5 integer nfile_prot(maxfile_prot),lenrec_MD(maxprot),
6 & lenrec_forces(maxprot)
7 integer read_stat,lenrec(maxprot),lenrec_ene(maxprot),
9 common /protfil/ protfiles,bprotfiles,bprotfiles_MD,
10 & benefiles,bforcefiles,fpdbfile,fcoordfile,fforcefile,
11 & nfile_prot,read_stat,lenrec,lenrec_ene,lenrec_in,
12 & lenrec_MD,lenrec_forces