--- /dev/null
+ character*80 protfiles(maxfile_prot,2,MaxR,MaxT_h,Max_Parm),
+ & bprotfiles
+ integer nfile_bin(MaxR,MaxT_h,Max_Parm),
+ & nfile_asc(MaxR,MaxT_h,Max_Parm),
+ & nfile_cx(MaxR,MaxT_h,Max_Parm),
+ & rec_start(MaxR,MaxT_h,Max_Parm),
+ & rec_end(MaxR,MaxT_h,Max_Parm),lenrec,lenrec1,lenrec2
+ common /protfil/ protfiles,bprotfiles,
+ & nfile_bin,nfile_asc,nfile_cx,rec_start,rec_end,lenrec,lenrec1,
+ & lenrec2