Go to the source code of this file.
Functions | |
| void | rtrsmrascala (const int &Asize, const int &Msize, const int &amax, const int &mmax, const int &mrastep, const int *mracoef, const int *mracoefrs, const int &a, const int &m, int &scala) |
| void | rtrsmrascala (const int &Asize, const int &Msize, const int &amax, const int &mmax, const int &mrastep, const double *mracoef, const double *mracoefrs, const int &a, const int &m, double &scala) |
| void | rtrsmrascala (const int &Asize, const int &Msize, const int &amax, const int &mmax, const int &mrastep, const float *mracoef, const float *mracoefrs, const int &a, const int &m, float &scala) |
| void | rtrsmrascala (const int &Msize, const int &mmax, const int &mrastep, const int *mracoef, const int *mracoefrs, const int &m, int &scala) |
| void | rtrsmrascala (const int &Msize, const int &mmax, const int &mrastep, const double *mracoef, const double *mracoefrs, const int &m, double &scala) |
| void | rtrsmrascala (const int &Msize, const int &mmax, const int &mrastep, const float *mracoef, const float *mracoefrs, const int &m, float &scala) |
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 170 of file rtrsmrascala.cpp. References iartrsmrascala1_(). Referenced by Rtrsmra< Data_t, scalar >.ave0(), and Rtrsmra< Data_t, array >.ave0().
00182 {
00183 #ifdef STORM_USEF
00184 iartrsmrascala1_(
00185 &Asize, &Msize,
00186 &amax, &mmax,
00187 &mrastep, mracoef, mracoefrs,
00188 &a, &m, &scala
00189 );
00190 #else
00191 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00192 int tmp = mracoef[ Msize*2*a + 2*m ];
00193 if (tmp >= 0) {
00194 scala = tmp >> m;
00195 } else {
00196 if ((tmp & 0x00000001) != 0) {
00197 scala = - ( (-tmp) >> m);
00198 } else {
00199 scala = - ( (-tmp) >> m) - 1;
00200 }
00201 }
00202 // } else {
00203 // scala=1/0;
00204 // }
00205 #endif
00206 }
|
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 140 of file rtrsmrascala.cpp. References dartrsmrascala1_(), and INVSQRT2.
00152 {
00153 #ifdef STORM_USEF
00154 dartrsmrascala1_(
00155 &Asize, &Msize,
00156 &amax, &mmax,
00157 &mrastep, mracoef, mracoefrs,
00158 &a, &m, &scala
00159 );
00160 #else
00161 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00162 scala = mracoef[ Msize*2*a + 2*m ] * pow(INVSQRT2,m);
00163 // } else {
00164 // scala=1.0/0;
00165 // }
00166 #endif
00167 }
|
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 111 of file rtrsmrascala.cpp. References artrsmrascala1_(), and INVSQRT2.
00123 {
00124 #ifdef STORM_USEF
00125 artrsmrascala1_(
00126 &Asize, &Msize,
00127 &amax, &mmax,
00128 &mrastep, mracoef, mracoefrs,
00129 &a, &m, &scala
00130 );
00131 #else
00132 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00133 scala = mracoef[ Msize*2*a + 2*m ] * pow(INVSQRT2,m);
00134 // } else {
00135 // scala = 1.0/0;
00136 // }
00137 #endif
00138 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 80 of file rtrsmrascala.cpp. References irtrsmrascala_().
00089 {
00090 #ifdef STORM_USEF
00091 irtrsmrascala_( &Msize, &mmax, &mrastep, mracoef, mracoefrs, &m, &scala );
00092 #else
00093 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00094 int tmp = mracoef[ 2*m ];
00095 if (tmp >= 0) {
00096 scala = tmp >> m;
00097 } else {
00098 if ((tmp & 0x00000001) != 0) {
00099 scala = - ( (-tmp) >> m);
00100 } else {
00101 scala = - ( (-tmp) >> m) - 1;
00102 }
00103 }
00104 // } else {
00105 // scala = 1/0;
00106 // }
00107 #endif
00108 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 53 of file rtrsmrascala.cpp. References drtrsmrascala_(), and INVSQRT2.
00062 {
00063 #ifdef STORM_USEF
00064 drtrsmrascala_(
00065 &Msize,
00066 &mmax,
00067 &mrastep, mracoef, mracoefrs,
00068 &m, &scala
00069 );
00070 #else
00071 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00072 scala = mracoef[ 2*m ] * pow(INVSQRT2,m);
00073 // } else {
00074 // scala = 1.0/0;
00075 // }
00076 #endif
00077 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 26 of file rtrsmrascala.cpp. References INVSQRT2, and rtrsmrascala_().
00035 {
00036 #ifdef STORM_USEF
00037 rtrsmrascala_(
00038 &Msize,
00039 &mmax,
00040 &mrastep, mracoef, mracoefrs,
00041 &m, &scala
00042 );
00043 #else
00044 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00045 scala = mracoef[ 2*m ] * pow(INVSQRT2,m);
00046 // } else {
00047 // scala = 1.0/0;
00048 // }
00049 #endif
00050 }
|
1.3.6