integer nbfrag,bfrag,nhfrag,hfrag,bvar_frag,hvar_frag,nhpb0,
     1        lvar_frag,svar_frag,avar_frag
      COMMON /c_frag/ nbfrag,bfrag(4,maxres/3),nhfrag,hfrag(2,maxres/3)
      COMMON /frag/ bvar_frag(mxio,6),hvar_frag(mxio,3),
     1              lvar_frag(mxio,3),svar_frag(mxio,3),
     2              avar_frag(mxio,5)