Merge branch 'blender2.7'
[blender.git] / intern / smoke / intern / tnt / tnt_fortran_array1d.h
1 /** \file \ingroup smoke
2  */
3 /*
4 *
5 * Template Numerical Toolkit (TNT)
6 *
7 * Mathematical and Computational Sciences Division
8 * National Institute of Technology,
9 * Gaithersburg, MD USA
10 *
11 *
12 * This software was developed at the National Institute of Standards and
13 * Technology (NIST) by employees of the Federal Government in the course
14 * of their official duties. Pursuant to title 17 Section 105 of the
15 * United States Code, this software is not subject to copyright protection
16 * and is in the public domain. NIST assumes no responsibility whatsoever for
17 * its use by other parties, and makes no guarantees, expressed or implied,
18 * about its quality, reliability, or any other characteristic.
19 *
20 */
21
22
23
24 #ifndef TNT_FORTRAN_ARRAY1D_H
25 #define TNT_FORTRAN_ARRAY1D_H
26
27 #include <cstdlib>
28 #include <iostream>
29
30 #ifdef TNT_BOUNDS_CHECK
31 #include <assert.h>
32 #endif
33
34
35 #include "tnt_i_refvec.h"
36
37 namespace TNT
38 {
39
40 template <class T>
41 class Fortran_Array1D 
42 {
43
44   private:
45
46     i_refvec<T> v_;
47     int n_;
48     T* data_;                           /* this normally points to v_.begin(), but
49                              * could also point to a portion (subvector)
50                                                          * of v_.
51                             */
52
53     void initialize_(int n);
54     void copy_(T* p, const T*  q, int len) const;
55     void set_(T* begin,  T* end, const T& val);
56  
57
58   public:
59
60     typedef         T   value_type;
61
62
63                  Fortran_Array1D();
64         explicit Fortran_Array1D(int n);
65                  Fortran_Array1D(int n, const T &a);
66                  Fortran_Array1D(int n,  T *a);
67     inline   Fortran_Array1D(const Fortran_Array1D &A);
68         inline   Fortran_Array1D & operator=(const T &a);
69         inline   Fortran_Array1D & operator=(const Fortran_Array1D &A);
70         inline   Fortran_Array1D & ref(const Fortran_Array1D &A);
71                  Fortran_Array1D copy() const;
72                      Fortran_Array1D & inject(const Fortran_Array1D & A);
73         inline   T& operator()(int i);
74         inline   const T& operator()(int i) const;
75         inline   int dim1() const;
76         inline   int dim() const;
77               ~Fortran_Array1D();
78
79
80         /* ... extended interface ... */
81
82         inline int ref_count() const;
83         inline Fortran_Array1D<T> subarray(int i0, int i1);
84
85 };
86
87
88
89
90 template <class T>
91 Fortran_Array1D<T>::Fortran_Array1D() : v_(), n_(0), data_(0) {}
92
93 template <class T>
94 Fortran_Array1D<T>::Fortran_Array1D(const Fortran_Array1D<T> &A) : v_(A.v_),  n_(A.n_), 
95                 data_(A.data_)
96 {
97 #ifdef TNT_DEBUG
98         std::cout << "Created Fortran_Array1D(const Fortran_Array1D<T> &A) \n";
99 #endif
100
101 }
102
103
104 template <class T>
105 Fortran_Array1D<T>::Fortran_Array1D(int n) : v_(n), n_(n), data_(v_.begin())
106 {
107 #ifdef TNT_DEBUG
108         std::cout << "Created Fortran_Array1D(int n) \n";
109 #endif
110 }
111
112 template <class T>
113 Fortran_Array1D<T>::Fortran_Array1D(int n, const T &val) : v_(n), n_(n), data_(v_.begin()) 
114 {
115 #ifdef TNT_DEBUG
116         std::cout << "Created Fortran_Array1D(int n, const T& val) \n";
117 #endif
118         set_(data_, data_+ n, val);
119
120 }
121
122 template <class T>
123 Fortran_Array1D<T>::Fortran_Array1D(int n, T *a) : v_(a), n_(n) , data_(v_.begin())
124 {
125 #ifdef TNT_DEBUG
126         std::cout << "Created Fortran_Array1D(int n, T* a) \n";
127 #endif
128 }
129
130 template <class T>
131 inline T& Fortran_Array1D<T>::operator()(int i) 
132
133 #ifdef TNT_BOUNDS_CHECK
134         assert(i>= 1);
135         assert(i <= n_);
136 #endif
137         return data_[i-1]; 
138 }
139
140 template <class T>
141 inline const T& Fortran_Array1D<T>::operator()(int i) const 
142
143 #ifdef TNT_BOUNDS_CHECK
144         assert(i>= 1);
145         assert(i <= n_);
146 #endif
147         return data_[i-1]; 
148 }
149
150
151         
152
153 template <class T>
154 Fortran_Array1D<T> & Fortran_Array1D<T>::operator=(const T &a)
155 {
156         set_(data_, data_+n_, a);
157         return *this;
158 }
159
160 template <class T>
161 Fortran_Array1D<T> Fortran_Array1D<T>::copy() const
162 {
163         Fortran_Array1D A( n_);
164         copy_(A.data_, data_, n_);
165
166         return A;
167 }
168
169
170 template <class T>
171 Fortran_Array1D<T> & Fortran_Array1D<T>::inject(const Fortran_Array1D &A)
172 {
173         if (A.n_ == n_)
174                 copy_(data_, A.data_, n_);
175
176         return *this;
177 }
178
179
180
181
182
183 template <class T>
184 Fortran_Array1D<T> & Fortran_Array1D<T>::ref(const Fortran_Array1D<T> &A)
185 {
186         if (this != &A)
187         {
188                 v_ = A.v_;              /* operator= handles the reference counting. */
189                 n_ = A.n_;
190                 data_ = A.data_; 
191                 
192         }
193         return *this;
194 }
195
196 template <class T>
197 Fortran_Array1D<T> & Fortran_Array1D<T>::operator=(const Fortran_Array1D<T> &A)
198 {
199         return ref(A);
200 }
201
202 template <class T>
203 inline int Fortran_Array1D<T>::dim1() const { return n_; }
204
205 template <class T>
206 inline int Fortran_Array1D<T>::dim() const { return n_; }
207
208 template <class T>
209 Fortran_Array1D<T>::~Fortran_Array1D() {}
210
211
212 /* ............................ exented interface ......................*/
213
214 template <class T>
215 inline int Fortran_Array1D<T>::ref_count() const
216 {
217         return v_.ref_count();
218 }
219
220 template <class T>
221 inline Fortran_Array1D<T> Fortran_Array1D<T>::subarray(int i0, int i1)
222 {
223 #ifdef TNT_DEBUG
224                 std::cout << "entered subarray. \n";
225 #endif
226         if ((i0 > 0) && (i1 < n_) || (i0 <= i1))
227         {
228                 Fortran_Array1D<T> X(*this);  /* create a new instance of this array. */
229                 X.n_ = i1-i0+1;
230                 X.data_ += i0;
231
232                 return X;
233         }
234         else
235         {
236 #ifdef TNT_DEBUG
237                 std::cout << "subarray:  null return.\n";
238 #endif
239                 return Fortran_Array1D<T>();
240         }
241 }
242
243
244 /* private internal functions */
245
246
247 template <class T>
248 void Fortran_Array1D<T>::set_(T* begin, T* end, const T& a)
249 {
250         for (T* p=begin; p<end; p++)
251                 *p = a;
252
253 }
254
255 template <class T>
256 void Fortran_Array1D<T>::copy_(T* p, const T* q, int len) const
257 {
258         T *end = p + len;
259         while (p<end )
260                 *p++ = *q++;
261
262 }
263
264
265 } /* namespace TNT */
266
267 #endif
268 /* TNT_FORTRAN_ARRAY1D_H */
269