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

rtmraputscalcoef.cpp File Reference

Go to the source code of this file.

Functions

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

Function Documentation

void rtmraputscalcoef (  const int &  Asize,
const int &  Msize,
const int &  amax,
const int &  mmax,
const int &  mrastep,
int *  mracoef,
const int &  a,
const int &  m,
const int &  scalcoef
) 
 

Definition at line 115 of file rtmraputscalcoef.cpp.

References iartmraputscalcoef1_().

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

00125   {
00126 #ifdef STORM_USEF
00127    iartmraputscalcoef1_(
00128      &Asize, &Msize,
00129      &amax, &mmax,
00130      &mrastep, mracoef,
00131      &a, &m, &scalcoef
00132    );
00133 #else
00134    if ((a>=0)&&(a<=amax)&&(m>=0)&&(m<=mmax)) { 
00135       mracoef[ Msize*2*a + 2*m ]=scalcoef; 
00136    }
00137 #endif
00138 }

void rtmraputscalcoef (  const int &  Asize,
const int &  Msize,
const int &  amax,
const int &  mmax,
const int &  mrastep,
double *  mracoef,
const int &  a,
const int &  m,
const double &  scalcoef
) 
 

Definition at line 89 of file rtmraputscalcoef.cpp. 

00099   {
00100 #ifdef STORM_USEF
00101    dartmraputscalcoef1_(
00102      &Asize, &Msize,
00103      &amax, &mmax,
00104      &mrastep, mracoef,
00105      &a, &m, &scalcoef
00106    );
00107 #else
00108    if ((a>=0)&&(a<=amax)&&(m>=0)&&(m<=mmax)) { 
00109       mracoef[ Msize*2*a + 2*m ]=scalcoef; 
00110    }
00111 #endif
00112 }

void rtmraputscalcoef (  const int &  Asize,
const int &  Msize,
const int &  amax,
const int &  mmax,
const int &  mrastep,
float *  mracoef,
const int &  a,
const int &  m,
const float &  scalcoef
) 
 

Definition at line 63 of file rtmraputscalcoef.cpp. 

00073   {
00074 #ifdef STORM_USEF
00075    artmraputscalcoef1_(
00076       &Asize, &Msize,
00077       &amax, &mmax,
00078       &mrastep, mracoef,
00079       &a,&m, &scalcoef
00080    );
00081 #else
00082    if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) { 
00083       mracoef[ Msize*2*a + 2*m ] = scalcoef; 
00084    }
00085 #endif
00086 }

void rtmraputscalcoef (  const int &  Msize,
const int &  mmax,
const int &  mrastep,
int *  mracoef,
const int &  m,
const int &  scalcoef
) 
 

Definition at line 48 of file rtmraputscalcoef.cpp. 

00055   {
00056 #ifdef STORM_USEF 
00057    irtmraputscalcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &scalcoef);
00058 #else
00059    if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[2*m] = scalcoef; }
00060 #endif
00061 }

void rtmraputscalcoef (  const int &  Msize,
const int &  mmax,
const int &  mrastep,
double *  mracoef,
const int &  m,
const double &  scalcoef
) 
 

Definition at line 32 of file rtmraputscalcoef.cpp. 

00039   {
00040 #ifdef STORM_USEF 
00041    drtmraputscalcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &scalcoef);
00042 #else
00043    if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[2*m] = scalcoef; }
00044 #endif
00045 }

void rtmraputscalcoef (  const int &  Msize,
const int &  mmax,
const int &  mrastep,
float *  mracoef,
const int &  m,
const float &  scalcoef
) 
 

Definition at line 16 of file rtmraputscalcoef.cpp. 

00023   { 
00024 #ifdef STORM_USEF
00025    rtmraputscalcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &scalcoef );
00026 #else
00027    if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[2*m] = scalcoef; }
00028 #endif
00029 }

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