Changeset 259 for trunk/ADOL-C


Ignore:
Timestamp:
Jul 3, 2011 2:45:15 PM (9 years ago)
Author:
awalther
Message:

next try of pattern estimation

Location:
trunk/ADOL-C/src
Files:
2 added
2 deleted
1 edited

Legend:

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

    r258 r259  
    141141#endif
    142142
    143 #if defined(_CSOD_)
     143#if defined(_NLF_)
    144144void copy_fod(int res, int arg, locint **fod);
    145145void append_fod(int res, int arg, locint **fod);
     
    148148void combine_2_fod(int res, int arg1, int arg2, locint **fod);
    149149#if defined(_TIGHT_)
    150 #define GENERATED_FILENAME "csod_forward_t"
     150#define GENERATED_FILENAME "nlf_forward_t"
    151151#endif
    152152#if defined(_NTIGHT_)
    153 #define GENERATED_FILENAME "csod_forward_s"
     153#define GENERATED_FILENAME "nlf_forward_s"
    154154#endif
    155155typedef struct IndexElement {
     
    599599#endif
    600600#else
    601 #if defined(_CSOD_)
     601#if defined(_NLF_)
    602602#if defined(_TIGHT_)
    603603/****************************************************************************/
    604604/* First Order Vector version of the forward mode for bit patterns, tight   */
    605605/****************************************************************************/
    606 int csod_forward_tight(
     606int nlf_forward_tight(
    607607    short             tnum,        /* tape id                              */
    608608    int               depcheck,    /* consistency chk on # of dependents   */
     
    616616/* First Order Vector version of the forward mode, bit pattern, safe        */
    617617/****************************************************************************/
    618 int csod_forward_safe(
     618int nlf_forward_safe(
    619619    short             tnum,        /* tape id                              */
    620620    int               depcheck,    /* consistency chk on # of dependents   */
     
    784784    int l=0;
    785785    int max_ind_dom;
    786 #if defined (_CSOD_)
     786#if defined (_NLF_)
    787787    IndexElement** csod;
    788788    IndexElement*  temp;
     
    843843    /* index domains */
    844844    locint** ind_dom;
    845 #if defined(_CSOD_)
     845#if defined(_NLF_)
    846846    locint** fod;
    847847#endif
     
    10271027#else                                                                /* INDOPRO */
    10281028#if defined(_INDO_)
    1029 #if !defined(_CSOD_)
     1029#if !defined(_NLF_)
    10301030        ind_dom = (locint **)  malloc(sizeof(locint*) * ADOLC_CURRENT_TAPE_INFOS.stats[NUM_MAX_LIVES]);
    10311031        max_ind_dom = ADOLC_CURRENT_TAPE_INFOS.stats[NUM_MAX_LIVES];
     
    10511051      ind_dom[i][0] = 0;
    10521052      ind_dom[i][1] = NUMNNZ;
    1053 #if defined(_CSOD_)
     1053#if defined(_NLF_)
    10541054      // structure of fod[i]
    10551055      // fod[i][0] = number of ind_doms contained in fod[i]
     
    12971297#if defined(_INDO_)
    12981298                copy_index_domain(res, arg, ind_dom);
    1299 #if defined(_CSOD_)
     1299#if defined(_NLF_)
    13001300                copy_fod(res, arg, fod);
    13011301#endif
     
    13251325#if defined(_INDO_)
    13261326                ind_dom[res][0]=0;
    1327 #if defined(_CSOD_)
     1327#if defined(_NLF_)
    13281328                fod[res][0] = 0;
    13291329                fod[res][2] = 0;
     
    13521352#if defined(_INDO_)
    13531353                ind_dom[res][0]=0;
    1354 #if defined(_CSOD_)
     1354#if defined(_NLF_)
    13551355                fod[res][0] = 0;
    13561356                fod[res][2] = 0;
     
    13791379#if defined(_INDO_)
    13801380                ind_dom[res][0]=0;
    1381 #if defined(_CSOD_)
     1381#if defined(_NLF_)
    13821382                fod[res][0] = 0;
    13831383                fod[res][2] = 0;
     
    14511451                }
    14521452#endif
    1453 #if defined(_CSOD_)
     1453#if defined(_NLF_)
    14541454                               
    14551455                int startfod = 3;
     
    15551555#if defined(_INDO_)
    15561556                merge_2_index_domains(res, arg, ind_dom);
    1557 #if defined(_CSOD_)
     1557#if defined(_NLF_)
    15581558                append_fod(res,arg,fod);
    15591559#endif
     
    16011601#if defined(_INDO_)
    16021602                merge_2_index_domains(res, arg, ind_dom);
    1603 #if defined(_CSOD_)
     1603#if defined(_NLF_)
    16041604                append_fod(res,arg,fod);
    16051605#endif
     
    16561656#if defined(_INDO_)
    16571657                merge_2_index_domains(res, arg, ind_dom);
    1658 #if defined(_CSOD_)
     1658#if defined(_NLF_)
    16591659                copy_index_domain_2_fod(res,fod,ind_dom);
    16601660#endif
     
    17361736#if defined(_INDO_)
    17371737                combine_2_index_domains(res, arg1, arg2, ind_dom);
    1738 #if defined(_CSOD_)     
     1738#if defined(_NLF_)     
    17391739                combine_2_fod(res, arg1, arg2, fod);
    17401740#endif
     
    17711771#if defined(_INDO_)
    17721772                copy_index_domain(res, arg, ind_dom);
    1773 #if defined(_CSOD_)
     1773#if defined(_NLF_)
    17741774                copy_fod(res, arg, fod);
    17751775#endif
     
    18021802#if defined(_INDO_)
    18031803                combine_2_index_domains(res, arg1, arg2, ind_dom);
    1804 #if defined(_CSOD_)
     1804#if defined(_NLF_)
    18051805                combine_2_fod(res, arg1, arg2, fod);
    18061806#endif
     
    18371837#if defined(_INDO_)
    18381838                copy_index_domain(res, arg, ind_dom);
    1839 #if defined(_CSOD_)
     1839#if defined(_NLF_)
    18401840                copy_fod(res, arg, fod);
    18411841#endif
     
    18661866#if defined(_INDO_)
    18671867                combine_2_index_domains(res, arg1, arg2, ind_dom);
    1868 #if defined(_CSOD_)
     1868#if defined(_NLF_)
    18691869                copy_index_domain_2_fod(res,fod,ind_dom);
    18701870#endif
     
    19211921#if defined(_INDO_)
    19221922                merge_3_index_domains(res, arg1, arg2, ind_dom);
    1923 #if defined(_CSOD_)
     1923#if defined(_NLF_)
    19241924                append_index_domain_2_fod(res, offset, arg1, arg2, fod, ind_dom);
    19251925#endif
     
    19751975#if defined(_INDO_)
    19761976                merge_3_index_domains(res, arg1, arg2, ind_dom);
    1977 #if defined(_CSOD_)
     1977#if defined(_NLF_)
    19781978                append_index_domain_2_fod(res, offset, arg1, arg2, fod, ind_dom);
    19791979#endif
     
    20352035#if defined(_INDO_)
    20362036                copy_index_domain(res, arg, ind_dom);
    2037 #if defined(_CSOD_)
     2037#if defined(_NLF_)
    20382038                copy_fod(res, arg, fod);
    20392039#endif
     
    20742074#if defined(_INDO_)
    20752075                combine_2_index_domains(res, arg1, arg2, ind_dom);
    2076 #if defined(_CSOD_)
     2076#if defined(_NLF_)
    20772077                copy_index_domain_2_fod(res,fod,ind_dom);
    20782078#endif
     
    21382138#if defined(_INDO_)
    21392139                copy_index_domain(res, arg, ind_dom);
    2140 #if defined(_CSOD_)
     2140#if defined(_NLF_)
    21412141                copy_fod(res, arg, fod);
    21422142#endif
     
    21932193#if defined(_INDO_)
    21942194                copy_index_domain(res, arg, ind_dom);
    2195 #if defined(_CSOD_)
     2195#if defined(_NLF_)
    21962196                copy_fod(res, arg, fod);
    21972197#endif
     
    22202220#if defined(_INDO_)
    22212221                copy_index_domain(res, arg, ind_dom);
    2222 #if defined(_CSOD_)
     2222#if defined(_NLF_)
    22232223                copy_fod(res, arg, fod);
    22242224#endif
     
    22582258#if defined(_INDO_)
    22592259                copy_index_domain(res, arg, ind_dom);
    2260 #if defined(_CSOD_)
     2260#if defined(_NLF_)
    22612261                copy_fod(res, arg, fod);
    22622262#endif
     
    23172317#if defined(_INDO_)
    23182318                copy_index_domain(res, arg1, ind_dom);
    2319 #if defined(_CSOD_)
     2319#if defined(_NLF_)
    23202320                copy_fod(res, arg1, fod);
    23212321#endif
     
    23862386#if defined(_INDO_)
    23872387                copy_index_domain(res, arg1, ind_dom);
    2388 #if defined(_CSOD_)
     2388#if defined(_NLF_)
    23892389                copy_fod(res, arg1, fod);
    23902390#endif
     
    24522452#if defined(_INDO_)
    24532453                copy_index_domain(res, arg1, ind_dom);
    2454 #if defined(_CSOD_)
     2454#if defined(_NLF_)
    24552455                copy_fod(res, arg1, fod);
    24562456#endif
     
    25102510#if defined(_INDO_)
    25112511                copy_index_domain(res, arg1, ind_dom);
    2512 #if defined(_CSOD_)
     2512#if defined(_NLF_)
    25132513                copy_fod(res, arg1, fod);
    25142514#endif
     
    26062606#if defined(_INDO_)
    26072607                copy_index_domain(res, arg1, ind_dom);
    2608 #if defined(_CSOD_)
     2608#if defined(_NLF_)
    26092609                copy_fod(res, arg1, fod);
    26102610#endif
     
    27042704#if defined(_INDO_)
    27052705                copy_index_domain(res, arg1, ind_dom);
    2706 #if defined(_CSOD_)
     2706#if defined(_NLF_)
    27072707                copy_fod(res, arg1, fod);
    27082708#endif
     
    27622762#if defined(_INDO_)
    27632763                copy_index_domain(res, arg1, ind_dom);
    2764 #if defined(_CSOD_)
     2764#if defined(_NLF_)
    27652765                copy_fod(res, arg1, fod);
    27662766#endif
     
    28422842#if defined(_INDO_)
    28432843                copy_index_domain(res, arg1, ind_dom);
    2844 #if defined(_CSOD_)
     2844#if defined(_NLF_)
    28452845                copy_fod(res, arg1, fod);
    28462846#endif
     
    29432943#if defined(_INDO_)
    29442944                copy_index_domain(res, arg1, ind_dom);
    2945 #if defined(_CSOD_)
     2945#if defined(_NLF_)
    29462946                copy_fod(res, arg1, fod);
    29472947#endif
     
    29932993#if defined(_INDO_)
    29942994                copy_index_domain(res, arg, ind_dom);
    2995 #if defined(_CSOD_)
     2995#if defined(_NLF_)
    29962996                copy_fod(res, arg, fod);
    29972997#endif
     
    30743074#if defined(_INDO_)
    30753075                copy_index_domain(res, arg, ind_dom);
    3076 #if defined(_CSOD_)
     3076#if defined(_NLF_)
    30773077                copy_fod(res, arg, fod);
    30783078#endif
     
    32123212#if defined(_INDO_)
    32133213                copy_index_domain(res, arg, ind_dom);
    3214 #if defined(_CSOD_)
     3214#if defined(_NLF_)
    32153215                copy_fod(res, arg, fod);
    32163216#endif
     
    33773377                    combine_2_index_domains(res, arg1, arg2, ind_dom);
    33783378#endif
    3379 #if defined(_CSOD_)
     3379#if defined(_NLF_)
    33803380#ifdef _TIGHT_
    33813381                    if (dp_T0[arg1] < dp_T0[arg2])
     
    35093509#if defined(_INDO_)
    35103510                copy_index_domain(res, arg, ind_dom);
    3511 #if defined(_CSOD_)
     3511#if defined(_NLF_)
    35123512                copy_fod(res, arg, fod);
    35133513#endif
     
    35863586#if defined(_INDO_)
    35873587                copy_index_domain(res, arg, ind_dom);
    3588 #if defined(_CSOD_)
     3588#if defined(_NLF_)
    35893589                copy_fod(res, arg, fod);
    35903590#endif
     
    36163616#if defined(_INDO_)
    36173617                copy_index_domain(res, arg, ind_dom);
    3618 #if defined(_CSOD_)
     3618#if defined(_NLF_)
    36193619                copy_fod(res, arg, fod);
    36203620#endif
     
    36533653                    copy_index_domain(res, arg1, ind_dom);
    36543654
    3655 #if defined(_CSOD_)
     3655#if defined(_NLF_)
    36563656                    copy_fod(res, arg1, fod);
    36573657#endif
     
    36633663                    dp_T0[res] = dp_T0[arg2];
    36643664                    copy_index_domain(res, arg2, ind_dom);
    3665 #if defined(_CSOD_)
     3665#if defined(_NLF_)
    36663666                    copy_fod(res, arg2, fod);
    36673667#endif
     
    36703670#else
    36713671                    combine_2_index_domains(res, arg1, arg2, ind_dom);
    3672 #if defined(_CSOD_)
     3672#if defined(_NLF_)
    36733673                    combine_2_fod(res, arg1, arg2, fod);
    36743674#endif
     
    37453745#if defined(_INDO_)
    37463746                copy_index_domain(res, arg1, ind_dom);
    3747 #if defined(_CSOD_)
     3747#if defined(_NLF_)
    37483748                copy_fod(res, arg1, fod);
    37493749#endif
     
    39703970      }
    39713971    free(ind_dom);
    3972 #if defined(_CSOD_)
     3972#if defined(_NLF_)
    39733973
    39743974    for( i=0; i < indcheck; i++) {
     
    42184218/****************************************************************************/
    42194219
    4220 #if defined(_CSOD_)
     4220#if defined(_NLF_)
    42214221
    42224222/****************************************************************************/
Note: See TracChangeset for help on using the changeset viewer.