rtmrawavcoef.cpp

Go to the documentation of this file.

// rtmrawavcoef.cpp
//////////////////////////////////////////////////////////////////////
//          (c) Copyright 2000-2002 Brown Deer Technology, LLC.
//                        All rights reserved.
//////////////////////////////////////////////////////////////////////

#ifdef STORM_USEF
#include "rtmrawavcoef_.h"
#include "drtmrawavcoef_.h"
#include "irtmrawavcoef_.h"
#include "artmrawavcoef1_.h"
#include "dartmrawavcoef1_.h"
#include "iartmrawavcoef1_.h"
#endif

void rtmrawavcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
          const float* mracoef,
          const int& m,
                float& wavcoef
) { 

#ifdef STORM_USEF

   rtmrawavcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &wavcoef );

#else

//   if ( ( m >=  0 ) && ( m <= mmax ) ) { 
      wavcoef = mracoef[ 2*m +1 ]; 
//   }
//   else { 
//      wavcoef = 1.0/0; 
//   }

#endif

} 


void rtmrawavcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
          const double* mracoef,
          const int& m,
                double& wavcoef
) { 

#ifdef STORM_USEF

   drtmrawavcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &wavcoef );

#else

//   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
       wavcoef = mracoef[ 2*m + 1 ]; 
//   }
//   else { 
//      wavcoef = 1.0/0; 
//   }

#endif

}


void rtmrawavcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
          const int* mracoef,
          const int& m,
                int& wavcoef
) { 

#ifdef STORM_USEF

   irtmrawavcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &wavcoef );

#else

//   if ( ( m >= 0 ) && ( m <= mmax ) ) { 
       wavcoef = mracoef[ 2*m + 1 ]; 
//   }
//   else { 
//      wavcoef = 1/0; 
//   }

#endif

}


void rtmrawavcoef(
          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& wavcoef
) {

#ifdef STORM_USEF

   artmrawavcoef1_(
     &Asize, &Msize,
     &amax, &mmax,
     &mrastep, mracoef,
     &a, &m, &wavcoef
   );

#else

//   if ( ( a >= 0 ) && ( a <= amax ) && ( m>= 0 ) && ( m <= mmax ) ) {
      wavcoef = mracoef[ a*2*Msize + 2*m +1 ];
//   } 
//   else { 
//      wavcoef = 1.0/0; 
//   }

#endif

}


void rtmrawavcoef(
          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& wavcoef
) {

#ifdef STORM_USEF

   dartmrawavcoef1_(
     &Asize, &Msize,
     &amax, &mmax,
     &mrastep, mracoef,
     &a, &m, &wavcoef
   );

#else

//   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax) ) {
      wavcoef = mracoef[ a*2*Msize + 2*m +1 ];
//   } 
//   else { 
//      wavcoef = 1.0/0; 
//   }

#endif

}
 
void rtmrawavcoef(
          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& wavcoef
) {

#ifdef STORM_USEF

   iartmrawavcoef1_(
     &Asize, &Msize,
     &amax, &mmax,
     &mrastep, mracoef,
     &a, &m, &wavcoef
   );

#else

//   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax) ) {
      wavcoef = mracoef[ a*2*Msize + 2*m +1 ];
//   } 
//   else { 
//      wavcoef = 1/0; 
//   }

#endif

}
 

---