& 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,
+ real*8 frac_cutoff
+ common /protfil/ protfiles,bprotfiles, frac_cutoff,
& nfile_bin,nfile_asc,nfile_cx,rec_start,rec_end,lenrec,lenrec1,
& lenrec2