Changeset 1156 in Sophya for trunk/SophyaLib/TArray/matharr.cc


Ignore:
Timestamp:
Aug 29, 2000, 6:10:32 PM (25 years ago)
Author:
ansari
Message:

Introduction du type sa_size_t (taille des tableaux), operateur - (TArray::operator - et NegateElt()) - Reza 29/8/2000

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SophyaLib/TArray/matharr.cc

    r1099 r1156  
    2929    throw RangeCheckError("MathArray<T>::ApplyFunctionInPlace(TArray<T> & a..) Not Allocated Array a !");
    3030  T * pe;
    31   uint_8 j,k;
     31  sa_size_t j,k;
    3232  if (a.AvgStep() > 0)   {  // regularly spaced elements
    33     uint_8 step = a.AvgStep();
    34     uint_8 maxx = a.Size()*step;
     33    sa_size_t step = a.AvgStep();
     34    sa_size_t maxx = a.Size()*step;
    3535    pe = a.Data();
    3636    for(k=0; k<maxx; k+=step )  pe[k] = (T)(f((double)pe[k]));
    3737  }
    3838  else {    // Non regular data spacing ...
    39     uint_4 ka = a.MaxSizeKA();
    40     uint_8 step = a.Step(ka);
    41     uint_8 gpas = a.Size(ka)*step;
    42     uint_8 naxa = a.Size()/a.Size(ka);
     39    int_4 ka = a.MaxSizeKA();
     40    sa_size_t step = a.Step(ka);
     41    sa_size_t gpas = a.Size(ka)*step;
     42    sa_size_t naxa = a.Size()/a.Size(ka);
    4343    for(j=0; j<naxa; j++)  {
    4444      pe = a.DataBlock().Begin()+a.Offset(ka,j);
    … …  
    6161    throw RangeCheckError("MathArray<T>::ApplyFunctionInPlace(TArray<T> & a..) Not Allocated Array a !");
    6262  T * pe;
    63   uint_8 j,k;
     63  sa_size_t j,k;
    6464  if (a.AvgStep() > 0)   {  // regularly spaced elements
    65     uint_8 step = a.AvgStep();
    66     uint_8 maxx = a.Size()*step;
     65    sa_size_t step = a.AvgStep();
     66    sa_size_t maxx = a.Size()*step;
    6767    pe = a.Data();
    6868    for(k=0; k<maxx; k+=step )  pe[k] = (T)(f((float)pe[k]));
    6969  }
    7070  else {    // Non regular data spacing ...
    71     uint_4 ka = a.MaxSizeKA();
    72     uint_8 step = a.Step(ka);
    73     uint_8 gpas = a.Size(ka)*step;
    74     uint_8 naxa = a.Size()/a.Size(ka);
     71    int_4 ka = a.MaxSizeKA();
     72    sa_size_t step = a.Step(ka);
     73    sa_size_t gpas = a.Size(ka)*step;
     74    sa_size_t naxa = a.Size()/a.Size(ka);
    7575    for(j=0; j<naxa; j++)  {
    7676      pe = a.DataBlock().Begin()+a.Offset(ka,j);
    … …  
    119119    throw RangeCheckError("MathArray<T>::MeanSigma(TArray<T> const & a..) Not Allocated Array a !");
    120120  const T * pe;
    121   uint_8 j,k;
     121  sa_size_t j,k;
    122122  mean=0.;
    123123  sig = 0.;
    124124  double valok;
    125125  if (a.AvgStep() > 0)   {  // regularly spaced elements
    126     uint_8 step = a.AvgStep();
    127     uint_8 maxx = a.Size()*step;
     126    sa_size_t step = a.AvgStep();
     127    sa_size_t maxx = a.Size()*step;
    128128    pe = a.Data();
    129129    for(k=0; k<maxx; k+=step )  {
    … …  
    133133  }
    134134  else {    // Non regular data spacing ...
    135     uint_4 ka = a.MaxSizeKA();
    136     uint_8 step = a.Step(ka);
    137     uint_8 gpas = a.Size(ka)*step;
    138     uint_8 naxa = a.Size()/a.Size(ka);
     135    int_4 ka = a.MaxSizeKA();
     136    sa_size_t step = a.Step(ka);
     137    sa_size_t gpas = a.Size(ka)*step;
     138    sa_size_t naxa = a.Size()/a.Size(ka);
    139139    for(j=0; j<naxa; j++)  {
    140140      pe = a.DataBlock().Begin()+a.Offset(ka,j);
Note: See TracChangeset for help on using the changeset viewer.