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

rtmrawavd.h File Reference

Go to the source code of this file.

Functions

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


Function Documentation

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

Definition at line 156 of file rtmrawavd.cpp.

References iartmrawavd1_().

Referenced by Rtmra< Data_t, scalar >.chg(), and Rtmra< Data_t, array >.chg().

00166   {
00167 #ifdef STORM_USEF
00168    iartmrawavd1_(
00169      &Asize, &Msize,
00170      &amax, &mmax,
00171      &mrastep, mracoef,
00172      &a, &m, &wavd
00173    );
00174 #else
00175 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00176       int tmp = mracoef[ a*2*Msize + 2*m + 1 ];
00177       if (tmp >= 0) {
00178          wavd = tmp >> m;
00179       } else {
00180          if ((tmp & 0x00000001) != 0) {
00181             wavd = - ( (-tmp) >> m);
00182          } else {
00183             wavd = - ( (-tmp) >> m) - 1;
00184          }
00185       }
00186 //   } 
00187 //   else { 
00188 //      wavd = 1/0; 
00189 //   }
00190 #endif
00191 }

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

Definition at line 127 of file rtmrawavd.cpp.

References dartmrawavd1_(), and INVSQRT2.

00137   {
00138 #ifdef STORM_USEF
00139    dartmrawavd1_(
00140      &Asize, &Msize,
00141      &amax, &mmax,
00142      &mrastep, mracoef,
00143      &a, &m, &wavd
00144    );
00145 #else
00146 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00147       wavd = mracoef[ a*2*Msize + 2*m + 1 ] * pow(INVSQRT2,m);
00148 //   } 
00149 //   else { 
00150 //      wavd = 1.0/0; 
00151 //   }
00152 #endif
00153 }

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

Definition at line 98 of file rtmrawavd.cpp.

References artmrawavd1_(), and INVSQRT2.

00108   {
00109 #ifdef STORM_USEF
00110    artmrawavd1_(
00111      &Asize, &Msize,
00112      &amax, &mmax,
00113      &mrastep, mracoef,
00114      &a, &m, &wavd
00115    );
00116 #else
00117 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00118       wavd = mracoef[ a*2*Msize + 2*m + 1 ] * pow(INVSQRT2,m);
00119 //   } 
00120 //   else { 
00121 //      wavd = 1.0/0; 
00122 //   }
00123 #endif
00124 }

void rtmrawavd const int Msize,
const int mmax,
const int mrastep,
const int mracoef,
const int m,
int wavd
 

Definition at line 68 of file rtmrawavd.cpp.

References irtmrawavd_().

00075   { 
00076 #ifdef STORM_USEF
00077    irtmrawavd_( &Msize, &mmax, &mrastep, mracoef, &m, &wavd );
00078 #else
00079 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00080       int tmp = mracoef[ 2*m + 1 ];
00081       if (tmp >= 0) {
00082          wavd = tmp >> m;
00083       } else {
00084          if ((tmp & 0x00000001) != 0) {
00085             wavd = - ( (-tmp) >> m);
00086          } else {
00087             wavd = - ( (-tmp) >> m) - 1;
00088          }
00089       }
00090 //   }
00091 //   else { 
00092 //      wavd = 1/0; 
00093 //   }
00094 #endif
00095 } 

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

Definition at line 47 of file rtmrawavd.cpp.

References drtmrawavd_(), and INVSQRT2.

00054   { 
00055 #ifdef STORM_USEF
00056    drtmrawavd_( &Msize, &mmax, &mrastep, mracoef, &m, &wavd );
00057 #else
00058 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00059       wavd = mracoef[ 2*m + 1 ] * pow(INVSQRT2,m); 
00060 //   }
00061 //   else { 
00062 //      wavd = 1.0/0; 
00063 //   }
00064 #endif
00065 } 

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

Definition at line 26 of file rtmrawavd.cpp.

References INVSQRT2, and rtmrawavd_().

00033   {
00034 #ifdef STORM_USEF 
00035    rtmrawavd_( &Msize, &mmax, &mrastep, mracoef, &m, &wavd );
00036 #else
00037 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00038       wavd = mracoef[ 2*m + 1 ] * pow(INVSQRT2,m); 
00039 //   }
00040 //   else { 
00041 //      wavd = 1.0/0; 
00042 //   }
00043 #endif
00044 }


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