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

rtmrawavd.cpp File Reference

#include <math.h>
#include "stormdef.h"

Include dependency graph for rtmrawavd.cpp:

Include dependency graph

Go to the source code of this file.

Defines

#define INVSQRT2   STORMDEF_MATHCONST_INVSQRT2

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)

Define Documentation

#define INVSQRT2   STORMDEF_MATHCONST_INVSQRT2
 

Definition at line 24 of file rtmrawavd.cpp.

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, array >.chg(), and Rtmra< Data_t, scalar >.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. 

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. 

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. 

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. 

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. 

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