rtmraputwavcoef.cpp

Go to the documentation of this file.

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

#ifdef STORM_USEF
#include "rtmraputwavcoef_.h"
#include "drtmraputwavcoef_.h"
#include "irtmraputwavcoef_.h"
#include "artmraputwavcoef1_.h"
#include "dartmraputwavcoef1_.h"
#include "iartmraputwavcoef1_.h"
#endif

void rtmraputwavcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
                float* mracoef,
          const int& m,
          const float& wavcoef
) { 
#ifdef STORM_USEF
   rtmraputwavcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &wavcoef );
#else
   if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[ 2*m + 1 ] = wavcoef; }
#endif
} 


void rtmraputwavcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
                double* mracoef,
          const int& m,
          const double& wavcoef
) { 
#ifdef STORM_USEF
   drtmraputwavcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &wavcoef );
#else
   if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[ 2*m + 1 ]=wavcoef; }
#endif
}


void rtmraputwavcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
                int* mracoef,
          const int& m,
          const int& wavcoef
) { 
#ifdef STORM_USEF
   irtmraputwavcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &wavcoef );
#else
   if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[ 2*m + 1 ]=wavcoef; }
#endif
}


void rtmraputwavcoef(
          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& wavcoef
) {
#ifdef STORM_USEF
   artmraputwavcoef1_(
     &Asize, &Msize,
     &amax, &mmax,
     &mrastep, mracoef,
     &a, &m, &wavcoef
   );
#else
   if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax)) { 
      mracoef[ a*2*Msize + 2*m + 1 ] = wavcoef; 
   }
#endif
}


void rtmraputwavcoef(
          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& wavcoef
) {
#ifdef STORM_USEF
   dartmraputwavcoef1_(
     &Asize, &Msize,
     &amax, &mmax,
     &mrastep, mracoef,
     &a, &m, &wavcoef
   );
#else
   if ( ( a >= 0 ) && ( a <=amax ) && ( m >= 0 ) && ( m <= mmax) ) { 
      mracoef[ a*2*Msize + 2*m +1 ] = wavcoef; 
   }
#endif
}

 
void rtmraputwavcoef(
          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& wavcoef
) {
#ifdef STORM_USEF
   iartmraputwavcoef1_(
     &Asize, &Msize,
     &amax, &mmax,
     &mrastep, mracoef,
     &a, &m, &wavcoef
   );
#else
   if ( ( a >= 0 ) && ( a <=amax ) && ( m >= 0 ) && ( m <= mmax) ) { 
      mracoef[ a*2*Msize + 2*m +1 ] = wavcoef; 
   }
#endif
}
 

---