Changeset 469


Ignore:
Timestamp:
Feb 4, 2014 10:02:07 AM (6 years ago)
Author:
kulshres
Message:

output intermediate taylors for abs arguments too

Signed-off-by: Kshitij Kulshreshtha <kshitij@…>

Location:
trunk/ADOL-C
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ADOL-C/include/adolc/interfaces.h

    r456 r469  
    437437ADOLC_DLL_EXPORT int zos_an_forward(short,int,int,int,const double*,double*,double*);
    438438ADOLC_DLL_EXPORT double firstsign(int, double, double*);
    439 ADOLC_DLL_EXPORT int fos_an_forward(short,int,int,const double*,double*,double*,double*);
    440 ADOLC_DLL_EXPORT int fov_an_forward(short,int,int,int,const double*,double**,double*,double**);
     439ADOLC_DLL_EXPORT int fos_an_forward(short,int,int,const double*,double*,double*,double*,double*,double*);
     440ADOLC_DLL_EXPORT int fov_an_forward(short,int,int,int,const double*,double**,double*,double**,double*,double**);
    441441/*--------------------------------------------------------------------------*/
    442442ADOLC_DLL_EXPORT int fos_an_reverse(short,int,int,int,int,double*);
  • trunk/ADOL-C/src/uni5_for.c

    r460 r469  
    421421#if defined(_ABS_NORM_)
    422422#define FIRSTSIGN_P(x,y) firstsign(p,x,y)
     423#define COPYTAYL_P(x,y)  FOR_0_LE_l_LT_p x[l] = y[l]
    423424#endif
    424425#else
     
    431432#if defined(_ABS_NORM_)
    432433#define FIRSTSIGN_P(x,y) firstsign(1,x,y)
     434#define COPYTAYL_P(x,y)  x = *y
    433435#endif
    434436#endif
     
    535537                    double *argument,
    536538                    double *valuepoint,
    537                     double *taylors)
     539                    double *taylors,
     540                    double *swargs,
     541                    double *swtaylors)
    538542#else
    539543#if defined(_KEEP_)
     
    734738    double      **argument,    /* Taylor coefficients (input) */
    735739    double       *valuepoint,  /* Taylor coefficients (output) */
    736     double      **taylors)     /* matrix of coifficient vectors */
     740    double      **taylors,     /* matrix of coifficient vectors */
     741    double       *swargs,
     742    double      **swtaylors)
    737743/* the order of the indices in argument and taylors is [var][taylor] */
    738744#else
     
    38213827                if (ADOLC_CURRENT_TAPE_INFOS.stats[NO_MIN_MAX]) {
    38223828                    signature[switchnum] = dp_T0[arg];
    3823 #if defined(_ZOS_) && defined(_ABS_NORM_)
     3829#if defined(_ABS_NORM_)
    38243830                    swargs[switchnum] = dp_T0[arg];
    38253831#endif
     
    38643870#ifdef _ABS_NORM_
    38653871                y = FIRSTSIGN_P(dp_T0[arg],Targ);
     3872                COPYTAYL_P(swtaylors[switchnum],Targ);
    38663873                FOR_0_LE_l_LT_p
    38673874                    TRES_INC = y * TARG_INC;
Note: See TracChangeset for help on using the changeset viewer.