FLA_Sylv.c File Reference

(r)


Functions

FLA_Error FLA_Sylv (FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale)
void FLA_F2C() fla_sylv_f (F_INT *transa, F_INT *transb, F_INT *isgn, F_INT *A, F_INT *B, F_INT *C, F_INT *scale, F_INT *IERROR)

Variables

fla_sylv_tfla_sylv_cntl

Function Documentation

FLA_Error FLA_Sylv ( FLA_Trans  transa,
FLA_Trans  transb,
FLA_Obj  isgn,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  C,
FLA_Obj  scale 
)

References FLA_Check_error_level(), FLA_Sylv_check(), and FLA_Sylv_internal().

Referenced by fla_sylv_f().

00038 {
00039   FLA_Error r_val;
00040 
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Sylv_check( transa, transb, isgn, A, B, C, scale );
00044 
00045   // Invoke FLA_Sylv_internal() with the appropriate control tree.
00046   r_val = FLA_Sylv_internal( transa, transb, isgn, A, B, C, scale, fla_sylv_cntl );
00047 
00048   return r_val;
00049 }

void FLA_F2C() fla_sylv_f ( F_INT *  transa,
F_INT *  transb,
F_INT *  isgn,
F_INT *  A,
F_INT *  B,
F_INT *  C,
F_INT *  scale,
F_INT *  IERROR 
)

References FLA_Sylv().

00053 {
00054   *IERROR = FLA_Sylv( *( ( FLA_Trans * ) transa ),
00055                       *( ( FLA_Trans * ) transb ),
00056                       *( ( FLA_Obj   * ) isgn   ),
00057                       *( ( FLA_Obj   * ) A      ),
00058                       *( ( FLA_Obj   * ) B      ),
00059                       *( ( FLA_Obj   * ) C      ),
00060                       *( ( FLA_Obj   * ) scale  ) );
00061 }


Variable Documentation


Generated on Mon Jul 6 05:45:56 2009 for libflame by  doxygen 1.5.9