vector_complex_long_double.hpp

Go to the documentation of this file.

/*
 * $Id: vector_complex_long_double.hpp 314 2014-02-22 14:31:16Z jdl3 $
 * Copyright (C) 2010, 2011, 2012, 2019, 2024 John D Lamb
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or (at
 * your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
 
#ifndef CCGSL_VECTOR_COMPLEX_LONG_DOUBLE_HPP
#define CCGSL_VECTOR_COMPLEX_LONG_DOUBLE_HPP
 
#include<gsl/gsl_vector_complex_long_double.h>
#include<new>
#include<iterator>
#ifdef __GXX_EXPERIMENTAL_CXX0X__
#include<complex>
#endif
 
#include"exception.hpp"
#include"block_complex_long_double.hpp"
#include"vector_long_double.hpp"
 
// This file is a template
#define CCGSL_MTY 2
 
namespace gsl {
  // declare matrix_complex_long_double class
  class matrix_complex_long_double;
  class vector_complex_long_double {
  public:
    vector_complex_long_double(){
      owns_data = false;
      ccgsl_pointer = 0;
      count = 0; // initially nullptr will do
    }
    // Refines random access container
    // Refines assignable
    explicit vector_complex_long_double( size_t const n )
      : owns_data(true) {
      if( n > 0 ) ccgsl_pointer = gsl_vector_complex_long_double_alloc( n );
      else { ccgsl_pointer = new gsl_vector_complex_long_double; ccgsl_pointer->size = 0; ccgsl_pointer->data = 0; }
      // just plausibly we could allocate vector_complex_long_double but not count
      try { count = new size_t; } catch( std::bad_alloc& e ){
    // try to tidy up before rethrowing
    if( n > 0 ) gsl_vector_complex_long_double_free( ccgsl_pointer );
    else delete ccgsl_pointer;
    throw e;
      }
      *count = 1; // initially there is just one reference to ccgsl_pointer
    }
#ifndef DOXYGEN_SKIP
    explicit vector_complex_long_double( int const n )
      : owns_data(true) {
      if( n > 0 ) ccgsl_pointer
            = gsl_vector_complex_long_double_alloc( static_cast<size_t>( n ) );
      else if(n<0)
    gsl_error("failed tring to make a vector of negative length",
          __FILE__, __LINE__, exception::GSL_EDOM );
      else { ccgsl_pointer = new gsl_vector_complex_long_double; ccgsl_pointer->size = 0; ccgsl_pointer->data = 0; }
      // just plausibly we could allocate vector_complex_long_double but not count
      try { count = new size_t; } catch( std::bad_alloc& e ){
    // try to tidy up before rethrowing
    if( n > 0 ) gsl_vector_complex_long_double_free( ccgsl_pointer );
    else delete ccgsl_pointer;
    throw e;
      }
      *count = 1; // initially there is just one reference to ccgsl_pointer
    }
#endif // DOXYGEN_SKIP
    explicit vector_complex_long_double( gsl_vector_complex_long_double* v )
      : owns_data(true) {
      ccgsl_pointer = v;
      // just plausibly we could fail to allocate count: no further action needed.
      count = new size_t;
      *count = 1; // initially there is just one reference to ccgsl_pointer
    }
    // copy constructor
#ifdef __GXX_EXPERIMENTAL_CXX0X__
    vector_complex_long_double( std::initializer_list<std::complex<long double> > initializer_list )
      : owns_data(true){
      size_t const n = initializer_list.size();
      ccgsl_pointer = gsl_vector_complex_long_double_alloc( n );
      // just plausibly we could allocate vector but not count
      try { count = new size_t; } catch( std::bad_alloc& e ){
    // try to tidy up before rethrowing
    if( n > 0 ) gsl_vector_complex_long_double_free( ccgsl_pointer );
    else delete ccgsl_pointer;
    throw e;
      }
      *count = 1; // initially there is just one reference to ccgsl_pointer
      // now copy
      auto p = begin();
      for( auto x : initializer_list ){
    *p = complex_long_double( std::move( x ) ); ++p;
      }
    }
#endif
    // copy constructor
    vector_complex_long_double( vector_complex_long_double const& v )
      : owns_data(v.owns_data),
    ccgsl_pointer( v.ccgsl_pointer ), count( v.count ){
      if( count != 0 ) ++*count; // vector_complex_long_double is now shared.
    }
    // assignment operator
    vector_complex_long_double& operator=( vector_complex_long_double const& v ){
      // first, possibly delete anything pointed to by @c this
      if( count == 0 or --*count == 0 ){
    if( ccgsl_pointer != 0 ){
      if( ccgsl_pointer->size > 0 ) gsl_vector_complex_long_double_free( ccgsl_pointer );
      else delete ccgsl_pointer; }
    delete count;
      }
      // Then copy
      owns_data = v.owns_data;
      ccgsl_pointer = v.ccgsl_pointer;
      count = v.count;
      if( count != 0 ) ++*count; // block_complex_long_double is now shared.
      return *this;
    }
    // clone()
    vector_complex_long_double clone() const {
      vector_complex_long_double copy( get()->size );
      // Now copy
      gsl_vector_complex_long_double_memcpy( copy.get(), get() );
      // return new object
      return copy;
    }
    // destructor
    ~vector_complex_long_double(){
      if( --*count == 0 ){
    // could have allocated null pointer
    if( ccgsl_pointer != 0 and owns_data ){
      if( ccgsl_pointer->size > 0 ) gsl_vector_complex_long_double_free( ccgsl_pointer );
      else delete ccgsl_pointer; }
    delete count;
      }
    }
    void wrap_gsl_vector_complex_long_double_without_ownership( gsl_vector_complex_long_double* v ){
      if( count != 0 and --*count == 0 ){
    // could have allocated null pointer
    if( ccgsl_pointer != 0 ){
      if( ccgsl_pointer->size != 0 ) gsl_vector_complex_long_double_free( ccgsl_pointer );
      else delete ccgsl_pointer; }
      }
      ccgsl_pointer = v;
      if(0 == count) count = new size_t;
      *count = 1;
      owns_data = false; // should never be able to delete ccgsl_pointer
    }
    // Refines equality comparable
    // == operator
    bool operator==( vector_complex_long_double const& v ) const {
      // trivially equal if gsl_vector_complex_long_double*s are identical
      if( ccgsl_pointer == v.ccgsl_pointer ) return true;
      // trivially not equal if one is zero: != should be same as xor here
      if( (ccgsl_pointer == 0) != (v.ccgsl_pointer == 0 ) ) return false;
      // trivially not equal if sizes are different
      if( ccgsl_pointer->size != v.ccgsl_pointer->size ) return false;
      // check elementwise for equality
      for( size_t i = 0; i < CCGSL_MTY * ccgsl_pointer->size; ++i )
    if( *(ccgsl_pointer->data + i) != *(v.ccgsl_pointer->data + i) )
      return false; 
      return true;
    }
    void reset(){ vector_complex_long_double().swap( *this ); }
#ifdef __GXX_EXPERIMENTAL_CXX0X__
    vector_complex_long_double( vector_complex_long_double&& v )
      : owns_data (v.owns_data),
    ccgsl_pointer( v.ccgsl_pointer ), count( nullptr ){
      std::swap( count, v.count );
      v.ccgsl_pointer = nullptr;
    }
    vector_complex_long_double& operator=( vector_complex_long_double&& v ){
      vector_complex_long_double( std::move( v ) ).swap( *this );
      return *this;
    }
#endif
    // != operator
    bool operator!=( vector_complex_long_double const& v ) const { return not operator==( v ); }
    // Refines forward container
    // Refines less than comparable
    // operator<
    bool operator<( vector_complex_long_double const& v ) const {
      // null vector_complex_long_double comes first
      if( ccgsl_pointer == 0 ) return v.ccgsl_pointer != 0;
      // if v is null then this > v
      if( v.ccgsl_pointer == 0 ) return false;
      // Now compare elementwise
      size_t const  size = ccgsl_pointer->size;
      size_t const  v_size = v.ccgsl_pointer->size;
      size_t const min = size > v_size ? size : v_size;
      for( size_t i = 0; i < min; ++i ){
    complex_long_double const t = gsl_vector_complex_long_double_get( ccgsl_pointer, i );
    complex_long_double const u =gsl_vector_complex_long_double_get( v.ccgsl_pointer, i );
    if( t < u ) return true;
    if( u < t ) return false;
      }
      // elements match.
      return size < v_size;
    }
    // operator>
    bool operator>( vector_complex_long_double const& v ) const {
      // null vector_complex_long_double comes first
      if( ccgsl_pointer == 0 ) return false;
      // if v is null then this > v
      if( v.ccgsl_pointer == 0 ) return true;
      // Now compare elementwise
      size_t const  size = ccgsl_pointer->size;
      size_t const  v_size = v.ccgsl_pointer->size;
      size_t const min = size > v_size ? size : v_size;
      for( size_t i = 0; i < min; ++i ){
    complex_long_double const t = gsl_vector_complex_long_double_get( ccgsl_pointer, i );
    complex_long_double const u =gsl_vector_complex_long_double_get( v.ccgsl_pointer, i );
    if( t > u ) return true;
    if( u > t ) return false;
      }
      // elements match.
      return size > v_size;
    }
    // operator<=
    bool operator<=( vector_complex_long_double const& v ) const {
      return operator<( v ) or operator==( v );
    }
    // operator>=
    bool operator>=( vector_complex_long_double const& v ) const {
      return operator>( v ) or operator==( v );
    }
    // Refines container
    // type value_type
    typedef complex_long_double value_type;
    // type reference
    typedef  complex_long_double_ref reference;
    // type const_reference
    typedef  reference const const_reference;
    // type pointer
    typedef  complex_long_double_ptr pointer;
    // type const_pointer
    typedef  complex_long_double_ptr const const_pointer;
    // type iterator
  private:
    template<typename container, typename content,bool reverse_t>
    class iterator_base {
      friend class vector_complex_long_double;
    public:
      typedef complex_long_double value_type;
      typedef complex_long_double_ref reference;
      typedef complex_long_double_ptr pointer;
      typedef std::random_access_iterator_tag iterator_category;
      // // type iterator_traits<block_complex_long_double>::difference_type
      typedef ptrdiff_t difference_type;
    public:
      // // operator*
      reference operator*() const {
    // First check that iterator is initialised.
    if( v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return complex_long_double_ref( 0 );
    } else if( v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return complex_long_double_ref( 0 );
    }
    // Check that position make sense
    if( position >= static_cast<difference_type>( v->size() ) ){
      gsl_error( "trying to dereference beyond rbegin()", __FILE__, __LINE__, exception::GSL_EFAILED );
      return complex_long_double_ref( 0 );
    }
    if( position <= -1 ){
      gsl_error( "trying to dereference beyond begin()", __FILE__, __LINE__, exception::GSL_EFAILED );
      return complex_long_double_ref( 0 );
    }
    // position and v are valid: return data
    return complex_long_double_ref( v->ccgsl_pointer->data + CCGSL_MTY * position * v->ccgsl_pointer->stride );
      }
      // // operator->
      pointer operator->() const {
    // First check that iterator is initialised.
    if( v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return pointer( 0 );
    } else if( v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return pointer( 0 );
    }
    // Check that position make sense
    if( position >= static_cast<difference_type>( v->size() ) ){
      gsl_error( "trying to dereference end()", __FILE__, __LINE__, exception::GSL_EFAILED );
      return pointer( 0 );
    }
    if( position <= -1 ){
      gsl_error( "trying to dereference rend()", __FILE__, __LINE__, exception::GSL_EFAILED );
      return pointer( 0 );
    }
    // position and v are valid: return data
    return pointer( v->ccgsl_pointer->data + CCGSL_MTY * position * v->ccgsl_pointer->stride );
      }
      // // operator[]
      reference operator[]( difference_type const n ) const {
    // First check that iterator is initialised.
    if( v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return reference( 0 );
    } else if( v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return reference( 0 );
    }
    // Check that position make sense
    difference_type const p = reverse_t ? position - n : position + n;
    if( p >= static_cast<difference_type>( v->size() ) ){
      gsl_error( "trying to dereference beyond rbegin()", __FILE__, __LINE__, exception::GSL_EFAILED );
      return reference( 0 );
    }
    if( p <= -1 ){
      gsl_error( "trying to dereference beyond begin()", __FILE__, __LINE__, exception::GSL_EFAILED );
      return reference( 0 );
    }
    // p is a valid position
    return reference( v->ccgsl_pointer->data + CCGSL_MTY * p * v->ccgsl_pointer->stride );
      }
      // // operator-: find distance between two iterators
      difference_type operator-( iterator_base<container,content,reverse_t> const& i ) const {
    // Warn if either iterator undefined
    if( v == 0 or i.v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return 0;
    } else if( v->ccgsl_pointer == 0 or i.v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return 0;
    }
    // Warn if iterators do not point to same vector_complex_long_double
    if( v->ccgsl_pointer != i.v->ccgsl_pointer ){
      gsl_error( "trying to take difference of iterators for different vector_complex_long_double objects", __FILE__, __LINE__,
             exception::GSL_EFAILED );
      return 0;
    }
    return reverse_t ? i.position - position : position - i.position;
      }
      // // operator!=
      // // operator<
      bool operator==( iterator_base<container,content,reverse_t> const& i ) const {
    return this->v == i.v and this->position == i.position;
      }
      bool operator!=( iterator_base<container,content,reverse_t> const& i ) const {
    return not this->operator==( i );
      }
      bool operator<( iterator_base<container,content,reverse_t> const& i ) const {
    // Warn if either iterator undefined
    if( v == 0 or i.v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return false;
    }
    // Warn if iterators do not point to same vector_complex_long_double
    if( v->ccgsl_pointer != i.v->ccgsl_pointer ){
      gsl_error( "trying to take difference of iterators for different vector_complex_long_double objects", __FILE__, __LINE__,
             exception::GSL_EFAILED );
      return false;
    }
    return reverse_t ? i.position < position : position < i.position;
      }
    protected:
      void increment(){
    // Only makes sense if v points to a vector_complex_long_double
    if( v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return;
    } else if( v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return;
    }
    // increment position and check against size
    if( reverse_t ){ if( position >= 0 ) --position; }
    else { if( position < static_cast<difference_type>( v->size() ) ) ++position; }
      }
      void decrement(){
    // Only makes sense if v points to a vector_complex_long_double
    if( v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return;
    } else if( v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return;
    }
    // decrement position and check against size
    if( reverse_t ){ if( position < static_cast<difference_type>( v->size() ) ) ++position; }
    else { if( position >= 0 ) --position; }
      }
      void shift( difference_type const n ){
    // Warn if iterator undefined
    if( v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return;
    } else if( v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return;
    }
    position += reverse_t ? -n : n;
      }
      iterator_base(){ v = 0; }
      iterator_base( container* v, difference_type position )
    : v( v ), position( position ){}
      container* v;
      difference_type position;
    };
    // Need to know about const_iterator_t
    template<bool reverse_t> class const_iterator_t;
    template<bool reverse_t> class iterator_t : public iterator_base<vector_complex_long_double,long double,reverse_t>{
    public:
      // // Refines output iterator
      // // operator=
      iterator_t<reverse_t>& operator=( iterator_t<reverse_t> const& i ){
    iterator_base<vector_complex_long_double,long double,reverse_t>::v = i.v;
    iterator_base<vector_complex_long_double,long double,reverse_t>::position = i.position;
    return *this;
      }
      // // Refines forward iterator
      // // operator++ (both)
      iterator_t<reverse_t>& operator++(){
    iterator_base<vector_complex_long_double,long double,reverse_t>::increment();
    return *this;
      }
      iterator_t<reverse_t> operator++( int ){
    // return value
    iterator_t<reverse_t> result( *this );
    iterator_base<vector_complex_long_double,long double,reverse_t>::increment();
    return result;
      }
      // // Refines bidirectional iterator
      // // operator-- (both)
      iterator_t<reverse_t>& operator--(){
    iterator_base<vector_complex_long_double,long double,reverse_t>::decrement();
    return *this;
      }
      iterator_t<reverse_t> operator--( int ){
    // return value
    iterator_t<reverse_t> result( *this );
    iterator_base<vector_complex_long_double,long double,reverse_t>::decrement();
    return result;
      }
      typedef typename iterator_base<vector_complex_long_double,long double,reverse_t>::difference_type
    difference_type;
      // // operator+=
      iterator_t<reverse_t>& operator+=( difference_type const n ){
    this->shift( n );
    return *this;
      }
      // // operator-=
      iterator_t<reverse_t>& operator-=( difference_type const n ){
    this->shift( -n );
    return *this;
      }
      // // operator+ (n+i)(i+n)
      iterator_t<reverse_t> operator+( difference_type const n ) const {
    iterator_t<reverse_t> result( *this );
    result.shift( n );
    return result;
      }
      // // operator- (n-i)(i-n)(i-j)
      iterator_t<reverse_t> operator-( difference_type const n ) const {
    iterator_t<reverse_t> result( *this );
    result.shift( -n );
    return result;
      }
      difference_type operator-( iterator_t<reverse_t> const& i ) const {
    return iterator_base<vector_complex_long_double,long double,reverse_t>::operator-( i );
      }
      difference_type operator-( const_iterator_t<reverse_t> const& i ) const {
    // Warn if either iterator undefined
    if( this->v == 0 or i.v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return 0;
    } else if( this->v->ccgsl_pointer == 0 or i.v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return 0;
    }
    // Warn if iterators do not point to same vector_complex_long_double
    if( this->v->ccgsl_pointer != i.v->ccgsl_pointer ){
      gsl_error( "trying to take difference of iterators for different vector_complex_long_double objects", __FILE__, __LINE__,
             exception::GSL_EFAILED );
      return 0;
    }
    return reverse_t ? i.position - this->position : this->position - i.position;
      }
      bool operator==( const_iterator_t<reverse_t> const& i ) const {
        return this->v == i.v and this->position == i.position;
      }
      bool operator!=( const_iterator_t<reverse_t> const& i ) const {
        return not this->operator==( i );
      }
      bool operator<( const_iterator_t<reverse_t> const& i ) const {
    // Warn if either iterator undefined
    if( this->v == 0 or i.v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return false;
    }
    // Warn if iterators do not point to same vector_complex_long_double
    if( this->v->ccgsl_pointer != i.v->ccgsl_pointer ){
      gsl_error( "trying to take difference of iterators for different vector_complex_long_double objects", __FILE__, __LINE__,
             exception::GSL_EFAILED );
      return false;
    }
    return reverse_t ? i.position < this->position : this->position < i.position;
      }
      iterator_t() : iterator_base<vector_complex_long_double,long double,reverse_t>(){}
    protected:
      friend class vector_complex_long_double;
      // We need a constructor for vector_complex_long_double
      iterator_t( vector_complex_long_double* v, difference_type position )
      : iterator_base<vector_complex_long_double,long double,reverse_t>( v, position ){}
    };
    template<bool reverse_t> class const_iterator_t
      : public iterator_base<vector_complex_long_double const,long double,reverse_t>{
    public:
      // // Refines output iterator
      // // operator=
      const_iterator_t& operator=( const_iterator_t<reverse_t> const& i ){
    iterator_base<vector_complex_long_double const,long double,reverse_t>::v = i.v;
    iterator_base<vector_complex_long_double const,long double,reverse_t>::position = i.position;
    return *this;
      }
      // // Refines forward iterator
      // // operator++ (both)
      const_iterator_t<reverse_t>& operator++(){
    iterator_base<vector_complex_long_double const,long double,reverse_t>::increment();
    return *this;
      }
      const_iterator_t<reverse_t> operator++( int ){
    // return value
    const_iterator_t<reverse_t> result( *this );
    iterator_base<vector_complex_long_double const,long double,reverse_t>::increment();
    return result;
      }
      // // Refines bidirectional iterator
      // // operator-- (both)
      const_iterator_t<reverse_t>& operator--(){
    iterator_base<vector_complex_long_double const,long double,reverse_t>::decrement();
    return *this;
      }
      const_iterator_t<reverse_t> operator--( int ){
    // return value
    const_iterator_t<reverse_t> result( *this );
    iterator_base<vector_complex_long_double const,long double,reverse_t>::decrement();
    return result;
      }
      typedef typename iterator_base<vector_complex_long_double const,long double,reverse_t>::difference_type
    difference_type;
      // // operator+=
      const_iterator_t<reverse_t>& operator+=( difference_type const n ){
    this->shift( n );
    return *this;
      }
      // // operator-=
      const_iterator_t<reverse_t>& operator-=( difference_type const n ){
    this->shift( -n );
    return *this;
      }
      // // operator+ (n+i)(i+n)
      const_iterator_t<reverse_t> operator+( difference_type const n ) const {
    const_iterator_t<reverse_t> result( *this );
    result += n;
    return result;
      }
      // // operator- (n-i)(i-n)(i-j)
      const_iterator_t<reverse_t> operator-( difference_type const n ) const {
    const_iterator_t<reverse_t> result( *this );
    result -= n;
    return result;
      }
      difference_type operator-( const_iterator_t<reverse_t> const& i ) const {
    return iterator_base<vector_complex_long_double const,long double,reverse_t>::operator-( i );
      }
      difference_type operator-( iterator_t<reverse_t> const& i ) const {
    // Warn if either iterator undefined
    if( this->v == 0 or i.v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return 0;
    } else if( this->v->ccgsl_pointer == 0 or i.v->ccgsl_pointer == 0 ){
      gsl_error( "vector_complex_long_double not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return 0;
    }
    // Warn if iterators do not point to same vector_complex_long_double
    if( this->v->ccgsl_pointer != i.v->ccgsl_pointer ){
      gsl_error( "trying to take difference of iterators for different vector_complex_long_double objects", __FILE__, __LINE__,
             exception::GSL_EFAILED );
      return 0;
    }
    return reverse_t ? i.position - this->position : this->position - i.position;
      }
      const_iterator_t() : iterator_base<vector_complex_long_double,long double,reverse_t>(){}
      const_iterator_t( iterator_t<reverse_t> const&i ){
    const_iterator_t<reverse_t>::v = i.v;
    const_iterator_t<reverse_t>::position = i.position;
      }
      bool operator==( iterator_t<reverse_t> const& i ) const {
        return this->v == i.v and this->position == i.position;
      }
      bool operator!=( iterator_t<reverse_t> const& i ) const {
        return not this->operator==( i );
      }
      bool operator<( iterator_t<reverse_t> const& i ) const {
    // Warn if either iterator undefined
    if( this->v == 0 or i.v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return false;
    }
    // Warn if iterators do not point to same vector_complex_long_double
    if( this->v->ccgsl_pointer != i.v->ccgsl_pointer ){
      gsl_error( "trying to take difference of iterators for different vector_complex_long_double objects", __FILE__, __LINE__,
             exception::GSL_EFAILED );
      return false;
    }
    return reverse_t ? i.position < this->position : this->position < i.position;
      }
      bool operator==( const_iterator_t<reverse_t> const& i ) const {
        return this->v == i.v and this->position == i.position;
      }
      bool operator!=( const_iterator_t<reverse_t> const& i ) const {
        return not this->operator==( i );
      }
      bool operator<( const_iterator_t<reverse_t> const& i ) const {
    // Warn if either iterator undefined
    if( this->v == 0 or i.v == 0 ){
      gsl_error( "iterator not initialised", __FILE__, __LINE__, exception::GSL_EFAILED );
      return false;
    }
    // Warn if iterators do not point to same vector_complex
    if( this->v->ccgsl_pointer != i.v->ccgsl_pointer ){
      gsl_error( "trying to take difference of iterators for different vector_complex objects", __FILE__, __LINE__,
             exception::GSL_EFAILED );
      return false;
    }
    return reverse_t ? i.position < this->position : this->position < i.position;
      }
    protected:
      // We need a constructor for vector_complex_long_double
      friend class vector_complex_long_double;
      const_iterator_t( vector_complex_long_double const* v, difference_type position )
      : iterator_base<vector_complex_long_double const,long double,reverse_t>( v, position ){}
    };
  public:
    typedef const_iterator_t<false> const_iterator;
    typedef iterator_t<false> iterator;
    typedef const_iterator_t<true> const_reverse_iterator;
    typedef iterator_t<true> reverse_iterator;
    // type difference_type
    typedef  const_iterator::difference_type difference_type;
    // type size_type
    typedef  size_t size_type;
    // begin()
    iterator begin(){
      return iterator( this, 0 );
    }
    const_iterator begin() const {
      return const_iterator( this, 0 );
    }
    // end()
    iterator end(){
      if( ccgsl_pointer == 0 ) return iterator( this, 0 );
      return iterator( this, size() );
    }
    const_iterator end() const {
      if( ccgsl_pointer == 0 ) return const_iterator( this, 0 );
      return const_iterator( this, size() );
    }
    // size()
    size_type size() const { return ccgsl_pointer == 0 ? 0 : ccgsl_pointer->size; }
    long double* data() { 
      if( ccgsl_pointer == 0 ) gsl_error( "null vector", __FILE__, __LINE__, GSL_EFAULT );
#ifndef GSL_RANGE_CHECK_OFF
      if( ccgsl_pointer->stride != 1 )
    gsl_error( "vector does not have stride of size 1", __FILE__, __LINE__, GSL_EBADLEN );
#endif
      return ccgsl_pointer->data; }
    long double const* data() const {
      if( ccgsl_pointer == 0 ) gsl_error( "null vector", __FILE__, __LINE__, GSL_EFAULT );
#ifndef GSL_RANGE_CHECK_OFF
      if( ccgsl_pointer->stride != 1 )
    gsl_error( "vector does not have stride of size 1", __FILE__, __LINE__, GSL_EBADLEN );
#endif
      return ccgsl_pointer->data; }
    // max_size()
    size_type max_size() const { return ccgsl_pointer == 0 ? 0 : ccgsl_pointer->size; }
    // empty()
    bool empty() const { return ccgsl_pointer == 0 or ccgsl_pointer->size == 0; }
    // swap() --- should work even if sizes don't match
    void swap( vector_complex_long_double& v ){
      gsl_vector_complex_long_double* tmp = ccgsl_pointer; ccgsl_pointer = v.ccgsl_pointer; v.ccgsl_pointer = tmp;
      size_t* tmp2 = count; count = v.count; v.count = tmp2;
    }
    // Refines reversible container
    // rbegin()
    reverse_iterator rbegin(){
      if( ccgsl_pointer ==0 ) return reverse_iterator( this, 0 );
      return reverse_iterator( this, size() - 1 );
    }
    const_reverse_iterator rbegin() const {
      if( ccgsl_pointer ==0 ) return const_reverse_iterator( this, 0 );
      return const_reverse_iterator( this, size() - 1 );
    }
    // rend()
    reverse_iterator rend(){
      return reverse_iterator( this, -1 );
    }
    const_reverse_iterator rend() const {
      return const_reverse_iterator( this, -1 );
    }
    // operator[]
    complex_long_double_ref operator[]( size_t const n ){
      // First check that iterator is initialised.
      if( ccgsl_pointer == 0 ){
    gsl_error( "vector_complex_long_double is null", __FILE__, __LINE__, exception::GSL_EFAILED );
    return complex_long_double_ref( 0 );
      }
#ifndef GSL_RANGE_CHECK_OFF
      // Check that position make sense
      if( n >= size() ){
    gsl_error( "trying to read beyond end of vector_complex_long_double", __FILE__, __LINE__, exception::GSL_EFAILED );
    return complex_long_double_ref( 0 );
      }
      // n is a valid position
#endif
      return complex_long_double_ref( ccgsl_pointer->data + CCGSL_MTY * n * ccgsl_pointer->stride );
    }
    complex_long_double_ref const  operator[]( size_t const n ) const {
      // First check that iterator is initialised.
      if( ccgsl_pointer == 0 ){
    gsl_error( "vector_complex_long_double is null", __FILE__, __LINE__, exception::GSL_EFAILED );
    return complex_long_double_ref( 0 );
      }
#ifndef GSL_RANGE_CHECK_OFF
      // Check that position make sense
      if( n >= size() ){
    gsl_error( "trying to read beyond end of vector_complex_long_double", __FILE__, __LINE__, exception::GSL_EFAILED );
    return complex_long_double_ref( 0 );
      }
      // n is a valid position
#endif
      return complex_long_double_ref( ccgsl_pointer->data + n * ccgsl_pointer->stride );
    }
  private:
    bool owns_data;
    gsl_vector_complex_long_double* ccgsl_pointer;
    size_t* count;
  public:
    // shared reference functions
    gsl_vector_complex_long_double* get() { return ccgsl_pointer; }
    gsl_vector_complex_long_double const* get() const { return ccgsl_pointer; }
    bool unique() const { return count != 0 and *count == 1; }
    size_t use_count() const { return count == 0 ? 0 : *count; }
#ifdef __GXX_EXPERIMENTAL_CXX0X__
    explicit
#endif
    operator bool() const { return ccgsl_pointer != 0; }
 
    // GSL functions
    static vector_complex_long_double calloc( size_t const n ){ return vector_complex_long_double( gsl_vector_complex_long_double_calloc( n ) ); }
    void set_zero(){ gsl_vector_complex_long_double_set_zero( get() ); }
    void set_all( complex_long_double x ){ gsl_vector_complex_long_double_set_all( get(), x ); }
    int set_basis( size_t i ){ return gsl_vector_complex_long_double_set_basis( get(), i ); }
    int memcpy( vector_complex_long_double const& src ){ return gsl_vector_complex_long_double_memcpy( get(), src.get() ); }
    int reverse(){ return gsl_vector_complex_long_double_reverse( get() ); }
    int swap_elements( size_t const i, size_t const j ){
      return gsl_vector_complex_long_double_swap_elements( get(), i, j ); }
    int add( vector_complex_long_double const& b ){ return gsl_vector_complex_long_double_add( get(), b.get() ); }
    int sub( vector_complex_long_double const& b ){ return gsl_vector_complex_long_double_sub( get(), b.get() ); }
    int mul( vector_complex_long_double const& b ){ return gsl_vector_complex_long_double_mul( get(), b.get() ); }
    int div( vector_complex_long_double const& b ){ return gsl_vector_complex_long_double_div( get(), b.get() ); }
    int scale( complex_long_double const x ){ return gsl_vector_complex_long_double_scale( get(), x ); }
    int add_constant( complex_long_double const x ){ return gsl_vector_complex_long_double_add_constant( get(), x ); }
    int axpby( complex_long_double const alpha, vector_complex_long_double const& x,
           complex_long_double const beta ){
      return gsl_vector_complex_long_double_axpby( alpha, x.get(), beta, get() );
    }
    int isnull() const { return gsl_vector_complex_long_double_isnull( get() ); }
    int ispos() const { return gsl_vector_complex_long_double_ispos( get() ); }
    int isneg() const { return gsl_vector_complex_long_double_isneg( get() ); }
    int isnonneg() const { return gsl_vector_complex_long_double_isnonneg( get() ); }
    complex_long_double get( size_t const i ) const { return gsl_vector_complex_long_double_get( get(), i ); }
    void set( size_t const i, complex_long_double x ){ gsl_vector_complex_long_double_set( get(), i, x ); }
    complex_long_double_ptr ptr( size_t const i ){
      if( i >= ccgsl_pointer->size )
    gsl_error( "Index out of range", __FILE__, __LINE__, exception::GSL_EINVAL );
      return complex_long_double_ptr( ccgsl_pointer->data + CCGSL_MTY * i ); }
    complex_long_double_ptr const const_ptr( size_t const i ){
      if( i >= ccgsl_pointer->size )
    gsl_error( "Index out of range", __FILE__, __LINE__, exception::GSL_EINVAL );
      return complex_long_double_ptr( ccgsl_pointer->data + CCGSL_MTY * i ); }
    int fread( FILE* stream ){ return gsl_vector_complex_long_double_fread( stream, get() ); }
    int fwrite( FILE* stream ) const { return gsl_vector_complex_long_double_fwrite( stream, get() ); }
    int fscanf( FILE* stream ){ return gsl_vector_complex_long_double_fscanf( stream, get() ); }
    int fprintf( FILE* stream, char const* format ) const {
      return gsl_vector_complex_long_double_fprintf( stream, get(), format ); }
    vector_complex_long_double( block_complex_long_double& b, size_t const offset, size_t const n, size_t const stride = 1 ){
      ccgsl_pointer = gsl_vector_complex_long_double_alloc_from_block( b.get(), offset, n, stride );
      // just plausibly we could allocate vector_complex_long_double but not count
      try { count = new size_t; } catch( std::bad_alloc& e ){
    // try to tidy up before rethrowing
    gsl_vector_complex_long_double_free( ccgsl_pointer );
    throw e;
      }
      *count = 1; // initially there is just one reference to ccgsl_pointer
    }
    vector_complex_long_double( vector_complex_long_double& v, size_t const offset, size_t const n, size_t const stride = 1 ){
      ccgsl_pointer = gsl_vector_complex_long_double_alloc_from_vector( v.get(), offset, n, stride );
      // just plausibly we could allocate vector_complex_long_double but not count
      try { count = new size_t; } catch( std::bad_alloc& e ){
    // try to tidy up before rethrowing
    gsl_vector_complex_long_double_free( ccgsl_pointer );
    throw e;
      }
      *count = 1; // initially there is just one reference to ccgsl_pointer
    }
    gsl::vector_long_double real(){
      return gsl::vector_long_double::view_array_with_stride( data(), CCGSL_MTY, size()  ); }
    gsl::vector_long_double const const_real() const {
      return gsl::vector_long_double::const_view_array_with_stride( data(), CCGSL_MTY, size()  ); }
    gsl::vector_long_double const real() const {
      return gsl::vector_long_double::const_view_array_with_stride( data(), CCGSL_MTY, size()  ); }
    gsl::vector_long_double imag(){
      return gsl::vector_long_double::view_array_with_stride( data() + CCGSL_MTY / 2, CCGSL_MTY, size()  ); }
    gsl::vector_long_double const const_imag() const {
      return gsl::vector_long_double::const_view_array_with_stride( data() + CCGSL_MTY / 2, CCGSL_MTY, size()  ); }
    gsl::vector_long_double const imag() const {
      return gsl::vector_long_double::const_view_array_with_stride( data() + CCGSL_MTY / 2, CCGSL_MTY, size()  ); }
    static vector_complex_long_double view_array( long double* v, size_t n ){
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_view_array( v, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    static vector_complex_long_double view_array_with_stride( long double* base, size_t stride, size_t n ){
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_view_array_with_stride( base, stride, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    static vector_complex_long_double const const_view_array( long double const* v, size_t n ){
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double *>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_view_array( v, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    static vector_complex_long_double const const_view_array_with_stride( long double const* base, size_t stride, size_t n ){
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_view_array_with_stride( base, stride, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
#ifndef DOXYGEN_SKIP
    static vector_complex_long_double const view_array( long double const* v, size_t n ){
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_view_array( v, n ).vector;
      return vector_complex_long_double( w );
    }
#endif //DOXYGEN_SKIP
 
 
#ifndef DOXYGEN_SKIP
    static vector_complex_long_double const view_array_with_stride( long double const* base, size_t stride, size_t n ){
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_view_array_with_stride( base, stride, n ).vector;
      return vector_complex_long_double( w );
    }  
#endif //DOXYGEN_SKIP
 
 
    vector_complex_long_double subvector( size_t i, size_t n ){
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_subvector( get(), i, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    vector_complex_long_double subvector_with_stride( size_t i, size_t stride, size_t n ){
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_subvector_with_stride( get(), i, stride, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    vector_complex_long_double const const_subvector( size_t i, size_t n ) const {
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_subvector( get(), i, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    vector_complex_long_double const const_subvector_with_stride( size_t i, size_t stride, size_t n ) const {
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_subvector_with_stride( get(), i, stride, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
#ifndef DOXYGEN_SKIP
    vector_complex_long_double const subvector( size_t i, size_t n ) const {
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_subvector( get(), i, n ).vector;
      return vector_complex_long_double( w );
    }
#endif //DOXYGEN_SKIP
 
 
#ifndef DOXYGEN_SKIP
    vector_complex_long_double const subvector_with_stride( size_t i, size_t stride, size_t n ) const {
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_subvector_with_stride( get(), i, stride, n ).vector;
      return vector_complex_long_double( w );
    }
#endif //DOXYGEN_SKIP
 
 
    template<typename ARRAY>
    static vector_complex_long_double view_array( ARRAY& v, size_t n = 0 ){
      if(n > v.size())
        gsl_error( "n is too big", __FILE__, __LINE__, exception::GSL_EBADLEN );
      if(0 == n)
        n = v.size();
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_view_array( v.data(), n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    template<typename ARRAY>
    static vector_complex_long_double view_array_with_stride( ARRAY& base, size_t stride, size_t n=0 ){
      if(0 == n)
        n = base.size()/stride;
      if((n-1)*stride > base.size())
        gsl_error( "n is too big", __FILE__, __LINE__, exception::GSL_EBADLEN );
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_view_array_with_stride( base.data(), stride, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    template<typename ARRAY>
    static vector_complex_long_double const const_view_array( ARRAY const& v, size_t n=0 ){
      if(n > v.size())
        gsl_error( "n is too big", __FILE__, __LINE__, exception::GSL_EBADLEN );
      if(0 == n)
        n = v.size();
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double *>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_view_array( v.data(), n ).vector;
      return vector_complex_long_double( w );
    }
 
 
    template<typename ARRAY>
    static vector_complex_long_double const const_view_array_with_stride( ARRAY const& base, size_t stride, size_t n=0 ){
      if(0 == n)
        n = base.size()/stride;
      if((n-1)*stride > base.size())
        gsl_error( "n is too big", __FILE__, __LINE__, exception::GSL_EBADLEN );
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_view_array_with_stride( base.data(), stride, n ).vector;
      return vector_complex_long_double( w );
    }
 
 
#ifndef DOXYGEN_SKIP
    template<typename ARRAY>
    static vector_complex_long_double const view_array( ARRAY const& v, size_t n=0 ){
      if(n > v.size())
        gsl_error( "n is too big", __FILE__, __LINE__, exception::GSL_EBADLEN );
      if(0 == n)
        n = v.size();
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_view_array( v.data(), n ).vector;
      return vector_complex_long_double( w );
    }
#endif //DOXYGEN_SKIP
 
 
#ifndef DOXYGEN_SKIP
    template<typename ARRAY>
    static vector_complex_long_double const view_array_with_stride( ARRAY const& base, size_t stride, size_t n ){
      if(0 == n)
        n = base.size()/stride;
      if((n-1)*stride > base.size())
        gsl_error( "n is too big", __FILE__, __LINE__, exception::GSL_EBADLEN );
      gsl_vector_complex_long_double* w = static_cast<gsl_vector_complex_long_double*>( malloc( sizeof( gsl_vector_complex_long_double ) ) );
      *w = gsl_vector_complex_long_double_const_view_array_with_stride( base.data(), stride, n ).vector;
      return vector_complex_long_double( w );
    }  
#endif //DOXYGEN_SKIP
 
    // Extra allocators from matrix_complex_long_double objects. The definition must come after matrix_complex_long_double.
    static vector_complex_long_double alloc_row_from_matrix( matrix_complex_long_double& m, size_t const i );
    static vector_complex_long_double alloc_col_from_matrix( matrix_complex_long_double& m, size_t const j );
  };
 
  inline vector_complex_long_double::iterator operator+
  ( vector_complex_long_double::iterator::difference_type const n, vector_complex_long_double::iterator const& i ){ return i + n; }
  
  inline vector_complex_long_double::const_iterator operator+
  ( vector_complex_long_double::const_iterator::difference_type const n, vector_complex_long_double::const_iterator const& i ){ return i + n; }
  
  inline vector_complex_long_double::reverse_iterator operator+
  ( vector_complex_long_double::reverse_iterator::difference_type const n, vector_complex_long_double::reverse_iterator const& i ){
    return i + n; }
  
  inline vector_complex_long_double::const_reverse_iterator operator+
  ( vector_complex_long_double::const_reverse_iterator::difference_type const n, vector_complex_long_double::const_reverse_iterator const& i ){
    return i + n; }
  
}
#undef CCGSL_MTY
#endif