c & " constr_dist",constr_dist," link_start_peak",link_start_peak,
c & " link_end_peak",link_end_peak
if (link_end.eq.0.and.link_end_peak.eq.0) return
c & " constr_dist",constr_dist," link_start_peak",link_start_peak,
c & " link_end_peak",link_end_peak
if (link_end.eq.0.and.link_end_peak.eq.0) return