Changeset 469
 Timestamp:
 Feb 4, 2014 10:02:07 AM (7 years ago)
 Location:
 trunk/ADOLC
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

trunk/ADOLC/include/adolc/interfaces.h
r456 r469 437 437 ADOLC_DLL_EXPORT int zos_an_forward(short,int,int,int,const double*,double*,double*); 438 438 ADOLC_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** );439 ADOLC_DLL_EXPORT int fos_an_forward(short,int,int,const double*,double*,double*,double*,double*,double*); 440 ADOLC_DLL_EXPORT int fov_an_forward(short,int,int,int,const double*,double**,double*,double**,double*,double**); 441 441 /**/ 442 442 ADOLC_DLL_EXPORT int fos_an_reverse(short,int,int,int,int,double*); 
trunk/ADOLC/src/uni5_for.c
r460 r469 421 421 #if defined(_ABS_NORM_) 422 422 #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] 423 424 #endif 424 425 #else … … 431 432 #if defined(_ABS_NORM_) 432 433 #define FIRSTSIGN_P(x,y) firstsign(1,x,y) 434 #define COPYTAYL_P(x,y) x = *y 433 435 #endif 434 436 #endif … … 535 537 double *argument, 536 538 double *valuepoint, 537 double *taylors) 539 double *taylors, 540 double *swargs, 541 double *swtaylors) 538 542 #else 539 543 #if defined(_KEEP_) … … 734 738 double **argument, /* Taylor coefficients (input) */ 735 739 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) 737 743 /* the order of the indices in argument and taylors is [var][taylor] */ 738 744 #else … … 3821 3827 if (ADOLC_CURRENT_TAPE_INFOS.stats[NO_MIN_MAX]) { 3822 3828 signature[switchnum] = dp_T0[arg]; 3823 #if defined(_ ZOS_) && defined(_ABS_NORM_)3829 #if defined(_ABS_NORM_) 3824 3830 swargs[switchnum] = dp_T0[arg]; 3825 3831 #endif … … 3864 3870 #ifdef _ABS_NORM_ 3865 3871 y = FIRSTSIGN_P(dp_T0[arg],Targ); 3872 COPYTAYL_P(swtaylors[switchnum],Targ); 3866 3873 FOR_0_LE_l_LT_p 3867 3874 TRES_INC = y * TARG_INC;
Note: See TracChangeset
for help on using the changeset viewer.