00001 #ifndef VECTTENS_H
00002 #define VECTTENS_H
00003
00004 #include <stdio.h>
00005 #include "alias.h"
00006
00007 struct matrix;
00008 struct vector;
00009
00010
00011
00012
00013 void vector_tensor (vector &v,matrix &t,strastrestate ssst,strastre ss);
00014
00015 void tensor_vector (vector &v,matrix &t,strastrestate ssst,strastre ss);
00016
00017 void tensor_vector_full (vector &v, matrix &t, strastre ss);
00018
00019
00020 void tensor_vector_matrix (strastrestate ssst,matrix &m);
00021
00022
00023 void tensor4_matrix (matrix &m, const matrix &t, strastrestate ssst);
00024
00025 void matrix_tensor4 (const matrix &m, matrix &t, strastrestate ssst);
00026
00027 void gentensor_matrix (matrix &m, matrix &t, strastrestate ssst);
00028
00029
00030 strastrestate guess_ssst(long ncomp);
00031
00032
00033
00034
00035
00036 void give_red_vector(const vector &fv, vector &rv, strastrestate ssst);
00037
00038
00039 void give_full_vector(vector &fv, const vector &rv, strastrestate ssst);
00040
00041
00042 void give_red_vector(double *fv, double *rv, strastrestate ssst);
00043
00044
00045 void give_full_vector(double *fv, double *rv, strastrestate ssst);
00046
00047
00048 void lg_engvectortransf (vector &g, const vector &l, const matrix &tmat, strastrestate ssst, strastre str);
00049
00050
00051 void gl_engvectortransf (const vector &g, vector &l, const matrix &tmat, strastrestate ssst, strastre stra);
00052
00053
00054 void gl_comp_engvectortransf (const vector &g, double &l, long i, const matrix &tmat, strastrestate ssst, strastre stra);
00055
00056
00057 void lg_tens4transf (matrix &g, const matrix &l, const matrix &tmat, strastrestate ssst);
00058
00059 #endif