rtmrareset.cpp

Go to the documentation of this file.

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

#ifdef STORM_USEF
#include "rtmrareset_.h"
#include "drtmrareset_.h"
#include "irtmrareset_.h"
#include "artmrareset_.h"
#include "dartmrareset_.h"
#include "iartmrareset_.h"
#endif

void rtmrareset( 
          const int& Msize,
          const int& mmax,
                int& mrastep,
                float* mracoef
) {

#ifdef STORM_USEF 

   rtmrareset_( &Msize, &mmax, &mrastep, mracoef);

#else

   mrastep = -1;
   for( int m = 0; m <= mmax; m++ ) {
      mracoef[ 2*m ] = 0;
      mracoef[ 2*m + 1 ] = 0;
   }

#endif

} 


void rtmrareset( 
          const int& Msize,
          const int& mmax,
                int& mrastep,
                double* mracoef
) { 

#ifdef STORM_USEF 

   drtmrareset_( &Msize, &mmax, &mrastep, mracoef );

#else

   mrastep = -1;
   for( int m = 0; m <= mmax; m++ ) {
      mracoef[ 2*m ] = 0;
      mracoef[ 2*m+1 ] = 0;
   }

#endif

} 


void rtmrareset( 
          const int& Msize,
          const int& mmax,
                int& mrastep,
                int* mracoef
) { 

#ifdef STORM_USEF 

   irtmrareset_( &Msize, &mmax, &mrastep, mracoef );

#else

   mrastep = -1;
   for( int m = 0; m <= mmax; m++ ) {
      mracoef[ 2*m ] = 0;
      mracoef[ 2*m+1 ] = 0;
   }

#endif

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

#ifdef STORM_USEF 

   artmrareset_( &Asize, &Msize, &amax, &mmax, &mrastep, mracoef );

#else

   mrastep = -1;
   for( int a = 0; a <= amax; a++ ) {
      for( int m = 0; m <= mmax; m++ ) {
         mracoef[ a*2*Msize + 2*m ] = 0;
         mracoef[ a*2*Msize + 2*m + 1 ] = 0;
      }
   }

#endif

}


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

#ifdef STORM_USEF 

   dartmrareset_( &Asize, &Msize, &amax, &mmax, &mrastep, mracoef );

#else

   mrastep = -1;
   for( int a = 0; a <= amax; a++ ) {
      for( int m = 0; m <= mmax; m++ ) {
         mracoef[ a*2*Msize + 2*m ]=0;
         mracoef[ a*2*Msize + 2*m +1 ]=0;
      }
   }

#endif

} 


void rtmrareset( 
          const int& Asize,
          const int& Msize,
          const int& amax,
          const int& mmax,
                int& mrastep,
                int* mracoef
) { 

#ifdef STORM_USEF 

   iartmrareset_( &Asize, &Msize, &amax, &mmax, &mrastep, mracoef );

#else

   mrastep = -1;
   for( int a = 0; a <= amax; a++ ) {
      for( int m = 0; m <= mmax; m++ ) {
         mracoef[ a*2*Msize + 2*m ]=0;
         mracoef[ a*2*Msize + 2*m +1 ]=0;
      }
   }

#endif

} 

---