.. _program_listing_file_oti_dense_scalar_base.h:

Program Listing for File dense/scalar/base.h
============================================

|exhale_lsh| :ref:`Return to documentation for file <file_oti_dense_scalar_base.h>` (``oti/dense/scalar/base.h``)

.. |exhale_lsh| unicode:: U+021B0 .. UPWARDS ARROW WITH TIP LEFTWARDS

.. code-block:: cpp

   #ifndef OTI_DENSE_SCALAR_BASE_H
   #define OTI_DENSE_SCALAR_BASE_H
   
   // ----------------------------------------------------------------------------------------------------
   // ------------------------------------     DECLARATIONS     ------------------------------------------
   // ----------------------------------------------------------------------------------------------------
   // to add to c_otilib.pxd
   
   
   
   
   /**************************************************************************************************/
   otinum_t oti_get_tmp( ndir_t ntmp, ord_t order, bases_t nbases, dhelpl_t dhl);
   otinum_t oti_get_rtmp( ndir_t ntmp, ord_t order, bases_t nbases, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   
   /**************************************************************************************************/ 
   void oti_trunc_ssum(otinum_t* num1,  
                      ord_t ord, otinum_t* res,  dhelpl_t dhl );
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   void oti_trunc_mul(otinum_t* num1, ord_t ord1, 
                      otinum_t* num2, ord_t ord2, 
                      otinum_t* res, dhelpl_t dhl );
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   void oti_trunc_smul_real(coeff_t a, ord_t ord, otinum_t* num, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   
   /**************************************************************************************************/ 
   void oti_setIm_IdxOrd( coeff_t a, imdir_t idx, ord_t order, otinum_t* num, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   coeff_t oti_get( imdir_t idx, ord_t order, otinum_t* num, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   coeff_t oti_get_deriv( imdir_t idx, ord_t order, otinum_t* num, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   otinum_t oti_createZero( bases_t nbases, ord_t order, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   otinum_t oti_createEmpty( bases_t nbases, ord_t order, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   otinum_t oti_init( void );
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   otinum_t oti_copy(otinum_t* num, dhelpl_t dhl);
   void     oti_copy_to( otinum_t* num, otinum_t* res, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   
   void oti_setup(otinum_t* num,  bases_t nbases, ord_t order, dhelpl_t dhl );
   
   /**************************************************************************************************/ 
   void oti_setFromReal( coeff_t a, otinum_t* num, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   void oti_print( otinum_t* num, dhelpl_t dhl);
   // ----------------------------------------------------------------------------------------------------
   
   /**************************************************************************************************/ 
   void oti_free( otinum_t* num );
   // ----------------------------------------------------------------------------------------------------
   
   #endif