Go to the source code of this file.
Functions | |
| void | rtrsmrawavdrs (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 &wavdrs) |
| void | rtrsmrawavdrs (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 &wavdrs) |
| void | rtrsmrawavdrs (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 &wavdrs) |
| void | rtrsmrawavdrs (const int &Msize, const int &mmax, const int &mrastep, const int *mracoef, const int *mracoefrs, const int &m, int &wavdrs) |
| void | rtrsmrawavdrs (const int &Msize, const int &mmax, const int &mrastep, const double *mracoef, const double *mracoefrs, const int &m, double &wavdrs) |
| void | rtrsmrawavdrs (const int &Msize, const int &mmax, const int &mrastep, const float *mracoef, const float *mracoefrs, const int &m, float &wavdrs) |
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 177 of file rtrsmrawavdrs.cpp. References iartrsmrawavdrs1_(). Referenced by Rtrsmra< Data_t, scalar >.chg1(), and Rtrsmra< Data_t, array >.chg1().
00189 {
00190 #ifdef STORM_USEF
00191 iartrsmrawavdrs1_(
00192 &Asize, &Msize,
00193 &amax, &mmax,
00194 &mrastep, mracoef, mracoefrs,
00195 &a, &m, &wavdrs
00196 );
00197 #else
00198 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00199 int tmp = mracoefrs[ Msize*2*a + 2*m + 1 ];
00200 if (tmp >= 0) {
00201 wavdrs = tmp >> m;
00202 } else {
00203 if ((tmp & 0x00000001) != 0) {
00204 wavdrs = - ( (-tmp) >> m);
00205 } else {
00206 wavdrs = - ( (-tmp) >> m) - 1;
00207 }
00208 }
00209 // } else {
00210 // wavdrs = 1/0;
00211 // }
00212 #endif
00213 }
|
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 147 of file rtrsmrawavdrs.cpp. References dartrsmrawavdrs1_(), and INVSQRT2.
00159 {
00160 #ifdef STORM_USEF
00161 dartrsmrawavdrs1_(
00162 &Asize, &Msize,
00163 &amax, &mmax,
00164 &mrastep, mracoef, mracoefrs,
00165 &a, &m, &wavdrs
00166 );
00167 #else
00168 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00169 wavdrs = mracoefrs[ Msize*2*a + 2*m + 1 ] * pow(INVSQRT2,m);
00170 // } else {
00171 // wavdrs = 1.0/0;
00172 // }
00173 #endif
00174 }
|
|
||||||||||||||||||||||||||||||||||||||||||||
|
Definition at line 117 of file rtrsmrawavdrs.cpp. References artrsmrawavdrs1_(), and INVSQRT2.
00129 {
00130 #ifdef STORM_USEF
00131 artrsmrawavdrs1_(
00132 &Asize, &Msize,
00133 &amax, &mmax,
00134 &mrastep, mracoef, mracoefrs,
00135 &a, &m, &wavdrs
00136 );
00137 #else
00138 // if ( ( a >= 0 ) && ( a <= amax ) && ( m >= 0 ) && ( m <= mmax ) ) {
00139 wavdrs = mracoefrs[ Msize*2*a + 2*m + 1 ] * pow(INVSQRT2,m);
00140 // } else {
00141 // wavdrs = 1.0/0;
00142 // }
00143 #endif
00144 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 81 of file rtrsmrawavdrs.cpp. References irtrsmrawavdrs_().
00090 {
00091 #ifdef STORM_USEF
00092 irtrsmrawavdrs_(
00093 &Msize,
00094 &mmax,
00095 &mrastep, mracoef, mracoefrs,
00096 &m, &wavdrs
00097 );
00098 #else
00099 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00100 int tmp = mracoefrs[ 2*m + 1 ];
00101 if (tmp >= 0) {
00102 wavdrs = tmp >> m;
00103 } else {
00104 if ((tmp & 0x00000001) != 0) {
00105 wavdrs = - ( (-tmp) >> m);
00106 } else {
00107 wavdrs = - ( (-tmp) >> m) - 1;
00108 }
00109 }
00110 // } else {
00111 // wavdrs = 1.0/0;
00112 // }
00113 #endif
00114 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 54 of file rtrsmrawavdrs.cpp. References drtrsmrawavdrs_(), and INVSQRT2.
00063 {
00064 #ifdef STORM_USEF
00065 drtrsmrawavdrs_(
00066 &Msize,
00067 &mmax,
00068 &mrastep, mracoef, mracoefrs,
00069 &m, &wavdrs
00070 );
00071 #else
00072 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00073 wavdrs = mracoefrs[ 2*m + 1 ] * pow(INVSQRT2,m);
00074 // } else {
00075 // wavdrs = 1.0/0;
00076 // }
00077 #endif
00078 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 27 of file rtrsmrawavdrs.cpp. References INVSQRT2, and rtrsmrawavdrs_().
00036 {
00037 #ifdef STORM_USEF
00038 rtrsmrawavdrs_(
00039 &Msize,
00040 &mmax,
00041 &mrastep, mracoef, mracoefrs,
00042 &m, &wavdrs
00043 );
00044 #else
00045 // if ( ( m >= 0 ) && ( m <= mmax ) ) {
00046 wavdrs = mracoefrs[ 2*m +1 ] * pow(INVSQRT2,m);
00047 // } else {
00048 // wavdrs = 1.0/0;
00049 // }
00050 #endif
00051 }
|
1.3.6