Go to the source code of this file.
Functions | |
| void | rtrsmrascalars (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 &scalars) |
| void | rtrsmrascalars (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 &scalars) |
| void | rtrsmrascalars (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 &scalars) |
| void | rtrsmrascalars (const int &Msize, const int &mmax, const int &mrastep, const int *mracoef, const int *mracoefrs, const int &m, int &scalars) |
| void | rtrsmrascalars (const int &Msize, const int &mmax, const int &mrastep, const double *mracoef, const double *mracoefrs, const int &m, double &scalars) |
| void | rtrsmrascalars (const int &Msize, const int &mmax, const int &mrastep, const float *mracoef, const float *mracoefrs, const int &m, float &scalars) |
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 175 of file rtrsmrascalars.cpp. References iartrsmrascalars1_(). Referenced by Rtrsmra< Data_t, scalar >.ave1(), and Rtrsmra< Data_t, array >.ave1().
00187 {
00188 #ifdef STORM_USEF
00189 iartrsmrascalars1_(
00190 &Asize, &Msize,
00191 &amax, &mmax,
00192 &mrastep, mracoef, mracoefrs,
00193 &a, &m, &scalars
00194 );
00195 #else
00196 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00197 int tmp = mracoefrs[ Msize*2*a + 2*m ];
00198 if (tmp >= 0) {
00199 scalars = tmp >> m;
00200 } else {
00201 if ((tmp & 0x00000001) != 0) {
00202 scalars = - ( (-tmp) >> m);
00203 } else {
00204 scalars = - ( (-tmp) >> m) - 1;
00205 }
00206 }
00207 // } else {
00208 // scalars = 1/0;
00209 // }
00210 #endif
00211 }
|
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 145 of file rtrsmrascalars.cpp. References dartrsmrascalars1_(), and INVSQRT2.
00157 {
00158 #ifdef STORM_USEF
00159 dartrsmrascalars1_(
00160 &Asize, &Msize,
00161 &amax, &mmax,
00162 &mrastep, mracoef, mracoefrs,
00163 &a, &m, &scalars
00164 );
00165 #else
00166 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00167 scalars = mracoefrs[ Msize*2*a + 2*m ] * pow(INVSQRT2,m);
00168 // } else {
00169 // scalars = 1.0/0;
00170 // }
00171 #endif
00172 }
|
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 116 of file rtrsmrascalars.cpp. References artrsmrascalars1_(), and INVSQRT2.
00128 {
00129 #ifdef STORM_USEF
00130 artrsmrascalars1_(
00131 &Asize, &Msize,
00132 &amax, &mmax,
00133 &mrastep, mracoef, mracoefrs,
00134 &a, &m, &scalars
00135 );
00136 #else
00137 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00138 scalars = mracoefrs[ Msize*2*a + 2*m ] * pow(INVSQRT2,m);
00139 // } else {
00140 // scalars = 1.0/0;
00141 // }
00142 #endif
00143 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 80 of file rtrsmrascalars.cpp. References irtrsmrascalars_().
00089 {
00090 #ifdef STORM_USEF
00091 irtrsmrascalars_(
00092 &Msize,
00093 &mmax,
00094 &mrastep, mracoef, mracoefrs,
00095 &m, &scalars
00096 );
00097 #else
00098 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00099 int tmp = mracoefrs[ 2*m ];
00100 if (tmp >= 0) {
00101 scalars = tmp >> m;
00102 } else {
00103 if ((tmp & 0x00000001) != 0) {
00104 scalars = - ( (-tmp) >> m);
00105 } else {
00106 scalars = - ( (-tmp) >> m) - 1;
00107 }
00108 }
00109 // } else {
00110 // scalars = 1/0;
00111 // }
00112 #endif
00113 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 53 of file rtrsmrascalars.cpp. References drtrsmrascalars_(), and INVSQRT2.
00062 {
00063 #ifdef STORM_USEF
00064 drtrsmrascalars_(
00065 &Msize,
00066 &mmax,
00067 &mrastep, mracoef, mracoefrs,
00068 &m, &scalars
00069 );
00070 #else
00071 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00072 scalars = mracoefrs[ 2*m ] * pow(INVSQRT2,m);
00073 // } else {
00074 // scalars = 1.0/0;
00075 // }
00076 #endif
00077 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 26 of file rtrsmrascalars.cpp. References INVSQRT2, and rtrsmrascalars_().
00035 {
00036 #ifdef STORM_USEF
00037 rtrsmrascalars_(
00038 &Msize,
00039 &mmax,
00040 &mrastep, mracoef, mracoefrs,
00041 &m, &scalars
00042 );
00043 #else
00044 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00045 scalars = mracoefrs[ 2*m ] * pow(INVSQRT2,m);
00046 // } else {
00047 // scalars = 1.0/0;
00048 // }
00049 #endif
00050 }
|
1.3.6