Changeset 958 in Sophya for trunk/SophyaLib/TArray/basarr.cc

Timestamp:

Apr 18, 2000, 3:38:53 PM (25 years ago)

Author:

ansari

Message:

doc + vire warning cmv 18/04/00

File:

• trunk/SophyaLib/TArray/basarr.cc (modified) (14 diffs)

trunk/SophyaLib/TArray/basarr.cc

@@ -61 +61 @@
 {
   uint_8 rs = step;
-  for(int k=0; k<ndim; k++) rs *= siz[k];
+  for(uint_4 k=0; k<ndim; k++) rs *= siz[k];
   return(rs+offset);
 }
@@ -285 +285 @@
 {
   if (ndim_ != a.ndim_)  return(false);
-  for(int k=0; k<ndim_; k++) 
+  for(uint_4 k=0; k<ndim_; k++) 
     if (size_[k] != a.size_[k])  return(false);
   //  $CHECK$   Reza doit-on verifier ca 
@@ -301 +301 @@
   uint_4 size[BASEARRAY_MAXNDIMS];
   uint_4 step[BASEARRAY_MAXNDIMS];
-  for(int k=0; k<ndim_; k++) {
+  for(uint_4 k=0; k<ndim_; k++) {
     if (size_[k] < 2)  continue;
     size[ndim] = size_[k];
@@ -324 +324 @@
   uint_4 size[BASEARRAY_MAXNDIMS];
   uint_4 step[BASEARRAY_MAXNDIMS];
-  for(int k=0; k<ndim_; k++) {
+  for(uint_4 k=0; k<ndim_; k++) {
     size[ndim] = size_[k];
     step[ndim] = step_[k];
@@ -338 +338 @@
 uint_4 BaseArray::MinStepKA() const
 {
-  for(int ka=0; ka<ndim_; ka++)
+  for(uint_4 ka=0; ka<ndim_; ka++)
     if (step_[ka] == minstep_) return(ka);
   return(0);
@@ -348 +348 @@
   uint_4 ka = 0;
   uint_4 mx = size_[0];
-  for(int k=0; k<ndim_; k++)  
+  for(uint_4 k=0; k<ndim_; k++)  
     if (size_[k] > mx) {  ka = k;  mx = size_[k];  }
   return(ka);
@@ -370 +370 @@
   //#endif
   uint_4 idx[BASEARRAY_MAXNDIMS];
-  int k;
+  uint_4 k;
   uint_8 rest = i;
   idx[ka] = 0;
@@ -392 +392 @@
 
   uint_4 idx[BASEARRAY_MAXNDIMS];
-  int k;
+  uint_4 k;
   uint_8 rest = ip;
   for(k=0; k<ndim_; k++) {
@@ -424 +424 @@
   os << "\n--- " << InfoString() ; 
   os << " ND=" << ndim_ << " SizeX*Y*...= " ;
-  for(int k=0; k<ndim_; k++) { 
+  for(uint_4 k=0; k<ndim_; k++) { 
     os << size_[k];
     if (k<ndim_-1)  os << "x";
@@ -431 +431 @@
   if (prt_lev_ > 0) {
     os <<  " TotSize= " << totsize_ << " Step(X Y ...)="  ;
-    for(int k=0; k<ndim_; k++)     os << step_[k] << "  " ;
+    for(uint_4 k=0; k<ndim_; k++)     os << step_[k] << "  " ;
     os << " Offset= " << offset_  << endl;
   }
@@ -483 +483 @@
 
   totsize_ = 1;
-  int k;
+  uint_4 k;
   for(k=0; k<BASEARRAY_MAXNDIMS; k++) {
     size_[k] = 1;
@@ -530 +530 @@
 
   totsize_ = 1;
-  int k;
+  uint_4 k;
   for(k=0; k<BASEARRAY_MAXNDIMS; k++) {
     size_[k] = 1;
@@ -584 +584 @@
 
   totsize_ = 1;
-  int k;
+  uint_4 k;
   for(k=0; k<BASEARRAY_MAXNDIMS; k++) {
     size_[k] = 1;
@@ -629 +629 @@
   if ( (ndim > ndim_) || (ndim < 1) ) 
     throw(SzMismatchError("BaseArray::UpdateSubArraySizes( ... ) NDim Error") );
-  int k;
+  uint_4 k;
   for(k=0; k<ndim; k++) 
     if ( (siz[k]*step[k]+pos[k]) > size_[k] )