character*80 protfiles(maxfile_prot,maxprot),
     & fpdbfile(maxprot),fcoordfile(maxprot),fforcefile(maxprot),
     & bprotfiles(maxprot),benefiles(maxprot),
     & bprotfiles_MD(maxprot),bforcefiles(maxprot)
      integer nfile_prot(maxfile_prot),lenrec_MD(maxprot),
     & lenrec_forces(maxprot)
      integer read_stat,lenrec(maxprot),lenrec_ene(maxprot),
     &  lenrec_in(maxprot)
      common /protfil/ protfiles,bprotfiles,bprotfiles_MD,
     &  benefiles,bforcefiles,fpdbfile,fcoordfile,fforcefile,
     &  nfile_prot,read_stat,lenrec,lenrec_ene,lenrec_in,
     &  lenrec_MD,lenrec_forces