my( $Flag1, $Flag2 ) = ProtsFlags( $Subj_id, \%proph_prots, \%euk_prots, \%vir_prots );

    $HoFlg1{$Query_id}{$Subj_id}{$bits} = $Flag1;
    $HoFlg2{$Query_id}{$Subj_id}{$bits} = $Flag2;