rtrsmrareset.cpp

Go to the documentation of this file.

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

#ifdef STORM_USEF
#include "rtrsmrareset_.h"
#include "drtrsmrareset_.h"
#include "irtrsmrareset_.h"
#include "artrsmrareset_.h"
#include "dartrsmrareset_.h"
#include "iartrsmrareset_.h"
#endif

void rtrsmrareset( 
          const int& Msize,
          const int& mmax,
                int& mrastep,
                float* mracoef,
                float* mracoefrs
) 
{
#ifdef STORM_USEF
   rtrsmrareset_(&Msize, &mmax, &mrastep, mracoef, mracoefrs);
#else
   mrastep = -1;
   for( int m = 0; m <= mmax; m++ ) {
      mracoef[ 2*m ] = 0;
      mracoef[ 2*m + 1 ] = 0;
      mracoefrs[ 2*m ] = 0;
      mracoefrs[ 2*m + 1 ] = 0;
   }
#endif
} 


void rtrsmrareset( 
          const int& Msize,
          const int& mmax,
                int& mrastep,
                double* mracoef,
                double* mracoefrs
) 
{ 
#ifdef STORM_USEF
   drtrsmrareset_(&Msize, &mmax, &mrastep, mracoef, mracoefrs);
#else
   mrastep = -1;
   for( int m =0; m <= mmax; m++ ) {
      mracoef[ 2*m ] = 0;
      mracoef[ 2*m + 1 ] = 0;
      mracoefrs[ 2*m ] = 0;
      mracoefrs[ 2*m + 1 ] = 0;
   }
#endif
} 


void rtrsmrareset( 
          const int& Msize,
          const int& mmax,
                int& mrastep,
                int* mracoef,
                int* mracoefrs
) 
{ 
#ifdef STORM_USEF
   irtrsmrareset_(&Msize, &mmax, &mrastep, mracoef, mracoefrs);
#else
   mrastep = -1;
   for( int m =0; m <= mmax; m++ ) {
      mracoef[ 2*m ] = 0;
      mracoef[ 2*m + 1 ] = 0;
      mracoefrs[ 2*m ] = 0;
      mracoefrs[ 2*m + 1 ] = 0;
   }
#endif
} 


void rtrsmrareset( 
          const int& Asize,
          const int& Msize,
          const int& amax,
          const int& mmax,
                int& mrastep,
                float* mracoef,
                float* mracoefrs
) 
{ 
#ifdef STORM_USEF
   artrsmrareset_(&Asize, &Msize, &amax, &mmax, &mrastep, mracoef, mracoefrs);
#else
   mrastep = -1;
   for( int a = 0; a <= amax; a++ ) {
      for( int m=0; m <= mmax; m++ ) {
         mracoef[ Msize*2*a + 2*m ] = 0;
         mracoef[ Msize*2*a + 2*m + 1 ] = 0;
         mracoefrs[ Msize*2*a + 2*m ] = 0;
         mracoefrs[ Msize*2*a + 2*m +1 ] = 0;
      }
   }
#endif
}


void rtrsmrareset( 
          const int& Asize,
          const int& Msize,
          const int& amax,
          const int& mmax,
                int& mrastep,
                double* mracoef,
                double* mracoefrs
) 
{ 
#ifdef STORM_USEF
   dartrsmrareset_(&Asize, &Msize, &amax, &mmax, &mrastep, mracoef, mracoefrs);
#else
   mrastep = -1;
   for( int a = 0; a <= amax; a++ ) {
      for( int m = 0; m <= mmax; m++ ) {
         mracoef[ Msize*2*a + 2*m ] = 0;
         mracoef[ Msize*2*a + 2*m +1 ] = 0;
         mracoefrs[ Msize*2*a + 2*m ] = 0;
         mracoefrs[ Msize*2*a + 2*m + 1 ] = 0;
      }
   }
#endif
} 


void rtrsmrareset( 
          const int& Asize,
          const int& Msize,
          const int& amax,
          const int& mmax,
                int& mrastep,
                int* mracoef,
                int* mracoefrs
) 
{ 
#ifdef STORM_USEF
   iartrsmrareset_(&Asize, &Msize, &amax, &mmax, &mrastep, mracoef, mracoefrs);
#else
   mrastep = -1;
   for( int a = 0; a <= amax; a++ ) {
      for( int m = 0; m <= mmax; m++ ) {
         mracoef[ Msize*2*a + 2*m ] = 0;
         mracoef[ Msize*2*a + 2*m +1 ] = 0;
         mracoefrs[ Msize*2*a + 2*m ] = 0;
         mracoefrs[ Msize*2*a + 2*m + 1 ] = 0;
      }
   }
#endif
} 

---