Ignore:
Timestamp:
Sep 15, 2012 5:16:53 PM (8 years ago)
Author:
kulshres
Message:

comment out the _INDO_ and _NONLIND_ parts of active indices

these need to be worked out again in light of new changes

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ADOL-C/src/uni5_for.c

    r340 r346  
    156156IndexElement_sod;
    157157
    158 #if defined(_TIGHT_)
    159158void free_tree(IndexElement* nlf, int num);
    160159void traverse_crs(IndexElement* fod2, IndexElement_sod* sod, int num);
    161160void traverse_unary(IndexElement* fod, IndexElement* nonl_dom,  IndexElement* fodi, int num, int maxopind);
    162161
     162#if defined(_TIGHT_)
    163163#define GENERATED_FILENAME "nonl_ind_forward_t"
    164 #endif
    165 #if defined(_NTIGHT_)
     164#elif defined(_NTIGHT_)
    166165#define GENERATED_FILENAME "nonl_ind_forward_s"
    167166#endif
     
    38733872                    dp_T0[res] = dp_T0[arg1];
    38743873#if defined(_INDO_)
    3875                     copy_index_domain(res, arg1, ind_dom);
     3874                    //copy_index_domain(res, arg1, ind_dom);
    38763875#else
    38773876#if !defined(_ZOS_) /* BREAK_ZOS */
     
    39203919                dp_T0[res] = dp_T0[arg1];
    39213920#if defined(_INDO_)
    3922                 copy_index_domain(res, arg1, ind_dom);
     3921                //copy_index_domain(res, arg1, ind_dom);
    39233922#else
    39243923#if !defined(_ZOS_) /* BREAK_ZOS */
     
    39693968                dp_T0[arg1] = coval;
    39703969#if defined(_INDO_)
    3971                 ind_dom[arg1][0] = 0;
     3970                //ind_dom[arg1][0] = 0;
    39723971#else
    39733972#if !defined(_ZOS_)
     
    39923991                dp_T0[arg1] = 0.0;
    39933992#if defined(_INDO_)
    3994                 ind_dom[arg1][0] = 0;
     3993                //ind_dom[arg1][0] = 0;
    39953994#else
    39963995#if !defined(_ZOS_)
     
    40154014                dp_T0[arg1] = 1.0;
    40164015#if defined(_INDO_)
    4017                 ind_dom[arg1][0] = 0;
     4016                //ind_dom[arg1][0] = 0;
    40184017#else
    40194018#if !defined(_ZOS_)
     
    40404039                dp_T0[arg1] = dp_T0[arg];
    40414040#if defined(_INDO_)
    4042                 copy_index_domain(arg1, arg, ind_dom);
     4041                //copy_index_domain(arg1, arg, ind_dom);
    40434042#else
    40444043#if !defined(_ZOS_) /* BREAK_ZOS */
     
    40664065                dp_T0[res] = basepoint[indexi];
    40674066#if defined(_INDO_)
    4068                 ind_dom[res][0] = 1;
    4069                 ind_dom[res][2] = indexi;
     4067                //ind_dom[res][0] = 1;
     4068                //ind_dom[res][2] = indexi;
    40704069#else
    40714070#if !defined(_ZOS_) /* BREAK_ZOS */
     
    41164115                dp_T0[res] += dp_T0[arg];
    41174116#if defined(_INDO_)
    4118                 merge_2_index_domains(res, arg, ind_dom);
     4117                //merge_2_index_domains(res, arg, ind_dom);
    41194118#else
    41204119#if !defined(_ZOS_) /* BREAK_ZOS */
     
    41634162                dp_T0[res] -= dp_T0[arg];
    41644163#if defined(_INDO_)
    4165                 merge_2_index_domains(res, arg, ind_dom);
     4164                //merge_2_index_domains(res, arg, ind_dom);
    41664165#else
    41674166#if !defined(_ZOS_) /* BREAK_ZOS */
     
    42204219                IF_KEEP_WRITE_TAYLOR(res,keep,k,p)
    42214220#if defined(_INDO_)
    4222                 merge_2_index_domains(res, arg, ind_dom);
     4221                //merge_2_index_domains(res, arg, ind_dom);
    42234222#if defined(_NONLIND_)
    4224                 extend_nonlinearity_domain_binary(res, arg, ind_dom, nonl_dom);
     4223                //extend_nonlinearity_domain_binary(res, arg, ind_dom, nonl_dom);
    42254224#endif
    42264225#else
     
    42794278                    dp_T0[res] = dp_T0[arg1];
    42804279
    4281                     combine_2_index_domains(res, arg1, arg2, ind_dom);
     4280                    //combine_2_index_domains(res, arg1, arg2, ind_dom);
    42824281                } else {
    42834282                    if (coval > 0.0)
     
    42874286                    dp_T0[res] = dp_T0[arg2];
    42884287
    4289                     combine_2_index_domains(res, arg1, arg2, ind_dom);
     4288                    //combine_2_index_domains(res, arg1, arg2, ind_dom);
    42904289                }
    42914290#else
     
    43614360                /* olvo 980924 changed order to allow reflexive ops */
    43624361#if defined(_INDO_)
    4363                     copy_index_domain(res, arg1, ind_dom);
     4362                    //copy_index_domain(res, arg1, ind_dom);
    43644363#else
    43654364#if !defined(_ZOS_) /* BREAK_ZOS */
Note: See TracChangeset for help on using the changeset viewer.