Go to the source code of this file.
Functions | |
| void | rtrsmrareset (const int &Asize, const int &Msize, const int &amax, const int &mmax, int &mrastep, int *mracoef, int *mracoefrs) |
| void | rtrsmrareset (const int &Asize, const int &Msize, const int &amax, const int &mmax, int &mrastep, double *mracoef, double *mracoefrs) |
| void | rtrsmrareset (const int &Asize, const int &Msize, const int &amax, const int &mmax, int &mrastep, float *mracoef, float *mracoefrs) |
| void | rtrsmrareset (const int &Msize, const int &mmax, int &mrastep, int *mracoef, int *mracoefrs) |
| void | rtrsmrareset (const int &Msize, const int &mmax, int &mrastep, double *mracoef, double *mracoefrs) |
| void | rtrsmrareset (const int &Msize, const int &mmax, int &mrastep, float *mracoef, float *mracoefrs) |
|
||||||||||||||||||||||||||||||||
|
Definition at line 134 of file rtrsmrareset.cpp. References iartrsmrareset_().
00143 {
00144 #ifdef STORM_USEF
00145 iartrsmrareset_(&Asize, &Msize, &amax, &mmax, &mrastep, mracoef, mracoefrs);
00146 #else
00147 mrastep = -1;
00148 for( int a = 0; a <= amax; a++ ) {
00149 for( int m = 0; m <= mmax; m++ ) {
00150 mracoef[ Msize*2*a + 2*m ] = 0;
00151 mracoef[ Msize*2*a + 2*m +1 ] = 0;
00152 mracoefrs[ Msize*2*a + 2*m ] = 0;
00153 mracoefrs[ Msize*2*a + 2*m + 1 ] = 0;
00154 }
00155 }
00156 #endif
00157 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 108 of file rtrsmrareset.cpp.
00117 {
00118 #ifdef STORM_USEF
00119 dartrsmrareset_(&Asize, &Msize, &amax, &mmax, &mrastep, mracoef, mracoefrs);
00120 #else
00121 mrastep = -1;
00122 for( int a = 0; a <= amax; a++ ) {
00123 for( int m = 0; m <= mmax; m++ ) {
00124 mracoef[ Msize*2*a + 2*m ] = 0;
00125 mracoef[ Msize*2*a + 2*m +1 ] = 0;
00126 mracoefrs[ Msize*2*a + 2*m ] = 0;
00127 mracoefrs[ Msize*2*a + 2*m + 1 ] = 0;
00128 }
00129 }
00130 #endif
00131 }
|
|
||||||||||||||||||||||||||||||||
|
Definition at line 82 of file rtrsmrareset.cpp.
00091 {
00092 #ifdef STORM_USEF
00093 artrsmrareset_(&Asize, &Msize, &amax, &mmax, &mrastep, mracoef, mracoefrs);
00094 #else
00095 mrastep = -1;
00096 for( int a = 0; a <= amax; a++ ) {
00097 for( int m=0; m <= mmax; m++ ) {
00098 mracoef[ Msize*2*a + 2*m ] = 0;
00099 mracoef[ Msize*2*a + 2*m + 1 ] = 0;
00100 mracoefrs[ Msize*2*a + 2*m ] = 0;
00101 mracoefrs[ Msize*2*a + 2*m +1 ] = 0;
00102 }
00103 }
00104 #endif
00105 }
|
|
||||||||||||||||||||||||
|
Definition at line 60 of file rtrsmrareset.cpp.
00067 {
00068 #ifdef STORM_USEF
00069 irtrsmrareset_(&Msize, &mmax, &mrastep, mracoef, mracoefrs);
00070 #else
00071 mrastep = -1;
00072 for( int m =0; m <= mmax; m++ ) {
00073 mracoef[ 2*m ] = 0;
00074 mracoef[ 2*m + 1 ] = 0;
00075 mracoefrs[ 2*m ] = 0;
00076 mracoefrs[ 2*m + 1 ] = 0;
00077 }
00078 #endif
00079 }
|
|
||||||||||||||||||||||||
|
Definition at line 38 of file rtrsmrareset.cpp.
00045 {
00046 #ifdef STORM_USEF
00047 drtrsmrareset_(&Msize, &mmax, &mrastep, mracoef, mracoefrs);
00048 #else
00049 mrastep = -1;
00050 for( int m =0; m <= mmax; m++ ) {
00051 mracoef[ 2*m ] = 0;
00052 mracoef[ 2*m + 1 ] = 0;
00053 mracoefrs[ 2*m ] = 0;
00054 mracoefrs[ 2*m + 1 ] = 0;
00055 }
00056 #endif
00057 }
|
|
||||||||||||||||||||||||
|
Definition at line 16 of file rtrsmrareset.cpp.
00023 {
00024 #ifdef STORM_USEF
00025 rtrsmrareset_(&Msize, &mmax, &mrastep, mracoef, mracoefrs);
00026 #else
00027 mrastep = -1;
00028 for( int m = 0; m <= mmax; m++ ) {
00029 mracoef[ 2*m ] = 0;
00030 mracoef[ 2*m + 1 ] = 0;
00031 mracoefrs[ 2*m ] = 0;
00032 mracoefrs[ 2*m + 1 ] = 0;
00033 }
00034 #endif
00035 }
|
1.3.6