00001
00002 void tuplus(double *c, int dc, const double *a, int ma, int na, int da);
00003
00004
00005 void stuplus(double *c, int dc, const double *a, int da);
00006
00007
00008 void tuminus(double *c, int dc, const double *a, int ma, int na, int da);
00009
00010
00011 void stuminus(double *c, int dc, const double *a, int da);
00012
00013
00014 void tsplus(double *c, int dc, const double *a, int ma, int na, int da,
00015 const double *b, int db);
00016
00017
00018 void tplus(double *c, int dc, const double *a, int ma, int na, int da,
00019 const double *b, int db);
00020
00021
00022 void stplus(double *c, int dc, const double *a, int da,
00023 const double *b, int db);
00024
00025
00026 void tsaminus(double *c, int dc, const double *a, int da,
00027 const double *b, int mb, int nb, int db);
00028
00029
00030 void tsbminus(double *c, int dc, const double *a, int ma, int na, int da,
00031 const double *b, int db);
00032
00033
00034 void tminus(double *c, int dc, const double *a, int ma, int na, int da,
00035 const double *b, int db);
00036
00037
00038 void stminus(double *c, int dc, const double *a, int da,
00039 const double *b, int db);
00040
00041
00042 void tstimes(double *c, int dc, const double *a, int ma, int na, int da,
00043 const double *b, int db);
00044
00045
00046 void ttimes(double *c, int dc, const double *a, int ma, int na, int da,
00047 const double *b, int db);
00048
00049
00050 void sttimes(double *c, int dc, const double *a, int da,
00051 const double *b, int db);
00052
00053
00054 void tmtimes(double *c, int dc, const double *a, int ma, int na, int da,
00055 const double *b, int nb, int db);
00056
00057
00058 int tmldivide(double *c, int dc, const double *a, int ma, int da,
00059 const double *b, int nb, int db);
00060
00061
00062 int tmldividefac(double *c, int dc, const double *a, int ma, int da,
00063 const double *b, int nb, int db, double *fac, int *piv,
00064 bool calc_fac);
00065
00066
00067 void tsnrdivide(double *c, int dc, const double *a, int da,
00068 const double *b, int mb, int nb, int db);
00069
00070
00071 void tsdrdivide(double *c, int dc, const double *a, int ma, int na, int da,
00072 const double *b, int db);
00073
00074
00075 void trdivide(double *c, int dc, const double *a, int ma, int na, int da,
00076 const double *b, int db);
00077
00078
00079 void strdivide(double *c, int dc, const double *a, int da,
00080 const double *b, int db);
00081
00082
00083 void ttranspose(double *c, int dc, const double *a, int ma, int na, int da);
00084
00085
00086 void tsubsrefs(double *c, int dc, const double *a, int ma, int na, int da,
00087 const double *index, int li);
00088
00089
00090 void tsubsrefsc(double *c, int dc, const double *a, int ma, int na, int da);
00091
00092
00093 void tsubsrefd(double *c, int dc, const double *a, int ma, int na, int da,
00094 const double *index, int li, const double *jndex, int lj);
00095
00096
00097 void tsubsrefd_allrows(double *c, int dc, const double *a, int ma, int na,
00098 int da, const double *jndex, int lj);
00099
00100
00101 void tsubsrefd_allcols(double *c, int dc, const double *a, int ma, int na,
00102 int da, const double *index, int li);
00103
00104
00105 void tsubsasgns(double *c, int dc,
00106 const double *a, int ma, int na, int da,
00107 const double *b, int db,
00108 const double *index, int li);
00109
00110
00111 void tsubsasgnsc(double *c, int dc,
00112 const double *a, int ma, int na, int da,
00113 const double *b, int db);
00114
00115
00116
00117 void tsubsasgnd(double *c, int dc,
00118 const double *a, int ma, int na, int da,
00119 const double *b, int db,
00120 const double *index, int li, const double *jndex, int lj);
00121
00122
00123 void tsubsasgnd_allrows(double *c, int dc,
00124 const double *a, int ma, int na, int da,
00125 const double *b, int db,
00126 const double *jndex, int lj);
00127
00128
00129 void tsubsasgnd_allcols(double *c, int dc,
00130 const double *a, int ma, int na, int da,
00131 const double *b, int db,
00132 const double *index, int li);
00133
00134
00135 void tcross(double *c, int dc, const double *a, int da, const double *b,
00136 int db);
00137
00138
00139 void tsincos(double *s, double *c, int dc, const double *a, int ma, int na,
00140 int da);
00141
00142
00143 void stsincos(double *s, double *c, int dc, const double *a, int da);
00144
00145
00146 void tsumall(double *c, int dc, const double *a, int ma, int na, int da);
00147
00148
00149 void texp(double *c, int dc, const double *a, int ma, int na, int da);
00150
00151
00152 void stexp(double *c, int dc, const double *a, int da);
00153
00154
00155 void tlog(double *c, int dc, const double *a, int ma, int na, int da);
00156
00157
00158 void stlog(double *c, int dc, const double *a, int da);
00159
00160
00161 void tcsepower(double *c, int dc, const double *a, int ma, int na, int da,
00162 double b);
00163
00164
00165 void tcepower(double *c, int dc, const double *a, int ma, int na, int da,
00166 double *b);
00167
00168
00169 void stcpower(double *c, int dc, const double *a, int da, double b);
00170
00171
00172 inline void setzero(double *c, int l) {
00173 for (int i=0; i<l; i++)
00174 *(c++) = 0;
00175 }