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

rtmrascalcoef.h File Reference

Go to the source code of this file.

Functions

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


Function Documentation

void rtmrascalcoef 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 scalcoef
 

Definition at line 163 of file rtmrascalcoef.cpp.

References iartmrascalcoef1_().

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

00173   {
00174 
00175 #ifdef STORM_USEF
00176 
00177    iartmrascalcoef1_(
00178      &Asize, &Msize,
00179      &amax, &mmax,
00180      &mrastep, mracoef,
00181      &a, &m, &scalcoef
00182    );
00183 
00184 #else
00185 
00186 //   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) { 
00187       scalcoef = mracoef[ a*2*Msize + 2*m ]; 
00188 //   } 
00189 //   else { 
00190 //      scalcoef = 1/0; 
00191 //   }
00192 
00193 #endif
00194 
00195 }

void rtmrascalcoef 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 &  scalcoef
 

Definition at line 128 of file rtmrascalcoef.cpp.

References dartmrascalcoef1_().

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

void rtmrascalcoef 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 &  scalcoef
 

Definition at line 93 of file rtmrascalcoef.cpp.

References artmrascalcoef1_().

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

void rtmrascalcoef const int Msize,
const int mmax,
const int mrastep,
const int mracoef,
const int m,
int scalcoef
 

Definition at line 68 of file rtmrascalcoef.cpp.

References irtmrascalcoef_().

00075   { 
00076 
00077 #ifdef STORM_USEF
00078 
00079    irtmrascalcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &scalcoef );
00080 
00081 #else
00082 
00083 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00084       scalcoef = mracoef[ 2*m ]; 
00085 //   }
00086 //   else { scalcoef = 1/0; }
00087 
00088 #endif
00089 
00090 }

void rtmrascalcoef const int Msize,
const int mmax,
const int mrastep,
const double *  mracoef,
const int m,
double &  scalcoef
 

Definition at line 43 of file rtmrascalcoef.cpp.

References drtmrascalcoef_().

00050   { 
00051 
00052 #ifdef STORM_USEF
00053 
00054    drtmrascalcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &scalcoef );
00055 
00056 #else
00057 
00058 //   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
00059       scalcoef = mracoef[ 2*m ]; 
00060 //   }
00061 //   else { scalcoef = 1.0/0; }
00062 
00063 #endif
00064 
00065 }

void rtmrascalcoef const int Msize,
const int mmax,
const int mrastep,
const float *  mracoef,
const int m,
float &  scalcoef
 

Definition at line 16 of file rtmrascalcoef.cpp.

References rtmrascalcoef_().

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


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