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

rtrsmrascalcoefrs.h File Reference

Go to the source code of this file.

Functions

void rtrsmrascalcoefrs (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 &scalcoefrs)
void rtrsmrascalcoefrs (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 &scalcoefrs)
void rtrsmrascalcoefrs (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 &scalcoefrs)
void rtrsmrascalcoefrs (const int &Msize, const int &mmax, const int &mrastep, const int *mracoef, const int *mracoefrs, const int &m, int &scalcoefrs)
void rtrsmrascalcoefrs (const int &Msize, const int &mmax, const int &mrastep, const double *mracoef, const double *mracoefrs, const int &m, double &scalcoefrs)
void rtrsmrascalcoefrs (const int &Msize, const int &mmax, const int &mrastep, const float *mracoef, const float *mracoefrs, const int &m, float &scalcoefrs)

Function Documentation

void rtrsmrascalcoefrs (  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 &  scalcoefrs
) 
 

Definition at line 158 of file rtrsmrascalcoefrs.cpp.

References iartrsmrascalcoefrs1_().

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

00170 {
00171 #ifdef STORM_USEF
00172    iartrsmrascalcoefrs1_(
00173      &Asize, &Msize,
00174      &amax, &mmax,
00175      &mrastep, mracoef, mracoefrs,
00176      &a, &m, &scalcoefrs
00177    );
00178 #else
00179 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00180       scalcoefrs = mracoefrs[ Msize*2*a + 2*m ];
00181 //   } else {
00182 //      scalcoefrs = 1/0;
00183 //   }
00184 #endif
00185 }

void rtrsmrascalcoefrs (  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 &  scalcoefrs
) 
 

Definition at line 128 of file rtrsmrascalcoefrs.cpp.

References dartrsmrascalcoefrs1_(). 

00140 {
00141 #ifdef STORM_USEF
00142    dartrsmrascalcoefrs1_(
00143      &Asize, &Msize,
00144      &amax, &mmax,
00145      &mrastep, mracoef, mracoefrs,
00146      &a, &m, &scalcoefrs
00147    );
00148 #else
00149 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00150       scalcoefrs = mracoefrs[ Msize*2*a + 2*m ];
00151 //   } else {
00152 //      scalcoefrs = 1.0/0;
00153 //   }
00154 #endif
00155 }

void rtrsmrascalcoefrs (  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 &  scalcoefrs
) 
 

Definition at line 98 of file rtrsmrascalcoefrs.cpp.

References artrsmrascalcoefrs1_(). 

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

void rtrsmrascalcoefrs (  const int &  Msize,
const int &  mmax,
const int &  mrastep,
const int *  mracoef,
const int *  mracoefrs,
const int &  m,
int &  scalcoefrs
) 
 

Definition at line 71 of file rtrsmrascalcoefrs.cpp.

References irtrsmrascalcoefrs_(). 

00080 { 
00081 #ifdef STORM_USEF
00082    irtrsmrascalcoefrs_( 
00083      &Msize, 
00084      &mmax, 
00085      &mrastep, mracoef, mracoefrs,
00086      &m, &scalcoefrs
00087    );
00088 #else
00089 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00090       scalcoefrs = mracoefrs[ 2*m ]; 
00091 //   } else { 
00092 //      scalcoefrs = 1/0; 
00093 //   }
00094 #endif
00095 }

void rtrsmrascalcoefrs (  const int &  Msize,
const int &  mmax,
const int &  mrastep,
const double *  mracoef,
const double *  mracoefrs,
const int &  m,
double &  scalcoefrs
) 
 

Definition at line 44 of file rtrsmrascalcoefrs.cpp.

References drtrsmrascalcoefrs_(). 

00053 { 
00054 #ifdef STORM_USEF
00055    drtrsmrascalcoefrs_( 
00056      &Msize, 
00057      &mmax, 
00058      &mrastep, mracoef, mracoefrs,
00059      &m, &scalcoefrs
00060    );
00061 #else
00062 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00063       scalcoefrs = mracoefrs[ 2*m ]; 
00064 //   } else { 
00065 //      scalcoefrs = 1.0/0; 
00066 //   }
00067 #endif
00068 }

void rtrsmrascalcoefrs (  const int &  Msize,
const int &  mmax,
const int &  mrastep,
const float *  mracoef,
const float *  mracoefrs,
const int &  m,
float &  scalcoefrs
) 
 

Definition at line 17 of file rtrsmrascalcoefrs.cpp.

References rtrsmrascalcoefrs_(). 

00026 { 
00027 #ifdef STORM_USEF
00028    rtrsmrascalcoefrs_( 
00029      &Msize, 
00030      &mmax, 
00031      &mrastep, mracoef, mracoefrs,
00032      &m, &scalcoefrs
00033    );
00034 #else
00035 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00036       scalcoefrs = mracoefrs[ 2*m ]; 
00037 //   } else { 
00038 //      scalcoefrs = 1.0/0; 
00039 //   }
00040 #endif
00041 }

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