COMMON.FRAG

   1       integer nbfrag,bfrag,nhfrag,hfrag,bvar_frag,hvar_frag,nhpb0,
   2      & nh310frag,h310frag
   3       COMMON /c_frag/ nbfrag,bfrag(4,maxres/3),nhfrag,hfrag(2,maxres/3),
   4      & nh310frag,h310frag(2,maxres/2)
   5       COMMON /frag/ bvar_frag(mxio,6),hvar_frag(mxio,3)