tnt_fortran_array2d.h

Go to the documentation of this file.

/*
*
* Template Numerical Toolkit (TNT): Two-dimensional Fortran numerical array
*
* Mathematical and Computational Sciences Division
* National Institute of Technology,
* Gaithersburg, MD USA
*
*
* This software was developed at the National Institute of Standards and
* Technology (NIST) by employees of the Federal Government in the course
* of their official duties. Pursuant to title 17 Section 105 of the
* United States Code, this software is not subject to copyright protection
* and is in the public domain. NIST assumes no responsibility whatsoever for
* its use by other parties, and makes no guarantees, expressed or implied,
* about its quality, reliability, or any other characteristic.
*
*/
 
 
 
#ifndef TNT_FORTRAN_ARRAY2D_H
#define TNT_FORTRAN_ARRAY2D_H
 
#include <cstdlib>
#include <iostream>
 
#ifdef TNT_BOUNDS_CHECK
#include <assert.h>
#endif
 
#include "tnt_i_refvec.h"
 
namespace TNT
{
 
template <class T>
class Fortran_Array2D
{
 
 
  private:
                i_refvec<T> v_;
                int m_;
                int n_;
                T* data_;
 
 
        void initialize_(int n);
        void copy_(T* p, const T*  q, int len);
        void set_(T* begin,  T* end, const T& val);
 
  public:
 
    typedef         T   value_type;
 
               Fortran_Array2D();
               Fortran_Array2D(int m, int n);
               Fortran_Array2D(int m, int n,  T *a);
               Fortran_Array2D(int m, int n, const T &a);
    inline Fortran_Array2D(const Fortran_Array2D &A);
        inline Fortran_Array2D & operator=(const T &a);
        inline Fortran_Array2D & operator=(const Fortran_Array2D &A);
        inline Fortran_Array2D & ref(const Fortran_Array2D &A);
               Fortran_Array2D copy() const;
                   Fortran_Array2D & inject(const Fortran_Array2D & A);
        inline T& operator()(int i, int j);
        inline const T& operator()(int i, int j) const ;
        inline int dim1() const;
        inline int dim2() const;
               ~Fortran_Array2D();
 
        /* extended interface */
 
        inline int ref_count() const;
 
};
 
template <class T>
Fortran_Array2D<T>::Fortran_Array2D() : v_(), m_(0), n_(0), data_(0) {}
 
 
template <class T>
Fortran_Array2D<T>::Fortran_Array2D(const Fortran_Array2D<T> &A) : v_(A.v_),
                m_(A.m_), n_(A.n_), data_(A.data_) {}
 
 
 
template <class T>
Fortran_Array2D<T>::Fortran_Array2D(int m, int n) : v_(m*n), m_(m), n_(n),
        data_(v_.begin()) {}
 
template <class T>
Fortran_Array2D<T>::Fortran_Array2D(int m, int n, const T &val) :
        v_(m*n), m_(m), n_(n), data_(v_.begin())
{
        set_(data_, data_+m*n, val);
}
 
 
template <class T>
Fortran_Array2D<T>::Fortran_Array2D(int m, int n, T *a) : v_(a),
        m_(m), n_(n), data_(v_.begin()) {}
 
 
 
 
template <class T>
inline T& Fortran_Array2D<T>::operator()(int i, int j)
{
#ifdef TNT_BOUNDS_CHECK
        assert(i >= 1);
        assert(i <= m_);
        assert(j >= 1);
        assert(j <= n_);
#endif
 
        return v_[ (j-1)*m_ + (i-1) ];
 
}
 
template <class T>
inline const T& Fortran_Array2D<T>::operator()(int i, int j) const
{
#ifdef TNT_BOUNDS_CHECK
        assert(i >= 1);
        assert(i <= m_);
        assert(j >= 1);
        assert(j <= n_);
#endif
 
        return v_[ (j-1)*m_ + (i-1) ];
 
}
 
 
template <class T>
Fortran_Array2D<T> & Fortran_Array2D<T>::operator=(const T &a)
{
        set_(data_, data_+m_*n_, a);
        return *this;
}
 
template <class T>
Fortran_Array2D<T> Fortran_Array2D<T>::copy() const
{
 
        Fortran_Array2D B(m_,n_);
        
        B.inject(*this);
        return B;
}
 
 
template <class T>
Fortran_Array2D<T> & Fortran_Array2D<T>::inject(const Fortran_Array2D &A)
{
        if (m_ == A.m_ && n_ == A.n_)
                copy_(data_, A.data_, m_*n_);
 
        return *this;
}
 
 
 
template <class T>
Fortran_Array2D<T> & Fortran_Array2D<T>::ref(const Fortran_Array2D<T> &A)
{
        if (this != &A)
        {
                v_ = A.v_;
                m_ = A.m_;
                n_ = A.n_;
                data_ = A.data_;
        }
        return *this;
}
 
template <class T>
Fortran_Array2D<T> & Fortran_Array2D<T>::operator=(const Fortran_Array2D<T> &A)
{
        return ref(A);
}
 
template <class T>
inline int Fortran_Array2D<T>::dim1() const { return m_; }
 
template <class T>
inline int Fortran_Array2D<T>::dim2() const { return n_; }
 
 
template <class T>
Fortran_Array2D<T>::~Fortran_Array2D()
{
}
 
template <class T>
inline int Fortran_Array2D<T>::ref_count() const { return v_.ref_count(); }
 
 
 
 
template <class T>
void Fortran_Array2D<T>::set_(T* begin, T* end, const T& a)
{
        for (T* p=begin; p<end; p++)
                *p = a;
 
}
 
template <class T>
void Fortran_Array2D<T>::copy_(T* p, const T* q, int len)
{
        T *end = p + len;
        while (p<end )
                *p++ = *q++;
 
}
 
 
} /* namespace TNT */
 
#endif
/* TNT_FORTRAN_ARRAY2D_H */