Main Page | Class Hierarchy | Alphabetical List | Data Structures | File List | Data Fields | Globals

rtrsmrawavd.h File Reference

Go to the source code of this file.

Functions

void rtrsmrawavd (const int &Asize, const int &Msize, const int &amax, const int &mmax, const int &mrastep, const int *mracoef, const int *mracoefrs, const int &a, const int &m, int &wavd)
void rtrsmrawavd (const int &Asize, const int &Msize, const int &amax, const int &mmax, const int &mrastep, const double *mracoef, const double *mracoefrs, const int &a, const int &m, double &wavd)
void rtrsmrawavd (const int &Asize, const int &Msize, const int &amax, const int &mmax, const int &mrastep, const float *mracoef, const float *mracoefrs, const int &a, const int &m, float &wavd)
void rtrsmrawavd (const int &Msize, const int &mmax, const int &mrastep, const int *mracoef, const int *mracoefrs, const int &m, int &wavd)
void rtrsmrawavd (const int &Msize, const int &mmax, const int &mrastep, const double *mracoef, const double *mracoefrs, const int &m, double &wavd)
void rtrsmrawavd (const int &Msize, const int &mmax, const int &mrastep, const float *mracoef, const float *mracoefrs, const int &m, float &wavd)


Function Documentation

void rtrsmrawavd const int Asize,
const int Msize,
const int amax,
const int mmax,
const int mrastep,
const int mracoef,
const int mracoefrs,
const int a,
const int m,
int wavd
 

Definition at line 176 of file rtrsmrawavd.cpp.

References iartrsmrawavd1_().

Referenced by Rtrsmra< Data_t, scalar >.chg0(), and Rtrsmra< Data_t, array >.chg0().

00188 {
00189 #ifdef STORM_USEF
00190    iartrsmrawavd1_(
00191      &Asize, &Msize,
00192      &amax, &mmax,
00193      &mrastep, mracoef, mracoefrs,
00194      &a, &m, &wavd
00195    );
00196 #else
00197 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00198       int tmp = mracoef[ Msize*2*a + 2*m +1 ];
00199       if (tmp >= 0) {
00200          wavd = tmp >> m;
00201       } else {
00202          if ((tmp & 0x00000001) != 0) {
00203             wavd = - ( (-tmp) >> m);
00204          } else {
00205             wavd = - ( (-tmp) >> m) - 1;
00206          }
00207       }
00208 //   } else {
00209 //      wavd = 1/0;
00210 //   }
00211 #endif
00212 }

void rtrsmrawavd const int Asize,
const int Msize,
const int amax,
const int mmax,
const int mrastep,
const double *  mracoef,
const double *  mracoefrs,
const int a,
const int m,
double &  wavd
 

Definition at line 146 of file rtrsmrawavd.cpp.

References dartrsmrawavd1_(), and INVSQRT2.

00158 {
00159 #ifdef STORM_USEF
00160    dartrsmrawavd1_(
00161      &Asize, &Msize,
00162      &amax, &mmax,
00163      &mrastep, mracoef, mracoefrs,
00164      &a, &m, &wavd
00165    );
00166 #else
00167 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00168       wavd = mracoef[ Msize*2*a + 2*m +1 ] * pow(INVSQRT2,m);
00169 //   } else {
00170 //      wavd = 1.0/0;
00171 //   }
00172 #endif
00173 }

void rtrsmrawavd const int Asize,
const int Msize,
const int amax,
const int mmax,
const int mrastep,
const float *  mracoef,
const float *  mracoefrs,
const int a,
const int m,
float &  wavd
 

Definition at line 116 of file rtrsmrawavd.cpp.

References artrsmrawavd1_(), and INVSQRT2.

00128 {
00129 #ifdef STORM_USEF
00130    artrsmrawavd1_(
00131      &Asize, &Msize,
00132      &amax, &mmax,
00133      &mrastep, mracoef, mracoefrs,
00134      &a, &m, &wavd
00135    );
00136 #else
00137 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00138       wavd = mracoef[ Msize*2*a + 2*m + 1 ] * pow(INVSQRT2,m);
00139 //   } else {
00140 //      wavd = 1.0/0;
00141 //   }
00142 #endif
00143 }

void rtrsmrawavd const int Msize,
const int mmax,
const int mrastep,
const int mracoef,
const int mracoefrs,
const int m,
int wavd
 

Definition at line 80 of file rtrsmrawavd.cpp.

References irtrsmrawavd_().

00089 { 
00090 #ifdef STORM_USEF
00091    irtrsmrawavd_( 
00092      &Msize, 
00093      &mmax, 
00094      &mrastep, mracoef, mracoefrs,
00095      &m, &wavd
00096    );
00097 #else
00098 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00099       int tmp = mracoef[ 2*m + 1 ];
00100       if (tmp >= 0) {
00101          wavd = tmp >> m;
00102       } else {
00103          if ((tmp & 0x00000001) != 0) {
00104             wavd = - ( (-tmp) >> m);
00105          } else {
00106             wavd = - ( (-tmp) >> m) - 1;
00107          }
00108       }
00109 //   } else { 
00110 //      wavd = 1/0;
00111 //   }
00112 #endif
00113 } 

void rtrsmrawavd const int Msize,
const int mmax,
const int mrastep,
const double *  mracoef,
const double *  mracoefrs,
const int m,
double &  wavd
 

Definition at line 53 of file rtrsmrawavd.cpp.

References drtrsmrawavd_(), and INVSQRT2.

00062 { 
00063 #ifdef STORM_USEF
00064    drtrsmrawavd_( 
00065      &Msize, 
00066      &mmax, 
00067      &mrastep, mracoef, mracoefrs,
00068      &m, &wavd
00069    );
00070 #else
00071 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00072       wavd = mracoef[ 2*m + 1 ] * pow(INVSQRT2,m); 
00073 //   } else { 
00074 //      wavd = 1.0/0;
00075 //   }
00076 #endif
00077 } 

void rtrsmrawavd const int Msize,
const int mmax,
const int mrastep,
const float *  mracoef,
const float *  mracoefrs,
const int m,
float &  wavd
 

Definition at line 26 of file rtrsmrawavd.cpp.

References INVSQRT2, and rtrsmrawavd_().

00035 { 
00036 #ifdef STORM_USEF
00037    rtrsmrawavd_( 
00038      &Msize, 
00039      &mmax, 
00040      &mrastep, mracoef, mracoefrs,
00041      &m, &wavd
00042    );
00043 #else
00044 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00045       wavd = mracoef[ 2*m +1 ] * pow(INVSQRT2,m); 
00046 //   } else { 
00047 //      wavd = 1.0/0;
00048 //   }
00049 #endif
00050 }


Generated on Mon May 31 21:40:37 2004 for SR2k4 Assembler by doxygen 1.3.6