FLA_Sylv.h File Reference

(r)

Go to the source code of this file.

Functions
FLA_Error	FLA_Sylv_internal (FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t *cntl)
FLA_Error	FLA_Sylv_nn (FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t *cntl)
FLA_Error	FLA_Sylv_nh (FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t *cntl)
FLA_Error	FLA_Sylv_hn (FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t *cntl)
FLA_Error	FLA_Sylv_hh (FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t *cntl)

---

Function Documentation

FLA_Error FLA_Sylv_hh	(	FLA_Obj	isgn,
		FLA_Obj	A,
		FLA_Obj	B,
		FLA_Obj	C,
		FLA_Obj	scale,
		fla_sylv_t *	cntl
	)

References FLA_Sylv_hh_blk_ext(), FLA_Sylv_hh_blk_var1(), FLA_Sylv_hh_blk_var10(), FLA_Sylv_hh_blk_var11(), FLA_Sylv_hh_blk_var12(), FLA_Sylv_hh_blk_var13(), FLA_Sylv_hh_blk_var14(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hh_blk_var2(), FLA_Sylv_hh_blk_var3(), FLA_Sylv_hh_blk_var4(), FLA_Sylv_hh_blk_var5(), FLA_Sylv_hh_blk_var6(), FLA_Sylv_hh_blk_var7(), FLA_Sylv_hh_blk_var8(), FLA_Sylv_hh_blk_var9(), FLA_Sylv_hh_opt_var1(), and FLA_Sylv_hh_unb_ext().

Referenced by FLA_Sylv_internal().

{
    FLA_Error r_val = FLA_SUCCESS;

    if      ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_EXTERN )
    {
        r_val = FLA_Sylv_hh_blk_ext( isgn, A, B, C, scale );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN )
    {
        r_val = FLA_Sylv_hh_unb_ext( isgn, A, B, C, scale );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
    {
        r_val = FLA_Sylv_hh_opt_var1( isgn, A, B, C, scale );
    }
#ifdef FLA_ENABLE_NON_CRITICAL_CODE
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
    {
        r_val = FLA_Sylv_hh_blk_var1( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
    {
        r_val = FLA_Sylv_hh_blk_var2( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
    {
        r_val = FLA_Sylv_hh_blk_var3( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
    {
        r_val = FLA_Sylv_hh_blk_var4( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
    {
        r_val = FLA_Sylv_hh_blk_var5( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
    {
        r_val = FLA_Sylv_hh_blk_var6( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT7 )
    {
        r_val = FLA_Sylv_hh_blk_var7( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT8 )
    {
        r_val = FLA_Sylv_hh_blk_var8( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT9 )
    {
        r_val = FLA_Sylv_hh_blk_var9( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT10 )
    {
        r_val = FLA_Sylv_hh_blk_var10( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT11 )
    {
        r_val = FLA_Sylv_hh_blk_var11( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT12 )
    {
        r_val = FLA_Sylv_hh_blk_var12( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT13 )
    {
        r_val = FLA_Sylv_hh_blk_var13( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT14 )
    {
        r_val = FLA_Sylv_hh_blk_var14( isgn, A, B, C, scale, cntl );
    }
#endif
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT15 )
    {
        r_val = FLA_Sylv_hh_blk_var15( isgn, A, B, C, scale, cntl );
    }
#ifdef FLA_ENABLE_NON_CRITICAL_CODE
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT16 )
    {
        r_val = FLA_Sylv_hh_blk_var16( isgn, A, B, C, scale, cntl );
    }
#endif
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT17 )
    {
        r_val = FLA_Sylv_hh_blk_var17( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT18 )
    {
        r_val = FLA_Sylv_hh_blk_var18( isgn, A, B, C, scale, cntl );
    }
    else
    {
        FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
    }

    return r_val;
}

FLA_Error FLA_Sylv_hn	(	FLA_Obj	isgn,
		FLA_Obj	A,
		FLA_Obj	B,
		FLA_Obj	C,
		FLA_Obj	scale,
		fla_sylv_t *	cntl
	)

References FLA_Sylv_hn_blk_ext(), FLA_Sylv_hn_blk_var1(), FLA_Sylv_hn_blk_var10(), FLA_Sylv_hn_blk_var11(), FLA_Sylv_hn_blk_var12(), FLA_Sylv_hn_blk_var13(), FLA_Sylv_hn_blk_var14(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_hn_blk_var2(), FLA_Sylv_hn_blk_var3(), FLA_Sylv_hn_blk_var4(), FLA_Sylv_hn_blk_var5(), FLA_Sylv_hn_blk_var6(), FLA_Sylv_hn_blk_var7(), FLA_Sylv_hn_blk_var8(), FLA_Sylv_hn_blk_var9(), FLA_Sylv_hn_opt_var1(), and FLA_Sylv_hn_unb_ext().

Referenced by FLA_Sylv_internal().

{
    FLA_Error r_val = FLA_SUCCESS;

    if      ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_EXTERN )
    {
        r_val = FLA_Sylv_hn_blk_ext( isgn, A, B, C, scale );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN )
    {
        r_val = FLA_Sylv_hn_unb_ext( isgn, A, B, C, scale );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
    {
        r_val = FLA_Sylv_hn_opt_var1( isgn, A, B, C, scale );
    }
#ifdef FLA_ENABLE_NON_CRITICAL_CODE
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
    {
        r_val = FLA_Sylv_hn_blk_var1( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
    {
        r_val = FLA_Sylv_hn_blk_var2( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
    {
        r_val = FLA_Sylv_hn_blk_var3( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
    {
        r_val = FLA_Sylv_hn_blk_var4( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
    {
        r_val = FLA_Sylv_hn_blk_var5( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
    {
        r_val = FLA_Sylv_hn_blk_var6( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT7 )
    {
        r_val = FLA_Sylv_hn_blk_var7( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT8 )
    {
        r_val = FLA_Sylv_hn_blk_var8( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT9 )
    {
        r_val = FLA_Sylv_hn_blk_var9( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT10 )
    {
        r_val = FLA_Sylv_hn_blk_var10( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT11 )
    {
        r_val = FLA_Sylv_hn_blk_var11( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT12 )
    {
        r_val = FLA_Sylv_hn_blk_var12( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT13 )
    {
        r_val = FLA_Sylv_hn_blk_var13( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT14 )
    {
        r_val = FLA_Sylv_hn_blk_var14( isgn, A, B, C, scale, cntl );
    }
#endif
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT15 )
    {
        r_val = FLA_Sylv_hn_blk_var15( isgn, A, B, C, scale, cntl );
    }
#ifdef FLA_ENABLE_NON_CRITICAL_CODE
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT16 )
    {
        r_val = FLA_Sylv_hn_blk_var16( isgn, A, B, C, scale, cntl );
    }
#endif
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT17 )
    {
        r_val = FLA_Sylv_hn_blk_var17( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT18 )
    {
        r_val = FLA_Sylv_hn_blk_var18( isgn, A, B, C, scale, cntl );
    }
    else
    {
        FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
    }

    return r_val;
}

FLA_Error FLA_Sylv_internal	(	FLA_Trans	transa,
		FLA_Trans	transb,
		FLA_Obj	isgn,
		FLA_Obj	A,
		FLA_Obj	B,
		FLA_Obj	C,
		FLA_Obj	scale,
		fla_sylv_t *	cntl
	)

References FLA_Check_error_level(), FLA_Obj_elemtype(), fla_sylv_cntl_leaf, FLA_Sylv_hh(), FLA_Sylv_hn(), FLA_Sylv_internal(), FLA_Sylv_internal_check(), FLA_Sylv_nh(), FLA_Sylv_nn(), and FLASH_Queue_get_enabled().

Referenced by FLA_Lyap_h_blk_var1(), FLA_Lyap_h_blk_var2(), FLA_Lyap_h_blk_var3(), FLA_Lyap_h_blk_var4(), FLA_Lyap_n_blk_var1(), FLA_Lyap_n_blk_var2(), FLA_Lyap_n_blk_var3(), FLA_Lyap_n_blk_var4(), FLA_Sylv(), FLA_Sylv_hh_blk_var1(), FLA_Sylv_hh_blk_var10(), FLA_Sylv_hh_blk_var11(), FLA_Sylv_hh_blk_var12(), FLA_Sylv_hh_blk_var13(), FLA_Sylv_hh_blk_var14(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hh_blk_var2(), FLA_Sylv_hh_blk_var3(), FLA_Sylv_hh_blk_var4(), FLA_Sylv_hh_blk_var5(), FLA_Sylv_hh_blk_var6(), FLA_Sylv_hh_blk_var7(), FLA_Sylv_hh_blk_var8(), FLA_Sylv_hh_blk_var9(), FLA_Sylv_hh_task(), FLA_Sylv_hn_blk_var1(), FLA_Sylv_hn_blk_var10(), FLA_Sylv_hn_blk_var11(), FLA_Sylv_hn_blk_var12(), FLA_Sylv_hn_blk_var13(), FLA_Sylv_hn_blk_var14(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_hn_blk_var2(), FLA_Sylv_hn_blk_var3(), FLA_Sylv_hn_blk_var4(), FLA_Sylv_hn_blk_var5(), FLA_Sylv_hn_blk_var6(), FLA_Sylv_hn_blk_var7(), FLA_Sylv_hn_blk_var8(), FLA_Sylv_hn_blk_var9(), FLA_Sylv_hn_task(), FLA_Sylv_internal(), FLA_Sylv_nh_blk_var1(), FLA_Sylv_nh_blk_var10(), FLA_Sylv_nh_blk_var11(), FLA_Sylv_nh_blk_var12(), FLA_Sylv_nh_blk_var13(), FLA_Sylv_nh_blk_var14(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nh_blk_var2(), FLA_Sylv_nh_blk_var3(), FLA_Sylv_nh_blk_var4(), FLA_Sylv_nh_blk_var5(), FLA_Sylv_nh_blk_var6(), FLA_Sylv_nh_blk_var7(), FLA_Sylv_nh_blk_var8(), FLA_Sylv_nh_blk_var9(), FLA_Sylv_nh_task(), FLA_Sylv_nn_blk_var1(), FLA_Sylv_nn_blk_var10(), FLA_Sylv_nn_blk_var11(), FLA_Sylv_nn_blk_var12(), FLA_Sylv_nn_blk_var13(), FLA_Sylv_nn_blk_var14(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Sylv_nn_blk_var2(), FLA_Sylv_nn_blk_var3(), FLA_Sylv_nn_blk_var4(), FLA_Sylv_nn_blk_var5(), FLA_Sylv_nn_blk_var6(), FLA_Sylv_nn_blk_var7(), FLA_Sylv_nn_blk_var8(), FLA_Sylv_nn_blk_var9(), FLA_Sylv_nn_task(), FLA_Sylv_task(), and FLASH_Sylv().

{
    FLA_Error r_val = FLA_SUCCESS;

    if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
        FLA_Sylv_internal_check( transa, transb, isgn, A, B, C, scale, cntl );

    if      ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
              FLA_Obj_elemtype( A ) == FLA_MATRIX &&
              FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
    {
        // Recurse
        r_val = FLA_Sylv_internal( transa,
                                   transb,
                                   isgn,
                                   *FLASH_OBJ_PTR_AT( A ),
                                   *FLASH_OBJ_PTR_AT( B ),
                                   *FLASH_OBJ_PTR_AT( C ),
                                   scale,
                                   flash_sylv_cntl );
    }
    else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
              FLA_Obj_elemtype( A ) == FLA_SCALAR &&
              FLASH_Queue_get_enabled( ) )
    {
        // Enqueue
        ENQUEUE_FLASH_Sylv( transa, transb, isgn, A, B, C, scale, cntl );
    }
    else
    {
        if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
             FLA_Obj_elemtype( A ) == FLA_SCALAR &&
             !FLASH_Queue_get_enabled( ) )
        {
            // Execute leaf
            cntl = fla_sylv_cntl_leaf;
        }

        // Parameter combinations
        if      ( transa == FLA_NO_TRANSPOSE )
        {
            if      ( transb == FLA_NO_TRANSPOSE )
                r_val = FLA_Sylv_nn( isgn, A, B, C, scale, cntl );
            else if ( transb == FLA_TRANSPOSE || transb == FLA_CONJ_TRANSPOSE )
                r_val = FLA_Sylv_nh( isgn, A, B, C, scale, cntl );
        }
        else if ( transa == FLA_TRANSPOSE || transa == FLA_CONJ_TRANSPOSE )
        {
            if      ( transb == FLA_NO_TRANSPOSE )
                r_val = FLA_Sylv_hn( isgn, A, B, C, scale, cntl );
            else if ( transb == FLA_TRANSPOSE || transb == FLA_CONJ_TRANSPOSE )
                r_val = FLA_Sylv_hh( isgn, A, B, C, scale, cntl );
        }
    }

    return r_val;
}

FLA_Error FLA_Sylv_nh	(	FLA_Obj	isgn,
		FLA_Obj	A,
		FLA_Obj	B,
		FLA_Obj	C,
		FLA_Obj	scale,
		fla_sylv_t *	cntl
	)

References FLA_Sylv_nh_blk_ext(), FLA_Sylv_nh_blk_var1(), FLA_Sylv_nh_blk_var10(), FLA_Sylv_nh_blk_var11(), FLA_Sylv_nh_blk_var12(), FLA_Sylv_nh_blk_var13(), FLA_Sylv_nh_blk_var14(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nh_blk_var2(), FLA_Sylv_nh_blk_var3(), FLA_Sylv_nh_blk_var4(), FLA_Sylv_nh_blk_var5(), FLA_Sylv_nh_blk_var6(), FLA_Sylv_nh_blk_var7(), FLA_Sylv_nh_blk_var8(), FLA_Sylv_nh_blk_var9(), FLA_Sylv_nh_opt_var1(), and FLA_Sylv_nh_unb_ext().

Referenced by FLA_Sylv_internal().

{
    FLA_Error r_val = FLA_SUCCESS;

    if      ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_EXTERN )
    {
        r_val = FLA_Sylv_nh_blk_ext( isgn, A, B, C, scale );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN )
    {
        r_val = FLA_Sylv_nh_unb_ext( isgn, A, B, C, scale );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
    {
        r_val = FLA_Sylv_nh_opt_var1( isgn, A, B, C, scale );
    }
#ifdef FLA_ENABLE_NON_CRITICAL_CODE
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
    {
        r_val = FLA_Sylv_nh_blk_var1( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
    {
        r_val = FLA_Sylv_nh_blk_var2( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
    {
        r_val = FLA_Sylv_nh_blk_var3( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
    {
        r_val = FLA_Sylv_nh_blk_var4( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
    {
        r_val = FLA_Sylv_nh_blk_var5( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
    {
        r_val = FLA_Sylv_nh_blk_var6( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT7 )
    {
        r_val = FLA_Sylv_nh_blk_var7( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT8 )
    {
        r_val = FLA_Sylv_nh_blk_var8( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT9 )
    {
        r_val = FLA_Sylv_nh_blk_var9( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT10 )
    {
        r_val = FLA_Sylv_nh_blk_var10( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT11 )
    {
        r_val = FLA_Sylv_nh_blk_var11( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT12 )
    {
        r_val = FLA_Sylv_nh_blk_var12( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT13 )
    {
        r_val = FLA_Sylv_nh_blk_var13( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT14 )
    {
        r_val = FLA_Sylv_nh_blk_var14( isgn, A, B, C, scale, cntl );
    }
#endif
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT15 )
    {
        r_val = FLA_Sylv_nh_blk_var15( isgn, A, B, C, scale, cntl );
    }
#ifdef FLA_ENABLE_NON_CRITICAL_CODE
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT16 )
    {
        r_val = FLA_Sylv_nh_blk_var16( isgn, A, B, C, scale, cntl );
    }
#endif
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT17 )
    {
        r_val = FLA_Sylv_nh_blk_var17( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT18 )
    {
        r_val = FLA_Sylv_nh_blk_var18( isgn, A, B, C, scale, cntl );
    }
    else
    {
        FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
    }

    return r_val;
}

FLA_Error FLA_Sylv_nn	(	FLA_Obj	isgn,
		FLA_Obj	A,
		FLA_Obj	B,
		FLA_Obj	C,
		FLA_Obj	scale,
		fla_sylv_t *	cntl
	)

References FLA_Sylv_nn_blk_ext(), FLA_Sylv_nn_blk_var1(), FLA_Sylv_nn_blk_var10(), FLA_Sylv_nn_blk_var11(), FLA_Sylv_nn_blk_var12(), FLA_Sylv_nn_blk_var13(), FLA_Sylv_nn_blk_var14(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Sylv_nn_blk_var2(), FLA_Sylv_nn_blk_var3(), FLA_Sylv_nn_blk_var4(), FLA_Sylv_nn_blk_var5(), FLA_Sylv_nn_blk_var6(), FLA_Sylv_nn_blk_var7(), FLA_Sylv_nn_blk_var8(), FLA_Sylv_nn_blk_var9(), FLA_Sylv_nn_opt_var1(), and FLA_Sylv_nn_unb_ext().

Referenced by FLA_Sylv_internal().

{
    FLA_Error r_val = FLA_SUCCESS;
    
    if      ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_EXTERN )
    {
        r_val = FLA_Sylv_nn_blk_ext( isgn, A, B, C, scale );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_UNBLOCKED_EXTERN )
    {
        r_val = FLA_Sylv_nn_unb_ext( isgn, A, B, C, scale );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_UNB_OPT_VARIANT1 )
    {
        r_val = FLA_Sylv_nn_opt_var1( isgn, A, B, C, scale );
    }
#ifdef FLA_ENABLE_NON_CRITICAL_CODE
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT1 )
    {
        r_val = FLA_Sylv_nn_blk_var1( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT2 )
    {
        r_val = FLA_Sylv_nn_blk_var2( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT3 )
    {
        r_val = FLA_Sylv_nn_blk_var3( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT4 )
    {
        r_val = FLA_Sylv_nn_blk_var4( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT5 )
    {
        r_val = FLA_Sylv_nn_blk_var5( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT6 )
    {
        r_val = FLA_Sylv_nn_blk_var6( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT7 )
    {
        r_val = FLA_Sylv_nn_blk_var7( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT8 )
    {
        r_val = FLA_Sylv_nn_blk_var8( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT9 )
    {
        r_val = FLA_Sylv_nn_blk_var9( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT10 )
    {
        r_val = FLA_Sylv_nn_blk_var10( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT11 )
    {
        r_val = FLA_Sylv_nn_blk_var11( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT12 )
    {
        r_val = FLA_Sylv_nn_blk_var12( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT13 )
    {
        r_val = FLA_Sylv_nn_blk_var13( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT14 )
    {
        r_val = FLA_Sylv_nn_blk_var14( isgn, A, B, C, scale, cntl );
    }
#endif
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT15 )
    {
        r_val = FLA_Sylv_nn_blk_var15( isgn, A, B, C, scale, cntl );
    }
#ifdef FLA_ENABLE_NON_CRITICAL_CODE
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT16 )
    {
        r_val = FLA_Sylv_nn_blk_var16( isgn, A, B, C, scale, cntl );
    }
#endif
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT17 )
    {
        r_val = FLA_Sylv_nn_blk_var17( isgn, A, B, C, scale, cntl );
    }
    else if ( FLA_Cntl_variant( cntl ) == FLA_BLOCKED_VARIANT18 )
    {
        r_val = FLA_Sylv_nn_blk_var18( isgn, A, B, C, scale, cntl );
    }
    else
    {
        FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
    }

    return r_val;
}