/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E   L A   D E R I V A T I O N   F O R M E L L E   D E   ' v $ximd/DerivFormel.1$DEF '  :                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/DerivFormel.01$c' :                                                                                        */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20101227093801).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"
#include  "/home/colonna/includes/mathematiques/defines/DerivFormel.1.def"

main()
          {
          double    Forg=3,d_Forg=5;
          double    DForg=7,d_DForg=11;
          double    Fext=13,d_Fext=17;
          double    DFext=19,d_DFext=23;
          double    lambda=29,d_lambda=31;
          double    InterpolationCubique;
          double    ValeurAttendue=700746;

          InterpolationCubique=d1_INTERPOLATION_CUBIQUE(Forg,d_Forg,DForg,d_DForg,Fext,d_Fext,DFext,d_DFext,lambda,d_lambda);

          if        (InterpolationCubique == ValeurAttendue)
                    {
                    printf("OK : InterpolationCubique=%g\n",InterpolationCubique);
                    }
          else
                    {
                    printf("ERREUR : InterpolationCubique=%g (ValeurAttendue=%g)\n",InterpolationCubique,ValeurAttendue);
                    }
          }