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

rtmrareset.h File Reference

Go to the source code of this file.

Functions

void Crtmrareset (const int &Asize, const int &Msize, const int &amax, const int &mmax, int &mrastep, double *mracoef)
void rtmrareset (const int &Asize, const int &Msize, const int &amax, const int &mmax, int &mrastep, float *mracoef)
void rtmrareset (const int &Msize, const int &mmax, int &mrastep, double *mracoef)
void rtmrareset (const int &Msize, const int &mmax, int &mrastep, float *mracoef)


Function Documentation

void Crtmrareset const int Asize,
const int Msize,
const int amax,
const int mmax,
int mrastep,
double *  mracoef
 

void rtmrareset const int Asize,
const int Msize,
const int amax,
const int mmax,
int mrastep,
float *  mracoef
 

Definition at line 87 of file rtmrareset.cpp.

References artmrareset_().

00094   { 
00095 
00096 #ifdef STORM_USEF 
00097 
00098    artmrareset_( &Asize, &Msize, &amax, &mmax, &mrastep, mracoef );
00099 
00100 #else
00101 
00102    mrastep = -1;
00103    for( int a = 0; a <= amax; a++ ) {
00104       for( int m = 0; m <= mmax; m++ ) {
00105          mracoef[ a*2*Msize + 2*m ] = 0;
00106          mracoef[ a*2*Msize + 2*m + 1 ] = 0;
00107       }
00108    }
00109 
00110 #endif
00111 
00112 }

void rtmrareset const int Msize,
const int mmax,
int mrastep,
double *  mracoef
 

Definition at line 40 of file rtmrareset.cpp.

References drtmrareset_().

00045   { 
00046 
00047 #ifdef STORM_USEF 
00048 
00049    drtmrareset_( &Msize, &mmax, &mrastep, mracoef );
00050 
00051 #else
00052 
00053    mrastep = -1;
00054    for( int m = 0; m <= mmax; m++ ) {
00055       mracoef[ 2*m ] = 0;
00056       mracoef[ 2*m+1 ] = 0;
00057    }
00058 
00059 #endif
00060 
00061 } 

void rtmrareset const int Msize,
const int mmax,
int mrastep,
float *  mracoef
 

Definition at line 16 of file rtmrareset.cpp.

References rtmrareset_().

00021   {
00022 
00023 #ifdef STORM_USEF 
00024 
00025    rtmrareset_( &Msize, &mmax, &mrastep, mracoef);
00026 
00027 #else
00028 
00029    mrastep = -1;
00030    for( int m = 0; m <= mmax; m++ ) {
00031       mracoef[ 2*m ] = 0;
00032       mracoef[ 2*m + 1 ] = 0;
00033    }
00034 
00035 #endif
00036 
00037 } 


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