integer ifragpair(maxres,maxmodel,maxmodel),
& ifragpair_new(maxres,maxmodel,maxmodel),
& iflag(maxres),isumfmax(maxmodel),kmax(maxmodel),
integer ifragpair(maxres,maxmodel,maxmodel),
& ifragpair_new(maxres,maxmodel,maxmodel),
& iflag(maxres),isumfmax(maxmodel),kmax(maxmodel),