rtmraputscalcoef.cpp

Go to the documentation of this file.

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

#ifdef STORM_USEF
#include "rtmraputscalcoef_.h"
#include "drtmraputscalcoef_.h"
#include "irtmraputscalcoef_.h"
#include "artmraputscalcoef1_.h"
#include "dartmraputscalcoef1_.h"
#include "iartmraputscalcoef1_.h"
#endif

void rtmraputscalcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
                float* mracoef,
          const int& m,
          const float& scalcoef
) { 
#ifdef STORM_USEF
   rtmraputscalcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &scalcoef );
#else
   if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[2*m] = scalcoef; }
#endif
} 


void rtmraputscalcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
                double* mracoef,
          const int& m,
          const double& scalcoef
) {
#ifdef STORM_USEF 
   drtmraputscalcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &scalcoef);
#else
   if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[2*m] = scalcoef; }
#endif
}


void rtmraputscalcoef( 
          const int& Msize,
          const int& mmax,
          const int& mrastep,
                int* mracoef,
          const int& m,
          const int& scalcoef
) {
#ifdef STORM_USEF 
   irtmraputscalcoef_( &Msize, &mmax, &mrastep, mracoef, &m, &scalcoef);
#else
   if ( ( m >= 0 ) && ( m <= mmax ) ) { mracoef[2*m] = scalcoef; }
#endif
}

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


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


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

---