File: KronUtils.h

package info (click to toggle)
dynare 4.3.0-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 40,640 kB
  • sloc: fortran: 82,231; cpp: 72,734; ansic: 28,874; pascal: 13,241; sh: 4,300; objc: 3,281; yacc: 2,833; makefile: 1,288; lex: 1,162; python: 162; lisp: 54; xml: 8
file content (32 lines) | stat: -rw-r--r-- 948 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
/* $Header: /var/lib/cvs/dynare_cpp/sylv/cc/KronUtils.h,v 1.1.1.1 2004/06/04 13:00:31 kamenik Exp $ */

/* Tag $Name:  $ */

#ifndef KRON_UTILS_H
#define KRON_UTILS_H

#include "KronVector.h"
#include "QuasiTriangular.h"

class KronUtils {
public:
	/* multiplies I_m\otimes..\I_m\otimes T\otimes I_m...I_m\otimes I_n
	   with given b and returns x. T must be (m,m), number of
	   \otimes is b.getDepth(), level is a number of I_m's between T
	   and I_n plus 1. If level=0, then we multiply
       \I_m\otimes ..\otimes I_m\otimes T, T is (n,n) */
	static void multAtLevel(int level, const QuasiTriangular& t,
							KronVector& x);
	static void multAtLevelTrans(int level, const QuasiTriangular& t,
								 KronVector& x);

	/* multiplies x=(F'\otimes F'\otimes..\otimes K)x */
	static void multKron(const QuasiTriangular& f, const QuasiTriangular& k,
						 KronVector& x);
};

#endif /* KRON_UTILS_H */

// Local Variables:
// mode:C++
// End: