vmmlib-1.3.5/0000755000076500000240000000000011770335626011621 5ustar eilestaffvmmlib-1.3.5/ACKNOWLEDGEMENTS0000755000076500000240000000000011770276420023201 2vmmlib-1.3.5/include/vmmlib/ACKNOWLEDGEMENTSustar eilestaffvmmlib-1.3.5/AUTHORS0000644000076500000240000000126111770276420012665 0ustar eilestaffVMMLib - Vector & Matrix Math Lib - AUTHORS Susanne Suter (susuter@ifi.uzh.ch) Jonas Boesch (boesch@ifi.uzh.ch) Stefan Eilemann (eile@eyescale.ch) Renato Pajarola (pajarola@ifi.uzh.ch) Philip Schlegel (schlegel@ifi.uzh.ch) With contributions from: Daniel Pfeifer (daniel@pfeifer-mail.de) - CMake Build System, Linux fixes Jaroslav Skarvada (jskarvad@redhat.com) - Red Hat packaging, RH compatibility fixes Bas Wijnen (wijnen@debian.org) - Debian packaging see ACKNOWLEDGEMENTS - Parts of the source code of VMMLib were inspired by David Eberly's Wild Magic and Andrew Willmott's VL. - enable_if was inspired by Boost (http://www.boost.org/doc/libs/1_39_0/libs/utility/enable_if.html) vmmlib-1.3.5/CMakeLists.txt0000644000076500000240000001064111770276420014357 0ustar eilestaff# Copyright (c) 2011 Daniel Pfeifer cmake_minimum_required(VERSION 2.8 FATAL_ERROR) project(VMMLib) set(VERSION_MAJOR 1) set(VERSION_MINOR 3) set(VERSION_PATCH 5) set(RELEASE_VERSION 1) # OFF or ABI version list(APPEND CMAKE_MODULE_PATH ${CMAKE_SOURCE_DIR}/CMake) include(Common) include(DoxygenSetup) set(CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS} -Wno-shadow -Wno-sign-compare -Wno-extra -Wno-strict-aliasing") include_directories(BEFORE ${CMAKE_SOURCE_DIR}/include) if(APPLE) find_library(LAPACK_LIBRARIES Accelerate) if(LAPACK_LIBRARIES) set(LAPACK_FOUND TRUE) endif(LAPACK_LIBRARIES) else(APPLE) # enable_language(Fortran OPTIONAL) # eile: Why needed? find_package(BLAS) if(BLAS_FOUND) find_package(LAPACK) endif() endif(APPLE) set(DOCS README AUTHORS LICENSE.txt ACKNOWLEDGEMENTS) set(HEADERS include/vmmlib/ACKNOWLEDGEMENTS include/vmmlib/LICENSE include/vmmlib/aabb.hpp include/vmmlib/blas_daxpy.hpp include/vmmlib/blas_dgemm.hpp include/vmmlib/blas_dot.hpp include/vmmlib/blas_includes.hpp include/vmmlib/blas_types.hpp include/vmmlib/cp3_tensor.hpp include/vmmlib/cublas_dgemm.cu include/vmmlib/cublas_includes.hpp include/vmmlib/cublas_types.hpp include/vmmlib/enable_if.hpp include/vmmlib/exception.hpp include/vmmlib/frustum.hpp include/vmmlib/frustum_culler.hpp include/vmmlib/jacobi_solver.hpp include/vmmlib/lapack.hpp include/vmmlib/lapack/detail/clapack.h include/vmmlib/lapack/detail/f2c.h include/vmmlib/lapack_gaussian_elimination.hpp include/vmmlib/lapack_includes.hpp include/vmmlib/lapack_linear_least_squares.hpp include/vmmlib/lapack_svd.hpp include/vmmlib/lapack_sym_eigs.hpp include/vmmlib/lapack_types.hpp include/vmmlib/linear_least_squares.hpp include/vmmlib/math.hpp include/vmmlib/matrix.hpp include/vmmlib/matrix_functors.hpp include/vmmlib/matrix_pseudoinverse.hpp include/vmmlib/matrix_traits.hpp include/vmmlib/qr_decomposition.hpp include/vmmlib/qtucker3_tensor.hpp include/vmmlib/quaternion.hpp include/vmmlib/svd.hpp include/vmmlib/t3_converter.hpp include/vmmlib/t3_cublas_hooi.hpp include/vmmlib/t3_cublas_hosvd.hpp include/vmmlib/t3_cublas_ttm.hpp include/vmmlib/t3_hooi.hpp include/vmmlib/t3_hopm.hpp include/vmmlib/t3_hosvd.hpp include/vmmlib/t3_ihopm.hpp include/vmmlib/t3_ttm.hpp include/vmmlib/tensor3.hpp include/vmmlib/tensor3_iterator.hpp include/vmmlib/tucker3_exporter.hpp include/vmmlib/tucker3_importer.hpp include/vmmlib/tucker3_tensor.hpp include/vmmlib/validator.hpp include/vmmlib/vector.hpp include/vmmlib/vector_traits.hpp include/vmmlib/visibility.hpp include/vmmlib/vmmlib.hpp include/vmmlib/vmmlib_config.hpp ) set(TESTS tests/frustum_test.cpp tests/jacobi_test.cpp tests/matrix_test.cpp tests/perf_test.cpp tests/performance_test.cpp tests/qr_decomposition_test.cpp tests/quaternion_test.cpp tests/svd_test.cpp tests/timer.cpp tests/unit_test.cpp tests/vector_test.cpp tests/vmmlib_unit_tests_main.cpp # tests/matrix_compare_perf_test.cpp # tests/stringtests.cpp # tests/vmmlib_lapack_main.cpp # tests/vmmlib_performance_tests_main.cpp ) if(LAPACK_FOUND) add_definitions(-DVMMLIB_USE_LAPACK) list(APPEND TESTS tests/blas_dot_test.cpp tests/blas_daxpy_test.cpp tests/blas_dgemm_test.cpp tests/cp3_tensor_test.cpp tests/lapack_gaussian_elimination_test.cpp tests/lapack_linear_least_squares_test.cpp tests/lapack_svd_test.cpp tests/lapack_sym_eigs_test.cpp tests/matrix_pseudoinverse_test.cpp tests/qtucker3_tensor_test.cpp tests/svd_lapack_vs_old.cpp tests/t3_hooi_test.cpp tests/t3_hopm_test.cpp tests/t3_hosvd_test.cpp tests/t3_ihopm_test.cpp tests/t3_ttm_test.cpp tests/tensor3_iterator_test.cpp tests/tensor3_test.cpp tests/tucker3_exporter_importer_test.cpp tests/tucker3_tensor_test.cpp ) endif() if(NOT MSVC) add_executable(vmmlib_test ${HEADERS} ${TESTS}) if(LAPACK_FOUND) target_link_libraries(vmmlib_test ${LAPACK_LIBRARIES}) endif() if(BLAS_FOUND) target_link_libraries(vmmlib_test ${BLAS_LIBRARIES}) endif() add_test(vmmlib_test vmmlib_test) endif() include(DoxygenRule) # must be after all targets install(FILES ${HEADERS} DESTINATION include/vmmlib COMPONENT dev) install(FILES ${DOCS} DESTINATION share/vmmlib COMPONENT dev) install(FILES CMake/FindVMMLIB.cmake DESTINATION ${CMAKE_MODULE_INSTALL_PATH} COMPONENT dev) include(CPackConfig) vmmlib-1.3.5/LICENSE.txt0000755000076500000240000000000011770276420021277 2vmmlib-1.3.5/include/vmmlib/LICENSEustar eilestaffvmmlib-1.3.5/Makefile0000644000076500000240000000364011770276420013260 0ustar eilestaff VMMLIB_UNIT_TESTS =\ tests/unit_test.cpp\ tests/vector_test.cpp\ tests/matrix_test.cpp\ tests/quaternion_test.cpp\ tests/qr_decomposition_test.cpp\ tests/svd_test.cpp\ tests/lapack_svd_test.cpp\ tests/lapack_linear_least_squares_test.cpp\ tests/lapack_gaussian_elimination_test.cpp\ tests/vmmlib_unit_tests_main.cpp\ tests/lapack_sym_eigs_test.cpp\ tests/tensor3_test.cpp \ tests/tensor3_iterator_test.cpp \ tests/tucker3_tensor_test.cpp \ tests/qtucker3_tensor_test.cpp \ tests/tucker3_exporter_importer_test.cpp \ tests/cp3_tensor_test.cpp \ tests/t3_hosvd_test.cpp \ tests/t3_hooi_test.cpp \ tests/t3_hopm_test.cpp \ tests/t3_ihopm_test.cpp \ tests/t3_ttm_test.cpp \ tests/matrix_pseudoinverse_test.cpp \ tests/blas_dgemm_test.cpp \ tests/blas_dot_test.cpp \ tests/blas_daxpy_test.cpp \ VMMLIB_UNIT_TESTS_OBJECTS = ${VMMLIB_UNIT_TESTS:%.cpp=%.o} CXXFLAGS += -I. -Iinclude -Itests -include stdint.h # Mac OS X specific stuff # on mac we want to use the frameworks, not the unix style libs ARCH = $(shell uname) ifeq "$(ARCH)" "Darwin" CXXFLAGS += -DVMMLIB_USE_LAPACK LDFLAGS += -framework Accelerate -fopenmp else # Linux specific stuff CXXFLAGS += -include f2c.h -include f2c_fix.h LBITS := $(shell getconf LONG_BIT) ifeq ($(LBITS),64) LIBDIR=$(DESTDIR)/usr/lib64 else LIBDIR=$(DESTDIR)/usr/lib endif CXXFLAGS += -DVMMLIB_USE_LAPACK LDFLAGS += -fopenmp # adjust libs depending on your LAPACK and BLAS distribution LIBS += -lclapack -lf2c -lcblas -llapack # LIBS += -llapack -lblas endif all: vmmlib_unit_tests .cpp.o: $(CXX) $(CXXFLAGS) -c $< -o $@ vmmlib_unit_tests: $(VMMLIB_UNIT_TESTS_OBJECTS) ifeq "$(ARCH)" "Darwin" $(CXX) $(LDFLAGS) $(VMMLIB_UNIT_TESTS_OBJECTS) -o $@ else $(CXX) $(LDFLAGS) $(VMMLIB_UNIT_TESTS_OBJECTS) -o $@ $(LIBS) endif clean: rm -rf $(VMMLIB_UNIT_TESTS_OBJECTS) vmmlib_unit_tests vmmlib-1.3.5/Makefile.atlas0000644000076500000240000000357411770276420014371 0ustar eilestaff VMMLIB_UNIT_TESTS =\ tests/unit_test.cpp\ tests/vector_test.cpp\ tests/matrix_test.cpp\ tests/quaternion_test.cpp\ tests/qr_decomposition_test.cpp\ tests/svd_test.cpp\ tests/lapack_svd_test.cpp\ tests/lapack_linear_least_squares_test.cpp\ tests/lapack_gaussian_elimination_test.cpp\ tests/vmmlib_unit_tests_main.cpp\ tests/lapack_sym_eigs_test.cpp\ tests/tensor3_test.cpp \ tests/tensor3_iterator_test.cpp \ tests/tucker3_tensor_test.cpp \ tests/qtucker3_tensor_test.cpp \ tests/tucker3_exporter_importer_test.cpp \ tests/cp3_tensor_test.cpp \ tests/t3_hosvd_test.cpp \ tests/t3_hooi_test.cpp \ tests/t3_hopm_test.cpp \ tests/t3_ihopm_test.cpp \ tests/matrix_pseudoinverse_test.cpp \ tests/blas_dgemm_test.cpp \ tests/blas_dot_test.cpp \ VMMLIB_UNIT_TESTS_OBJECTS = ${VMMLIB_UNIT_TESTS:%.cpp=%.o} CXXFLAGS += -I. -Iinclude -Itests -include stdint.h # Mac OS X specific stuff # on mac we want to use the frameworks, not the unix style libs ARCH = $(shell uname) ifeq "$(ARCH)" "Darwin" CXXFLAGS += -framework Accelerate LDFLAGS += -framework Accelerate else # Linux specific stuff CXXFLAGS += -include f2c.h -include f2c_fix.h LBITS := $(shell getconf LONG_BIT) ifeq ($(LBITS),64) LIBDIR=$(DESTDIR)/usr/lib64 else LIBDIR=$(DESTDIR)/usr/lib endif LDFLAGS += -L$(LIBDIR)/atlas -u MAIN__ CXXFLAGS += -DVMMLIB_USE_LAPACK LDFLAGS += # adjust libs depending on your LAPACK and BLAS distribution LIBS += -lclapack -lf2c -lcblas -llapack # LIBS += -llapack -lblas endif all: vmmlib_unit_tests .cpp.o: $(CXX) $(CXXFLAGS) -c $< -o $@ vmmlib_unit_tests: $(VMMLIB_UNIT_TESTS_OBJECTS) ifeq "$(ARCH)" "Darwin" $(CXX) $(LDFLAGS) $(VMMLIB_UNIT_TESTS_OBJECTS) -o $@ else $(CXX) $(LDFLAGS) $(VMMLIB_UNIT_TESTS_OBJECTS) -o $@ $(LIBS) endif clean: rm -rf $(VMMLIB_UNIT_TESTS_OBJECTS) vmmlib_unit_tests vmmlib-1.3.5/README0000644000076500000240000000035511770276420012500 0ustar eilestaffVMMLib is a small templatized vector and matrix math library. License: (revised) BSD VMMLib depends on LAPACK and BLAS, if you just want to use VMMLib basic without depending on LAPACK/BLAS, don't include the affected header files. vmmlib-1.3.5/include/0000755000076500000240000000000011770335626013244 5ustar eilestaffvmmlib-1.3.5/include/vmmlib/0000755000076500000240000000000011770276417014534 5ustar eilestaffvmmlib-1.3.5/include/vmmlib/ACKNOWLEDGEMENTS0000644000076500000240000000554311770276417017020 0ustar eilestaff=========================================================================== enable_if (http://www.boost.org/doc/libs/1_39_0/libs/utility/enable_if.html) =========================================================================== Boost Software License - Version 1.0 - August 17th, 2003 Permission is hereby granted, free of charge, to any person or organization obtaining a copy of the software and accompanying documentation covered by this license (the "Software") to use, reproduce, display, distribute, execute, and transmit the Software, and to prepare derivative works of the Software, and to permit third-parties to whom the Software is furnished to do so, all subject to the following: The copyright notices in the Software and this entire statement, including the above license grant, this restriction and the following disclaimer, must be included in all copies of the Software, in whole or in part, and all derivative works of the Software, unless such copies or derivative works are solely in the form of machine-executable object code generated by a source language processor. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ANYONE DISTRIBUTING THE SOFTWARE BE LIABLE FOR ANY DAMAGES OR OTHER LIABILITY, WHETHER IN CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. =========================================================================== Parts of vector and matrix code (http://www.cs.cmu.edu/~ajw/doc/vl.html) =========================================================================== Except where otherwise noted, Copyright (c) 2000 Andrew Willmott. All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form have no conditions on them. THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. vmmlib-1.3.5/include/vmmlib/LICENSE0000644000076500000240000000305711770276417015546 0ustar eilestaffCopyright (c) 2006-2012, Visualization and Multimedia Lab, University of Zurich All rights reserved. (http://vmml.ifi.uzh.ch) Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. Neither the name of the Visualization and Multimedia Lab, University of Zurich nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. vmmlib-1.3.5/include/vmmlib/aabb.hpp0000644000076500000240000001310511770276417016132 0ustar eilestaff#ifndef __VMML__AXIS_ALIGNED_BOUNDING_BOX__HPP__ #define __VMML__AXIS_ALIGNED_BOUNDING_BOX__HPP__ #include namespace vmml { template< typename T > class AxisAlignedBoundingBox { public: AxisAlignedBoundingBox(); AxisAlignedBoundingBox( const vector< 3, T >& pMin, const vector< 3, T >& pMax ); AxisAlignedBoundingBox( const vector< 4, T >& sphere ); AxisAlignedBoundingBox( T cx, T cy, T cz, T size ); inline bool isIn( const vector< 3, T >& pos ); inline bool isIn2d( const vector< 3, T >& pos ); // only x and y components are checked inline bool isIn( const vector< 4, T >& sphere ); inline void set( const vector< 3, T >& pMin, const vector< 3, T >& pMax ); inline void set( T cx, T cy, T cz, T size ); inline void setMin( const vector< 3, T >& pMin ); inline void setMax( const vector< 3, T >& pMax ); inline const vector< 3, T >& getMin() const; inline const vector< 3, T >& getMax() const; inline void merge( const AxisAlignedBoundingBox< T >& aabb ); inline void setEmpty( bool empty = true ); inline bool isEmpty() const; inline void setDirty( bool dirty = true ); inline bool isDirty() const; vector< 3, T > getCenter() const; protected: vector< 3, T > _min; vector< 3, T > _max; bool _dirty; bool _empty; }; template< typename T > AxisAlignedBoundingBox< T >::AxisAlignedBoundingBox() : _dirty( false ) , _empty( true ) {} template< typename T > AxisAlignedBoundingBox< T >::AxisAlignedBoundingBox( const vector< 3, T >& pMin, const vector< 3, T >& pMax ) : _min( pMin ) , _max( pMax ) , _dirty( false ) , _empty( false ) {} template< typename T > AxisAlignedBoundingBox< T >::AxisAlignedBoundingBox( const vector< 4, T >& sphere ) : _dirty( false ) , _empty( false ) { _max = _min = sphere.getCenter(); _max += sphere.getRadius(); _min -= sphere.getRadius(); } template< typename T > AxisAlignedBoundingBox< T >::AxisAlignedBoundingBox( T cx, T cy, T cz, T size ) : _dirty( false ) , _empty( false ) { _max = _min = Vector3f( cx, cy, cz ); _max += size; _min -= size; } template< typename T > inline bool AxisAlignedBoundingBox< T >::isIn( const vector< 4, T >& sphere ) { if ( _empty ) return false; vector< 3, T > sv ( sphere.getCenter() ); sv += sphere.getRadius(); if ( sv.x() > _max.x() || sv.y() > _max.y() || sv.z() > _max.z() ) return false; sv -= sphere.getRadius() * 2.0f; if ( sv.x() < _min.x() || sv.y() < _min.y() || sv.z() < _min.z() ) return false; return true; } template< typename T > inline bool AxisAlignedBoundingBox< T >::isIn( const vector< 3, T >& pos ) { if ( _empty ) return false; if ( pos.x() > _max.x() || pos.y() > _max.y() || pos.z() > _max.z() || pos.x() < _min.x() || pos.y() < _min.y() || pos.z() < _min.z() ) { return false; } return true; } template< typename T > inline bool AxisAlignedBoundingBox< T >::isIn2d( const vector< 3, T >& pos ) { if ( _empty ) return false; if ( pos.x() > _max.x() || pos.y() > _max.y() || pos.x() < _min.x() || pos.y() < _min.y() ) { return false; } return true; } template< typename T > inline void AxisAlignedBoundingBox< T >::set( const vector< 3, T >& pMin, const vector< 3, T >& pMax ) { _min = pMin; _max = pMax; _empty = false; } template< typename T > inline void AxisAlignedBoundingBox< T >::set( T cx, T cy, T cz, T size ) { vector< 3, T > center( cx, cy, cz ); _min = center - size; _max = center + size; _empty = false; } template< typename T > inline void AxisAlignedBoundingBox< T >::setMin( const vector< 3, T >& pMin ) { _min = pMin; } template< typename T > inline void AxisAlignedBoundingBox< T >::setMax( const vector< 3, T >& pMax ) { _max = pMax; } template< typename T > inline const vector< 3, T >& AxisAlignedBoundingBox< T >::getMin() const { return _min; } template< typename T > inline const vector< 3, T >& AxisAlignedBoundingBox< T >::getMax() const { return _max; } template< typename T > vector< 3, T > AxisAlignedBoundingBox< T >::getCenter() const { return _min + ( ( _max - _min ) * 0.5f ); } template< typename T > void AxisAlignedBoundingBox< T >::merge( const AxisAlignedBoundingBox< T >& aabb ) { if ( aabb._empty ) return; // nothing to do if ( _empty ) { // copy non-empty aabb _min = aabb._min; _max = aabb._max; _empty = _dirty = false; return; } // else merge the two aabbs const vector< 3, T >& min = aabb.getMin(); const vector< 3, T >& max = aabb.getMax(); if ( min.x() < _min.x() ) _min.x() = min.x(); if ( min.y() < _min.y() ) _min.y() = min.y(); if ( min.z() < _min.z() ) _min.z() = min.z(); if ( max.x() > _max.x() ) _max.x() = max.x(); if ( max.y() > _max.y() ) _max.y() = max.y(); if ( max.z() > _max.z() ) _max.z() = max.z(); } template< typename T > inline void AxisAlignedBoundingBox< T >::setEmpty( bool empty ) { _empty = empty; } template< typename T > inline bool AxisAlignedBoundingBox< T >::isEmpty() const { return _empty; } template< typename T > inline void AxisAlignedBoundingBox< T >::setDirty( bool dirty ) { _dirty = dirty; } template< typename T > inline bool AxisAlignedBoundingBox< T >::isDirty() const { return _dirty; } typedef AxisAlignedBoundingBox< float > Aabbf; }; //namespace vmml #endif vmmlib-1.3.5/include/vmmlib/blas_daxpy.hpp0000644000076500000240000001223711770276417017400 0ustar eilestaff#ifndef __VMML__VMMLIB_BLAS_DAXPY__HPP__ #define __VMML__VMMLIB_BLAS_DAXPY__HPP__ #include #include #include #include #include #include /** * * a wrapper for blas's daxpy routine. * SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) * .. Scalar Arguments .. * DOUBLE PRECISION DA * INTEGER INCX,INCY,N * .. * .. Array Arguments .. * DOUBLE PRECISION DX(*),DY(*) * .. * * * Purpose * ======= * * DAXPY constant times a vector plus a vector. * uses unrolled loops for increments equal to one. * * more information in: http://netlib.org/blas/daxpy.f ** */ namespace vmml { namespace blas { #if 0 /* Subroutine */ void cblas_daxpy(const int N, const double alpha, const double *X, const int incX, double *Y, const int incY); #endif template< typename float_t > struct daxpy_params { blas_int n; float_t alpha; float_t* x; blas_int inc_x; float_t* y; blas_int inc_y; friend std::ostream& operator << ( std::ostream& os, const daxpy_params< float_t >& p ) { os << " (1)\tn " << p.n << std::endl << " (2)\talpha " << p.alpha << std::endl << " (3)\tx " << p.x << std::endl << " (4)\tincX " << p.inc_x << std::endl << " (5)\ty " << p.y << std::endl << " (6)\tincY " << p.inc_y << std::endl << std::endl; return os; } }; template< typename float_t > inline void daxpy_call( daxpy_params< float_t >& p ) { VMMLIB_ERROR( "not implemented for this type.", VMMLIB_HERE ); } template<> inline void daxpy_call( daxpy_params< float >& p ) { //std::cout << "calling blas saxpy (single precision) " << std::endl; cblas_saxpy( p.n, p.alpha, p.x, p.inc_x, p.y, p.inc_y ); } template<> inline void daxpy_call( daxpy_params< double >& p ) { //std::cout << "calling blas daxpy (double precision) " << std::endl; cblas_daxpy( p.n, p.alpha, p.x, p.inc_x, p.y, p.inc_y ); } } // namespace blas template< size_t M, typename float_t > struct blas_daxpy { typedef vector< M, float_t > vector_t; blas_daxpy(); ~blas_daxpy() {}; bool compute( const float_t a_, const vector_t& B_, vector_t& C_ ); template< size_t K, size_t N > bool compute_mmm( const matrix< M, K, float_t >& left_m_, const matrix< K, N, float_t >& right_m_, matrix< M, N, float_t >& res_m_ ); template< size_t K > bool compute_mmm( const matrix< M, K, float_t >& left_m_, matrix< M, M, float_t >& res_m_ ); blas::daxpy_params< float_t > p; const blas::daxpy_params< float_t >& get_params(){ return p; }; }; // struct blas_daxpy template< size_t M, typename float_t > blas_daxpy< M, float_t >::blas_daxpy() { p.n = M; p.alpha = 0; p.x = 0; p.inc_x = 1; p.y = 0; p.inc_y = 1; } template< size_t M, typename float_t > bool blas_daxpy< M, float_t >::compute( const float_t a_, const vector_t& B_, vector_t& C_ ) { // blas needs non-const data vector_t* BB = new vector_t( B_ ); C_.set(0); p.alpha = a_; p.x = BB->array; p.y = C_.array; blas::daxpy_call< float_t >( p ); //std::cout << p << std::endl; //debug delete BB; return true; } template< size_t M, typename float_t > template< size_t K, size_t N > bool blas_daxpy< M, float_t >::compute_mmm( const matrix< M, K, float_t >& left_m_, const matrix< K, N, float_t >& right_m_, matrix< M, N, float_t >& res_m_ ) { for ( int n = 0; n < (int)N; ++n ) { vector_t* final_col = new vector_t; final_col->set(0); for ( int k = 0; k < (int)K; ++k ) { vector_t* in_col = new vector_t; vector_t* out_col = new vector_t; float_t a_val = right_m_.at( k, n ); left_m_.get_column( k, *in_col ); compute( a_val, *in_col, *out_col ); *final_col += *out_col; delete in_col; delete out_col; } res_m_.set_column( n, *final_col ); delete final_col; } return true; } template< size_t M, typename float_t > template< size_t K > bool blas_daxpy< M, float_t >::compute_mmm( const matrix< M, K, float_t >& left_m_, matrix< M, M, float_t >& res_m_ ) { #pragma omp parallel for for ( int n = 0; n < (int)M; ++n ) { vector_t* final_col = new vector_t; final_col->set(0); #pragma omp parallel for for ( int k = 0; k < (int)K; ++k ) { vector_t* in_col = new vector_t; vector_t* out_col = new vector_t; float_t a_val = left_m_.at( n,k ); //reversed (k,n), because take value from transposed matrix left_m_ left_m_.get_column( k, *in_col ); compute( a_val, *in_col, *out_col ); *final_col += *out_col; delete in_col; delete out_col; } res_m_.set_column( n, *final_col ); delete final_col; } return true; } } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/blas_dgemm.hpp0000644000076500000240000002417011770276417017343 0ustar eilestaff#ifndef __VMML__VMMLIB_BLAS_DGEMM__HPP__ #define __VMML__VMMLIB_BLAS_DGEMM__HPP__ #include #include #include #include #include /** * * a wrapper for blas's DGEMM routine. SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) * .. Scalar Arguments .. DOUBLE PRECISION ALPHA,BETA INTEGER K,LDA,LDB,LDC,M,N CHARACTER TRANSA,TRANSB * .. * .. Array Arguments .. DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) * .. * * Purpose * ======= * * DGEMM performs one of the matrix-matrix operations * * C := alpha*op( A )*op( B ) + beta*C, * * where op( X ) is one of * * op( X ) = X or op( X ) = X**T, * * alpha and beta are scalars, and A, B and C are matrices, with op( A ) * an m by k matrix, op( B ) a k by n matrix and C an m by n matrix. * * * more information in: http://www.netlib.org/blas/dgemm.f * or http://www.netlib.org/clapack/cblas/dgemm.c ** */ namespace vmml { namespace blas { #if 0 /* Subroutine */ void cblas_dgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, blasint M, blasint N, blasint K, double alpha, double *A, blasint lda, double *B, blasint ldb, double beta, double *C, blasint ldc); #endif template< typename float_t > struct dgemm_params { CBLAS_ORDER order; CBLAS_TRANSPOSE trans_a; CBLAS_TRANSPOSE trans_b; blas_int m; blas_int n; blas_int k; float_t alpha; float_t* a; blas_int lda; //leading dimension of input array matrix left float_t* b; blas_int ldb; //leading dimension of input array matrix right float_t beta; float_t* c; blas_int ldc; //leading dimension of output array matrix right friend std::ostream& operator << ( std::ostream& os, const dgemm_params< float_t >& p ) { os << " (1)\torder " << p.order << std::endl << " (2)\ttrans_a " << p.trans_a << std::endl << " (3)\ttrans_b " << p.trans_b << std::endl << " (4)\tm " << p.m << std::endl << " (6)\tn " << p.n << std::endl << " (5)\tk " << p.k << std::endl << " (7)\talpha " << p.alpha << std::endl << " (8)\ta " << p.a << std::endl << " (9)\tlda " << p.lda << std::endl << " (10)\tb " << p.b << std::endl << " (11)\tldb " << p.ldb << std::endl << " (12)\tbeta " << p.beta << std::endl << " (13)\tc " << p.c << std::endl << " (14)\tldc " << p.ldc << std::endl << std::endl; return os; } }; template< typename float_t > inline void dgemm_call( dgemm_params< float_t >& p ) { VMMLIB_ERROR( "not implemented for this type.", VMMLIB_HERE ); } template<> inline void dgemm_call( dgemm_params< float >& p ) { //std::cout << "calling blas sgemm (single precision) " << std::endl; cblas_sgemm( p.order, p.trans_a, p.trans_b, p.m, p.n, p.k, p.alpha, p.a, p.lda, p.b, p.ldb, p.beta, p.c, p.ldc ); } template<> inline void dgemm_call( dgemm_params< double >& p ) { //std::cout << "calling blas dgemm (double precision) " << std::endl; cblas_dgemm( p.order, p.trans_a, p.trans_b, p.m, p.n, p.k, p.alpha, p.a, p.lda, p.b, p.ldb, p.beta, p.c, p.ldc ); } } // namespace blas template< size_t M, size_t K, size_t N, typename float_t > struct blas_dgemm { typedef matrix< M, K, float_t > matrix_left_t; typedef matrix< K, M, float_t > matrix_left_t_t; typedef matrix< K, N, float_t > matrix_right_t; typedef matrix< N, K, float_t > matrix_right_t_t; typedef matrix< M, N, float_t > matrix_out_t; typedef vector< M, float_t > vector_left_t; typedef vector< N, float_t > vector_right_t; blas_dgemm(); ~blas_dgemm() {}; bool compute( const matrix_left_t& A_, const matrix_right_t& B_, matrix_out_t& C_ ); bool compute( const matrix_left_t& A_, matrix_out_t& C_ ); // dgemms with tensor3 input works for frontal tensor unfolding //I2*I3 = K; template< size_t I2, size_t I3 > bool compute( const tensor3< M, I2, I3, float_t >& A_, const matrix_right_t& B_, matrix_out_t& C_ ); //I2*I3 = K; template< size_t I2, size_t I3 > bool compute( const tensor3< M, I2, I3, float_t >& A_, matrix_out_t& C_ ); bool compute_t( const matrix_right_t& B_, matrix_out_t& C_ ); bool compute_bt( const matrix_left_t& A_, const matrix_right_t_t& Bt_, matrix_out_t& C_ ); bool compute_t( const matrix_left_t_t& A_, const matrix_right_t_t& B_, matrix_out_t& C_ ); bool compute_vv_outer( const vector_left_t& A_, const vector_right_t& B_, matrix_out_t& C_ ); blas::dgemm_params< float_t > p; const blas::dgemm_params< float_t >& get_params(){ return p; }; }; // struct blas_dgemm template< size_t M, size_t K, size_t N, typename float_t > blas_dgemm< M, K, N, float_t >::blas_dgemm() { p.order = CblasColMajor; // p.trans_a = CblasNoTrans; p.trans_b = CblasNoTrans; p.m = M; p.n = N; p.k = K; p.alpha = 1; p.a = 0; p.lda = M; p.b = 0; p.ldb = K; //no transpose p.beta = 0; p.c = 0; p.ldc = M; } template< size_t M, size_t K, size_t N, typename float_t > bool blas_dgemm< M, K, N, float_t >::compute( const matrix_left_t& A_, const matrix_right_t& B_, matrix_out_t& C_ ) { // blas needs non-const data matrix_left_t* AA = new matrix_left_t( A_ ); matrix_right_t* BB = new matrix_right_t( B_ ); C_.zero(); p.a = AA->array; p.b = BB->array; p.c = C_.array; blas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug delete AA; delete BB; return true; } template< size_t M, size_t K, size_t N, typename float_t > template< size_t I2, size_t I3 > bool blas_dgemm< M, K, N, float_t >::compute( const tensor3< M, I2, I3, float_t >& A_, const matrix_right_t& B_, matrix_out_t& C_ ) { // blas needs non-const data tensor3< M, I2, I3, float_t > AA( A_ ); matrix_right_t* BB = new matrix_right_t( B_ ); C_.zero(); p.a = AA.get_array_ptr(); p.b = BB->array; p.c = C_.array; blas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug delete BB; return true; } template< size_t M, size_t K, size_t N, typename float_t > bool blas_dgemm< M, K, N, float_t >::compute( const matrix_left_t& A_, matrix_out_t& C_ ) { // blas needs non-const data matrix_left_t* AA = new matrix_left_t( A_ ); C_.zero(); p.trans_b = CblasTrans; p.a = AA->array; p.b = AA->array; p.ldb = N; p.c = C_.array; blas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug delete AA; return true; } template< size_t M, size_t K, size_t N, typename float_t > template< size_t I2, size_t I3 > bool blas_dgemm< M, K, N, float_t >::compute( const tensor3< M, I2, I3, float_t >& A_, matrix_out_t& C_ ) { // blas needs non-const data tensor3< M, I2, I3, float_t > AA( A_ ) ; C_.zero(); p.trans_b = CblasTrans; p.a = AA.get_array_ptr(); p.b = AA.get_array_ptr(); p.ldb = N; p.c = C_.array; blas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug return true; } template< size_t M, size_t K, size_t N, typename float_t > bool blas_dgemm< M, K, N, float_t >::compute_t( const matrix_right_t& B_, matrix_out_t& C_ ) { // blas needs non-const data matrix_right_t* BB = new matrix_right_t( B_ ); C_.zero(); p.trans_a = CblasTrans; p.a = BB->array; p.b = BB->array; p.lda = K; p.c = C_.array; blas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug delete BB; return true; } template< size_t M, size_t K, size_t N, typename float_t > bool blas_dgemm< M, K, N, float_t >::compute_bt( const matrix_left_t& A_, const matrix_right_t_t& Bt_, matrix_out_t& C_ ) { // blas needs non-const data matrix_left_t* AA = new matrix_left_t( A_ ); matrix_right_t_t* BB = new matrix_right_t_t( Bt_ ); C_.zero(); p.trans_b = CblasTrans; p.a = AA->array; p.b = BB->array; p.c = C_.array; p.ldb = N; blas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug delete AA; delete BB; return true; } template< size_t M, size_t K, size_t N, typename float_t > bool blas_dgemm< M, K, N, float_t >::compute_t( const matrix_left_t_t& At_, const matrix_right_t_t& Bt_, matrix_out_t& C_ ) { // blas needs non-const data matrix_left_t_t* AA = new matrix_left_t_t( At_ ); matrix_right_t_t* BB = new matrix_right_t_t( Bt_ ); C_.zero(); p.trans_a = CblasTrans; p.trans_b = CblasTrans; p.a = AA->array; p.b = BB->array; p.c = C_.array; p.ldb = N; p.lda = K; blas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug delete AA; delete BB; return true; } template< size_t M, size_t K, size_t N, typename float_t > bool blas_dgemm< M, K, N, float_t >::compute_vv_outer( const vector_left_t& A_, const vector_right_t& B_, matrix_out_t& C_ ) { // blas needs non-const data vector_left_t* AA = new vector_left_t( A_ ); vector_right_t* BB = new vector_right_t( B_ ); C_.zero(); p.trans_a = CblasTrans; p.a = AA->array; p.b = BB->array; p.c = C_.array; p.lda = K; blas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug delete AA; delete BB; return true; } } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/blas_dot.hpp0000644000076500000240000000627311770276417017044 0ustar eilestaff#ifndef __VMML__VMMLIB_BLAS_DOT__HPP__ #define __VMML__VMMLIB_BLAS_DOT__HPP__ #include #include #include #include /** * * a wrapper for blas's DOT routine. * REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) * .. Scalar Arguments .. * INTEGER INCX,INCY,N * * .. Array Arguments .. * REAL SX(*),SY(*) * * * Purpose * ======= * * SDOT forms the dot product of two vectors. * uses unrolled loops for increments equal to one. * * * more information in: http://netlib.org/blas/sdot.f ** */ namespace vmml { namespace blas { #if 0 /* Subroutine */ float cblas_sdot( const int N, const float *X, const int incX, const float *Y, const int incY ); double cblas_ddot( const int N, const double *X, const int incX, const double *Y, const int incY ); #endif template< typename float_t > struct dot_params { blas_int n; float_t* x; blas_int inc_x; float_t* y; blas_int inc_y; friend std::ostream& operator << ( std::ostream& os, const dot_params< float_t >& p ) { os << " (1)\tn " << p.n << std::endl << " (2)\tx " << p.x << std::endl << " (3)\tincX " << p.inc_x << std::endl << " (4)\ty " << p.y << std::endl << " (5)\tincY " << p.inc_y << std::endl << std::endl; return os; } }; template< typename float_t > inline float_t dot_call( dot_params< float_t >& p ) { VMMLIB_ERROR( "not implemented for this type.", VMMLIB_HERE ); } template<> inline float dot_call( dot_params< float >& p ) { //std::cout << "calling blas sdot (single precision) " << std::endl; float vvi = cblas_sdot( p.n, p.x, p.inc_x, p.y, p.inc_y ); return vvi; } template<> inline double dot_call( dot_params< double >& p ) { //std::cout << "calling blas ddot (double precision) " << std::endl; double vvi = cblas_ddot( p.n, p.x, p.inc_x, p.y, p.inc_y ); return vvi; } } // namespace blas template< size_t M, typename float_t > struct blas_dot { typedef vector< M, float_t > vector_t; blas_dot(); ~blas_dot() {}; bool compute( const vector_t& A_, const vector_t& B_, float_t& dot_prod_ ); blas::dot_params< float_t > p; const blas::dot_params< float_t >& get_params(){ return p; }; }; // struct blas_dot template< size_t M, typename float_t > blas_dot< M, float_t >::blas_dot() { p.n = M; p.x = 0; p.inc_x = 1; p.y = 0; p.inc_y = 1; } template< size_t M, typename float_t > bool blas_dot< M, float_t >::compute( const vector_t& A_, const vector_t& B_, float_t& dot_prod_ ) { // blas needs non-const data vector_t* AA = new vector_t( A_ ); vector_t* BB = new vector_t( B_ ); p.x = AA->array; p.y = BB->array; dot_prod_ = blas::dot_call< float_t >( p ); //std::cout << dot_prod_ << std::endl; //debug delete AA; delete BB; return true; } } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/blas_includes.hpp0000644000076500000240000000033611770276417020056 0ustar eilestaff#ifndef __VMML__BLAS_INCLUDES__HPP__ #define __VMML__BLAS_INCLUDES__HPP__ #ifdef __APPLE__ #include #else extern "C" { #include } #endif #endif /* __VMML__BLAS_INCLUDES__HPP__ */ vmmlib-1.3.5/include/vmmlib/blas_types.hpp0000644000076500000240000000040711770276417017413 0ustar eilestaff#ifndef __VMML__BLAS_TYPES__HPP__ #define __VMML__BLAS_TYPES__HPP__ namespace vmml { namespace blas { #ifdef __APPLE__ typedef int blas_int; #else typedef int blas_int; #endif } // namespace blas } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/cp3_tensor.hpp0000644000076500000240000002101311770276417017321 0ustar eilestaff/* * VMMLib - Tensor Classes * * @author Susanne Suter * @author Jonas Boesch * * The cp3 tensor class is consists of three basis matrices u1-u3 and R lambda values for a given rank-R approximation * CP stands for Candecomp/Parafac (1970) * - Carroll & Chang, 1970: Analysis of Individual Differences in Multidimensional Scaling via an N-way generalization of ``Eckart--Young'' decompositions, Psychometrika. * - Harshman, 1970: Foundations of the PARAFAC procedure: Models and conditions for an 'explanatory' multi-modal factor analysis,UCLA Working Papers in Phonetics. * - De Lathauwer, De Moor, Vandewalle, 2000: A multilinear singular value decomposition, SIAM J. Matrix Anal. Appl. * - Kolda & Bader, 2009: Tensor Decompositions and Applications, SIAM Review. * */ #ifndef __VMML__CP3_TENSOR__HPP__ #define __VMML__CP3_TENSOR__HPP__ #include #include #include namespace vmml { template< size_t R, size_t I1, size_t I2, size_t I3, typename T_value = float, typename T_coeff = float > class cp3_tensor { public: typedef float T_internal; typedef tensor3< I1, I2, I3, T_value > t3_type; typedef typename t3_type::iterator t3_iterator; typedef typename t3_type::const_iterator t3_const_iterator; typedef tensor3< I1, I2, I3, T_internal > t3_comp_type; typedef tensor3< I1, I2, I3, T_coeff > t3_coeff_type; typedef typename t3_coeff_type::iterator t3_coeff_iterator; typedef typename t3_coeff_type::const_iterator t3_coeff_const_iterator; typedef matrix< I1, R, T_coeff > u1_type; typedef typename u1_type::iterator u1_iterator; typedef typename u1_type::const_iterator u1_const_iterator; typedef matrix< I2, R, T_coeff > u2_type; typedef typename u2_type::iterator u2_iterator; typedef typename u2_type::const_iterator u2_const_iterator; typedef matrix< I3, R, T_coeff > u3_type; typedef typename u3_type::iterator u3_iterator; typedef typename u3_type::const_iterator u3_const_iterator; typedef matrix< I1, R, T_internal > u1_comp_type; typedef matrix< I2, R, T_internal > u2_comp_type; typedef matrix< I3, R, T_internal > u3_comp_type; typedef vector< R, T_internal > lambda_comp_type; typedef vector< R, T_coeff > lambda_type; cp3_tensor( u1_type& U1, u2_type& U2, u3_type& U3, lambda_type& lambdas_ ); cp3_tensor(); ~cp3_tensor(); void get_lambdas( lambda_type& data_ ) const { data_ = *_lambdas; } ; void get_u1( u1_type& U1 ) const { U1 = *_u1; } ; void get_u2( u2_type& U2 ) const { U2 = *_u2; } ; void get_u3( u3_type& U3 ) const { U3 = *_u3; } ; void set_core( const lambda_type& lambdas_ ) { _lambdas = lambda_type( lambdas_ ); _lambdas_comp.cast_from( _lambdas ); } ; void set_u1( u1_type& U1 ) { *_u1 = U1; _u1_comp->cast_from( U1 ); } ; void set_u2( u2_type& U2 ) { *_u2 = U2; _u1_comp->cast_from( U2 ); } ; void set_u3( u3_type& U3 ) { *_u3 = U3; _u1_comp->cast_from( U3 ); } ; void set_lambda_comp( lambda_comp_type& lambdas_ ) { _lambdas_comp = lambda_comp_type( lambdas_ ); _lambdas.cast_from( _lambdas_comp ); } ; void set_u1_comp( u1_comp_type& U1 ) { *_u1_comp = U1; _u1->cast_from( U1 ); } ; void set_u2_comp( u2_comp_type& U2 ) { *_u2_comp = U2; _u1->cast_from( U2 ); } ; void set_u3_comp( u3_comp_type& U3 ) { *_u3_comp = U3; _u1->cast_from( U3 ); } ; void get_lambda_comp( lambda_comp_type& data_ ) const { data_ = _lambdas_comp; } ; void get_u1_comp( u1_comp_type& U1 ) const { U1 = *_u1_comp; } ; void get_u2_comp( u2_comp_type& U2 ) const { U2 = *_u2_comp; } ; void get_u3_comp( u3_comp_type& U3 ) const { U3 = *_u3_comp; } ; void export_to( std::vector< T_coeff >& data_ ) const; void import_from( std::vector< T_coeff >& data_ ); void reconstruct( t3_type& data_ ) const; template< typename T_init > void decompose( const t3_type& data_, T_init init, const size_t max_iterations_ = 100 ); template< typename T_init > void cp_als( const t3_type& data_, T_init init, const size_t max_iterations_ = 100 ); size_t nnz() const; protected: cp3_tensor( const cp3_tensor< R, I1, I1, I1, T_value, T_coeff >& other ) {}; cp3_tensor< R, I1, I1, I1, T_value, T_coeff > operator=( const cp3_tensor< R, I1, I1, I1, T_value, T_coeff >& other ) { return *this; }; void cast_members(); void cast_comp_members(); private: lambda_type* _lambdas ; u1_type* _u1 ; u2_type* _u2 ; u3_type* _u3 ; lambda_comp_type* _lambdas_comp ; u1_comp_type* _u1_comp ; u2_comp_type* _u2_comp ; u3_comp_type* _u3_comp ; }; // class cp3_tensor #define VMML_TEMPLATE_STRING template< size_t R, size_t I1, size_t I2, size_t I3, typename T_value, typename T_coeff > #define VMML_TEMPLATE_CLASSNAME cp3_tensor< R, I1, I2, I3, T_value, T_coeff > VMML_TEMPLATE_STRING VMML_TEMPLATE_CLASSNAME::cp3_tensor( u1_type& U1, u2_type& U2, u3_type& U3, lambda_type& lambdas_ ) { set_lambdas(lambdas_); set_u1( U1); set_u2( U2); set_u3( U3); } VMML_TEMPLATE_STRING VMML_TEMPLATE_CLASSNAME::cp3_tensor() { _lambdas = new vector< R, T_coeff>(); _lambdas->set( 0 ); _u1 = new u1_type(); _u1->zero(); _u2 = new u2_type(); _u2->zero(); _u3 = new u3_type(); _u3->zero(); _lambdas_comp = new vector< R, T_internal>; _lambdas_comp->set( 0 ); _u1_comp = new u1_comp_type; _u1_comp->zero(); _u2_comp = new u2_comp_type; _u2_comp->zero(); _u3_comp = new u3_comp_type; _u3_comp->zero(); } VMML_TEMPLATE_STRING VMML_TEMPLATE_CLASSNAME::~cp3_tensor() { delete _u1; delete _u2; delete _u3; delete _lambdas; delete _u1_comp; delete _u2_comp; delete _u3_comp; delete _lambdas_comp; } VMML_TEMPLATE_STRING void VMML_TEMPLATE_CLASSNAME::cast_members() { _u1->cast_from( *_u1_comp ); _u2->cast_from( *_u2_comp ); _u3->cast_from( *_u3_comp ); _lambdas->cast_from( *_lambdas_comp ); } VMML_TEMPLATE_STRING void VMML_TEMPLATE_CLASSNAME::cast_comp_members() { _u1_comp->cast_from( *_u1 ); _u2_comp->cast_from( *_u2 ); _u3_comp->cast_from( *_u3 ); _lambdas_comp->cast_from( _lambdas ); } VMML_TEMPLATE_STRING void VMML_TEMPLATE_CLASSNAME::reconstruct( t3_type& data_ ) const { //FIXME: check data types t3_comp_type data; data.cast_from( data_ ); typedef t3_hopm< R, I1, I2, I3, T_internal > hopm_type; hopm_type::reconstruct( data, *_u1_comp, *_u2_comp, *_u3_comp, *_lambdas_comp ); //convert reconstructed data, which is in type T_internal (double, float) to T_value (uint8 or uint16) if( (sizeof(T_value) == 1) || (sizeof(T_value) == 2) ){ data_.float_t_to_uint_t( data ); } else { data_.cast_from( data ); } } VMML_TEMPLATE_STRING template< typename T_init > void VMML_TEMPLATE_CLASSNAME::decompose( const t3_type& data_, T_init init, const size_t max_iterations_ ) { cp_als( data_, init, max_iterations_ ); } VMML_TEMPLATE_STRING template< typename T_init > void VMML_TEMPLATE_CLASSNAME::cp_als( const t3_type& data_, T_init init, const size_t max_iterations_ ) { t3_comp_type data; data.cast_from( data_ ); typedef t3_hopm< R, I1, I2, I3, T_internal > hopm_type; hopm_type::als( data, *_u1_comp, *_u2_comp, *_u3_comp, *_lambdas_comp, init, max_iterations_ ); cast_members(); } VMML_TEMPLATE_STRING void VMML_TEMPLATE_CLASSNAME::export_to( std::vector< T_coeff >& data_ ) const { u1_const_iterator it = _u1.begin(), it_end = _u1.end(); for( ; it != it_end; ++it ) { data_.push_back( *it ); } u2_const_iterator u2_it = _u2.begin(), u2_it_end = _u2.end(); for( ; u2_it != u2_it_end; ++u2_it ) { data_.push_back( *u2_it ); } u3_const_iterator u3_it = _u3.begin(), u3_it_end = _u3.end(); for( ; u3_it != u3_it_end; ++u3_it ) { data_.push_back( *u3_it ); } //TODO: iterate over lambdas } VMML_TEMPLATE_STRING void VMML_TEMPLATE_CLASSNAME::import_from( std::vector< T_coeff >& data_ ) { size_t i = 0; //iterator over data_ u1_iterator it = _u1.begin(), it_end = _u1.end(); for( ; it != it_end; ++it, ++i ) { *it = data_.at(i); } u2_iterator u2_it = _u2.begin(), u2_it_end = _u2.end(); for( ; u2_it != u2_it_end; ++u2_it, ++i ) { *u2_it = data_.at(i); } u3_iterator u3_it = _u3.begin(), u3_it_end = _u3.end(); for( ; u3_it != u3_it_end; ++u3_it, ++i ) { *u3_it = data_.at(i); } //TODO: import lambdas } VMML_TEMPLATE_STRING size_t VMML_TEMPLATE_CLASSNAME::nnz() const { size_t counter = 0; counter += _u1_comp->nnz(); counter += _u2_comp->nnz(); counter += _u3_comp->nnz(); counter += _lambdas_comp->nnz(); return counter; } #undef VMML_TEMPLATE_STRING #undef VMML_TEMPLATE_CLASSNAME } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/cublas_dgemm.cu0000644000076500000240000002254511770276417017517 0ustar eilestaff#ifndef __VMML__VMMLIB_CUBLAS_DGEMM__HPP__ #define __VMML__VMMLIB_CUBLAS_DGEMM__HPP__ #include #include #include #include /** * * a wrapper for CUBLAS DGEMM routine. cublasStatus_t cublasDgemm( cublasHandle_t handle, cublasOperation_t transa, cublasOperation_t transb, int m, int n, int k, const double const double const double const double double *alpha, *A, int lda, *B, int ldb, *beta, *C, int ldc ) * * Purpose * ======= * * CUBLAS DGEMM is a CUDA implementation of the level3 BLAS DGEMM implementation * performs one of the matrix-matrix operations * * C := alpha*op( A )*op( B ) + beta*C, * * where op( X ) is one of * * op( X ) = X or op( X ) = X**T, * * alpha and beta are scalars, and A, B and C are matrices, with op( A ) * an m by k matrix, op( B ) a k by n matrix and C an m by n matrix. * * * more information in: http://www.netlib.org/blas/dgemm.f * or http://www.netlib.org/clapack/cblas/dgemm.c ** */ namespace vmml { namespace cublas { #if 0 /* CUBLAS DGEMM Subroutine */ cublasStatus_t cublasDgemm( cublasHandle_t handle, cublasOperation_t transa, cublasOperation_t transb, int m, int n, int k, const double *alpha, const double *A, int lda, const double *B, int ldb, const *beta, double *C, int ldc ) /* DGEMM Subroutine */ void cblas_dgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, blasint M, blasint N, blasint K, double alpha, double *A, blasint lda, double *B, blasint ldb, double beta, double *C, blasint ldc); #endif template< typename float_t > struct dgemm_params { //FIXME maybe add const cublasHandle_t handle; cublasOperation_t trans_a; cublasOperation_t trans_b; cublas_int m; cublas_int n; cublas_int k; float_t alpha; float_t* h_a; //host float_t* d_a; //device cublas_int lda; //leading dimension of input array matrix left float_t* h_b; float_t* d_b; cublas_int ldb; //leading dimension of input array matrix right float_t beta; float_t* h_c; float_t* d_c; cublas_int ldc; //leading dimension of output array matrix right friend std::ostream& operator << ( std::ostream& os, const dgemm_params< float_t >& p ) { os << " (1)\thandle " << p.handle << std::endl << " (2)\ttrans_a " << p.trans_a << std::endl << " (3)\ttrans_b " << p.trans_b << std::endl << " (4)\tm " << p.m << std::endl << " (6)\tn " << p.n << std::endl << " (5)\tk " << p.k << std::endl << " (7)\talpha " << p.alpha << std::endl << " (8)\th_a " << p.h_a << std::endl << " (9)\tlda " << p.lda << std::endl << " (10)\th_b " << p.h_b << std::endl << " (11)\tldb " << p.ldb << std::endl << " (12)\tbeta " << p.beta << std::endl << " (13)\th_c " << p.h_c << std::endl << " (14)\tldc " << p.ldc << std::endl << std::endl; return os; } }; template< typename float_t > inline void dgemm_call( dgemm_params< float_t >& p ) { VMMLIB_ERROR( "not implemented for this type.", VMMLIB_HERE ); } template<> inline void dgemm_call( dgemm_params< float >& p ) { //std::cout << "calling cublas sgemm (single precision) " << std::endl; cublasStatus_t stat = cublasSgemm( p.handle, p.trans_a, p.trans_b, p.m, p.n, p.k, &p.alpha, p.d_a, p.lda, p.d_b, p.ldb, &p.beta, p.d_c, p.ldc ); } template<> inline void dgemm_call( dgemm_params< double >& p ) { //std::cout << "calling cublas dgemm (double precision) " << std::endl; cublasStatus_t stat = cublasDgemm( p.handle, p.trans_a, p.trans_b, p.m, p.n, p.k, &p.alpha, p.d_a, p.lda, p.d_b, p.ldb, &p.beta, p.d_c, p.ldc ); } } // namespace cublas template< size_t M, size_t K, size_t N, typename float_t > struct cublas_dgemm { typedef matrix< M, K, float_t > matrix_left_t; typedef matrix< K, M, float_t > matrix_left_t_t; typedef matrix< K, N, float_t > matrix_right_t; typedef matrix< N, K, float_t > matrix_right_t_t; typedef matrix< M, N, float_t > matrix_out_t; typedef vector< M, float_t > vector_left_t; typedef vector< N, float_t > vector_right_t; cublas_dgemm(); ~cublas_dgemm(); bool compute( const matrix_left_t& A_, const matrix_right_t& B_, matrix_out_t& C_ ); bool compute( const matrix_left_t& A_, matrix_out_t& C_ ); cublas::dgemm_params< float_t > p; const cublas::dgemm_params< float_t >& get_params(){ return p; }; }; // struct cublas_dgemm template< size_t M, size_t K, size_t N, typename float_t > cublas_dgemm< M, K, N, float_t >::cublas_dgemm() { cublasStatus_t cstat = cublasCreate( &p.handle ); if ( cstat > 0 ) { printf( "cublasCreate: status error=%d\n", cstat ); } p.trans_a = CUBLAS_OP_N; p.trans_b = CUBLAS_OP_N; p.m = M; p.n = N; p.k = K; p.alpha = 1.0f; p.h_a = 0; p.d_a = 0; p.lda = M; p.h_b = 0; p.d_b = 0; p.ldb = K; //no transpose, use N for transpose p.beta = 0.0; p.h_c = 0; p.d_c = 0; p.ldc = M; } template< size_t M, size_t K, size_t N, typename float_t > cublas_dgemm< M, K, N, float_t >::~cublas_dgemm() { /*cublasStatus_t cuerr = cublasDestroy( p.handle ); if ( cuerr > 0 ) { printf( "cudaMemcpy: cublas error=%d\n", cuerr ); }*/ } template< size_t M, size_t K, size_t N, typename float_t > bool cublas_dgemm< M, K, N, float_t >::compute( const matrix_left_t& A_, const matrix_right_t& B_, matrix_out_t& C_ ) { // cublas needs non-const data matrix_left_t* AA = new matrix_left_t( A_ ); matrix_right_t* BB = new matrix_right_t( B_ ); C_.zero(); p.h_a = AA->array; p.h_b = BB->array; p.h_c = C_.array; // memory sizes of matrices size_t mem_size_A = sizeof(float_t) * M * K; size_t mem_size_B = sizeof(float_t) * K * N; size_t mem_size_C = sizeof(float_t) * M * N; // allocate device memory cudaError_t cuerr = cudaMalloc( (void**) &p.d_a, mem_size_A ); if ( cuerr > 0 ) { printf( "cudaMalloc: cublas error=%d\n", cuerr ); } cuerr = cudaMalloc( (void**) &p.d_b, mem_size_B ); if ( cuerr > 0 ) { printf( "cudaMalloc: cublas error=%d\n", cuerr ); } cuerr = cudaMalloc( (void**) &p.d_c, mem_size_C ); if ( cuerr > 0 ) { printf( "cudaMalloc: cublas error=%d\n", cuerr ); } // copy host memory to device cuerr = cudaMemcpy( p.d_a, p.h_a, mem_size_A, cudaMemcpyHostToDevice); if ( cuerr > 0 ) { printf( "cudaMemcpy: cublas error=%d\n", cuerr ); } cuerr = cudaMemcpy( p.d_b, p.h_b, mem_size_B, cudaMemcpyHostToDevice); if ( cuerr > 0 ) { printf( "cudaMemcpy: cublas error=%d\n", cuerr ); } // call CUBLAS V2 cublas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug cudaDeviceSynchronize(); // copy result from device to host cuerr = cudaMemcpy( p.h_c, p.d_c, mem_size_C, cudaMemcpyDeviceToHost); if ( cuerr > 0 ) { printf( "cudaMemcpy: cublas error=%d\n", cuerr ); } // clean up memory cudaFree( p.d_a ); cudaFree( p.d_b ); cudaFree( p.d_c ); cudaDeviceReset(); delete AA; delete BB; return true; } template< size_t M, size_t K, size_t N, typename float_t > bool cublas_dgemm< M, K, N, float_t >::compute( const matrix_left_t& A_, matrix_out_t& C_ ) { // cublas needs non-const data matrix_left_t* AA = new matrix_left_t( A_ ); C_.zero(); p.h_a = AA->array; p.h_b = AA->array; p.h_c = C_.array; p.trans_b = CUBLAS_OP_T; p.ldb = N; // memory sizes of matrices size_t mem_size_A = sizeof(float_t) * M * K; size_t mem_size_B = sizeof(float_t) * K * N; size_t mem_size_C = sizeof(float_t) * M * N; // allocate device memory cudaError_t cuerr = cudaMalloc( (void**) &p.d_a, mem_size_A ); if ( cuerr > 0 ) { printf( "cudaMalloc: cublas error=%d\n", cuerr ); } cuerr = cudaMalloc( (void**) &p.d_b, mem_size_B ); if ( cuerr > 0 ) { printf( "cudaMalloc: cublas error=%d\n", cuerr ); } cuerr = cudaMalloc( (void**) &p.d_c, mem_size_C ); if ( cuerr > 0 ) { printf( "cudaMalloc: cublas error=%d\n", cuerr ); } // copy host memory to device cuerr = cudaMemcpy( p.d_a, p.h_a, mem_size_A, cudaMemcpyHostToDevice); if ( cuerr > 0 ) { printf( "cudaMemcpy: cublas error=%d\n", cuerr ); } cuerr = cudaMemcpy( p.d_b, p.h_b, mem_size_B, cudaMemcpyHostToDevice); if ( cuerr > 0 ) { printf( "cudaMemcpy: cublas error=%d\n", cuerr ); } // call CUBLAS V2 cublas::dgemm_call< float_t >( p ); //std::cout << p << std::endl; //debug cudaDeviceSynchronize(); // copy result from device to host cuerr = cudaMemcpy( p.h_c, p.d_c, mem_size_C, cudaMemcpyDeviceToHost); if ( cuerr > 0 ) { printf( "cudaMemcpy: cublas error=%d\n", cuerr ); } // clean up memory cudaFree( p.d_a ); cudaFree( p.d_b ); cudaFree( p.d_c ); cudaDeviceReset(); delete AA; return true; } } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/cublas_includes.hpp0000644000076500000240000000026211770276417020404 0ustar eilestaff#ifndef __VMML__CUBLAS_INCLUDES__HPP__ #define __VMML__CUBLAS_INCLUDES__HPP__ #include #include #endif /* __VMML__CUBLAS_INCLUDES__HPP__ */ vmmlib-1.3.5/include/vmmlib/cublas_types.hpp0000644000076500000240000000033211770276417017740 0ustar eilestaff#ifndef __VMML__CUBLAS_TYPES__HPP__ #define __VMML__CUBLAS_TYPES__HPP__ namespace vmml { namespace cublas { typedef int cublas_int; } // namespace cublas } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/enable_if.hpp0000644000076500000240000000070711770276417017155 0ustar eilestaff#ifndef __VMML__SFINAE__HPP__ #define __VMML__SFINAE__HPP__ #include /** * heavily inspired by boost::enable_if * http://www.boost.org, file: boost/utility/enable_if.hpp, * Copyright 2003 Jaakko Järvi, Jeremiah Willcock, Andrew Lumsdaine */ namespace vmml { template < bool condition, typename T = void > struct enable_if { typedef T type; }; template< typename T > struct enable_if< false, T > {}; } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/exception.hpp0000644000076500000240000000320511770276417017243 0ustar eilestaff#ifndef __VMMLIB__EXCEPTION__HPP__ #define __VMMLIB__EXCEPTION__HPP__ #include #include #include #include #include #include #define VMMLIB_HERE ( except_here( __FILE__, __LINE__ ) ) #ifdef VMMLIB_THROW_EXCEPTIONS #define VMMLIB_ERROR( desc, here ) throw( exception( desc, here ) ) #else #define VMMLIB_ERROR( desc, here ) error_noexcept( desc, here ) #endif namespace vmml { struct except_here { except_here( const char* file_, int line_ ) : file( file_ ), line( line_ ) {} const char* file; int line; }; // struct except_here inline void error_noexcept( const std::string& desc, const except_here& here ) { std::cerr << "vmmlib error at " << here.file << ":" << here.line << "\n" << desc << std::endl; assert( 0 ); } class exception : public std::exception { public: exception( const std::string& desc, const except_here& here ) : _description( desc ) , _here( here ) {} virtual ~exception() throw() {} virtual const char* what() const throw() { std::stringstream ss; ss << _here.file << "(" << _here.line << "): - " << _description << std::endl; return ss.str().c_str(); } protected: std::string _description; const except_here& _here; private: // disallow std ctor exception() : _here( *new except_here( "", 0 ) ){}; // disallow assignment operator virtual const exception& operator=( const exception& ){ return *this; } }; } // namespace stream_process #endif vmmlib-1.3.5/include/vmmlib/frustum.hpp0000644000076500000240000002247311770276417016762 0ustar eilestaff/* * VMMLib - Vector & Matrix Math Lib * * @author Stefan Eilemann * * @license revised BSD license, check LICENSE */ #ifndef __VMML__FRUSTUM__HPP__ #define __VMML__FRUSTUM__HPP__ #include #include #include // - declaration - namespace vmml { template< typename T > class frustum { public: VMMLIB_ALIGN( T array[6] ); // contructors frustum(); // warning: components NOT initialised ( for performance ) frustum( const T left, const T right, const T bottom, const T top, const T near_plane, const T far_plane ); template< typename U > frustum( const frustum< U >& source_ ); //the pointer 'values' must be a valid 6 component c array of the resp. type template< typename U > frustum( const U* values ); ~frustum(); const frustum& operator=( const frustum& source_ ); template< typename U > void operator=( const frustum< U >& source_ ); void set( const T _left, const T _right, const T _bottom, const T _top, const T _near, const T _far ); // set the frustum using the same parameters as gluPerspective. void set_perspective( T field_of_view_y, T aspect_ratio, T near_plane_, T far_plane ); matrix< 4, 4, T > compute_matrix() const; matrix< 4, 4, T > compute_ortho_matrix() const; void compute_matrix( matrix< 4, 4, T >& matrix_ ) const; void compute_ortho_matrix( matrix< 4, 4, T >& matrix_ ) const; void apply_jitter( const vector< 2, T >& jitter_ ); // 'move' the frustum. this function changes the near_plane, and adjusts the // other parameters in a way that the 'perspective pyramid' stays the same. void adjust_near( const T near_plane ); inline T& left(); inline const T& left() const; inline T& right(); inline const T& right() const; inline T& bottom(); inline const T& bottom() const; inline T& top(); inline const T& top() const; inline T& near_plane(); inline const T& near_plane() const; inline T& far_plane(); inline const T& far_plane() const; inline T get_width() const; inline T get_height() const; friend std::ostream& operator << ( std::ostream& os, const frustum& frustum_ ) { const std::ios::fmtflags flags = os.flags(); const int prec = os.precision(); os.setf( std::ios::right, std::ios::adjustfield ); os.precision( 5 ); os << "[" << std::setw(10) << frustum_.left() << " " << std::setw(10) << frustum_.right() << " " << std::setw(10) << frustum_.bottom() << " " << std::setw(10) << frustum_.top() << " " << std::setw(10) << frustum_.near_plane() << " " << std::setw(10) << frustum_.far_plane() << "]"; os.precision( prec ); os.setf( flags ); return os; }; static const frustum DEFAULT; }; #ifndef VMMLIB_NO_TYPEDEFS typedef frustum< float > frustumf; typedef frustum< double > frustumd; #endif } // namespace vmml // - implementation - // namespace vmml { template< typename T > const frustum< T > frustum< T >::DEFAULT( static_cast< T >( -1.0 ), static_cast< T >( 1.0 ), static_cast< T >( -1.0 ), static_cast< T >( 1.0 ), static_cast< T >( 0.1 ), static_cast< T >( 100.0 ) ); template < typename T > frustum< T >::frustum() {} template < typename T > frustum::frustum( const T _left, const T _right, const T _bottom, const T _top, const T _near, const T _far ) { set( _left, _right, _bottom, _top, _near, _far ); } template < typename T > template< typename U > frustum< T >::frustum( const frustum< U >& source_ ) { (*this) = source_; } template < typename T > template< typename U > frustum< T >::frustum( const U* values ) { assert( values && "frustum: Nullpointer argument as source for initialisation!" ); left() = static_cast< T > ( values[0] ); right() = static_cast< T > ( values[1] ); bottom() = static_cast< T > ( values[2] ); top() = static_cast< T > ( values[3] ); near_plane() = static_cast< T > ( values[4] ); far_plane() = static_cast< T > ( values[5] ); } template < typename T > frustum< T >::~frustum() {} template< typename T > const frustum< T >& frustum< T >::operator=( const frustum& source_ ) { memcpy( array, source_.array, 6 * sizeof( T ) ); return *this; } template< typename T > template< typename U > void frustum< T >::operator=( const frustum< U >& source_ ) { for( size_t index = 0; index < 6; ++index ) { array[ index ] = static_cast< T >( source_.array[ index ] ); } } template < typename T > void frustum< T >::set( const T _left, const T _right, const T _bottom, const T _top, const T _near, const T _far ) { left() = _left; right() = _right; bottom() = _bottom; top() = _top; near_plane() = _near; far_plane() = _far; } // 'move' the frustum. this function changes the near_plane, and adjusts the // other parameters in a way that the 'perspective pyramid' stays the same. template < typename T > void frustum::adjust_near( const T new_near ) { if( new_near == near_plane() ) return; const T ratio = new_near / near_plane(); right() *= ratio; left() *= ratio; top() *= ratio; bottom() *= ratio; near_plane() = new_near; } // set the frustum using the same parameters as gluPerspective. template < typename T > void frustum::set_perspective( T fov_y, T aspect_ratio, T near_plane_, T far_plane_ ) { near_plane() = near_plane_; far_plane() = far_plane_; top() = tan( 0.5 * fov_y * M_PI / 180.0 ) * 0.5; bottom() = - top(); left() = bottom() * aspect_ratio; right() = top() * aspect_ratio; } template < typename T > matrix< 4, 4, T > frustum::compute_matrix() const { matrix< 4, 4, T > matrix_; compute_matrix( matrix_ ); return matrix_; } template < typename T > void frustum::compute_matrix( matrix< 4, 4, T >& M ) const { M( 0,0 ) = 2.0 * near_plane() / ( right() - left() ); M( 0,1 ) = 0.0; M( 0,2 ) = ( right() + left() ) / ( right() - left() ); M( 0,3 ) = 0.0; M( 1,0 ) = 0.0; M( 1,1 ) = 2.0 * near_plane() / ( top() - bottom() ); M( 1,2 ) = ( top() + bottom() ) / ( top() - bottom() ); M( 1,3 ) = 0.0; M( 2,0 ) = 0.0; M( 2,1 ) = 0.0; // NOTE: Some glfrustum man pages say wrongly '(far + near) / (far - near)' M( 2,2 ) = -( far_plane() + near_plane() ) / ( far_plane() - near_plane() ); M( 2,3 ) = -2.0 * far_plane() * near_plane() / ( far_plane() - near_plane() ); M( 3,0 ) = 0.0; M( 3,1 ) = 0.0; M( 3,2 ) = -1.0; M( 3,3 ) = 0.0; } template < typename T > matrix< 4, 4, T > frustum< T >::compute_ortho_matrix() const { matrix< 4, 4, T > matrix_; compute_ortho_matrix( matrix_ ); return matrix_; } template < typename T > void frustum< T >::compute_ortho_matrix( matrix< 4, 4, T >& M ) const { M( 0,0 ) = 2.0 / ( right() - left() ); M( 0,1 ) = 0.0; M( 0,2 ) = 0.0; M( 0,3 ) = -( right() + left() ) / ( right() - left() ); M( 1,0 ) = 0.0; M( 1,1 ) = 2.0 / ( top() - bottom() ); M( 1,2 ) = 0.0f; M( 1,3 ) = -( top() + bottom() ) / ( top() - bottom() ); M( 2,0 ) = 0.0; M( 2,1 ) = 0.0; M( 2,2 ) = -2.0 / ( far_plane() - near_plane() ); M( 2,3 ) = -( far_plane() + near_plane() ) / ( far_plane() - near_plane() ); M( 3,0 ) = 0.0; M( 3,1 ) = 0.0; M( 3,2 ) = 0.0; M( 3,3 ) = 1.0f; } template < typename T > void frustum< T >::apply_jitter( const vector< 2, T >& jitter_ ) { left() = left() + jitter_.x(); right() = right() + jitter_.x(); bottom() = bottom() + jitter_.y(); top() = top() + jitter_.y(); } template< typename T > inline T& frustum< T >::left() { return array[ 0 ]; } template< typename T > inline const T& frustum< T >::left() const { return array[ 0 ]; } template< typename T > inline T& frustum< T >::right() { return array[ 1 ]; } template< typename T > inline const T& frustum< T >::right() const { return array[ 1 ]; } template< typename T > inline T& frustum< T >::bottom() { return array[ 2 ]; } template< typename T > inline const T& frustum< T >::bottom() const { return array[ 2 ]; } template< typename T > inline T& frustum< T >::top() { return array[ 3 ]; } template< typename T > inline const T& frustum< T >::top() const { return array[ 3 ]; } template< typename T > inline T& frustum< T >::near_plane() { return array[ 4 ]; } template< typename T > inline const T& frustum< T >::near_plane() const { return array[ 4 ]; } template< typename T > inline T& frustum< T >::far_plane() { return array[ 5 ]; } template< typename T > inline const T& frustum< T >::far_plane() const { return array[ 5 ]; } template< typename T > inline T frustum< T >::get_width() const { return fabs( right() - left( )); } template< typename T > inline T frustum< T >::get_height() const { return fabs( top() - bottom( )); } } //namespace vmml #endif vmmlib-1.3.5/include/vmmlib/frustum_culler.hpp0000644000076500000240000001132211770276417020317 0ustar eilestaff/* * VMMLib - Vector & Matrix Math Lib * * @author Stefan Eilemann * * @license revised BSD license, check LICENSE */ #ifndef __VMML__FRUSTUM_CULLER__HPP__ #define __VMML__FRUSTUM_CULLER__HPP__ #include #include #include // - declaration - namespace vmml { /** Helper class for OpenGL view frustum culling. */ template< class T > class frustum_culler { public: typedef vector< 3, T > vec3; typedef vector< 4, T > vec4; // contructors frustum_culler() {}// warning: components NOT initialised ( for performance ) ~frustum_culler(){} void setup( const matrix< 4, 4, T >& proj_modelview ); Visibility test_sphere( const vector< 4, T >& sphere ); private: inline void _normalize_plane( vector< 4, T >& plane ) const; vec4 _left_plane; vec4 _right_plane; vec4 _bottom_plane; vec4 _top_plane; vec4 _near_plane; vec4 _far_plane; }; // class frustum_culler #ifndef VMMLIB_NO_TYPEDEFS typedef frustum_culler< float > frustum_cullerf; typedef frustum_culler< double > frustum_cullerd; #endif } // namespace vmml // - implementation - // namespace vmml { /** * Setup the culler by extracting the frustum planes from the projection * matrix. The projection matrix should contain the viewing transformation. */ template < class T > void frustum_culler< T >::setup( const matrix< 4, 4, T >& proj_modelview ) { // See http://www2.ravensoft.com/users/ggribb/plane%20extraction.pdf pp.5 const vec4& row0 = proj_modelview.get_row( 0 ); const vec4& row1 = proj_modelview.get_row( 1 ); const vec4& row2 = proj_modelview.get_row( 2 ); const vec4& row3 = proj_modelview.get_row( 3 ); _left_plane = row3 + row0; _right_plane = row3 - row0; _bottom_plane = row3 + row1; _top_plane = row3 - row1; _near_plane = row3 + row2; _far_plane = row3 - row2; _normalize_plane( _left_plane ); _normalize_plane( _right_plane ); _normalize_plane( _bottom_plane ); _normalize_plane( _top_plane ); _normalize_plane( _near_plane ); _normalize_plane( _far_plane ); } template < class T > inline void frustum_culler< T >::_normalize_plane( vector< 4, T >& plane ) const { const vec3& v3 = plane.template get_sub_vector< 3 >(); const T len_i = 1.0 / v3.length(); plane.x() *= len_i; plane.y() *= len_i; plane.z() *= len_i; plane.w() *= len_i; } template < class T > Visibility frustum_culler< T >::test_sphere( const vector< 4, T >& sphere ) { Visibility visibility = VISIBILITY_FULL; // see http://www.flipcode.com/articles/article_frustumculling.shtml // distance = plane.normal . sphere.center + plane.distance // Test all planes: // - if sphere behind plane: not visible // - if sphere intersects one plane: partially visible // - else: fully visible T distance = _left_plane.x() * sphere.x() + _left_plane.y() * sphere.y() + _left_plane.z() * sphere.z() + _left_plane.w(); if( distance <= -sphere.w() ) return VISIBILITY_NONE; if( distance < sphere.w() ) visibility = VISIBILITY_PARTIAL; distance = _right_plane.x() * sphere.x() + _right_plane.y() * sphere.y() + _right_plane.z() * sphere.z() + _right_plane.w(); if( distance <= -sphere.w() ) return VISIBILITY_NONE; if( distance < sphere.w() ) visibility = VISIBILITY_PARTIAL; distance = _bottom_plane.x() * sphere.x() + _bottom_plane.y() * sphere.y() + _bottom_plane.z() * sphere.z() + _bottom_plane.w(); if( distance <= -sphere.w() ) return VISIBILITY_NONE; if( distance < sphere.w() ) visibility = VISIBILITY_PARTIAL; distance = _top_plane.x() * sphere.x() + _top_plane.y() * sphere.y() + _top_plane.z() * sphere.z() + _top_plane.w(); if( distance <= -sphere.w() ) return VISIBILITY_NONE; if( distance < sphere.w() ) visibility = VISIBILITY_PARTIAL; distance = _near_plane.x() * sphere.x() + _near_plane.y() * sphere.y() + _near_plane.z() * sphere.z() + _near_plane.w(); if( distance <= -sphere.w() ) return VISIBILITY_NONE; if( distance < sphere.w() ) visibility = VISIBILITY_PARTIAL; distance = _far_plane.x() * sphere.x() + _far_plane.y() * sphere.y() + _far_plane.z() * sphere.z() + _far_plane.w(); if( distance <= -sphere.w() ) return VISIBILITY_NONE; if( distance < sphere.w() ) visibility = VISIBILITY_PARTIAL; return visibility; } } // namespace vmml #endif // include protection vmmlib-1.3.5/include/vmmlib/jacobi_solver.hpp0000644000076500000240000001226711770276417020076 0ustar eilestaff/* * VMMLib - Vector & Matrix Math Lib * * @author Jonas Boesch * @author Stefan Eilemann * @author Renato Pajarola * @author Andrew Willmott ( VL ) * * @license revised BSD license, check LICENSE * * parts of the source code of VMMLib were inspired by David Eberly's * Wild Magic and Andrew Willmott's VL. * */ #ifndef __VMML__JACOBI_SOLVER__HPP__ #define __VMML__JACOBI_SOLVER__HPP__ #include #include #include namespace vmml { /* * This function computes the eigenvalues and eigenvectors of a 3x3 matrix. * * @param a matrix to be diagonalized. * @param d eigenvalues of A. * @param v matrix whose columns are the normalized eigenvectors of A. * @param rotationCount number of Jacobi rotations required. * @return true if the transformation has been done. False if not. * * * modified from numerical recipies for n=3 and float values * */ template < typename T > bool solve_jacobi_3x3( matrix< 3, 3, T >& a, vector< 3, T >& d, matrix< 3, 3, T >& v, size_t& rotationCount ) { identity( v ); vector< 3, T > b, z; for ( size_t i = 0; i < 3; ++i ) { b[i] = d[i] = a( i,i ); z[i] = 0.0; } T t, theta, s, c, tau; size_t rot = 0; for ( size_t i = 1; i <= 150; ++i ) { T sm = 0.0; for ( size_t ip = 0; ip < 2; ++ip ) // < n-1 { for ( size_t iq = ip + 1; iq < 3; ++iq ) // < n { sm += fabs( a( iq, ip ) ); } } if ( sm == 0.0 ) { rotationCount = rot; return true; } T tresh = ( i < 4 ) ? 0.2 * sm / 9.0 : 0.0; for ( ssize_t ip = 0; ip < 2; ++ip ) // ip < n - 1 { for ( ssize_t iq = ip + 1; iq < 3; ++iq ) { T g = 100.0 * fabs( a( iq,ip ) ); // this has to be fabs( x ) + g == fabs( x ) and NOT // g == 0.0 because of floating point evilness // ( inaccuracies when comparing (anyfloat) to 0.0 ) if ( i > 4 && fabs( d[ip] ) + g == fabs( d[ip] ) && fabs( d[iq] ) + g == fabs( d[iq] ) ) { a( iq, ip ) = 0.0; } else { if ( fabs( a( iq, iq ) ) > tresh ) { T h = d[iq] - d[ip]; if ( fabs( h ) + g == fabs( h ) ) { if ( h != 0.0 ) t = ( a( iq, ip ) ) / h; else t = 0.0; } else { if( a( iq, ip ) != 0.0 ) theta = 0.5 * h / ( a( iq, ip ) ); else theta = 0.0; t = 1.0 / ( fabs( theta ) + sqrt( 1.0 + theta * theta ) ); if ( theta < 0.0 ) t = -t; } c = 1.0 / sqrt( 1 + t * t ); s = t * c; tau = s / ( 1.0 + c ); h = t * a( iq, ip ); z[ip] -= h; z[iq] += h; d[ip] -= h; d[iq] += h; a( iq, ip ) = 0.0; for ( ssize_t j = 0; j <= ip - 1; ++j ) { g = a( ip, j ); h = a( iq, j ); a( ip, j ) = g - s * ( h + g * tau ); a( iq, j ) = h + s * ( g - h * tau ); } for ( ssize_t j = ip + 1; j <= iq - 1; ++j ) { g = a( j, ip ); h = a( iq, j ); a( j, ip ) = g - s * ( h + g * tau ); a( iq, j ) = h + s * ( g - h * tau ); } for ( size_t j = iq + 1; j < 3; ++j ) { g = a( j, ip ); h = a( j, iq ); a( j, ip ) = g - s * ( h + g * tau ); a( j, iq ) = h + s * ( g - h * tau ); } for ( size_t j = 0; j < 3; ++j ) { g = v( ip, j ); h = v( iq, j ); v( ip, j ) = g - s * ( h + g * tau ); v( iq, j ) = h + s * ( g - h * tau ); } ++rot; } } } } for ( size_t ip = 0; ip < 3; ++ip ) { b[ip] += z[ip]; d[ip] = b[ip]; z[ip] = 0.0; } } return false; } } // namespace vmml #endif vmmlib-1.3.5/include/vmmlib/lapack/0000755000076500000240000000000011770276416015766 5ustar eilestaffvmmlib-1.3.5/include/vmmlib/lapack/detail/0000755000076500000240000000000011770276416017230 5ustar eilestaffvmmlib-1.3.5/include/vmmlib/lapack/detail/clapack.h0000644000076500000240000123651711770276416021016 0ustar eilestaff/* header file for clapack 3.2.1 */ #ifndef __CLAPACK_H #define __CLAPACK_H #ifdef __cplusplus extern "C" { #endif /* Subroutine */ int caxpy_(integer *n, complex *ca, complex *cx, integer * incx, complex *cy, integer *incy); /* Subroutine */ int ccopy_(integer *n, complex *cx, integer *incx, complex * cy, integer *incy); /* Complex */ VOID cdotc_(complex * ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy); /* Complex */ VOID cdotu_(complex * ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy); /* Subroutine */ int cgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy); /* Subroutine */ int cgemm_(char *transa, char *transb, integer *m, integer * n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc); /* Subroutine */ int cgemv_(char *trans, integer *m, integer *n, complex * alpha, complex *a, integer *lda, complex *x, integer *incx, complex * beta, complex *y, integer *incy); /* Subroutine */ int cgerc_(integer *m, integer *n, complex *alpha, complex * x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); /* Subroutine */ int cgeru_(integer *m, integer *n, complex *alpha, complex * x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); /* Subroutine */ int chbmv_(char *uplo, integer *n, integer *k, complex * alpha, complex *a, integer *lda, complex *x, integer *incx, complex * beta, complex *y, integer *incy); /* Subroutine */ int chemm_(char *side, char *uplo, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc); /* Subroutine */ int chemv_(char *uplo, integer *n, complex *alpha, complex * a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy); /* Subroutine */ int cher_(char *uplo, integer *n, real *alpha, complex *x, integer *incx, complex *a, integer *lda); /* Subroutine */ int cher2_(char *uplo, integer *n, complex *alpha, complex * x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); /* Subroutine */ int cher2k_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, real *beta, complex *c__, integer *ldc); /* Subroutine */ int cherk_(char *uplo, char *trans, integer *n, integer *k, real *alpha, complex *a, integer *lda, real *beta, complex *c__, integer *ldc); /* Subroutine */ int chpmv_(char *uplo, integer *n, complex *alpha, complex * ap, complex *x, integer *incx, complex *beta, complex *y, integer * incy); /* Subroutine */ int chpr_(char *uplo, integer *n, real *alpha, complex *x, integer *incx, complex *ap); /* Subroutine */ int chpr2_(char *uplo, integer *n, complex *alpha, complex * x, integer *incx, complex *y, integer *incy, complex *ap); /* Subroutine */ int crotg_(complex *ca, complex *cb, real *c__, complex *s); /* Subroutine */ int cscal_(integer *n, complex *ca, complex *cx, integer * incx); /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex * cy, integer *incy, real *c__, real *s); /* Subroutine */ int csscal_(integer *n, real *sa, complex *cx, integer *incx); /* Subroutine */ int cswap_(integer *n, complex *cx, integer *incx, complex * cy, integer *incy); /* Subroutine */ int csymm_(char *side, char *uplo, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc); /* Subroutine */ int csyr2k_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c__, integer *ldc); /* Subroutine */ int csyrk_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *beta, complex *c__, integer *ldc); /* Subroutine */ int ctbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda, complex *x, integer *incx); /* Subroutine */ int ctbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda, complex *x, integer *incx); /* Subroutine */ int ctpmv_(char *uplo, char *trans, char *diag, integer *n, complex *ap, complex *x, integer *incx); /* Subroutine */ int ctpsv_(char *uplo, char *trans, char *diag, integer *n, complex *ap, complex *x, integer *incx); /* Subroutine */ int ctrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb); /* Subroutine */ int ctrmv_(char *uplo, char *trans, char *diag, integer *n, complex *a, integer *lda, complex *x, integer *incx); /* Subroutine */ int ctrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb); /* Subroutine */ int ctrsv_(char *uplo, char *trans, char *diag, integer *n, complex *a, integer *lda, complex *x, integer *incx); doublereal dasum_(integer *n, doublereal *dx, integer *incx); /* Subroutine */ int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy); doublereal dcabs1_(doublecomplex *z__); /* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); /* Subroutine */ int dgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); /* Subroutine */ int dgemm_(char *transa, char *transb, integer *m, integer * n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, integer *ldc); /* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal * alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); /* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *a, integer *lda); doublereal dnrm2_(integer *n, doublereal *x, integer *incx); /* Subroutine */ int drot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *c__, doublereal *s); /* Subroutine */ int drotg_(doublereal *da, doublereal *db, doublereal *c__, doublereal *s); /* Subroutine */ int drotm_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *dparam); /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal * dx1, doublereal *dy1, doublereal *dparam); /* Subroutine */ int dsbmv_(char *uplo, integer *n, integer *k, doublereal * alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); /* Subroutine */ int dscal_(integer *n, doublereal *da, doublereal *dx, integer *incx); doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer * incy); /* Subroutine */ int dspmv_(char *uplo, integer *n, doublereal *alpha, doublereal *ap, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); /* Subroutine */ int dspr_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *ap); /* Subroutine */ int dspr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *ap); /* Subroutine */ int dswap_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); /* Subroutine */ int dsymm_(char *side, char *uplo, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, integer *ldc); /* Subroutine */ int dsymv_(char *uplo, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); /* Subroutine */ int dsyr_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *a, integer *lda); /* Subroutine */ int dsyr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *a, integer *lda); /* Subroutine */ int dsyr2k_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, integer *ldc); /* Subroutine */ int dsyrk_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *beta, doublereal *c__, integer *ldc); /* Subroutine */ int dtbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx); /* Subroutine */ int dtbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx); /* Subroutine */ int dtpmv_(char *uplo, char *trans, char *diag, integer *n, doublereal *ap, doublereal *x, integer *incx); /* Subroutine */ int dtpsv_(char *uplo, char *trans, char *diag, integer *n, doublereal *ap, doublereal *x, integer *incx); /* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, integer * lda, doublereal *b, integer *ldb); /* Subroutine */ int dtrmv_(char *uplo, char *trans, char *diag, integer *n, doublereal *a, integer *lda, doublereal *x, integer *incx); /* Subroutine */ int dtrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, integer * lda, doublereal *b, integer *ldb); /* Subroutine */ int dtrsv_(char *uplo, char *trans, char *diag, integer *n, doublereal *a, integer *lda, doublereal *x, integer *incx); doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx); doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx); integer icamax_(integer *n, complex *cx, integer *incx); integer idamax_(integer *n, doublereal *dx, integer *incx); integer isamax_(integer *n, real *sx, integer *incx); integer izamax_(integer *n, doublecomplex *zx, integer *incx); logical lsame_(char *ca, char *cb); doublereal sasum_(integer *n, real *sx, integer *incx); /* Subroutine */ int saxpy_(integer *n, real *sa, real *sx, integer *incx, real *sy, integer *incy); doublereal scabs1_(complex *z__); doublereal scasum_(integer *n, complex *cx, integer *incx); doublereal scnrm2_(integer *n, complex *x, integer *incx); /* Subroutine */ int scopy_(integer *n, real *sx, integer *incx, real *sy, integer *incy); doublereal sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy); doublereal sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, integer *incy); /* Subroutine */ int sgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, real *alpha, real *a, integer *lda, real *x, integer * incx, real *beta, real *y, integer *incy); /* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer * n, integer *k, real *alpha, real *a, integer *lda, real *b, integer * ldb, real *beta, real *c__, integer *ldc); /* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy); /* Subroutine */ int sger_(integer *m, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *a, integer *lda); doublereal snrm2_(integer *n, real *x, integer *incx); /* Subroutine */ int srot_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *c__, real *s); /* Subroutine */ int srotg_(real *sa, real *sb, real *c__, real *s); /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *sparam); /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real *sparam); /* Subroutine */ int ssbmv_(char *uplo, integer *n, integer *k, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy); /* Subroutine */ int sscal_(integer *n, real *sa, real *sx, integer *incx); /* Subroutine */ int sspmv_(char *uplo, integer *n, real *alpha, real *ap, real *x, integer *incx, real *beta, real *y, integer *incy); /* Subroutine */ int sspr_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *ap); /* Subroutine */ int sspr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *ap); /* Subroutine */ int sswap_(integer *n, real *sx, integer *incx, real *sy, integer *incy); /* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c__, integer *ldc); /* Subroutine */ int ssymv_(char *uplo, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer * incy); /* Subroutine */ int ssyr_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *a, integer *lda); /* Subroutine */ int ssyr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *a, integer *lda); /* Subroutine */ int ssyr2k_(char *uplo, char *trans, integer *n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c__, integer *ldc); /* Subroutine */ int ssyrk_(char *uplo, char *trans, integer *n, integer *k, real *alpha, real *a, integer *lda, real *beta, real *c__, integer * ldc); /* Subroutine */ int stbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, real *a, integer *lda, real *x, integer *incx); /* Subroutine */ int stbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, real *a, integer *lda, real *x, integer *incx); /* Subroutine */ int stpmv_(char *uplo, char *trans, char *diag, integer *n, real *ap, real *x, integer *incx); /* Subroutine */ int stpsv_(char *uplo, char *trans, char *diag, integer *n, real *ap, real *x, integer *incx); /* Subroutine */ int strmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb); /* Subroutine */ int strmv_(char *uplo, char *trans, char *diag, integer *n, real *a, integer *lda, real *x, integer *incx); /* Subroutine */ int strsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb); /* Subroutine */ int strsv_(char *uplo, char *trans, char *diag, integer *n, real *a, integer *lda, real *x, integer *incx); /* Subroutine */ int xerbla_(char *srname, integer *info); /* Subroutine */ int xerbla_array__(char *srname_array__, integer * srname_len__, integer *info, ftnlen srname_array_len); /* Subroutine */ int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); /* Subroutine */ int zcopy_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); /* Double Complex */ VOID zdotc_(doublecomplex * ret_val, integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); /* Double Complex */ VOID zdotu_(doublecomplex * ret_val, integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s); /* Subroutine */ int zdscal_(integer *n, doublereal *da, doublecomplex *zx, integer *incx); /* Subroutine */ int zgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex * y, integer *incy); /* Subroutine */ int zgemm_(char *transa, char *transb, integer *m, integer * n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex * c__, integer *ldc); /* Subroutine */ int zgemv_(char *trans, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * x, integer *incx, doublecomplex *beta, doublecomplex *y, integer * incy); /* Subroutine */ int zgerc_(integer *m, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda); /* Subroutine */ int zgeru_(integer *m, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda); /* Subroutine */ int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer * incx, doublecomplex *beta, doublecomplex *y, integer *incy); /* Subroutine */ int zhemm_(char *side, char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * ldc); /* Subroutine */ int zhemv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy); /* Subroutine */ int zher_(char *uplo, integer *n, doublereal *alpha, doublecomplex *x, integer *incx, doublecomplex *a, integer *lda); /* Subroutine */ int zher2_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda); /* Subroutine */ int zher2k_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * b, integer *ldb, doublereal *beta, doublecomplex *c__, integer *ldc); /* Subroutine */ int zherk_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta, doublecomplex *c__, integer *ldc); /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex * beta, doublecomplex *y, integer *incy); /* Subroutine */ int zhpr_(char *uplo, integer *n, doublereal *alpha, doublecomplex *x, integer *incx, doublecomplex *ap); /* Subroutine */ int zhpr2_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *ap); /* Subroutine */ int zrotg_(doublecomplex *ca, doublecomplex *cb, doublereal * c__, doublecomplex *s); /* Subroutine */ int zscal_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx); /* Subroutine */ int zswap_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); /* Subroutine */ int zsymm_(char *side, char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * ldc); /* Subroutine */ int zsyr2k_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * ldc); /* Subroutine */ int zsyrk_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * beta, doublecomplex *c__, integer *ldc); /* Subroutine */ int ztbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); /* Subroutine */ int ztbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); /* Subroutine */ int ztpmv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *ap, doublecomplex *x, integer *incx); /* Subroutine */ int ztpsv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *ap, doublecomplex *x, integer *incx); /* Subroutine */ int ztrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb); /* Subroutine */ int ztrmv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); /* Subroutine */ int ztrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb); /* Subroutine */ int ztrsv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer * nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt, complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork, integer *info); /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *ldq, complex *pt, integer *ldpt, complex *c__, integer *ldc, complex *work, real *rwork, integer *info); /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, complex *work, real *rwork, integer *info); /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info); /* Subroutine */ int cgbequb_(integer *m, integer *n, integer *kl, integer * ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info); /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer * ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer * ldx, real *ferr, real *berr, complex *work, real *rwork, integer * info); /* Subroutine */ int cgbrfsx_(char *trans, char *equed, integer *n, integer * kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex * afb, integer *ldafb, integer *ipiv, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *params, complex *work, real *rwork, integer * info); /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer * nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer * ldb, integer *info); /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int cgbsvxx_(char *fact, char *trans, integer *n, integer * kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex * afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real * err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * params, complex *work, real *rwork, integer *info); /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info); /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info); /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *ldb, integer *info); /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *scale, integer *m, complex *v, integer *ldv, integer *info); /* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info); /* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *info); /* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *lwork, integer *info); /* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info); /* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info); /* Subroutine */ int cgeequb_(integer *m, integer *n, complex *a, integer * lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info); /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n, complex *a, integer *lda, integer *sdim, complex *w, complex *vs, integer *ldvs, complex *work, integer *lwork, real *rwork, logical * bwork, integer *info); /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char * sense, integer *n, complex *a, integer *lda, integer *sdim, complex * w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex * work, integer *lwork, real *rwork, logical *bwork, integer *info); /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *work, integer *lwork, real *rwork, integer * info); /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, complex *a, integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi, real *scale, real *abnrm, real *rconde, real *rcondv, complex *work, integer *lwork, real *rwork, integer *info); /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex * a, integer *lda, complex *b, integer *ldb, complex *alpha, complex * beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *lwork, real *rwork, integer *info); /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex * work, integer *lwork, real *rwork, integer *info); /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex * a, integer *lda, complex *tau, complex *work, integer *info); /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex * a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info); /* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info); /* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info); /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer * nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex * work, integer *lwork, integer *info); /* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, complex * a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer * iwork, integer *info); /* Subroutine */ int cgelss_(integer *m, integer *n, integer *nrhs, complex * a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer * info); /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex * a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, integer *rank, complex *work, real *rwork, integer *info); /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex * a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer * info); /* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info); /* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info); /* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda, integer *jpvt, complex *tau, complex *work, integer *lwork, real * rwork, integer *info); /* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda, integer *jpvt, complex *tau, complex *work, real *rwork, integer * info); /* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info); /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info); /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex * a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int cgerfsx_(char *trans, char *equed, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real * err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * params, complex *work, real *rwork, integer *info); /* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info); /* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info); /* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex * rhs, integer *ipiv, integer *jpiv, real *scale); /* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork, integer *info); /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer * lda, integer *ipiv, complex *b, integer *ldb, integer *info); /* Subroutine */ int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, complex *a, integer *lda, real *s, complex *u, integer *ldu, complex * vt, integer *ldvt, complex *work, integer *lwork, real *rwork, integer *info); /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int cgesvxx_(char *fact, char *trans, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *params, complex *work, real *rwork, integer * info); /* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer * ipiv, integer *jpiv, integer *info); /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda, integer *ipiv, integer *info); /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda, integer *ipiv, integer *info); /* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer * ipiv, complex *work, integer *lwork, integer *info); /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex * a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * info); /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *lscale, real *rscale, integer *m, complex *v, integer *ldv, integer *info); /* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real *rscale, real *work, integer *info); /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, complex *a, integer *lda, complex *b, integer * ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer * lwork, real *rwork, logical *bwork, integer *info); /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, char *sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *sdim, complex *alpha, complex *beta, complex * vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork, integer *liwork, logical *bwork, integer *info); /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex * work, integer *lwork, real *rwork, integer *info); /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vl, integer *ldvl, complex * vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real * rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork, logical *bwork, integer *info); /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a, integer *lda, complex *b, integer *ldb, complex *d__, complex *x, complex *y, complex *work, integer *lwork, integer *info); /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z__, integer *ldz, integer *info); /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, complex *d__, complex *x, complex *work, integer *lwork, integer *info); /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a, integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, complex *work, integer *lwork, integer *info); /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a, integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, complex *work, integer *lwork, integer *info); /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, complex *a, integer * lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, complex *work, real *rwork, integer *iwork, integer *info); /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, integer *iwork, real *rwork, complex *tau, complex *work, integer * info); /* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex * d__, complex *du, complex *du2, integer *ipiv, real *anorm, real * rcond, complex *work, integer *info); /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex * dl, complex *d__, complex *du, complex *dlf, complex *df, complex * duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex * x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex * d__, complex *du, complex *b, integer *ldb, integer *info); /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer * nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex * df, complex *duf, complex *du2, integer *ipiv, complex *b, integer * ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex * du, complex *du2, integer *ipiv, integer *info); /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex * dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex * b, integer *ldb, integer *info); /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *b, integer *ldb); /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info); /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer * iwork, integer *liwork, integer *info); /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer * m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *iwork, integer *ifail, integer *info); /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, complex *x, integer *ldx, complex *work, real *rwork, integer *info); /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info); /* Subroutine */ int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info); /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer * il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *iwork, integer * ifail, integer *info); /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *d__, real *e, complex *q, integer * ldq, complex *work, integer *info); /* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer * info); /* Subroutine */ int cheequb_(char *uplo, integer *n, complex *a, integer * lda, real *s, real *scond, real *amax, complex *work, integer *info); /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a, integer *lda, real *w, complex *work, integer *lwork, real *rwork, integer *info); /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a, integer *lda, real *w, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info); /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *il, integer * iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, integer *isuppz, complex *work, integer *lwork, real *rwork, integer * lrwork, integer *iwork, integer *liwork, integer *info); /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *il, integer * iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *iwork, integer * ifail, integer *info); /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex * a, integer *lda, complex *b, integer *ldb, integer *info); /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex * a, integer *lda, complex *b, integer *ldb, integer *info); /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer * n, complex *a, integer *lda, complex *b, integer *ldb, real *w, complex *work, integer *lwork, real *rwork, integer *info); /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer * n, complex *a, integer *lda, complex *b, integer *ldb, real *w, complex *work, integer *lwork, real *rwork, integer *lrwork, integer * iwork, integer *liwork, integer *info); /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer * m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *iwork, integer *ifail, integer *info); /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int cherfsx_(char *uplo, char *equed, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *params, complex *work, real *rwork, integer *info); /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info); /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, integer *lwork, real *rwork, integer *info); /* Subroutine */ int chesvxx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * nparams, real *params, complex *work, real *rwork, integer *info); /* Subroutine */ int chetd2_(char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, integer *info); /* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info); /* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, complex *work, integer *lwork, integer *info); /* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info); /* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info); /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * info); /* Subroutine */ int chfrk_(char *transr, char *uplo, char *trans, integer *n, integer *k, real *alpha, complex *a, integer *lda, real *beta, complex *c__); /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *t, integer *ldt, complex *alpha, complex *beta, complex *q, integer *ldq, complex *z__, integer *ldz, complex *work, integer *lwork, real * rwork, integer *info); /* Character */ VOID chla_transtype__(char *ret_val, ftnlen ret_val_len, integer *trans); /* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer * ipiv, real *anorm, real *rcond, complex *work, integer *info); /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info); /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info); /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n, complex *ap, real *vl, real *vu, integer *il, integer *iu, real * abstol, integer *m, real *w, complex *z__, integer *ldz, complex * work, real *rwork, integer *iwork, integer *ifail, integer *info); /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex * ap, complex *bp, integer *info); /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer * n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info); /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer * n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer * iwork, integer *liwork, integer *info); /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex * z__, integer *ldz, complex *work, real *rwork, integer *iwork, integer *ifail, integer *info); /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex * ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, integer *info); /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer * ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__, real *e, complex *tau, integer *info); /* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer * ipiv, integer *info); /* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer * ipiv, complex *work, integer *info); /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, integer *info); /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical * select, integer *n, complex *h__, integer *ldh, complex *w, complex * vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer * m, complex *work, real *rwork, integer *ifaill, integer *ifailr, integer *info); /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__, integer *ldz, complex *work, integer *lwork, integer *info); /* Subroutine */ int cla_gbamv__(integer *trans, integer *m, integer *n, integer *kl, integer *ku, real *alpha, complex *ab, integer *ldab, complex *x, integer *incx, real *beta, real *y, integer *incy); doublereal cla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, complex *afb, integer *ldafb, integer * ipiv, real *c__, logical *capply, integer *info, complex *work, real * rwork, ftnlen trans_len); doublereal cla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, complex *afb, integer *ldafb, integer * ipiv, complex *x, integer *info, complex *work, real *rwork, ftnlen trans_len); /* Subroutine */ int cla_gbrfsx_extended__(integer *prec_type__, integer * trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, integer * ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex * y, integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb, complex *dy, complex * y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info); doublereal cla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * ncols, complex *ab, integer *ldab, complex *afb, integer *ldafb); /* Subroutine */ int cla_geamv__(integer *trans, integer *m, integer *n, real *alpha, complex *a, integer *lda, complex *x, integer *incx, real * beta, real *y, integer *incy); doublereal cla_gercond_c__(char *trans, integer *n, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply, integer *info, complex *work, real *rwork, ftnlen trans_len); doublereal cla_gercond_x__(char *trans, integer *n, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info, complex *work, real *rwork, ftnlen trans_len); /* Subroutine */ int cla_gerfsx_extended__(integer *prec_type__, integer * trans_type__, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb, complex *dy, complex *y_tail__, real *rcond, integer * ithresh, real *rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info); /* Subroutine */ int cla_heamv__(integer *uplo, integer *n, real *alpha, complex *a, integer *lda, complex *x, integer *incx, real *beta, real *y, integer *incy); doublereal cla_hercond_c__(char *uplo, integer *n, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply, integer *info, complex *work, real *rwork, ftnlen uplo_len); doublereal cla_hercond_x__(char *uplo, integer *n, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info, complex *work, real *rwork, ftnlen uplo_len); /* Subroutine */ int cla_herfsx_extended__(integer *prec_type__, char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__, integer * n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb, complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real * r_ub__, logical *ignore_cwise__, integer *info)teger *n, complex *a, integer *lda, complex *tau, complex *work, integer *info); /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integafb, intr *info); /* Subroutine */ int cn, complex *a, lwork, integer *info); /* Swork, ftnlen uplo_len); doublereal cla_ ap, ineger *n, integer *nrhs, complex *a, integer lin_*dy, ger *info); /* Subroutizqu, real *c__, coe__, intecal *ignore_cwismplex *dy, *n, complex *a, inpoiv, real *c__, logical *capply, integer *info, complex *work, real *rwork, ftnlen uplo_lal cla_gbrcond_x__(char *trans, integer *nerrs_n__, reinteger *lda, complex *af, integer *ldaf, integer *poiv, remplex *x, integer *info, complex *work, real *rwork, ftnlen uplo_len); /* Subrout_gbrfsx_extended__(integer *prec_type__, iint chpevx_(chaeger *n, integer *nrhs, complex *a, integer poia, complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *y, integer *ldy, realnteger *n_norms__, real *errs_n__, real *errs_c__, cq, char *compzeal *ayb, complex *dy, complex * y_tail__, real *rcond, ik, inr *ithresh, real * r_ub__, logical *ignore_cwis_, integer q, char *comger *info); doublereal cla_gbrpvgrw__(integer *n, integer * co integer *info); /* Subroutine */ int cgeqrf_(inplex *af, integer *ldaf, integer *poiafb, intr *info); /* Subroutiteger *trans, inex *y_tail__, *info); /* Swork, ftnlen uplo_ll cla_ ap, plex *af, integer *ldaf, integer **afb, integer *ldafb); /* Subiteger *trans, inex *y_tail_work, ftnlen uplo_len); /* Subror *nrhs, complex *a, integer syreal *beta, real *y, integer *incy); doublereal cla_hercond_c__(char *uplo, integer *n, complex *a, integer *lda, complex *af, integer *ldaf, integer *syiv, real *c__, logical *capply, integer *info, complex *work, real *rwork, ftnlen uplo_len); doublereal cla_hercond_x__(char *uplo, integer *n, complex *a, integer *lda, complex *af, integer *ldaf, integer *syiv, remplex *x, integer *info, complex *work, real *rwork, ftnlen uplo_len); /* Subroutine */ int cla_herfsx_extended__(integer *prec_type__, char *uplo, integer *n, integer *nrhs, complex *a, integer syia, complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__, integer * n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb, complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real * r_ub__, logical *ignore_cwise__, integer *info)teger *n, complex *a, integer *lda, complex *tau, complex *work, integer *info); /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, insyiafb, intr *info); /* Subroutine */ int cn, complex *a, lwork, integer *info); /* Swork, ftnlen uplo_len); doublereal cla_ ap, ineger *n, integer *nrhs, complex *a, integer wwadd integer *ldafb)herfsx_extenplex *res, rplex *ree */r *nrhs, complex *a, integer*taup, complex *work, integork, intbomplex *a, lwork, integer *infint chetrf_(char *uplo, integer *norm, integer *nchar *jobz, char *uplo, integer *n, i, real *ayb, r *nrhs, complex *a, integercgvnteger *ldafb)herfsx_exten *n, complex r *nrhs, complex *a, integercnne */ int cgetf2_(integela_herfsx_exten(char *s*ldz, complex ka complex *vl,isavl *s, complex *u, integer *erctege*/ int cgetf2_(integela_herfsx_exten(char *s*ldz, complex ka c *s, complex *u, integer *ercp */ int chetrd_(char *up *y, integer *incy);, integer *lwork, integer *info); /* Subrou *s, complex *u, integer *ercpy*/ int chetrd_(char *up *y, integer *iplex *a, lwork, integer *info); /* Sfo); /* Subrou *s, complex *u, integer *ercrmup, complex *work, integomplex *work, real *rwork, fomplex *l *errs_c__, complex *rescnfo); /* Subrocar *uplo, i *s, complex *u, integer *ercrtge*/ int cgetf2_(integecger *n, complex *awise__, intcmplex *af, integomplex *rescnfo)plex *resreal *rcClex *reshpcon_(cladiegerlex *res complex herfsx_extenplex *res, *s, complex *u, integer *ered0ge*/ int cgqsiz*y, integer *incy);,etrf_(char *upchar *jobz,, integer *n, integer *p, qstSub integer *n, isar *uplo, into, integer *neger *kl, integer *ku, real *alpha, complex *abed7nteger *ldafb); /* Subcutpneger *ldvr, qsiz*y, real *anorlvlsb); /* Subcurl integer *ifacurpbm*incy);,etrf_wise__, intomplex *z__, integer rha, complex *qndx integer qstSub integer *nntopt *info); /*prmpt *info); /*peeal * rcond,givpt *info); /* givcoldz, compgivnuint chseqr_(char *job, char *compz, integ ap, integer *ipiv, complex *b, integer *ldb, abed8nteger *ldak*y, integer *ir *ldvr, qsiz*ywise__, intomplex *z__, integer etrf_(char rha, complex *cutpnege(char zmplex *ap, idlam*info); /* Sq2mplex *z__, 2, integer *complex *qndxp, integer *ipivdx, complex *qndx innfo); /*peeal * rcond,givpt *iinteger *ipgivcoldz, compgivnuintteger *ipiv, complex *b, integer *ldb, abe com*info); righvl, complex *no*ldv*y, integer *ichar *jobz,info); /* Subroutine */ int cla_gbamv__char *initv, lol *errs_c__, comjob, char *co(char *ps3co(char smlnuintteger *ipiv, complex *b, integer *ldb, abeger omplex *workr *initv, loplex *rescnfo)plex *resu, c1_ub__, logict2_ub__, logievworkloplex *rescs1_ub__, logisn1complex *b, integer *ldb, abev2r omplex *workr *initv, loplex *rescnfo)nteger *1 iint chpevt2, integecs1_ub__, logisn1complex *b, integer *ldb, abg2zup, complex *work, integomplex *wsnex *y_tail__, *snex complomplex *work, real *rwork,teger *ipiv, complex *b, integer *ldb, abtegercomplex *uppee*incy);, 1_ub__, logia2, integea3 iint chpeb1_ub__, logib2, integeb3, integecsu_ub__, logisnrms__, reasger *kd, comsnreal cla_hsq_ub__, logisnqcomplex *b, integer *ldb, abttmeger *ipiv, complex * b, integer *ldb, inex *tau,oublereal cla_gene */ int chbev_(char *jobz, char *uplo,xex *y_tail__, * *a, integer *lo); /* Sfo); /* Subrou *s, complex *u, integer *erhe_(char *uplo, integer *n, cork, intbomeger *ldaklse_(integer *mrk_(char *transr, char *uplo, char *transwk_(char *tranw, integer *ipiv, complex *b, integer *ldb, abhmplecomplex *wantt, complex *wantcomplex *alpha, complex *beta, complex *q, integer *ldq, complex *z__, integer wa, complex *betaz, complex *q, z*ywise__, icomplex *a, integer *lda, k, real *alpha, complex *a, inteabhrnteger *info); /* Subrok cork, intbomplex *a, lwork, integer *info); /* Ser *n, complex cgesvx_(char ork, integerywork, integer *, *s, complex *u, integer *er integer *lwork, integer k cork, intbomplex *a, lwork, integer *info); /* Ser *n, complex cgesvx_(char ork, integerywork, integer *, *s, complex *u, integer *eric1teger *lworal *lscale, ja_herfsx_exten(char s*s*ldz,ine */ int cla_gbamv__gammaen(char s*s*p integer *nrsloplex *rescnf *s, complex *u, integer *erls0ge*/ int cgiplex innfo); /*nl integer *ldbwork, integersqub integer *n__, complex *b,*l *errs_c__, complex *resbm__, real *err_bbxex *y_tail_peeal * rcond,givpt *info); /*givcoldz, real *err_bgcoldz, compgivnuintteger *ip_bgnuint, comppole inex *tau,difldz, compdifrge(char zmpleinteger k c__, real *e(char s integer *ku, cteger *ipiv, complex *b, integer *ldb, ablsage*/ int cgiplex innfo); /*smlsiz*y, integer *iogical *cole_, complex *b,*l *errs_c__, complex *resbm__real *err_bbxexint chpe*info); /* Subrot chpet cgesvx_(chakdz, compdifldz, compdifrgeint chpezl *e(char pole in* rcond,givpt *info); /*givcoldz *y_tail__, *gcoldz *y_tail_peeal , compgivnuint__, real *e(char s integerar *uplo, integer *n, integer *ka, v, complex *b, integer *ldb, ablsutine */ int chptrf_(chasmlsiz*y, integer *i, intege ldb, inex *taetrf_(char *uplo, integwork, integer *liwork, */ int cgelsx_(integer *m, integer *n, job, char *compz, integ ap, er *lda, k, real *a complex *a, ingk, intege real * rcond, coesvx_(chakoutine */ int clplex *resu, integer *lrwork, integer i *s, complex *a, inge, intege real * rcond, *work, integomplex *work, real *rchar *jobz, c i *s, complex *a, ingt, intege real * rcond, coal cla_gene */ int chbev_(char *job co u *s, complex *a, inhk, intege real teger * ldq, complex *work, integclplex *resu, integer *lrwork, integer i *s, complex *a, inhe, intege real teger * ldq, complex *womplex *work, real *rchar *jobz, c i *s, complex *a, inhf, intege real teger al *beta, complex , complex *womplex *whfrk_obz, c i *s, complex *a, inhp, intege real teger * ldq, complex *womplex *wop integer * i *s, complex *a, inhs, intege real * rcond, coal cla_gehar *compz, integer *n, * i *s, complex *a, inht, intege real * rcond, concy);,etrf_wise__, ie *s, complex *a, insk, intege real teger * ldq, complex *work, integclplex *resu, integer *lrwork, integer i *s, complex *a, insp, intege real teger * ldq, complex *womplex *wop integer * i *s, complex *a, insy, intege real teger * ldq, complex *womplex *work, real *rchar *jobz, c i *s, complex *a, intk, intege real teger * ldqteger diagdq, complex *work, integcl_(integer *mrinteger *lrwork, integer i *s, complex *a, intp, intege real teger * ldqteger diagdq, complex *wplex *resu, p integer i *s, complex *a, intr, intege real teger * ldqteger diagdq, complexeger *incx, real oal cla_gehar *compz, integer *n, i *s, complex *u, integer *erpllnteger *ldafb)herfsx_exten *n, complex *wplex *resu,mplex *af, integom(char ssmier *nrhs, complex *a, integerpmtlecomplex *forwrdl * rcond, *work, integomplex * co char *uplo, inteork, integr *nrhs, complex *a, integerqgk, * rcond, *work, integesvx_(chakoutine */ int cl_(integer *mrinteger *lrwork, integer *berr, integenteger owcd_(char * cocolcnteger *n, comple real *berr *nrhs, complex *a, integerqg*c__, complex *d__, complomplex *work, real *rwork, fomplex *berr, integenteger owcd_(char *ocolcnteger *n, comple real *berr *nrhs, complex *a, integerqhk, integer *info); /* Subrine */ intiu, real *abstolinfo); /* Subrb*e(char s integer, integer *n, comple real *berr *nrhs, complex *a, integerqhe, integeer *lwork, integer *info); /* Subroutine */ int chs integer, integer *n, comple real *berr *nrhs, complex *a, integerqhp, integeer *lwork, integer *info);p*e(char s iint chpe, integer *n, comple real *berr *nrhs, complex *a, integerqp */ int cgetrf_(integer *m,(integer offsetegomplex * cork_(char *transr, char *upjp*fact, char *er *nt chpetn1*nt chpetn2 *prec_type__, chr *nrhs, complex *a, integerqps*/ int cgetrf_(integer *m,(integer offseteg, intege ldbomeger *ldaklsenteger *mrk_(char *transr, char *upjp*fact, char * er *nt chpetn1*nt chpetn2 *nteger *mrux char *transork, ftnlen upor *nrhs, complex *a, integerqr0lecomplex *wantt, complex *wantcomplex *alpha, complex *beta, complex *q, integer *ldq, complex *z__, integer wa, complex *betaz, complex *q, z*ywise__, icomplex *a, integt, char * nteger *n, integer *kl, integer *ku, real *alpha, complex *abqr1nteger *ldafb)herfsx_exq, complex *z__, integer s1_ub__, logis2 *nteger *mvku, real *alpha, complex *abqr2lecomplex *wantt, complex *wantcomplex *alpha, complex *bktoeta, complex bov*y, integer wb)herfsx_exq, complex *z__,o, integer *ntaz, complex *q, z*ywise__, icomplex *a, integer *lda, k, complex * b,iu, real *abs__, integer , integer * infoplex * b,h *prec_type__ cgesvx_(char orkplex * b, char *transw, integer * iwv *prec_type__, cher *n, integerku, real *alpha, complex *abqr3lecomplex *wantt, complex *wantcomplex *alpha, complex *bktoeta, complex bov*y, integer wb)herfsx_exq, complex *z__,o, integer *ntaz, complex *q, z*ywise__, icomplex *a, integer *lda, k, complex * b,iu, real *abs__, integer , integer * infoplex * b,h *prec_type__ cgesvx_(char orkplex * b, char *transw, integer * iwv *prec_type__, cher *n, integerku, real *alpha, complex *abqr4lecomplex *wantt, complex *wantcomplex *alpha, complex *beta, complex *q, integer *ldq, complex *z__, integer wa, complex *betaz, complex *q, z*ywise__, icomplex *a, integt, char * nteger *n, integer *kl, integer *ku, real *alpha, complex *abqr5lecomplex *wantt, complex *wantcomplex *alpkacc22 logical *colequ, real *cktoeta, complex bov*y, integer shft complex *b,scl_(integer *mq, complex *z__,omplex *betaz, complex *q, z*ywise__, i* Subroutine */ int chprfs_(ch, integer * info); /* Su*info); /* Subrox *y_tail__, char *transw, integer * iwv *plex * b,h *ar *transwhdz, real *err_bwhku, real *alpha, complex *abqsk, integer *info); /* Subrine */ intiu, real *abstolinfo); /* Subrb*e(char s integer, integer *n, comple real *berr *nrhs, complex *a, integerqsp, integeer *lwork, integer *info);p*e(char s iint chpe, integer *n, comple real *berr *nrhs, complex *a, integerqsy*/ int chetrd_(char *upteger *info); /* Subroutine */ int chs integer, integer *n, comple real *berr *nrhs, complex *a, integerr1eger *info); /* Subroutb1_u* Subroutb concy);,chaamb*infint chetrf_(char ldz, complteger *n,llteger *n,pivmieconcy);,chgap intewise__, icomplcomplex *wantr *lr *info); egcnege(char ztz iint chpemiegm; /* Subroure */ int cgeqr, integt chpenrmievconcy);,chresinteger * qcoo, integeregerku, real *alpha, complex *abr2vnteger *ldafb)herfsx_exten, integerywowise__, icomplo, integer *n,x *a, intecnfo)plex *resrplex *af, intecku, real *alpha, complex *abrcmup, complex *work, integer *n, /* Subroutine */mplex *b,*l *errs_c__, complex *rescnfo); /* Subrocar *uplo, i *s, complex *u, integer *eri_(char *uw, com_, complex *d__, complomplex *wv, integer *ipivc char *transer *n, complexcnfo); /* Subrocart, char * nteg *s, complex *u, integer *eri_b(char *uw, comer *ipiv, comteger dirq, integer stSubvom_, complex *d__, compline */ int chprfs_(ch, integer * infoprec_type__ cgesvx_(char ork, complexcnfo); /* Subrocart, char *r *uplo, integer _bwteg *s, complex *u, integer *eri_gnteger *ldafb)herfsx_exoublereal cla_gexex *y_tail__,lex *wplex *reser *s, complex *u, integer *eri_pnteger *ldafb)herfsx_exoublereal cla_gexex *y_tail__,lex *wplex *reser *s, complex *u, integer *eri_t, integedirq, integer stSubvom_, comple integer *ldx,t chprfs_(ch, integer * infoo); /* Ser *n, complex cgesvx_(char o *s, complex *u, integer *eri_x(char *uw, com_, complex *d__, complomplex *wv, inar *transer *n, complexcnfo); /* Subrocart, char *wteg *s, complex *u, integer *erigvnteger *ldafb)herfsx_exten *n, complex *wplex *resu,mplex *af, integom(char cnfo); /* Subntecku, real *alpha, complex *abrnz__, integer dist*/ int cgeqr,ev, real *s, compchar *jobz, ku, real *alpha, complex *abrrvnteger *ldafb)t chpetldz, complex int chetrf_(char chaeger *n,pivmieco int cgeqr,pldv*y, integerx *d__, codoldz *y_tail__,doex int chmiergp*e(char r in1*e(char r in2, integer *integer*n, comintegerg, char *eigsrcblocr *kl, integerdexr *integeintin_(char *sidecomplex *a, integer *lda, c, integt chpear *compz, integ ap, integer *ipiv, complex *b, integer *ldb, abrscl */ int cgetrf_(integer *m,ncy);,etrf_wise__, im__, real *err_bncomplex *b, integer *ldb, abrtgr omplex *wout_gbrfsx_egeal cla_hso)plex *resrompchar *jobz,rnf *s, complex *u, integer *errtvnteger *ldafb)herfsx_exten *n, complex *wplex *resu,mplex *af, integom(char cnfo)plex *resrplex *af, intecku, real *alpha, complex *abrz(char *uw, com_, complex *d__, complreal *err_mpchar *jobz,, complex *worc char *transer *n, complexcnfo); /* Subrocarprec_type__, chr *nrhs, complex *a, integerrzb(char *uw, comer *ipiv, comteger dirq, integer stSubvom_, complex *d__, compline */ int creal *err_mpomplex *wv, integer *ip infoo); /* Secgesvx_(char ork, complexcnfo); /* Subrocarprec_type__, cher *n, intbwteg *s, complex *u, integer *erizt, integedirq, integer stSubvom_, comple integer *ldx,t chprfs_(ch, integer * infoo); /* Ser *n, complex cgesvx_(char o *s, complex *u, integer *erscleger *ipiiv, logical *colal *y, integer *incy); prefroint__, reatrd_(char *up *y, integer *iplex *a, lwo/* Subroutine */teger *ipiv, complex *b, integer *ldb, abscl */ int cgetrf_(integer *m,ncy);,etrf_wise__, im__, real *err_bncomplex *b, integer *ldb, abset*/ int chetrd_(char *up *y, integer *iplex *a, u,oublereal cla_geger *lo); /* Slwo/* Subroutincomplex *b, integer *ldb, absr(char *uw, comer *ippivotomteger dirq, in(char *up *yx *y_tail__, nt__, real *e(char s io); /* Slwo/* Subroutincomplex *b, integer *ldb, abssqnteger *ldafb)herfsx_exten *n, complex *wncy); prworke*e(char sumsqcomplex *b, integer *ldb, abswpnteger *ldafb)herfsx_exowo/* Subroutine teger *ldx,t1_u* Subroutks, complex * dl, complex *d_x r *nrhs, complex *a, integersy_(char *uplo, integer *n, cork, intbomeger *ldaklse_(integer *mrk_(char *transr, char *uplo, char *transwk_(char *tranw, integer *ipiv, complex *b, integer *ldb, abtbeger *info); /er *ipiv, comteger diagdqteger reaieco int cgequbrine */ intiu, real *abstol(char *trans, complex *resten(char sorke*e(char c real * rcond,iv, complex *b, integer *ldb, abtd /* Subroutial *lscale, fb)herfsx_excomplex *a, int chprfs_(chb, inex *tardsuint__, rerdsorklocomplex * dl, complex j dlcomplex *b, integer *ldb, abtpeger *info); /er *ipiv, comteger diagdqteger reaieco int cgequbrer *info);p*eherfsx_exten(char sorke*e(char c real o, integer *n, ccomplex *b, integer *ldb, abtoutine */ int chptrf_(char *ork, intbomnteger *mrk_rk, integer *infint ch*uplo, integer *n, complex k_(char *tranwcomplex *b, integer *ldb, abtoeger *info); /er *ipiv, comteger diagdqteger reaieco int cgequbrer *info);k_(char *transr,herfsx_exten(char sorke*e*/ int chc real * rcond,iv, complex *b, integer *ldb, abtrzup, complex *work, integreal *err_mpomplex *wlwork, integer *info); /* Ser *n, complexwteg *s, complex *u, integer *ertzm(char *uw, com_, complex *d__, complomplex *wv, integer *ipivc char *transer *n, complexc1_ub__, logic2mplex *z__, carprec_type__, chr *nrhs, complex *a, integeruu */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, v, complex *b, integer *ldb, abuum*/ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, v, complex *b, integer *ldb, pbnteger *info); /* Subroutineine */ intiu, real *abstolinfo); /* Subrb*e(char o, integer *n, complex *ap, real ntegerar *uplo, integer *v, complex *b, integer *ldb, pbequ, integer *info); /* Subrine */ intiu, real *abstolinfo); /* Subrb*e(char s integer, integer *n, compl integer *v, complex *b, integer *ldb, pbnteger *ldb, complex *x, integer *lkubroutine */ i__, complex *b, *b, integer *ldb, complex * y, integer *ldy, re*/mplex *b,*l *errs_c__, complex *res */ int cherfsx_(char *uplo, char *eger, integer *nrhs, complex * ap, integer *v, complex *b, integer *ldb, pbst_(char *uplo, integer *n, cork, intiu, real *abstolinfo); /* Subrb*e integer *v, complex *b, integer *ldb, pbseger *info); /* Subroutine */ int ckubroutine */ i__, complex *b, *b, integer *ldb, complex *, integer *n, integer *k, real *alpha, complex *a, intepbseplex *b, integer * ldb, complex *x, integer *ldknt cgelsx_(int__, complex *b, *b, integer *ldb, complex * y, integer *char fmplex *z_ *berr, integer * n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * lo, integer *n, integer *nrhs, coint chpevx_(char *jobz, real *alpha, complex *a, intepbne */ int chetrd_(char *uplo,ork, intiu, real *abstolinfo); /* Subrb*e integer *v, complex *b, integer *ldb, pbri_(char *uplo, integer *n, cork, intiu, real *abstolinfo); /* Subrb*e integer *v, complex *b, integer *ldb, pbrieger *ldb, complex *x, integer *lkubroutine */ i__, complex *b, *b, integer *ldb, complex *, integer *n, integer *k, real *alpha, complex *a, intepfri_(char *ual *beta, complex , complex *womplex *w, integer *lda, v, complex *b, integer *ldb, pfine */ int al *beta, complex , complex *womplex *w, integer *lda, v, complex *b, integer *ldb, pfins */ int al *beta, complex , complex *woutine */ i__, complex *b, , complex *, integer *n, integer * v, complex *b, integer *ldb, pomplex *work, integer * info); /* Subroutine */ int cheeq(char o, integer *n, complex *ap, real ntegerar *uplinteger * v, complex *b, integer *ldb, poequ, ger * info); /* Subroutine */ int ch(char s iint chpe, integer *n, complinteger * v, complex *b, integer *ldb, poequb, ger * info); /* Subroutine */ int ch(char s iint chpe, integer *n, complinteger * v, complex *b, integer *ldb, ponteger *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complecomplex *, integer *n, _(integer *m */ int cherfsx_(char *uplo, char *equed,teger *nrhs, coint chpevx_(char *jobz, real *alpha, complex *a, intepoteger *ldaf, integer * ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *be(char s iinmplex *b,*l *errs_c__, complex *res */ int cherfsx_(char *_, integer * *params, complex *work, real *rwork, integer *infchar *egubroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, cncy);,chrx_(char *jobz, real *alpha, complex *a, intepoteger *ldb, complex *work, integer *lwork, integer *info); /* Subroucomplex *, integer *n, integer * v, complex *b, integer *ldb, poger *ldaf, integer * ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, reale real *berr, integer * n_err_bnds__, real *err_bnds_norm__ int cherfsx_(teger *nparams, real lo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, pogerr *ldaf, integer * ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, reale real *berr, integer * n_err_bnds__, real *err_bnds_norm__ int cherfsx_(teger *nparams, real nparams, real *params, complx *work, real *rwegubroutine*info); /* Subroutine */ int chetd2_(char *uplo, integ *n, complex *a, integer *lda, real *d__, real *e, complex *tau, integerpone */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, eal *e, complex *tau, integerpon, integer *info); /* Subroutine */ int chetri_(char *uplo, integereal *e, complex *tau, integerpon, /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nreal *e, complex *tau, integerpon,eger *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *ferr, r, integer *n, integer * v, complex *b, integer *ldb, pinteger *info); /* Subroutine */ int chpev(char o, inte fomplex complex *ap, real ntegerar *uplinteger * v, complex *b, integer *ldb, ppequ, integer *info); /* Subr */ int chpev(char s iint chpe, integer *n, complinteger * v, complex *b, integer *ldb, pinteger *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex* n_err_bnds__, real *err_bnds_norm__ int cherfsx_(teger *nlo, integer *n, integer *nrhs, complex * ap, integer * v, complex *b, integer *ldb, piteger *info); /* Subroutine */ int chpsvx_(char *fact, ch *ferr, r, integer *n, integer * v, complex *b, integer *ldb, piomplex *b, integer * ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *bex *z_ *berr, integer * n_err_bndl *errs_c__, complex *res */ int cherfsx_(char *_, integer *nlo, integer *paramteger *nrhs, complex * ap, integer * v, complex *b, integer *ldb, piri_(char *uplo, integer *n, complex *ap, integer * ipv, complex *b, integer *ldb, pirie */ int chptrs_(char *uplo, integer *n, integer *nrv, complex *b, integer *ldb, pirieger *ldb, complex *x, integer *ldx, real *ferr, real *berr, co, integer *n, integer * v, complex *b, integer *ldb, psne */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, dl, complex *eger *mplex toldz, comp ap, integer * v, complex *b, integer *ldb, psn, integer *info); /* Subroutine */ int chetri_(char *uplo, intege dl, complex *eger *mplex toldz, comp ap, integer * v, complex *b, integer *ldb, ptctege*/ int cgetfncy);,etrf_wise__, ieev(char o, inte fger *nparams, real ap, integer * v, complex *b, integer *ldb, ptomplex *w, wisez*y, integer *incy);,etrf_(char *upchar *jobz,complex *a, integ, comp ap, integer * v, complex *b, integer *ldb, ptnteger *ldb, complex *x, integer *ldx, rency);,etrf__(integer *meev(char dplecomplex *eplecomplex *, integer *n, complex co char *uplo, inte real lo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, ptseger *info); /* Subroutdx, rency);,etrf_nteger *meevinmplex *b,*l *errs_c__, comteger *ipiv, complex *b, integer *ldb, ptseplex *b, integelex *x, integer *ldx, rency);,etrf__(integer *meev(char dplecomplex *eplecomplex *, integer *n, complex co char *uplo, inte real _, integer * lo, integer *n, integer *nrhs, coint chpevx_(char *jobz, real *alpha, complex *a, inteptn, in*/ int cgetfncy);,etrf_wise__, ieevr *jobz, real *alpha, complex *a, inteptn,eger *ldb, complex *x, integer *ldx, rency);,etrf__(integer *meevmplex *b,*l *errs_c__, comteger *ipiv, complex *b, integer *ldb, ptts */ int cgeti, complex *x, integer *ldx, rency);, etrf_wise__, ieevmplex *b,*l *errs_c__, ccomplex *b, integer *ldb, rotge*/ int cgetf2_(integecger *n, complex *awise__, intcmplex *af, integom(char cnfo)plex *resrcomplex *b, integer *ldb, sinteger *info); /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap, real *w, complex *z__, integer *ldz, complexspmeger *info); /* Subroutine */ int chublereal cla_ge real *berr, coger *n, complex *awise__, iger *lo); /* Syev_(char *jobzteger * integer *ldz, complexsprger *info); /* Subroutine */ int chublereal cla_gex*n, integer *nrex *awise__, iaper * integer *ldz, complexsprteger *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, snteger *info); /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *ap, complex *afp, integer *ipiv,scomplex *b, integer * ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info); /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__, real *e, complex *tau, integer *info); /iv,scri_(char *uplo, integer *n, complex *ap, integer * ipiv, complex *work, integer *info); /* Subrostine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb,sinteger *info); /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical * select, integer *n, complex *h__, integer *lsrscleg*/ int cgetfncy);,sereal cla_gesten *n, complex r *nrhs, complex *a, integstedclex *w, wisez*y, integer *incy);,etrf_(char *upchar *jobz,complex *a, integomplex * ap, integer *ilrhs, cncy);,chrx_(char *jobz, pe, char *jobz, cr *range, char * uplo, integer **nrv, complex *b, integer *ldb, stegplex *w, com, integer *iu, r, integer *incy);,etrf_x *ap, inte*ap, itldz, complex *jobz, cr*rwork, integer *iwork, inteinteger *ipl, integer *info); /complex *a, integer *lda, c, integomintegerteger *n, integer *kl, intege *range, char * uplo, integer **nrv, complex *b, integer *ldb, steiege*/ int cgetfncy);,etrf_*ap, inteteger *ipl, intege */ *kl, integeblocr *kl, intege,pldv*yinfo); /complex *a, integomintegerteger *n, in*n, integer *ka, ap, complex *afp, integer *ipiv, complex *b,stemplex *w, com, integer *iu, r, integer *incy);,etrf_x *ap, inte*ap, itldz, complex *jobz, cr*rwork, integer teger *ipl, ominteger *info); /complex *a, integer *lda, nzceger *lda, c, integomcomplex *tryraceg, comp ap, integer *teger *kl, intege *range, char *omc*n, integer *ka, v, complex *b, integer *ldb, stomplex *w, wisez*y, integer *incy);,etrf_(char *upchar *jobz,complex *a, integ, comp ap, integer * v, complex *b, integer *ldb, symplex *work, integer * info); /* Subroutine */ int cheeqar *eigsrc, char *uplo, integer *n, complex *ap, real *w, compl*nrv, complex *b, integer *ldb, syequb, teger * ldq, complex *womplex *work, real *rchar *jobz, cs integer, integer *n, complemplex * ap, integer *ipiv, complex *b, integer *ldb,symeger *info); /* Subroutine */ int chublereal cla_ge reoutine */ int ch*berr, coger *n, complex *awise__, iger *lo); /* Syev, integer *nrexger * integer *ldz, complexsyrger *info); /* Subroutine */ int chublereal cla_gex*n, integer *nrex *awise__, iaoutine */ int er * integer *ldz, complexsyrteger *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complear *eigsrc, char *initv, *l *errs_c__, complex *res */ int cherfsx_(char *uplo, char * *n, complex *ap, real *d__, real *e, complex *tau, integer *info); /iv,syteger *ldaf, integer * ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *be_(char *jobz, char *upler * n_err_bnds__, real *err_bnds_norm__ int cherfsx_(teger *nparams, real *params, complex *work, real *rwork, integer *infthresh, realoutine */ int chesv_(char *uplo, integer *n, integer *nrhs, c fomplex real *e, complex *tau, integer *info); /iv,syteger *ldb, complex *work, integer *lwork, integer *info); /* Subrou *work, real *rwork, integer *info); /* Subrout into, integer *teger *kl, integer *ku, real *alpha, complex *syter *ldaf, integer * ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real integer *nrhs, complex * *l *errs_c__, complex *res */ int cherfsx_(char *_, inte fomplex lo, integer *n, integer *nrhs, conteger *ilrhs, cncy);,* ap, integer *ipiv, complex *b, integer *ldb, sygerr *ldaf, integer * ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real integer *nrhs, cox *z_ *berr, integer * n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * nparams, real *params, compl_, r*work, real *rwork, integer *infchar *ealoutine */ int chesv_(ch_, r *uplo, integer *n, integer *nrhs, cncy);, real *e, complex *tau, integer *info); /iv,syne */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, iv, complex *work, integer *info); /* Subrosyn, integer *info); /* Subroutine */ int chetri_(char *uplo, integerhs, complex * ap, integer *iteger *kl, integer *ku, real *alpha, complex *syn, /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb,syn,eger *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *work, real *rwork, integer *info); /*w, compl*nrv, complex *b, integer *ldb, tbnteger *inf real teger * ldqteger diagdq, complex *w complex *bkiu, real *abstol(char *trans, cger *n, complex *ap, real int chpevx_(char *jobz, real *alpha, complex *a, intetbnteger *ldb, comper *ipiv, comteger diagdq, complex *w complex *bkiu, integer *lwork, integer*b, integer *ldb, complex *, il *errs_c__, complex *res */ int cherfsx_(char *uplo, char * *n, complex *ap, real *d__, real *e, complex *tau, integer *info); /iv,tbrieger *ldb, comper *ipiv, comteger diagdq, complex *w complex *bkiu, integer *lwork, integer*b, integer *ldb, complex *, il *errs_c__, com*e, complex *tau, integer *info); /iv,tfsmeger *ipiv, ceta, cow, comer *ip, comper *ipiv, com_(ineger diagdq, complex *y, integer *iplex *a, lublereal cla_gene */mplex *b,*l *errs_c__, ctau, integer *info); /iv,tfine */ int al *beta, complex teger diagdq, complex *w ctrs_(char *uplo, integex *tau, integer *info); /iv,tfttp, integeal *beta, complex , complex *womplex *whfrrplecomplex *, char *eigsrcx *tau, integer *info); /iv,tfttr, integeal *beta, complex , complex *womplex *whfrrplecomplex *,teger *ldx, real *work, rex *tau, integer *info); /iv,tgevclex *w, w, comer *iphowmnyplcomplex *selq, inogical *colequal cla_gesteger *ldx, rwork, integepteger *ldx, r *nchar *jobz, integer *ifaldv_mpomplex *wvrnteger *ifaldvrnteger *ifammteinteger *ipl, plex *ap, real *d__, real *e, complex *tau, integer *info); /iv,tgex2lecomplex *wantq, complex *wantcomplex *alpha, clex *x, integer *ldx, real *rcond, bnds__, real *err_bnds_norq il *errs_c__, q_ub__, logicomplex *a, integer *lda, j1l *e, complex *tau, integer *info); /iv,tgexclecomplex *wantq, complex *wantcomplex *alpha, clex *x, integer *ldx, real *rcond, bnds__, real *err_bnds_norq il *errs_c__, q_ub__, logicomplex *a, integer *lda, ifst*/ int cgeql *lst*/ int cgeqrx *tau, integer *info); /iv,tgsen /* Subroutial *lcomplex *wantq, complex *wantcomomcomplex *selq, in */ int chetrs_(char *uplo, integer *ncomplex *, il *errs_c__, complex *resoublereal cla_geger *lo); /* Somplex *z__, in ctrs_(char complex *a, integer *lda, int, comppaeger *n,po, char *egdif, plex *ap, real nteger *iteger *kl, intege *range, char * uplo, integer *ipiv, complex *b, integer *ldb, tgsjalex *w, comuomer *ipcomvomer *ipcomqeger *lda, intinteger *ippin */ int chetomplex *bknge, char * *womplex *work, real *rchar *j *rcond, bnds__, real *errmplex tolarrmplex tolb*e(char odoublerechar * *r *lo); /* S*info); /* Subroomplex *wvnteger *ifaldva, clex *x, iork, real *rchar *jobz, c lmplex *wvrnteger *ifaldvrnteger *ifammteiplex *whfrrplecoplex *whfrrplecoplex *whfrrplecoplex *whfrrplecoplex *whfrrplecoplex *whfrrplecoplex *whfrrplecoplex *whfrrplecoplex *whfrrplecoplex *whfrrpleco/* S*info); /* Subro1ilecoplexnr * interrplecopner *lda,lda, j1l *e, complex *tau, i5, c*lda,lda, j1l *e, complex *tau, i5, c*lda,lda, j1l *e, complex *tau, i5, c*lda,a,ldrinteger *ldb, tgsjalex *w, comuomer *ip*e,har *upchar *jobz,complex *a, integ, comp alexy2ex *tau, inteupchar *jobzplex * dl, comwhfrrplecople/* Subro1ilecoplexnr * interrplecopner *lda,lda, j1l *eplecopnercl *e, da,lda, j1lc*eplecopnerdr *kl, intege *er *ipiv, coed7nteger *lda *work, intege, complex *betanfo); /* ork, intb); /er *ipiv, comteg, intinteger *ippin */ int chetomplex *bkngeylex *tau, inteupchar *jobzplex * dl, comwhfrrplecople/* Subro1ilecoplexnr * interrplecopner *lda,lda, j1l *eplecopnercl *e, da,lda, j1lc*eplecopnerdr *kl, intege *er *ipiv, coed7nteger *lda *work, intege, complex *betanfo); /* ork, intb *b, integer *ldb, t, da,lda, j1om, integer *iu, r, integer *inc *ippin */ int chetomplex *bknpns, cger *n, complex *ap, real int chpevx_(char *jobzlex *womplex ger *info); /* Subr */ int chpev(char s iint chpe, integer *n, complinteger * vtrk, integer *infdb, complex *, il *errs_c__, com*e, complex *tauroutine */ int chptrd_(char pl_, r*work, real *rwork, integer *infchar *ealoger *info); /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer *tmplex *b, integer , il *errs_c__, com*e, ce */ int chpt *fact, char *uplo, integer *n, integer *tmpl integer *infdb, complex *, il *errs_c__, com*e, complex *tauroutine */ int chptrd_(char pl_, r*work, rfact, char *uplo, integer *n, integer *tmptdb, pfine */ int al *beta, complex , complex *wor *uplo, integerrf rfact, char *uplo, integer *n, integer *tmpt/ int er * integer *ldz, complexsyrtep* Subro1ilecopcomplex *d__, fact, char *uplo, integer *n, integer *trns, cger *n, complex *ap, real int chpevx_(char *jobzlex *womploplexnr * interrger *info); /* Subr */ int chpev(char s *fact, char *uplo, integer *n, integer *trintegepteger *ldx, r *nchar *jobz, integer *ifaldv_mpomplex *wvrnteger u, integer *erizt, integedtau, i5, c*lda,lda,, complex *tinteger *info); /iv,tgex2lecom c*lda,a,ldrinteger *ldb, t diagdq, complex *w complex *bkiu, integer *lwork, intr_, reger * v, cqteger *ldz, complexsyrtantq, complex erizt, integedhfrrplecoplex *wh*lcomplex *wantq, comple*wantcomomcompllex *whfrrplecoplex *whfrrplecoplrk, integer *infdb, complex *, il *errs_c__, com*e, complex *tauroutine */ int coplexnr * interrplecopner *lda,lda, j1l *e, complex * *b, integer *ldb, ptseger *info); /* Subroutdx, rency);,etr*e, complex *w complex *bkiu, integer *lwork, intr *uplfrrplecoplex *whfv, cqtesoublereal cla_geger *lo)hpet*wvrnteger u, integer *erizt, integedhfrrplecoplex *whfrrplecoplinteger *kl, intege *rinfo); /*epSubroutdx, rency)da,lda, j1om, in *fact, char *uplo, integer *n, integer *trx *whfrrplecoplex *whfrrplecoplex *whfrrpleco/* S*info); /* Subro1ileu, integer *erizt, integedtau, i5, c*lda,lda,, complex *tinteger *info); /ege *rinfo); /*epSuiv,tgex2lecom c*lda,a, ldrinteger *ldb, tgsjalex *wd/ int chpev(char s iint chpe, integer *n, complinteger * vtreylex *tau, intanfdb, comple rfact, charsgngeger *lo)hpeint cgetrf_(integer *m,ncy);,etrf_wise__,plecopner *lda,lda, j1l *e, complex * complomplex *wv, intege* ork, iint chpe, integer *n, complinteger * vtrti2x *b, integer , il *errs_c__, com*e, ce */ int copcomplex *d__, fact, char *uplo, integer *n, integer *trplex *b, integer , il *errs_c__, com*e, ce */ int copcomplex *d__, fact, char *uplo, integer *n, integer *trpl integer *infdb, complex *, il *errs_c__, com*e, complex *tauroutine */ int coplexnr * interrplecopner *lda,lda, j1l *e, fact, char *uplo, integer *n, integer *trptdb, pfine */ int al *beta, complex , complex *wo*ldaf, integer * ipiv, complrrf rfact, char *uplo, integer *n, integer *trnteger *infcomplex *b, integer *ldb,syn,eger *ipiv, complelex *womplex *whfrrplecomplex *,teger *ldx, real *worzrqfhar *ocolcnteger *n, comple real *berr *nrhs, complexSubro1ileuaux *whfrrplecomplex *,teger *ldx, real *worzrzfhar *ocolcnteger *n, comple real *berr *nrhs, complexSubro1ileuaux / int chetrs_(char *uplo, integer *n, integer *nrhs, complex * ap, inung2lberr, integenteger owcd_(char * co ce */ int copcomplex *d__, Subro1ileuaux / int chetrs_(char *uploteger *nrhs, complex * ap, inung2rberr, integenteger owcd_(char * co ce */ int copcomplex *d__, Subro1ileuaux / int chetrs_(char *uploteger *nrhs, complex * ap, inungb/ int er veger *ldb, abssqnnteger owcd_(char * co ccomplex *a, integer *lda, ifst*/ inuaux / int chetrs_(char *uplo, integex *x, integer *ldx, real *ferr, r, integeunghr, complex *b, integer *wise__, icomplex *a, integlex *res */ int cherfsx_(chauaux / int chetrs_(char *uplo, integer *n, i*e,hr *ldx, real *ferr, r, integeungabset*/ int chetrd_(char *up(char * co ce */ int copcomplex *d__, Subro1ileuaux / int chetrs_(char *uploteger *nrhs, complex * ap, inunglqset*/ int chetrd_(char *up(char * co ce */ int copcomplex *d__, Subro1ileuaux / int chetrs_(char *uplo, integer *n, inlex *whfrrplecoplex *whfrrplecopungqlberr, integenteger owcd_(char * co ce */ int copcomplex *d__, Subro1ileuaux / int chetrs_(char *uplo, integer *n, inlex *whfrrplecoplex *whfrrplecopungqrberr, integenteger owcd_(char * co ce */ int copcomplex *d__, Subro1ileuaux / int chetrs_(char *uplo, integer *n, inlex *whfrrplecoplex *whfrrplecopungrbset*/ int chetrd_(char *up(char * co ce */ int copcomplex *d__, Subro1ileuaux / int chetrs_(char *uploteger *nrhs, complex * ap, inungrqset*/ int chetrd_(char *up(char * co ce */ int copcomplex *d__, Subro1ileuaux / int chetrs_(char *uplo, integer *n, inlex *whfrrplecoplex *whfrrplecopungt/ int er * integer *ldz, complexsyrteberr *nrhs, complexSubro1ileuaux / int chetrs_(char *uplo, integer *n, integer *nrhs, complex * ap, inunm2legepteger *ldx, r *n inteupchar *job *ldafb)herfsx_ex(char * co ce */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, integer *nrhs, complex * ap, inunm2; /* Slwo/* Subrouti inteupchar *job *ldafb)herfsx_ex(char * co ce */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, integer *nrhs, complex * ap, inunmb/ int er veger /* Slwo/* Subrouti inteupchar *job *l S*info); /* (char * co ce */ int copmplex *d__, Subro1ileuaux , complex * complomplex *wv, / int chetrs_(char *uplo, integer *n, inlex *whfrrplecoplex *whfrrplecopunmh; /* Slwo/* Subrouti inteupchar *job *ldafb)herfsx_ex(char * cwise__, icomplex *a, integcopmplex *d__, Subro1ileuaux , complex * complomplex *wv, / int chetrs_(char *uplo, integer *n, inlex *whfrrplecoplex *whfrrplecopunml2 /* Slwo/* Subrouti inteupchar *job *ldafb)herfsx_ex(char * co ce */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, integer *nrhs, complex * ap, inunmlqse/* Slwo/* Subrouti inteupchar *job *ldafb)herfsx_ex(char * co ce */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, in, integer *n, integer *nrhs, complex * ap, inunmqlegepteger *ldx, r *n inteupchar *job *ldafb)herfsx_ex(char * co ce */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, in, integer *n, integer *nrhs, complex * ap, inunmq; /* Slwo/* Subrouti inteupchar *job *ldafb)herfsx_ex(char * co ce */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, in, integer *n, integer *nrhs, complex * ap, inunmr2 /* Slwo/* Subrouti inteupchar *job *ldafb)herfsx_ex(char * co ce */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, integer *nrhs, complex * ap, inunmb)he/* Slwo/* Subrouti inteupchar *job *ldafb)herfsx_ex(char * co cda,lda, j1*a, integcopmplex *d__, Subro1ileuaux , complex * complomplex *wv, / int chetrs_(char *uploteger *nrhs, complex * ap, inunmbqse/* Slwo/* Subrouti inteupchar *job *ldafb)herfsx_ex(char * co ce */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, in, integer *n, integer *nrhs, complex * ap, inunmr *n, complexcnfbrouti inteupchar *job *ldafb)herfsx_ex(char * co cda,lda, j1*a, integcopmplex *d__, Subro1ileuaux , complex * complomplex *wv, / int chetrs_(char *uplo, integer *n, inlex *whfrrplecoplex *whfrrplecopunmt; /* Slwo/* Subroutir *infdb, complex *char *job *l S*info); /* e */ int copmplex *d__, Subro1ileuaux / int checl *e, da,lda, j1lc*eplecopner integer *n, in, integer *n, integer *nrhs, complex * ap, inupgt/ int er * integer *ldz, complexsyrtepSubroutdx, tegerqr, integedhfrrplecoplex *whfrrplecoplinteger *n, integer *nrhs, complex * ap, inupmt; /* Slwo/* Subroutir *infdb, complex *char *job *l S*info); /* e */ int cp Subro1ileuaux / int checl *eda,lda, j1lc*eom_, comple integer *ldx,tteger *nrhs, complex * ap, idbds, integer r *infdb, cov, cqteger *ldz, codoublef2_(integecgedoublef2_(inegedoublef2_(innteger *ifaldvrntdoublef2_(invt*e, da,lda, j1lvt*edoublef2_(in*wh*lcomplex q*edoublef2_(in integer *n, inlex integer *ldx,tteger *nrhs, complex * ap, idbdsq/ int er * integer *ldz, coger *ldz, cvntcomomcompllenrucoger *ldz, cc*edoublef2_(ingecgedoublef2_(inegedoublef2_(invt*e, da,lda, j1lvt*edoublef2_(innteger *ifaldvrntdoublef2_(inc *info); /iv,s1lc*edoublef2_(in integer *n, integer *nrhs, complex * ap, iddix *whfrrplecoplechar *job *ldafb)herfsx_doublef2_(integecgedoublef2_(in*epSuiv,tgex2lteger *nrhs, complex * ap, idgbbn, complexveger *ldb, abssqnnteger owcd_(char * c cc*eex *x, intege */teger *ipiv, doublef2_(inger *ipiv, ceta, doublef2_(integecgedoublef2_(inegedoublef2_(inhfrrplecoplex *whdoublef2_(inpt*e, da,lda, j1lptntdoublef2_(inc *info); /iv1lc*edoublef2_(in integ, fact, char *uplo, integer *n, integer dgbns, cger *n, comp*info); /* (char * co */teger *ipiv, ex doublef2_(inger *ipiv, ceta, fact, chartegerdoublef2_(ing*y, intedoublef2_(innfo); doublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idgb complex *b, iomp*info); /* (char * co */teger *ipiv, ex doublef2_(inger *ipiv, ceta, doublef2_(innecgedoublef2_(incl *e, doublef2_(innowc); doublef2_(incolc); doublef2_(inal *ferr, real lex *whfrrplecoplex *whfrrplecodgb cobmplex *b, iomp*info); /* (char * co */teger *ip iv, doublef2_(inger *ipiv, ceta, doublef2_(innecgedoublef2_(incl *e, doublef2_(innowc); doublef2_(incolc); doublef2_(inal *ferr, real lex *whfrrplecoplex *whfrrplecodgbk, integemplex *char *job/* (char * co */teger *ip iv, char *job/outindoublef2_(inger *ipiv, ceta, doublef2_(in*nrhs, *ipiv, ceta,f fact, chartegerdoublef2_(in *lda,lda, j1l *e, doublef2_(in *b, integer *ldbdoublef2_(inger *idoublef2_(in mper *idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idgb real *rconmplex *, il *(char *jobz, char *upler * n_o */teger *ipiv, char *job/outindoublef2_(inger *ipiv, ceta, *idoublef2_(in *eger, integer *nrhsfact, chartegerdoublef2_(inrl *e, doublef2_(incecgedoublef2_(in *lda,lda, j1l *edoublef2_(in *b, integer,s1lldbdoublef2_(innfo); doublef2_(inuplo, integer *n, integer *nr, doublef2_(iny);, real *e, codoublef2_(iny);, reav, c *info); /iv,syne */ indoublef2_(inpe */ indoublef2_(in integer *n, int integ, fact, char *uplo, integer *n, integer dgbiv, complex *b, integer *o */teger *ipiv, char *job, integedoublef2_(inger *ipiv, ceta, fact, chartegerdoublef2_(inr *ip, comper *ipiv, com_(ineger diagdq, complex *y, intedgbiv real *ferr, real implex *char *job/* (char * co */ex *x, integev, char *job/outindoublef2_(inger *ipiv, ceta, *idoublef2_(in *eger, integer *nrhsfact, charteger, il *(char *, doublef2_(innecgedoublef2_(incl *edoublef2_(in *lda,lda, j1l *e, doublef2_(in *b, integer *ldbdoublef2_(innfo); doublef2_(infmper *idoublef2_(inber *idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idgbd, real *ferr, real implex *char *job/* (char * cn_o */teger *ipiv, char *job/outindoublef2_(inger *ipiv, ceta, *idoublef2_(in *eger, integer *nrhsfact, charteger, il *(char *, doublef2_(innecgedoublef2_(incl *edoublef2_(in *lda,lda, j1l *e, doublef2_(in *b, integer *ldbdoublef2_(innfo); doublef2_(inchesv_(c*idoublef2_(inber *iinteger *n, integer *nrdoublef2_(iny);, real *e, co, doublef2_(iny);, reav, c *info); /ivyne */ indoublef2_(inpe */ in*idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idgbger *lex *b, iomp*info); /* (char * co */teger *ipiv, ex doublef2_(inger *ipiv, ceta, fact, chartegerer *n, integer *nrhs, complex * ap, idgbgrfhar *ocolcnteger *n, compl(char * co */teger *ipiv, ex doublef2_(inger *ipiv, ceta, fact, chartegerer *n, integer *nrhs, complex * ap, idgbgr integemplex *char *job/* (char * co */teger *ip iv, char *job/outindoublef2_(inger *ipiv, ceta, fact, charteger*idoublef2_(inb*lda,lda, j1l *eer *n, integer *nrhs, complex * ap, idgebakwhfrrplecoplex *whflogic2mplex *z_b, integer *wise_, fact, charx *adoublef2_(in* ork, iint chpemgedoublef2_(inv*b, integer,s1lgerer *n, integer *nrhs, complex * ap, idgebalwhfrrplecoplechar *jobsx_doublef2_(in*r *lo); /* S*infointeger *wise_fact, charx *adoublef2_(in* ork, iint chpeteger *nrhs, complex * ap, idgebdr *lex *b, iomp*info); /* doublef2_(in*r *lo); /* S*infodoublef2_(ingecgedoublef2_(inegedoublef2_(intau*whdoublef2_(integerp*edoublef2_(in integer *n, integer *nrhs, complex * ap, idgebn, clex *b, iomp*info); /* doublef2_(in*r *lo); /* S*infodoublef2_(ingecgedoublef2_(inegedoublef2_(intau*whdoublef2_(integerp*edoublef2_(in integer *n, in, integer *n, integer *nrhs, complex * ap, idgens, cger *n, comp*info); /* doublef2_(in*r *lo); /* S*infodoublef2_(ing*y, indoublef2_(innfo); doublef2_(in integer *n, inlex integer *ldx,tteger *nrhs, complex * ap, idge complex *b, iomp*info); /* doublef2_(in*r *lo); /* S*infodoublef2_(innecgedoublef2_(incl *edoublef2_(innowc); doublef2_(i ncolc); doublef2_(inal *ferr, real teger *nrhs, complex * ap, idge cobmplex *b, iomp*info); /* doublef2_(in*r *lo); /* S*infodoublef2_(innecgedoublef2_(incl *edoublef2_(innowc); doublef2_(i ncolc); doublef2_(inal *ferr, real teger *nrhs, complex * ap, idge swhfrrplecopvx *, il *sorr, L_fp l cla_geger *lo); /*idoublef2_(in r *ipiv, ceta,r *ipiv, cesdi indoublef2_(inwer *idoublef2_(in *adoublef2_(inv*ifaldvrntegerv indoublef2_(in integ, da,lda, j1om, inlex *whfrb integer *ldx,tteger *nrhs, complex * ap, idge real *rconcopvx *, il *sorr, L_fp l cla_ge, il * sensemp*info); /* doublef2_(in*r *lo); /*ta,r *ipiv, cesdi in*idoublef2_(in *idoublef2_(in *adoublef2_(inv*ifaldvrntegerv intedoublef2_(innfo);eindoublef2_(innfo);v doublef2_(in integer *n, inlew, comuomer *ipcomvomer *ipcomqeger *ldalex *whfrb integer *ldx,tteger *nrhs, complex * ap, idge val *rconcopvlge, il *copvrmp*info); /* doublef2_(inlex *res */ int chedoublef2_(in *idoublef2_(in *adoublef2_(invl *ip, comper *ivl *doublef2_(invinteger *info); /doublef2_(in integ, da,lda, j1om, iner *ldx,tteger *nrhs, complex * ap, idge veal *rconbalancge, il *copvlge, il *copvrmp, il * sensemp*info); /* doublef2_(in*r *lo); /*ta,r doublef2_(inwer *idoublef2_(in *adoublef2_(invau, i5, c*lda,lda,doublef2_(invintip, comper *ivinteger *infwise_fact, charx *adoublef2_(in* ork, *idoublef2_(in bn, indoublef2_(innfo);eindoublef2_(innfo);v doublef2_(i*n, db, tgsjalex *w, comuomer *ipcomvomer *ipcomqeteger *nrhs, complex * ap, idgegswhfrrplecopvxlge, il *copvsrgeger *lo); /*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *edoublef2_(inmer *ip /doublef2_(inr *ip *adoublef2_(in, c lmdoublef2_(inv*l *ip, comper *ivsda,doublef2_(invsinteger *info);s /doublef2_(in integ, da,lda, j1om, iner *ldx,tteger *nrhs, complex * ap, idgegval *rconcopvlge, il *copvrmp*info); /* doublef2_(inlex *res */ int chedoublef2_(in *lda,lda, j1l *edoublef2_(inr *ip /*idoublef2_(in *ip *adoublef2_(in, c lmdoublef2_(invau, i5, c*lda,lda,, doublef2_(invinteger *info); /doublef2_(in integda,lda, j1om, in, fact, char *uplo, integer *n, integer dgehdr *lex *b, ib, integer *wise__, icomplex *a*idoublef2_(in r *ipiv, ceta,r doublef2_(inuaux doublef2_(in integ, da,lda, jr *uplo, integer *n, integer dgehn, clex *b, ib, integer *wise__, icomplex *a*idoublef2_(in r *ipiv, ceta,r doublef2_(inuaux doublef2_(in integ, da,lda, j1om, iner *ldx,tteger *nrhs, complex * ap, idgejsval *rconcopage, il *copplex *work, real *rchar er *ip *rchar teal *rchar pSuiv,tgex2lemp*info); /* doublef2_(in*r complex *d__, doublef2_(in*v doublef2_(innteger *ifaldvrnt, doublef2_(invnteger *info); /doublef2_(in integda,lda, j1om, in, fact, charom, iner *ldx,tteger *nrhs, complex * ap, idgelqr *lex *b, iomp*info); /* doublef2_(in*r *lo); /* S*infodoublef2_(inuaux doublef2_(in integer *ldx,tteger *nrhs, complex * ap, idgelqfhar *ocolcnteger *n, compldoublef2_(in*r *lo); /* S*infodoublef2_(inuaux doublef2_(in integer *ldx,t1om, iner *ldx,tteger *nrhs, complex * ap, idgel integemplex *char *jobteger *n, compl(char * c, integedoublef2_(ing *res */ int chedoublef2_(in *lda,lda, j1l *e*idoublef2_(in integer *n, in1om, iner *ldx,tteger *nrhs, complex * ap, idgel , clex *b, iomp*info); /* *info); /ntege*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *edoublef2_(inmeegedoublef2_(innfo); da,lda, j;,etrfdoublef2_(in integda,lda, j1om, in, uomer *ipcomvomer *ipcomqeteger *nrhs, complex * ap, idgelss clex *b, iomp*info); /* *info); /ntege*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *edoublef2_(inmeegedoublef2_(innfo); da,lda, j;,etrfdoublef2_(in integda,lda, j1om, in, uomer *ipcoeger *nrhs, complex * ap, idgelsx clex *b, iomp*info); /* *info); /ntege*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *e(char * c, jpvt*edoublef2_(innfo); da,lda, j;,etrfdoublef2_(in integda,lda, jlex *whfrrplecoplex *whfrrplecodgelsy clex *b, iomp*info); /* *info); /ntege*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *e(char * c, jpvt*edoublef2_(innfo); da,lda, j;,etrfdoublef2_(in integda,lda, jle1om, iner *ldx,tteger *nrhs, complex * ap, idgeqabset*/ int chetrd_(char *updoublef2_(in*r *lo); /* S*infodoublef2_(inuaux doublef2_(in integer *ldx,tteger *nrhs, complex * ap, idgeqlfhar *ocolcnteger *n, compldoublef2_(in*r *lo); /* S*infodoublef2_(inuaux doublef2_(in integer *ldx,t1om, iner *ldx,tteger *nrhs, complex * ap, idgeqp3har *ocolcnteger *n, compldoublef2_(in*r *lo); /* S*info*lo); /*jpvt*edoublef2_(inuaux doublef2_(in integer *ldx,t1om, in, uomer *ipcoeger *nrhs, complex * ap, idgeqpfhar *ocolcnteger *n, compldoublef2_(in*r *lo); /* S*info*lo); /*jpvt*edoublef2_(inuaux doublef2_(in integer *ldx,toeger *nrhs, complex * ap, idgeqrbset*/ int chetrd_(char *updoublef2_(in*r *lo); /* S*infodoublef2_(inuaux doublef2_(in integer *ldx,tteger *nrhs, complex * ap, idgeqrfhar *ocolcnteger *n, compldoublef2_(in*r *lo); /* S*infodoublef2_(inuaux doublef2_(in integer *ldx,t1om, iner *ldx,tteger *nrhs, complex * ap, idgek, integemplex *char *job/* (char * c/ntege*idoublef2_(in r *ipiv, ceta,r doublef2_(inorm__, real *err_bnds_comp__, integedoublef2_(in *lda,lda, j1l *edoublef2_(inhresh, realoutine *doublef2_(inger *idoublef2_(in mper doublef2_(in integer *ldx,tt integ, da,lda, jr *uplo, integer *n, integer dge real *rconmplex *, il *(char *jobz, char *upler * n_integedoublef2_(ing *res */ int chedoublef2_(inorm__, real *err_bn, da,lda, jrtegerdoublef2_(inrl *edoublef2_(incl *edoublef2_(inr *ip, comper *ipivdoublef2_(inhresh, realoutinedoublef2_(innfo); *idoublef2_(inber *iinteger *n, integer *nrdoublef2_(iny);, real *e, co, doublef2_(iny);, reav, c *info); /ivyne */ indoublef2_(inpe */ in*idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idgerqr *lex *b, iomp*info); /* doublef2_(in*r *lo); /* S*infodoublef2_(inuaux doublef2_(in integer *ldx,tteger *nrhs, complex * ap, idgerqfhar *ocolcnteger *n, compldoublef2_(in*r *lo); /* S*infodoublef2_(inuaux doublef2_(in integer *ldx,t1om, iner *ldx,tteger *nrhs, complex * ap, idgescr *lex *b, ib, doublef2_(ing *res */ int chetedoublef2_(innheupchar *jobztegerer *n, injtegerdoublef2_(in* orkr *nrhs, complex * ap, idgesddal *rconcoprange, char * lex *b, ib, doublef2_(inlex *res */ int chedoublef2_(in indoublef2_(innteger *ifaldvrnt, doublef2_(invu, integer *ervt*edoublef2_(in integda,lda, j1om, in, fact, charom, iner *ldx,tteger *nrhs, complex * ap, idgeiv, complex *b, integer *ldb, pdoublef2_(ing *res */ i __, fact, charntegedoublef2_(in *lda,lda, j1l *eer *ldx,tteger *nrhs, complex * ap, idgeivdal *rconcopplex *work, rer *ldb, abssqnnteger owcd_*idoublef2_(in r *ipiv, ceta,r doublef2_(in indoublef2_(innteger *ifal S*irntdoublef2_(invt*einteger *ervt*edoublef2_(in integda,lda, j1om, in, fact, chareger *nrhs, complex * ap, idgeivjal *rconcopage, il *copplex *work, rea*ldb, abssqn S*info); /* doublef2_(in r *ipiv, ceta,r doublef2_(in v r *ipiv, cemv, ex doublef2_(invnteger *info); /doublef2_(in integda,lda, j1om, in, fact, chareger *nrhs, complex * ap, idgeiv real *ferr, real implex *char *job/* (char * cn_integedoublef2_(ing *res */ int chedoublef2_(inorm__, real *err_bn, da,lda, jrteger, il *(char *doublef2_(inrl *edoublef2_(incl *e*idoublef2_(inb*lda,lda, j1l *edoublef2_(inhresh, realoutinedoublef2_(in nfo); doublef2_(infmper doublef2_(in mper doublef2_(in integer *ldx,tlex integer *ldx,tteger *nrhs, complex * ap, idged, real *ferr, real implex *char *job/* (char * cn_integedoublef2_(ing *res */ int chedoublef2_(inorm__, real *err_bn, da,lda, jrteger, il *(char *doublef2_(inrl *edoublef2_(incl *e*idoublef2_(inb*lda,lda, j1l *edoublef2_(inhresh, realoutinedoublef2_(in nfo); doublef2_(inchesv_(cdoublef2_(inber *iinteger *n, integer *nr, doublef2_(iny);, real *e, codoublef2_(iny);, reav, c *info); /iv,syne */ indoublef2_(inpe */ indoublef2_(in integer *n, int integ, fact, char *uplo, integer *n, integer dgetcr *lex *b, ib, doublef2_(ing *res */ int cheres */ i _ztegerer *n, injtegerfact, char *uplo, integer *n, integer dgeter *lex *b, iomp*info); /* doublef2_(in*r *lo); /* S*info*lo); /*rtegerer *n, integer *nrhs, complex * ap, idgegrfhar *ocolcnteger *n, compldoublef2_(in*r *lo); /* S*info*lo); /*rtegerer *n, integer *nrhs, complex * ap, idgegri *lex *b, ib, doublef2_(ing *res */ int cheres */ i _ztegerdoublef2_(in integer *ldx,t1om, iner *ldx,tteger *nrhs, complex * ap, idgegr integemplex *char *job/* (char * c/ntege*idoublef2_(in r *ipiv, ceta,r fact, charntegedoublef2_(in *lda,lda, j, reaer *ldx,tteger *nrhs, complex * ap, idggbakwhfrrplecoplex *whflogic2mplex *z_b, integer *wise_, fact, charx *adoublef2_(inl* ork, doublef2_(inc* ork, iint chpemge, doublef2_(invnteger *info); /er *ldx,tteger *nrhs, complex * ap, idggbalwhfrrplecoplechar *jobsx_doublef2_(in*r *lo); /* S*infodoublef2_(in *lda,lda, j1l *eer *ldx,ttise__, icomplex *a*idoublef2_(inl* ork, doublef2_(inc* ork, doublef2_(in integda,lda, jlex *whfrrplecoplex *whfrrplecodggeswhfrrplecopvxlge, il *copvsrge, il *sorr, L_fp selctglechar *jobsx_doublef2_(in*r *lo); /**infodoublef2_(in *lip, comper *ipiv, com_(insdi indoublef2_(inr *ip /doublef2_(inr *ip *a*idoublef2_(inbec lmdoublef2_(inv*l *eger *info);sda,doublef2_(invsintip, comper *ivs /doublef2_(in integda,lda, j1om, inlex *whfrb integ, fact, char *uplo, integer *n, integer dgg real *rconcopvxlge, il *copvsrge, il *sorr, L_fp selctgle, il *sensemp*info); /* doublef2_(in*r *lo); /*ta,r *idoublef2_(inb*lda,lda, j1l *eer *n, insdi indoublef2_(inr *ip /*idoublef2_(in *ip *adoublef2_(in, c lmdoublef2_(inv*l *eger *info);sda,ex doublef2_(invsinteger *info);s /doublef2_(innfo);eindoublef2_(in nfo);gerdoublef2_(in integer *ldx,t1om, iner *ldx,tt integda,lda, jle1er *ldalex *whfrb integer *ldx,tteger *nrhs, complex * ap, idgg val *rconcopvlge, il *copvrmp*info); /* doublef2_(inlex *res */ int chedoublef2_(in *lda,lda, j1l *edoublef2_(inr *ip /*idoublef2_(in *ip *adoublef2_(in, c lmdoublef2_(invau, i5, c*lda,lda,, doublef2_(invinteger *info); /doublef2_(in integda,lda, j1om, in, fact, char *uplo, integer *n, integer dgg veal *rconbalancge, il *copvlge, il *copvrmp, il * sensemp*info); /* doublef2_(in*r *lo); /*ta,r doublef2_(inr *ip, comper *ipivdoublef2_(inr *ip /doublef2_(inr *ip *adoublef2_(in , c lmdoublef2_(invau, i5, c*lda,lda,doublef2_(invinteger *info); /, fact, charise_fact, charx *adoublef2_(inl* ork, doublef2_(inc* ork, *idoublef2_(in bn, indoublef2_(inbbn, indoublef2_(innfo);eindoublef2_(in nfo);gerdoublef2_(in integer *ldx,t1om, iner *ldx,tt integlex *whfr , integer *ldx,tteger *nrhs, complex * ap, idggglm, complex *b, integer *teger *n, cop* doublef2_(inlex *res */ int chedoublef2_(in *lda,lda, j1l *edoublef2_(ind *nr, doublef2_(ininedoublef2_(iny /doublef2_(in integda,lda, j1om, in, fact, char *uplo, integer *n, integer dgghn, complexv, cqteomplexv, c_, q_ub__, logida,lda, jlexise_fact, charx *adoublef2_(in*r *lo); /*ta,r doublef2_(inr *ip, comper *ipivdoublef2_(inhfrrplecoplex *whdoublef2_(inz *info); /iv,stial *lcomplex *uplo, integer *n, integer dgglse clex *b, iomp*info); /* *info); p* doublef2_(inlex *res */ int chedoublef2_(in *lda,lda, j1l *edoublef2_(incl *e*idoublef2_(ingecgedoublef2_(inx /doublef2_(in integda,lda, j1om, in, fact, char *uplo, integer *n, integer dggqrfhar *ocolcnb, integer *teger *n, cop* doublef2_(inlex *res */ int chedoublef2_(intauchedoublef2_(in *lda,lda, j1l *e*idoublef2_(intauberdoublef2_(in integer *ldx,t1om, iner *ldx,tt *uplo, integer *n, integer dggrqfhar *ocolcnteger *n, copmp*info); /* doublef2_(inlex *res */ int chedoublef2_(intauchedoublef2_(in *lda,lda, j1l *e*idoublef2_(intauberdoublef2_(in integer *ldx,t1om, iner *ldx,tt *uplo, integer *n, integer dggivdal *rconcopplex *work, rlex *work, *j *rcond, bnds__, real *eneger *n, copmp*info); o cda,lda, j1*adoublef2_(in*r complex *d__, doublef2_(in *lda,lda, j1l *edoublef2_(inr *ip*a*idoublef2_(inbec lmdoublef2_(innteger *ifaldvrntdoublef2_(invheres */ i _o); /doublef2_(inhfrrplecoplex *whdoublef2_(in integer *n, int integ, fact, char *uplo, integer *n, integer dggivpal *rconcopplex *work, rlex *work, *j *rcond, bnds__, real *epmp*info); /* doublef2_(in*r *lo); /*ta,r doublef2_(inr *ip, comper *ipivdoublef2_(inaldva,doublef2_(inaldbmp*info); o cda,lda, _olmdoublef2_(innteger *ifaldvrntdoublef2_(invheres */ i*hfrrpledoublef2_(inhfrrplecoplex *wher *n, int integdoublef2_(intauin*idoublef2_(in integer *n, int *uplo, integer *n, integer dgsvj0al *rconcopv, integer *teger *n, co/* doublef2_(inlex *res */ int chedoublef2_(ingecgedoublef2_(in*v r *ipiv, cemv, exdoublef2_(invnteger *info); /doublef2_(inep indoublef2_(insfmicd_*idoublef2_(inaldeger *n, co/sweep*edoublef2_(in integer *n, in, integ, fact, char *uplo, integer *n, integer dgsvj1al *rconcopv, integer *teger *n, co/* er *n, co/1d_*idoublef2_(in r *ipiv, ceta,r doublef2_(ingecgedoublef2_(in*v r , fact, chamvntdoublef2_(invheres */ i*hfrrpdoublef2_(inep indoublef2_(i _sfmicd_doublef2_(inaldeger *n, co/sweep*edoublef2_(in integer *n, inle1om, iner *ldx,tteger *nrhs, complex * ap, idgtns, cger *n, comp*info); /* doublef2_(indda,, doublef2_(ingecgedoublef2_(invrntdoublef2_(indu2r fact, charntege*idoublef2_(in *y, indoublef2_(innfo); doublef2_(in integer *n, inlex integer *ldx,tteger *nrhs, complex * ap, idgtk, integemplex *char *job/* (char * c/ntege*idoublef2_(indlr doublef2_(ingecgedoublef2_(invrntdoublef2_(indlfge*idoublef2_(indfgedoublef2_(invrfgedoublef2_(invr2r fact, charntege*idoublef2_(inb*lda,lda, j1l *edoublef2_(inhresh, realoutinedoublef2_(in ger *idoublef2_(in mper doublef2_(in integer *ldx,tt integer *n, inlexeger *nrhs, complex * ap, idgtiv, complex *b, integer *ldb, pdoublef2_(indda,, doublef2_(ingecgedoublef2_(invrntdoublef2_(inb*lda,lda, j1l *eer *n, i*e,hr *ldx, real *ferr, r, integdgtiv real *ferr, real implex *char *job/* (char * cn_integedoublef2_(indlr doublef2_(ingecgedoublef2_(invrntdoublef2_(in, dlfgedoublef2_(invfgedoublef2_(invrfgedoublef2_(invr2r fact, charntege*idoublef2_(inb*lda,lda, j1l *edoublef2_(inhresh, realoutinedoublef2_(in nfo); doublef2_(infmper doublef2_(in mper doublef2_(in integer *ldx,tlex integer *ldx,tteger *nrhs, complex * ap, idgttrfhar *ocolcnb, doublef2_(indlr doublef2_(ingecge, doublef2_(ingrntdoublef2_(indu2r fact, charntegeer *ldx,tteger *nrhs, complex * ap, idgttr integemplex *char *job/* (char * c/ntege*idoublef2_(indlr doublef2_(ingecgedoublef2_(invrntdoublef2_(indu2r , da,lda, jrtegerdoublef2_(in *lda,lda, j1l *eer *ldx,tteger *nrhs, complex * ap, idgttsr *lex *b, iimplex *char *job/* (char * c/ntege*idoublef2_(indlr doublef2_(ingecgedoublef2_(invrntdoublef2_(indu2r , da,lda, jrtegerdoublef2_(in *lda,lda, j1l r *nrhs, complex * ap, idhgeqzwhfrrplecoplex *whfv, cqteomplexv, c_, q_ub__, logi, fact, charise_fact, charx *adoublef2_(inh *info); /iv1lhindoublef2_(i _u, integer *eriztdoublef2_(inr *ip /doublef2_(inr *ip *adoublef2_(in , c lmdoublef2_(inhfrrplecoplex *whdoublef2_(inz *info); /ivtial *idoublef2_(in integer *n, in1om, iner *ldx,tteger *nrhs, complex * ap, idhsei, cger *no/* SubroutieigsrcSubroutiinitveglex *whfr l cla_geger *lo); /doublef2_(inh *info); /iv1lhindoublef2_(inwer *idoublef2_(in *adoublef2_(invau, i5, c*lda,lda,doublef2_(invintip, comper *ivinteger *infecom c*lda,a,ldrdoublef2_(in integer *ldx,tlexfailau, i5, c*ldxfailriner *ldx,tteger *nrhs, complex * ap, idhseq/ int er coplex *whfv, c_, q_ub__, logida,lda, jwise_, _fact, charx *adoublef2_(inh *info); /iv1lhindoublef2_(inwer *idoublef2_(in *adoublef2_(inz *info); /ivtial doublef2_(in integ, da,lda, j1om, iner *ldx,tteger *nlex *whfdix *, cdoublef2_(indinr *nrhs, complex * ap, idla_gbamv_ *lex *b, i inteupchar *job *ldafb)herfsx_ex(char * co */teger *ipiv, doublef2_(ing *ip*adoublef2_(ing *lda,lda, j, , doublef2_(in*ferr, real tecinedoublef2_(in, c lmdoublef2_(inyeg, fact, char cyr *ndoublef2_(idla_gbnfo);_ integemplex *char *job/* (char * co */teger *ipkuin*idoublef2_(inger *ipiv, ceta, doublef2_(in*nrhs*ipiv, ceta,nrhs, *ipiv, cerntegeer *ldx,tcmo;eindoublef2_(inc *info); /ivtegein*idoublef2_(in integer *n, int integftnlen mplex_lenr *nrhs, complex * ap, idla_gb reaextended_ *lex *b, iprec_type *info); /iv,smplex_type *info); /ivb, integer *o */teger *ipiv, char *job/ntege*idoublef2_(in er *ipiv, ceta, doublef2_(in*nrhs*ipiv, ceta,nrhs, *ipiv, cerntegelex *whfrcoleqrntdoublef2_(inc *indoublef2_(inr *ip, comper *ipivdoublef2_(inyhs*ipiv, cetaynedoublef2_(in, rr_mpll *e, da,lda, jnal *er *nrdoublef2_(iny);s_n *nrdoublef2_(iny);s_cl *e, doublef2_(inneegedoublef2_(ingy *edoublef2_(indy*adoublef2_(in y_taill *edoublef2_(innfo); da,lda, jithneehindoublef2_(inrthneehin*idoublef2_(indz_ubl *elex *whfrigl *e_cwise *info); /ivteger *ndoublef2_(idla_gbnhesv__, complex *b, integer *o */teger *ipiv, char *job, icoltindoublef2_(inger *ipiv, ceta, doublef2_(in*nrhs*ipiv, ceta,nrr *nrhs, complex * ap, idla_geamv_ *lex *b, i inteupchar *job *ldafb)herfsx_exdoublef2_(ing *ip*adoublef2_(ingr *ipiv, ceta,r doublef2_(inxeg, fact, char cinedoublef2_(in, c lmdoublef2_(inyegfact, char cyr *ndoublef2_(idla_genfo);_ integemplex *char *job/* doublef2_(ingr *ipiv, ceta,rex doublef2_(ingrm__, real *err_bnds_comp__rntegeer *ldx,tcmo;ein, doublef2_(incecgefo); /ivtegeindoublef2_(in integer *n, int integ gtnlen mplex_lenr *nrhs, complex * ap, idla_ge reaextended_ *lex *b, iprec_type *info); /iv,smplex_type *info); /ivb, integer *integedoublef2_(ing *res */ int che*idoublef2_(in *m__, real *err_bnds_comp__rntegelex *whfrcoleqrnt, doublef2_(incecgedoublef2_(in *lda,lda, j1l *edoublef2_(inyinfo); /iv,staynedoublef2_(in, rr_mpll *eda,lda, jnal *er *nrdoublef2_(iny);s_n *nex doublef2_(iny);s_cl *edoublef2_(inneegedoublef2_(ingy *edoublef2_(in, dynedoublef2_(iny_taill *edoublef2_(innfo); da,lda, jithneehin, doublef2_(innthneehindoublef2_(indz_ubl *elex *whfrigl *e_cwise *in, fact, char *uplo, integer *n, integer dla_li, , rr_, complex *b, integer *lz, integer *intege, doublef2_(inneegedoublef2_(ingy *edoublef2_(in, rrr *ndoublef2_(idla_ponfo);_ intege* integer *ldz, codoublef2_(ing *res */ int che*idoublef2_(in *m__, real *err_bnds_comp__cmo;eindoublef2_(inc *in, fact, char *uindoublef2_(in integer *n, int integgtnlen * in_lenr *nrhs, complex * ap, idla_pon reaextended_ *lex *b, iprec_type *inintege* inte__, real *eneger *n, cointegedoublef2_(ing *res */ int chedoublef2_(in *m__, real *err_bnlex *whfrcoleqrntdoublef2_(inc *indoublef2_(inr *ip, comper *ipivdoublef2_(inyhs*ipiv, cetaynedoublef2_(in, rr_mpll *e, da,lda, jnal *er *nrdoublef2_(iny);s_n *nrdoublef2_(iny);s_cl *e, doublef2_(inneegedoublef2_(ingy *edoublef2_(indy*adoublef2_(in y_taill *edoublef2_(innfo); da,lda, jithneehindoublef2_(inrthneehin*idoublef2_(indz_ubl *elex *whfrigl *e_cwise *info); /ivtegeeggtnlen * in_lenr *ndoublef2_(idla_ponhesv__, intege* integer *ldz, coltindoublef2_(ing*lda,lda, j, , doublef2_(in*nm__, real *err_bndoublef2_(in integgtnlen * in_lenr *ndoublef2_(idla_nhesv__, complex *b, integer * coltindoublef2_(ing*lda,lda, j, , doublef2_(in*nm__, real *err_r *nrhs, complex * ap, idla_syamv_ *lex *b, i* integer *ldz, codoublef2_(ing *ip*ex doublef2_(ingr *ipiv, ceta,r doublef2_(inxegfact, char cine*idoublef2_(inbec lmdoublef2_(inyegfact, char cyr *ndoublef2_(idla_synfo);_ intege* integer *ldz, codoublef2_(ing *res */ int che*idoublef2_(in *m__, real *err_bnds_comp__rntegeer *ldx,tcmo;ein, doublef2_(incecgefo); /ivtegeindoublef2_(in integer *n, int integ gtnlen * in_lenr *nrhs, complex * ap, idla_syn reaextended_ *lex *b, iprec_type *inintege* inte__, real *eneger *n, cointegedoublef2_(ing *res */ int chedoublef2_(in *m__, real *err_bn*ipiv, cerntegelex *whfrcoleqrntdoublef2_(inc *in*idoublef2_(inb*lda,lda, j1l *edoublef2_(inyhs*ipiv, cetaynedoublef2_(in , rr_mpll *eda,lda, jnal *er *nrdoublef2_(iny);s_n *nedoublef2_(in y);s_cl *edoublef2_(inneegedoublef2_(ingy *edoublef2_(indyin*idoublef2_(iny_taill *edoublef2_(innfo); da,lda, jithneehindoublef2_(i*e, thneehindoublef2_(indz_ubl *elex *whfrigl *e_cwise *info); /ivtegeiex gtnlen * in_lenr *ndoublef2_(idla_synhesv__, intege* integer *ldz, gefo); /ivtegeindoublef2_(inlex *res */ int chedoublef2_(in *m__, real *err_bn*ipiv, cerntege*idoublef2_(in integgtnlen * in_lenr *nrhs, complex * ap, idla_wwadd__, complex *b, doublef2_(inxegdoublef2_(inyeg, doublef2_(in r *nrhs, complex * ap, idlabad cdoublef2_(insmalda,doublef2_(inlargkr *nrhs, complex * ap, idlabn, clex *b, iomp*info); /* *info); / *edoublef2_(inmer *res */ int chedoublef2_(ingecgedoublef2_(inegedoublef2_(intau*wh*idoublef2_(intaupr doublef2_(inxegfact, chautinedoublef2_(inyhs*ipiv, c _o)yr *nrhs, complex * ap, idlacnr *lex *b, ib, doublef2_(invr doublef2_(inxeg, fact, charsgngedoublef2_(ines_geger *lo);kasemp*info); isavkr *nrhs, complex * ap, idlans, clex *b, ib, doublef2_(invr doublef2_(inxeg, fact, charsgngedoublef2_(ines_geger *lo);kaser *nrhs, complex * ap, idlanpy, intege* integer *ldz,teger *n, co/* doublef2_(inlex *res */ int chedoublef2_(in *lda,lda, j1l r *nrhs, complex * ap, idladiv cdoublef2_(inchedoublef2_(in *ldoublef2_(inc *in*idoublef2_(ingecgedoublef2_(inpr doublef2_(inqr *nrhs, complex * ap, idlae2 cdoublef2_(inchedoublef2_(in *ldoublef2_(inc *in*idoublef2_(inrt1indoublef2_(inrt2r *nrhs, complex * ap, idlaebz *lex *b, iicoplechar *jobsitl *ferr, real sx_ex(char * cml *ferr, real minpmp*info); /bmicd_doublef2_(inabsaldeg, doublef2_(innelaldegdoublef2_(inpivmicd_doublef2_(ingecgedoublef2_(in ygedoublef2_(ine2r fact, chanva1*adoublef2_(in* *ldoublef2_(inc *in*irr, real mmplr fact, chan* *ldoublef2_(in integer *n, int integ, fact, char *uplo, integer *n, integer dlaed0 *lex *b, iiv, cqteger *ldz,qsi_, q_ub__, logi, doublef2_(ingecgedoublef2_(inegedoublef2_(inhfrrplecoplex *whledoublef2_(inhsalrefrrplecoplex * indoublef2_(in integer *n, int integ, fact, char *uplo, integer *n, integer dlaed1har *ocolcnb, doublef2_(indecgedoublef2_(inq *ip, comper *i*wher *n, intndx*whdoublef2_(inrhnteger *ldz,cutpntin*idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idlaedr *lex *b, ikmp*info); /* *info); /1gedoublef2_(in decgedoublef2_(inq *, comper *i*wher *n, intndx*whdoublef2_(inrhnte*idoublef2_(inzecgedoublef2_(invlama,r doublef2_(inwgedoublef2_(inq2r , da,lda, jrndxwher *n, intndxcwher *n, intndxpmp*info); coltypeg, fact, char *uplo, integer *n, integer dlaed3 *lex *b, ikmp*info); /* *info); /1gedoublef2_(in decgedoublef2_(inq *, comper *i*whdoublef2_(inrhntedoublef2_(invlama,r ex doublef2_(inq2wher *n, intndxmp*info); ctot*edoublef2_(in te*idoublef2_(inseger *n, integer *nrhs, complex * ap, idlaed4 clex *b, ib, integer *wecgedoublef2_(inv *in*idoublef2_(inzecgedoublef2_(invelaawhdoublef2_(inrhntedoublef2_(invlame_, _fact, chareger *nrhs, complex * ap, idlaed5 *lex *b, iiecgedoublef2_(inv *indoublef2_(inzecge, doublef2_(ingelaawhdoublef2_(inrhntedoublef2_(invlamr *nrhs, complex * ap, idlaed6 *lex *b, iksiter*elex *whfrorgat *adoublef2_(in rhntedoublef2_(inv *indoublef2_(inzecgedoublef2_(infinit*adoublef2_(in tauinfact, chareger *nrhs, complex * ap, idlaed7 *lex *b, iiv, cqteger *ldz,nteger *ldz,qsi_, , fact, chatlvlsteger *ldz,curlvau, i5, c*ldcurpbmgedoublef2_(inv *in*idoublef2_(inq *, comper *i*wher *n, intndx*whdoublef2_(inrhnte*ipiv, c _cutpntindoublef2_(inhsalrefrrplecopleqptriner *ldx,tprmptriner *ldx,t pecomp*info); givptriner *ldx,tgivcldegdoublef2_(ingivnu in*idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idlaed8 *lex *b, iiv, cqteger *ldz,kmp*info); /* *info); _qsi_, doublef2_(indecgedoublef2_(inq *, comper *i*wher *n, intndx*whtedoublef2_(innhnteger *ldz,cutpntindoublef2_(inzecgedoublef2_(invlama,r ex doublef2_(inq2wher *n, in*i*2*edoublef2_(in teer *ldx,tpecomp*info); _givptriner *ldx,tgivcldegdoublef2_(ingivnu iner *n, intndxpmp*info); *e,hrd*ferr, real teger *nrhs, complex * ap, idlaed9 *lex *b, ikmp*info); kstartmp*info); kstopeg, fact, chab, doublef2_(indecgedoublef2_(inq *, comper *i*whdoublef2_(in rhntedoublef2_(invlama,r doublef2_(inwgedoublef2_(in*ifaldvrntegerseg, fact, char *uplo, integer *n, integer dlaeda clex *b, ib, integer *tlvlsteger *ldz,curlvau,, fact, chacurpbmgeer *ldx,tprmptriner *ldx,tpecomp*info); givptrin, fact, chagivcldegdoublef2_(ingivnu indoublef2_(inq *, comper qptrin, doublef2_(inzecgedoublef2_(inztempSuiv,tgex2lteger *nrhs, complex * ap, idlaei, clex *whfrrightveglex *whfrnoinit*aq_ub__, logi, doublef2_(inh *info); /iv1lhindoublef2_(inwer doublef2_(inw *a*idoublef2_(in; /doublef2_(inv *adoublef2_(in,*lda,lda, j1l *e*idoublef2_(in integdoublef2_(ineps3gedoublef2_(in*mlnu indoublef2_(in bignu iner *n, intnger *nrhs, complex * ap, idlaev2 cdoublef2_(inchedoublef2_(in *ldoublef2_(inc *in*idoublef2_(inrt1indoublef2_(inrt2*ldoublef2_(incs1indoublef2_(insn1r *nrhs, complex * ap, idlaexc clex *whfrwantqteger *ldz, codoublef2_(int*e, da,lda, j1lt*edoublef2_(in*wh*lcomplex*i*wher *n, inj1* *info); /1ge, fact, chab2*edoublef2_(in integer *n, integer *nrhs, complex * ap, idlag2 cdoublef2_(incheres */ int chedoublef2_(in *lip, comper *ipivdoublef2_(insafmicd_doublef2_(in* ork1gedoublef2_(in * ork2*edoublef2_(in r1*edoublef2_(in r2*edoublef2_(in ir *nrhs, complex * ap, idlag2s clex *b, iomp*info); /* doublef2_(incheres */ in, , f2_(insaifaldvrntegersaeger *n, integer *nrhs, complex * ap, idlagsr *lex *whfruppe /doublef2_(inr1*edoublef2_(ina2he*idoublef2_(in 3gedoublef2_(inb1*edoublef2_(inb2*edoublef2_(inb3in, doublef2_(incsuindoublef2_(insnrntdoublef2_(incsgerdoublef2_(in*nege*idoublef2_(incsqerdoublef2_(in*nqr *nrhs, complex * ap, idlagtfhar *ocolcnb, doublef2_(inchedoublef2_(inlamba,r *idoublef2_(inb*ldoublef2_(inc *indoublef2_(intldegdoublef2_(ind *in, fact, char eger *n, integer *nrhs, complex * ap, idlagtm integemplex *char *job/* (char * c/ntege*idoublef2_(in *ip*adoublef2_(indlr doublef2_(ingecgedoublef2_(invrnt, doublef2_(in *b, integer *ldbdoublef2_(inbec lmdoublef2_(in *eer *n, i*e,1l r *nrhs, complex * ap, idlagts clex *b, icoplechar *jobsx_doublef2_(in*r *idoublef2_(inb*ldoublef2_(inc *indoublef2_(ind *info); /ivtein*idoublef2_(inyindoublef2_(intldeger *n, integer *nrhs, complex * ap, idlagv2 cdoublef2_(incheres */ int chedoublef2_(in *lip, comper *ipivdoublef2_(inr *ip /doublef2_(inr *ip *adoublef2_(in , c lmdoublef2_(incsda,doublef2_(insnllmdoublef2_(incsr*adoublef2_(in snrr *nrhs, complex * ap, idlahq/ ilex *whfrwantteglex *whfrwant_, q_ub__, logi, fact, charise_fact, charx *adoublef2_(inh *info); /iv1lhindoublef2_(i _wer doublef2_(inw *afact, charisze_fact, charx _, doublef2_(inz *in, fact, chatial *lcomplex *uplo, integer *n, integer dlahrr *lex *b, ib, integer *kmp*info); / *edoublef2_(inmer *res */ int chedoublef2_(inuaux doublef2_(inu, integer *erizt*idoublef2_(inyininteger *eryr *nrhs, complex * ap, idlahn, clex *b, ib, integer *kmp*info); / *edoublef2_(inmer *res */ int chedoublef2_(inuaux doublef2_(inu, integer *erizt*idoublef2_(inyininteger *eryr *nrhs, complex * ap, idlaic1 clex *b, icoplechar *jobjx doublef2_(inine*idoublef2_(inses_gedoublef2_(inwgedoublef2_(ingammchedoublef2_(in ses_per doublef2_(ins*ldoublef2_(inc *r *nlex *whfdlaix *, cdoublef2_(indin1*edoublef2_(indin2r *nrhs, complex * ap, idlalnr *lex *whfrlmplex *char *job/r *res */ inn te*idoublef2_(insmicd_doublef2_(incp*adoublef2_(ingr *ipiv, ceta,r , doublef2_(ing1*edoublef2_(ind2*edoublef2_(inb*lda,lda, j1l *e*idoublef2_(in *idoublef2_(in *adoublef2_(inhresh, realoutine *doublef2_(in* ork, doublef2_(inx, comp*info); *uplo, integer *n, integer dlals0 *lex *b, iiv, cqteger *ldz,ndeger *n, co/rin, fact, chasqrefrrplecopleintegedoublef2_(inb*lda,lda, j1l *edoublef2_(i _bhresh, realoutbhresh, realopecomp*info); givptriner *ldx,tgivcldeg, fact, chatigcldegdoublef2_(ingivnu iner *n, intignu indoublef2_(in poleegedoublef2_(indiflr doublef2_(ingifr, doublef2_(inz *inres */ in, k*ldoublef2_(inc *r doublef2_(ins*ldoublef2_(in integer *n, integer *nrhs, complex * ap, idlalsa *lex *b, iiv, cqteger *ldz,*mlsi_, q_ub__, logi, rplecopleintegedoublef2_(inb*lda,lda, j1l *edoublef2_(i_bhresh, realo, rldbdoublef2_(innteger *ifaldvrntdoublef2_(invt, integer *kmp, doublef2_(ingiflr doublef2_(ingifr, doublef2_(inz *indoublef2_(in poleege*info); givptriner *ldx,tgivcldegfact, chatigcldegsh, realo, pecompdoublef2_(ingivnu indoublef2_(inc *r doublef2_(ins*ldoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idlal , cintege* integer *ldz,*mlsi_, q_ub__, logier *n, i*e,integedoublef2_(indecgedoublef2_(inegedoublef2_(inb*lda,lda, j1l *e*idoublef2_(innfo); da,lda, j;,etrfdoublef2_(in integda,lda, jt integ, fact, char *uplo, integer *n, integer dlamrg clex *b, ib1* *info); /2*adoublef2_(ingr *ipiv, c*e,dtrd1* *info); dtrd2wher *n, intndexplo,er *n, idlaneghar *ocolcnb, doublef2_(indecgedoublef2_(inlld*ldoublef2_(in sigmchedoublef2_(inpivmicd_da,lda, j; *r *ndoublef2_(idlangb cger *n, comp*info); /* integer *k */teger *ipkuin*idoublef2_(inger *ipiv, ceta, doublef2_(in intr *ndoublef2_(idlange cger *n, comp*info); omp*info); /* doublef2_(incheres */ i __, doublef2_(in intr *ndoublef2_(idlangt cger *n, comp*info); /* doublef2_(indda,doublef2_(ind *in, doublef2_(invrr *ndoublef2_(idlanhs cger *n, comp*info); /* doublef2_(ingr *ipiv, ceta,r , doublef2_(in intr *ndoublef2_(idlansb cger *n, compintege* integer *ldz, gefo); /ivtrfdoublef2_(i _ger *ipiv, ceta, doublef2_(in intr *ndoublef2_(idlansf cger *n, compintegemplexrmpintege* integer *ldz, ge*idoublef2_(in r doublef2_(in intr *ndoublef2_(idlansp cger *n, compintege* integer *ldz, gedoublef2_(in pr , doublef2_(in intr *ndoublef2_(idlanst cger *n, comp*info); /* doublef2_(indecgedoublef2_(iner *ndoublef2_(idlansy cger *n, compintege* integer *ldz, gedoublef2_(in heres */ i __, doublef2_(in intr *ndoublef2_(idlantb cger *n, compintege* inteintegediagteger *ldz, gefo); /ivtrfex doublef2_(inger *ipiv, ceta, doublef2_(in intr *ndoublef2_(idlantp cger *n, compintege* inteintegediagteger *ldz, gedoublef2_(i _gp*edoublef2_(in intr *ndoublef2_(idlantr cger *n, compintege* inteintegediagteger *ldz, *ldafb)herfsx_ex doublef2_(ingr *ipiv, ceta,r doublef2_(in intr *n integer *n, integer dlanv2 cdoublef2_(inchedoublef2_(in *ldoublef2_(inc *in*idoublef2_(indecgedoublef2_(inrt1 /doublef2_(innt1i /doublef2_(innt2rx_ex doublef2_(innt2i /doublef2_(inc indoublef2_(insnr *nrhs, complex * ap, idlapll, complex *b, doublef2_(inxeger *n, intncine*idoublef2_(inyegfact, char cyindoublef2_(inssmicr *nrhs, complex * ap, idlapmt *lex *whfrforwrdteger *ldz, *ldafb)herfsx_exdoublef2_(inhresh, realoutinefo); /ivtr *ndoublef2_(idlapy2 cdoublef2_(ininedoublef2_(inyr *ndoublef2_(idlapy3 cdoublef2_(ininedoublef2_(iny, doublef2_(inz *r *nrhs, complex * ap, idlaqgbmplex *b, iomp*info); /* integer *k */teger *ipkuin*i doublef2_(inger *ipiv, ceta, doublef2_(inrl *edoublef2_(incl *e*idoublef2_(innowc); doublef2_(incolc); doublef2_(inal *fe, il *(charr *nrhs, complex * ap, idlaqge clex *b, iomp*info); /* doublef2_(ingr *ipiv, ce S*infodoublef2_(innecgedoublef2_(incl *edoublef2_(innowc); doublef2_(i ncolc); doublef2_(inal *fe, il *(charr *nrhs, complex * ap, idlaqpr *lex *b, iomp*info); /* *info); offseizt*idoublef2_(in r *ipiv, ceta,r fact, chajpvt*edoublef2_(inuaux *idoublef2_(in;n1*edoublef2_(invb2*edoublef2_(in intr *nrhs, complex * ap, idlaqps clex *b, iomp*info); /* *info); offseizter *n, i*e,ibmp*info); opivdoublef2_(inrr *ipiv, ceta,r fact, chajpvt*e*idoublef2_(intau*edoublef2_(invb1*edoublef2_(invb2*edoublef2_(inauxege*idoublef2_(in*m__, real *er_r *nrhs, complex * ap, idlaqr0 ilex *whfrwantteglex *whfrwant_, q_ub__, logi, fact, charise_fact, charx *adoublef2_(inh *info); /iv1lhindoublef2_(i _wer doublef2_(inw *afact, charisze_fact, charx _, doublef2_(inz *in, fact, chatial doublef2_(in integda,lda, j1om, iner *ldx,tteger *nrhs, complex * ap, idlaqr1har *ocolcnb, doublef2_(inh *info); /iv1lhin *doublef2_(in*r1*edoublef2_(insi1*edoublef2_(insr2*edoublef2_(insi2he*idoublef2_(invr *nrhs, complex * ap, idlaqr2 ilex *whfrwantteglex *whfrwant_, q_ub__, logi, fact, chaktopeg*info); opot*aq_ub__, low, doublef2_(inh *info); /iv S*ih*afact, charisze_fact, charx _, doublef2_(inz *infact, chatial , rplecopleix *char *job/d*edoublef2_(insr*edoublef2_(insi*ldoublef2_(in vnteger *info); /er *ldx,tnhindoublef2_(inu, integer *eriztfo); /iv Sngerdoublef2_(in vnteger *info)wgerdoublef2_(in integer *ldx,t1om, r *nrhs, complex * ap, idlaqr3 ilex *whfrwantteglex *whfrwant_, q_ub__, logi, fact, chaktopeg*info); opot*aq_ub__, low, doublef2_(inh *info); /iv S*ih*afact, charisze_fact, charx _, doublef2_(inz *infact, chatial , rplecopleix *char *job/d*edoublef2_(insr*edoublef2_(insi*ldoublef2_(in vnteger *info); /er *ldx,tnhindoublef2_(inu, integer *eriztfo); /iv Sngerdoublef2_(in vnteger *info)wgerdoublef2_(in integer *ldx,t1om, r *nrhs, complex * ap, idlaqr4 ilex *whfrwantteglex *whfrwant_, q_ub__, logi, fact, charise_fact, charx *adoublef2_(inh *info); /iv1lhindoublef2_(i _wer doublef2_(inw *afact, charisze_fact, charx _, doublef2_(inz *in, fact, chatial doublef2_(in integda,lda, j1om, iner *ldx,tteger *nrhs, complex * ap, idlaqr5 ilex *whfrwantteglex *whfrwant_, q_ub__, lkacc22r , da,lda, j/* integer *ktopeg*info); opot*aq_ub__, loshft indoublef2_(i _sr*edoublef2_(insi*ldoublef2_(inh *info); /iv1lhinfact, charisze_, fact, charx _, doublef2_(inz *infact, chatial doublef2_(invinfo); /iv S*igerdoublef2_(innteger *ifaldvrntq_ub__, logerdoublef2_(in vnt, fact, chatiw; /er *ldx,tnhindoublef2_(inwhnteger *info)whr *nrhs, complex * ap, idlaqsb cger *n* integer *ldz, gefo); /ivtd*ldoublef2_(in ger *ipiv, ceta, doublef2_(in indoublef2_(insfo); doublef2_(inal *fe*i , il *(charr *nrhs, complex * ap, idlaqsp cger *n* integer *ldz, gedoublef2_(in pr , doublef2_(in indoublef2_(insfo); doublef2_(inal *fe, il *(charr *nrhs, complex * ap, idlaqsy, intege* integer *ldz,/* doublef2_(ingr *ipiv, ce S*infodoublef2_(in indoublef2_(insfo); doublef2_(inal *fe, il *(charr *nrhs, complex * ap, idlaqtr *lex *whfrlmpleeglex *whfrlf2_(*ldafb)herfsx_exdoublef2_(inu, integer *eriztdoublef2_(in doublef2_(in indoublef2_(i _s ork, doublef2_(inxrfdoublef2_(in integda,lda, jteger *nrhs, complex * ap, idlar1v, complex *b, integer *b1* *info); b gedoublef2_(i _lamba,r doublef2_(indecgedoublef2_(inda,doublef2_(inld*ldoublef2_(in lld*ldoublef2_(inpivmicd_doublef2_(ingaptldegdoublef2_(inzl *elex *whf _wantncgecomplex *begcntindoublef2_(inztal doublef2_(inmicgmche, fact, char *info); /ivtsuppal doublef2_(innrmicgerdoublef2_(inresi; *idoublef2_(inrqcoper doublef2_(in intr *nrhs, complex * ap, idlar2v, complex *b, doublef2_(inxegdoublef2_(iny, , doublef2_(inzecgeer *n, intncinedoublef2_(incl *edoublef2_(inseg, fact, char ccr *nrhs, complex * ap, idlarf cger *no/* Sulex *b, iomp*info); /* doublef2_(inve_, _fact, charecgerdoublef2_(intau*edoublef2_(inc *infact, chaticr , doublef2_(in intr *nrhs, complex * ap, idlarfb cger *no/* Subroutimplex *, il *direrr, real i salrev, integer *teger *n, co/* er *n, cok* doublef2_(inve_fo); /iv S*igerdoublef2_(inu, integer *eriztdoublef2_(inc *infact, chaticr , doublef2_(in intnteger *info)wintr *nrhs, complex * ap, idlarfghar *ocolcnb, doublef2_(in *ip*adoublef2_(inxeg, fact, char cinedoublef2_(intaur *nrhs, complex * ap, idlarfphar *ocolcnb, doublef2_(in *ip*adoublef2_(inxeg, fact, char cinedoublef2_(intaur *nrhs, complex * ap, idlarft cger *ndirerr, real isalrev, integer */* (char * cn_k* doublef2_(inve_fo); /iv*igerdoublef2_(inuaux doublef2_(inu, , da,lda, j1ltr *nrhs, complex * ap, idlarfx cger *no/* Sulex *b, iomp*info); /* doublef2_(in vntdoublef2_(intau*edoublef2_(inc *infact, chaticr doublef2_(in intr *nrhs, complex * ap, idlargv, complex *b, doublef2_(inxegfact, char cine*idoublef2_(inyegfact, char cyindoublef2_(incecgefo); /ivteccr *nrhs, complex * ap, idlarnv, complex *idis_geger *lo);isear *jobz, char *exdoublef2_(inhr *nrhs, complex * ap, idlarrahar *ocolcnb, doublef2_(indecgedoublef2_(inein, doublef2_(ink2*edoublef2_(insplaldegdoublef2_(intncomp*info); /splite_, _fact, charsplite_da,lda, jteger *nrhs, complex * ap, idlarrbhar *ocolcnb, doublef2_(indecgedoublef2_(inlld*l, fact, charfirs_geger *lo);ilas_gedoublef2_(inrald1indoublef2_(inrtol2e_, _fact, chaoffseiztdoublef2_(in indoublef2_(i*wggp*edoublef2_(in mper *idoublef2_(in integer *n, int integdoublef2_(inpivmicd_doublef2_(in spdiaomp*info); twis_geger *lo);ieger *nrhs, complex * ap, idlarrc int er cop_geger *lo); /doublef2_(inlda,, doublef2_(invrntdoublef2_(indecgedoublef2_(inegedoublef2_(inpivmicd_, fact, chaeigcntinfact, chatcntinfact, charcntinfact, chaieger *nrhs, complex * ap, idlarr, cintegerange, real iordermp*info); /* doublef2_(i _lda,doublef2_(invuinfact, chardeger *n, intrntdoublef2_(inn, ege, doublef2_(innelaldegdoublef2_(indecgedoublef2_(inegedoublef2_(ine2he*idoublef2_(inpivmicd_da,lda, jnsplite_da,lda, jtsplite_da,lda, j in*idoublef2_(in *edoublef2_(in mper doublef2_(in degdoublef2_(inwu*l, fact, charbloctegda,lda, jtedex *edoublef2_(in integda,lda, jt integ, fact, char *uplo, integer *n, integer dlarre cintegerange, ger *lo); /doublef2_(inlda,, doublef2_(invrntfact, chardeger *n, intrntdoublef2_(indecgedoublef2_(i _egedoublef2_(ine2hedoublef2_(inrald1indoublef2_(inrtol2e_doublef2_(in splaldeger *n, co/splite_da,lda, jtsplite_da,lda, j indoublef2_(in *e*idoublef2_(in mper doublef2_(in ggp*efact, charbloctegda,lda, jtedex *e*idoublef2_(inn, egedoublef2_(inpivmicd_doublef2_(in integer *ldx,tlex integer *ldx,tteger *nrhs, complex * ap, idlarrfhar *ocolcnb, doublef2_(indecgedoublef2_(inda,*idoublef2_(inlr *jobz, chaclstrtmp*info); cle); doublef2_(in *e*idoublef2_(in ggp*edoublef2_(in mper doublef2_(inspdiaompdoublef2_(in clggpllmdoublef2_(inclggprgedoublef2_(inpivmicd_doublef2_(insigmche*idoublef2_(indpluegedoublef2_(inlpluegedoublef2_(in integer *ldx,tteger *nrhs, complex * ap, idlarrjhar *ocolcnb, doublef2_(indecgedoublef2_(ine2*l, fact, charfirs_geger *lo);ilas_gedoublef2_(inrald* *info); offseizt*idoublef2_(in *edoublef2_(in mper doublef2_(in integda,lda, jt integ, doublef2_(inpivmicd_doublef2_(inspdiaomp*info); teger *nrhs, complex * ap, idlarrk clex *b, ib, integer *wwgedoublef2_(ingda,*idoublef2_(ingrntdoublef2_(indecgedoublef2_(ine2gedoublef2_(inpivmicd_, doublef2_(innelaldegdoublef2_(in *edoublef2_(in mper *info); teger *nrhs, complex * ap, idlarrrhar *ocolcnb, doublef2_(indecgedoublef2_(inein, *info); teger *nrhs, complex * ap, idlarrv, complex *b, doublef2_(inlda,doublef2_(invuin*idoublef2_(indecgedoublef2_(indegdoublef2_(inpivmicd_da,lda, jtsplite_*irr, real md_da,lda, jdld* *info); doul doublef2_(inmicrgpr , doublef2_(inrald1indoublef2_(inrtol2e_doublef2_(in *edoublef2_(in mper *i doublef2_(in ggp*efact, charbloctegda,lda, jtedex *edoublef2_(inn, ege, gdoublef2_(inzl *efact, chatize_fact, charsuppal doublef2_(in integ, fact, char integer *ldx,tteger *nrhs, complex * ap, idlarsclr *lex *b, iomp*info); /* doublef2_(ind *nr, doublef2_(ininefact, chatihr *nrhs, complex * ap, idlartg cdoublef2_(in_bndoublef2_(inglmdoublef2_(incege, doublef2_(ins/* doublef2_(inr *r *nrhs, complex * ap, idlartv, complex *b, doublef2_(inxegfact, char cine*idoublef2_(inyegfact, char cyindoublef2_(incecgedoublef2_(insegfact, ch*e,hrccr *nrhs, complex * ap, idlaruv, complex *isear *jobz, char *doublef2_(inhr *nrhs, complex * ap, idlarz cger *no/* Sulex *b, iomp*info); /* fact, chata,, doublef2_(invegfact, char cvntdoublef2_(intau*edoublef2_(inc *in, da,lda, j1lcr doublef2_(in intr *nrhs, complex * ap, idlarzb cger *no/* Subroutimplex *, il *direrr, real i salrev, integer *teger *n, co/* er *n, cok* fact, chata,doublef2_(inveg, _fact, cha*igerdoublef2_(inu, integer *eriztdoublef2_(inc *infact, cha S*icr doublef2_(in intnteger *info)wintr *nrhs, complex * ap, idlarzt cger *ndirerr, real isalrev, integer */* (char * cn_k* doublef2_(inve_fo); /iv*igerdoublef2_(inuaux doublef2_(inu, , da,lda, j1ltr *nrhs, complex * ap, idlas2 cdoublef2_(in_bndoublef2_(inglmdoublef2_(inh *nr, doublef2_(inssmicd_doublef2_(inssmahr *nrhs, complex * ap, idlascl integemype *info); /ivk */teger *ipkuin*idoublef2_(incfro indoublef2_(inctnteger *ldz,teger *n, co/* *idoublef2_(in r *ipiv, ceta,r fact, chateger *nrhs, complex * ap, idlasclr *lex *b, iomp*info); /* doublef2_(ind *nr, doublef2_(ininefact, chatihr *nrhs, complex * ap, idlasd0 *lex *b, i/* (char * csqrefrdoublef2_(ind *nr, doublef2_(inefrdoublef2_(innteger *ifaldvrntdoublef2_(invt, integer * S*igt, integer **mlsi_, q_ub__, lt integdoublef2_(in integer *n, inlexeger *nrhs, complex * ap, idlasd1har *ocolcnbdeger *n, co/rin(char * csqrefr*idoublef2_(indecgedoublef2_(in *ip*adoublef2_(inbec lmdoublef2_(innte, da,lda, j1lrntdoublef2_(invt, integer **igt, integer *idx*wher *ldx,tlex integdoublef2_(in integer *ldx,tteger *nrhs, complex * ap, idlasdr *lex *b, ibdeger *n, co/rin(char * csqrefrfact, ch*e,kfrdoublef2_(ind *nrdoublef2_(inzl *edoublef2_(in *ip*adoublef2_(in , c lmdoublef2_(innteger *ifaldvrntdoublef2_(invt, integer **igt, *idoublef2_(indsigmchedoublef2_(inu2r fact, chaldu2r doublef2_(invt2te, da,lda, j1lvt2teinteger *idxpteinteger *idxteinteger *idxcwher *ldx,tlexdx*wher *ldx,tcoltypeger *ldx,tteger *nrhs, complex * ap, idlasd3 *lex *b, ibdeger *n, co/rin(char * csqrefrfact, ch*e,kfrdoublef2_(ind *nrdoublef2_(inq *, comper *i*whdoublef2_(indsigmche*idoublef2_(innteger *ifaldvrntdoublef2_(inu2r fact, chaldu2r , doublef2_(invt, integer **igt, doublef2_(invt2teda,lda, j1lvt2te, fact, chardxcwher *ldx,tctot*edoublef2_(inzecgeer *n, intnger *nrhs, complex * ap, idlasd4 clex *b, ib, integer *wecgedoublef2_(inv *in*idoublef2_(inzecgedoublef2_(invelaawhdoublef2_(inrhntedoublef2_(in sigmchedoublef2_(in integer *ldx,tteger *nrhs, complex * ap, idlasd5 *lex *b, iiecgedoublef2_(inv *indoublef2_(inzecge, doublef2_(ingelaawhdoublef2_(inrhntedoublef2_(invsigmchedoublef2_(in intr *nrhs, complex * ap, idlasd6 *lex *b, iiv, cqteger *ldz,ndeger *n, co/rin, fact, chasqrefrdoublef2_(inv *indoublef2_(inv_bndoublef2_(inlda,, doublef2_(in *ip*adoublef2_(inbec lminteger *idx*wher *ldx,tpecomp, fact, chagivptriner *ldx,tgivcldegfact, chatigcldegdoublef2_(ingivnu in*igfact, chatignu indoublef2_(inpoleegedoublef2_(indiflr doublef2_(in, difr, doublef2_(inz *inres */ ink*ldoublef2_(inc *r doublef2_(ins*l*idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idlasd7 *lex *b, iiv, cqteger *ldz,ndeger *n, co/rin, fact, chasqrefrrplecoplekfrdoublef2_(ind *nrdoublef2_(inzl *e*idoublef2_(inzwindoublef2_(inv_bndoublef2_(inlfwindoublef2_(invta,, doublef2_(invlwindoublef2_(in *ip*adoublef2_(inbec lmdoublef2_(in, dsigmcheinteger *idxteinteger *idxplminteger *idx*wher *ldx,tpecomp, fact, chagivptriner *ldx,tgivcldegfact, chatigcldegdoublef2_(ingivnu in*igfact, chatignu indoublef2_(incecgedoublef2_(insegfact, chnteger *nrhs, complex * ap, idlasd8 *lex *b, iiv, cqteger *ldz,kmpdoublef2_(inv *in*idoublef2_(inzecgedoublef2_(inv_bndoublef2_(inlda,doublef2_(indiflr , doublef2_(ingifregfact, chatidifr, doublef2_(invsigmchedoublef2_(in integfact, chnteger *nrhs, complex * ap, idlasda *lex *b, iiv, cqteger *ldz,*mlsi_, q_ub__, logi, rplecoplesqrefrdoublef2_(inv *indoublef2_(inefrdoublef2_(innteger *ifa __,rntdoublef2_(invt, integer *kmpdoublef2_(indiflr doublef2_(indifr, *idoublef2_(inzecgedoublef2_(inpoleege*info); givptriner *ldx,tgivcldeg, fact, chatigcldeger *ldx,tpecompdoublef2_(ingivnu indoublef2_(inc *in, doublef2_(insegdoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idlasdq cintege* integer *ldz,*qrefrrplecopleiwher *ldx,tlencvt, integer *nrrntq_ub__, loccfrdoublef2_(inv *indoublef2_(inefr, doublef2_(invt, integer **igt, doublef2_(innteger *ifaldvrnt, doublef2_(incecgefo); /iv*icr doublef2_(in intnteger *infteger *nrhs, complex * ap, idlasdt clex *b, ib, integer *lvau, i5, c*ld); da,lda, j, fao* Sulex *b, indimlSulex *b, indiminteger *infesu r *nrhs, complex * ap, idlaset, intege* integer *ldz,teger *n, co/* doublef2_(inlex *ip*adoublef2_(inbec lmdoublef2_(in r *ipiv, ceta,r *nrhs, complex * ap, idlasq1har *ocolcnb, doublef2_(indecgedoublef2_(inefr, doublef2_(in intnteger *infteger *nrhs, complex * ap, idlasqr *lex *b, ib, doublef2_(inzecgeer *n, intnger *nrhs, complex * ap, idlasq3 *lex *b, ii0eger *n, co/0nrdoublef2_(inzl *e*ier *ldx,tpp*edoublef2_(indmin *nedoublef2_(insigmchedoublef2_(indesigge, gdoublef2_(inql *ferr, real sfailgeer *n, inttermp*info); /dtege*ilex *whfriee Sulex *b, itmype*edoublef2_(indmin1*edoublef2_(indmin2r , doublef2_(indb, doublef2_(indn1*edoublef2_(indb2*edoublef2_(ing*e*idoublef2_(intaur *nrhs, complex * ap, idlasq4 *lex *b, ii0eger *n, co/0nrdoublef2_(inzl *e*ier *ldx,tpp*eer *n, co/0icd_doublef2_(ingmin *nedoublef2_(indmin1*e, doublef2_(indmin2r doublef2_(indb, doublef2_(indn1*edoublef2_(indb2*e*idoublef2_(intau*elex *b, itmype*edoublef2_(ingr *nrhs, complex * ap, idlasq5 *lex *b, ii0eger *n, co/0nrdoublef2_(inzl *e*ier *ldx,tpp*edoublef2_(inuaux doublef2_(ingmin *nedoublef2_(indmin1*e, doublef2_(indmin2r doublef2_(indb, doublef2_(indnm1*edoublef2_(indbm2e_, _lex *whfriee r *nrhs, complex * ap, idlasq6 *lex *b, ii0eger *n, co/0nrdoublef2_(inzl *e*ier *ldx,tpp*edoublef2_(indmin *nedoublef2_(indmin1*edoublef2_(indmin2r , doublef2_(indb, doublef2_(indnm1*edoublef2_(indbm2r *nrhs, complex * ap, idlasr cger *no/* Subroutipivot *, il *direrr, ger *ldz,teg*igfact, chacd_doublef2_(inc *r doublef2_(ins*ldoublef2_(ingr *ipiv, ce S*inr *nrhs, complex * ap, idlasrt, integeir *jobz, char *doublef2_(ind *info); /ivlexeger *nrhs, complex * ap, idlassq, complex *b, doublef2_(inxegfact, char cine*idoublef2_(ins ork, doublef2_(insumsqr *nrhs, complex * ap, idlasv2 cdoublef2_(in_bndoublef2_(inglmdoublef2_(inh *nr, doublef2_(inssmicd_doublef2_(inssmahd_doublef2_(insnr*adoublef2_(in csr*adoublef2_(insnllmdoublef2_(incslr *nrhs, complex * ap, idlaswphar *ocolcnb, doublef2_(in r *ipiv, ceta,r fact, ch*e,k1* *info); k2r fact, charntegeer *ldx,ttechr *nrhs, complex * ap, idlasyr *lex *whfrlmpleleglex *whfrlmpleer *info); tsgnge, da,lda, j/1* *info); /2*adoublef2_(intdegfact, chatitlr doublef2_(in, tregfact, chatiter doublef2_(in egfact, chati doublef2_(in ork, , doublef2_(in *b, integer *ldbdoublef2_(inx, comp*info); *uplo, integer *n, integer dlasyf cger *n* integer *ldz, gefo); /ivibmp*info); opivex doublef2_(ingr *ipiv, ceta,r fact, charntegedoublef2_(in r *ipiv, ce S*iwmp*info); *uplo, integer *n, integer dlat2s, intege* integer *ldz,/* doublef2_(ingr *ipiv, ce S*infof2_(in aifaldvrntegersaeger *n, integer *nrhs, complex * ap, idlatbs, intege* intebroutimplex *, il *diagtereal i , coicd_da,lda, jnmp*info); o; doublef2_(inaer *ipiv, ceta, , doublef2_(in *bdoublef2_(ins ork, doublef2_(inc, comp*info); *uplo, integer *n, integer dlatdfhar *ocolcnicoplechar *jobsnrdoublef2_(inzl *e*ier *ldx,ttial doublef2_(inntegedoublef2_(inrdsu indoublef2_(inrdscadeg, fact, charntegeer *ldx,tjnteplo, integer *n, integer dlatps, intege* intebroutimplex *, il *diagtereal i , coicd_da,lda, jnmpdoublef2_(inapr doublef2_(inxegdoublef2_(in ork, , doublef2_(inc, comp*info); *uplo, integer *n, integer dlatr, cintege* integer *ldz, gefo); /ivibmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inefrdoublef2_(inuaux doublef2_(inwnt, fact, chatiwplo, integer *n, integer dlatrs, intege* intebroutimplex *, il *diagtereal i , coicd_da,lda, jnmpdoublef2_(inar *ipiv, ceta,r doublef2_(inine*idoublef2_(ins ork, doublef2_(inc, comp*info); *uplo, integer *n, integer dlatrz *lex *b, iomp*info); /* *ipiv, cetmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintr *nrhs, complex * ap, idlatzm cger *no/* Sulex *b, iomp*info); /* doublef2_(in vnter *ldx,ttecvntdoublef2_(intau*edoublef2_(inc1*edoublef2_(inc2te, da,lda, j1lcr doublef2_(in intr *nrhs, complex * ap, idlauu2, intege* integer *ldz,/* doublef2_(ingr *ipiv, ce S*info*info); *uplo, integer *n, integer dlauum, intege* integer *ldz,/* doublef2_(ingr *ipiv, ce S*info*info); *uplo, integer *n, integer dopgtr cger *n* integer *ldz, gedoublef2_(in pr , doublef2_(intau*edoublef2_(inq *, comper *i*whdoublef2_(in integ, fact, char *uplo, integer *n, integer dopmtr cger *no/* Subrouti* intebroutimplex *ger *ldz,teg*ida,lda, jnmpdoublef2_(inapr doublef2_(intau*edoublef2_(inc *infact, ch __,cr doublef2_(in intnteger *infteger *nrhs, complex * ap, idorg2l *lex *b, iomp*info); /* *ipiv, cekmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnteger *infteger *nrhs, complex * ap, idorg2r *lex *b, iomp*info); /* *ipiv, cekmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnteger *infteger *nrhs, complex * ap, idorgbr cger *nverr, ger *ldz,teg*info); /* *ipiv, cekmp*idoublef2_(in r *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnt, da,lda, j1wintnteger *infteger *nrhs, complex * ap, idorghr clex *b, ib, integer *wise_fact, charx *a*idoublef2_(in r *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnt, da,lda, j1wintnteger *infteger *nrhs, complex * ap, idorglr *lex *b, iomp*info); /* *ipiv, cekmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnteger *infteger *nrhs, complex * ap, idorglq *lex *b, iomp*info); /* *ipiv, cekmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnteger *infl integ, fact, char *uplo, integer *n, integer dorgql *lex *b, iomp*info); /* *ipiv, cekmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnteger *infl integ, fact, char *uplo, integer *n, integer dorgqr *lex *b, iomp*info); /* *ipiv, cekmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnteger *infl integ, fact, char *uplo, integer *n, integer dorgrr *lex *b, iomp*info); /* *ipiv, cekmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnteger *infteger *nrhs, complex * ap, idorgrq *lex *b, iomp*info); /* *ipiv, cekmpdoublef2_(inlexr *ipiv, ceta,r doublef2_(inuaux doublef2_(inwintnteger *infl integ, fact, char *uplo, integer *n, integer dorgtr cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infodoublef2_(inuaux doublef2_(inwintnteger *infl integfact, char *uplo, integer *n, integer dorm2l cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infteger *nrhs, complex * ap, idorm2r cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infteger *nrhs, complex * ap, idormbr cger *nverr, ger *no/* Subroutimplex *lex *b, iomp, da,lda, j/* integer *kmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux , doublef2_(incecgefo); /iv*icr doublef2_(in intnteger *infl integ, fact, char *uplo, integer *n, integer dormhr cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, charise_fact, charx *adoublef2_(inar *ipiv, ceta,r doublef2_(in tauindoublef2_(incecgefo); /iv*icr doublef2_(in intnteger *infl integ, fact, char *uplo, integer *n, integer dorml2 cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infteger *nrhs, complex * ap, idormlq cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infl integfact, char *uplo, integer *n, integer dormql cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infl integfact, char *uplo, integer *n, integer dormqr cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infl integfact, char *uplo, integer *n, integer dormr2 cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infteger *nrhs, complex * ap, idormr3 iger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpfo); /iv*mpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux , doublef2_(incecgefo); /iv*icr doublef2_(in intnteger *infteger *nrhs, complex * ap, idormrq cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infl integfact, char *uplo, integer *n, integer dormrz cger *no/* Subroutimplex *lex *b, iomp*info); /* , fact, chakmpfo); /iv*mpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux , doublef2_(incecgefo); /iv*icr doublef2_(in intnteger *infl integ, fact, char *uplo, integer *n, integer dormtr cger *no/* Subrouti* intebroutimplex *ger *ldz,teg*ida,lda, jnmpdoublef2_(inar *ipiv, ceta,r doublef2_(inuaux doublef2_(in cecgefo); /iv*icr doublef2_(in intnteger *infl integfact, char *uplo, integer *n, integer dpbns, cger *n* integer *ldz, gefo); /ivtd*ldoublef2_(in ger *ipiv, ceta, doublef2_(ina, compdoublef2_(inrfo); doublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idpbequ cger *n* integer *ldz, gefo); /ivtd*ldoublef2_(in ger *ipiv, ceta, doublef2_(in indoublef2_(insfo); doublef2_(inal *fe*i er *n, integer *nrhs, complex * ap, idpbrfs, intege* integer *ldz,/* fo); /ivtd*l*ipiv, ce Sintegedoublef2_(inger *ipiv, ceta, doublef2_(inafer *ipiv, ceta,f , doublef2_(in egfact, chati doublef2_(in *b, integer *ldbdoublef2_(in fmper doublef2_(inbmper doublef2_(in integda,lda, jt integ*ipiv, ce Steger *nrhs, complex * ap, idpbstf cger *n* integer *ldz, gefo); /ivtd*ldoublef2_(in ger *ipiv, ceta, er *n, integer *nrhs, complex * ap, idpbsv, intege* integer *ldz,/* fo); /ivtd*l*ipiv, ce Sintegedoublef2_(inger *ipiv, ceta, doublef2_(inb*lda,lda, j1l *e*ier *n, integer *nrhs, complex * ap, idpbsvx cger *nfarr, ger *n* integer *ldz,/* fo); /ivtd*l*ida,lda, jnntegedoublef2_(inger *ipiv, ceta, doublef2_(inafer , da,lda, j1lafer , il *(char doublef2_(in indoublef2_(inb*l*ipiv, ce Sti doublef2_(in *b, integer *ldbdoublef2_(inrfo); doublef2_(infmper *i doublef2_(inbmper doublef2_(in integda,lda, jt integ*ipiv, ceteger *nrhs, complex * ap, idpbtf2, intege* integer *ldz,/* fo); /ivtd*ldoublef2_(in ger *ipiv, ceta, er *n, integer *nrhs, complex * ap, idpbtrf cger *n* integer *ldz, gefo); /ivtd*ldoublef2_(in ger *ipiv, ceta, er *n, integer *nrhs, complex * ap, idpbtrs, intege* integer *ldz,/* fo); /ivtd*l*ipiv, ce Sintegedoublef2_(inger *ipiv, ceta, doublef2_(inb*lda,lda, j1l *e*ier *n, integer *nrhs, complex * ap, idpftrf cger *nmplexrmpintege* integer *ldz, gedoublef2_(i _g er *n, integer *nrhs, complex * ap, idpftri cger *nmplexrmpintege* integer *ldz, gedoublef2_(i _g er *n, integer *nrhs, complex * ap, idpftrs cger *nmplexrmpintege* integer *ldz, ge*ipiv, ce Sintegedoublef2_(ing doublef2_(inb*lda,lda, j1l *eer *n, integer *nrhs, complex * ap, idpons, cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infodoublef2_(ina, compdoublef2_(inrfo); doublef2_(in integer *ldx,tlex integer *ldx,tteger *nrhs, complex * ap, idpoequ cda,lda, jnmpdoublef2_(inar *ipiv, ceta,r , doublef2_(in indoublef2_(insfo); doublef2_(inal *feer *ldx,tteger *nrhs, complex * ap, idpoequbhar *ocolcnb, doublef2_(inar *ipiv, ceta,r , doublef2_(in indoublef2_(insfo); doublef2_(inal *feer *ldx,tteger *nrhs, complex * ap, idporfs, intege* integer *ldz,/* fo); /iv/ntege*idoublef2_(in r *ipiv, ceta,r doublef2_(ina*m__, real *era*m_, doublef2_(in egfact, chati doublef2_(in *b, integer *ldbdoublef2_(in fmper doublef2_(inbmper doublef2_(in integda,lda, jt integ*ipiv, ce Steger *nrhs, complex * ap, idporfsx, intege* inte, il *(char ger *ldz, ge*ipiv, ce Sintegedoublef2_(ing *ipiv, ceta,r doublef2_(ina*m__, real *era*m_, doublef2_(inegedoublef2_(inb*lda,lda, j1l *edoublef2_(i_hresh, realo, ldbdoublef2_(inrfo); doublef2_(inbmper *info); n_mpe_bnds *nr, doublef2_(inepe_bnds , coecgedoublef2_(inepe_bnds v, c *info); /ivlenparamegedoublef2_(inparamegedoublef2_(in integda,lda, jt integ, fact, char *uplo, integer *n, integer dposv, intege* integer *ldz,/* fo); /ivintegedoublef2_(i _g er *n, int chedoublef2_(in *lda,lda, j1l *eer *n, integer *nrhs, complex * ap, idposvx cger *nfarr, ger *n* integer *ldz,/* fo); /iv Sintegedoublef2_(ing *ipiv, ceta,r doublef2_(ina*m__, real *era*m_, , il *(char doublef2_(in indoublef2_(inb*l*ipiv, ce1l *edoublef2_(i_ *b, integer *ldbdoublef2_(inrfo); doublef2_(infmper doublef2_(i_ bmper doublef2_(in integda,lda, jt integ*ipiv, ceteger *nrhs, complex * ap, idposvxx cger *nfarr, ger *n* integer *ldz,/* fo); /iv Sintegedoublef2_(ing *ipiv, ceta,r doublef2_(ina*m__, real *era*m_, , il *(char doublef2_(in indoublef2_(inb*l*ipiv, ce1l *edoublef2_(i_ *b, integer *ldbdoublef2_(inrfo); doublef2_(inrpvgrwr doublef2_(i_ bmper *info); n_mpe_bnds *nrdoublef2_(inepe_bnds , coecgedoublef2_(in epe_bnds v, c *info); /ivnparamegedoublef2_(inparamegedoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idpotf2, intege* integer *ldz,/* doublef2_(in r *ipiv, ce S*infoer *n, integer *nrhs, complex * ap, idpotrf cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infoer *n, integer *nrhs, complex * ap, idpotri cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infoer *n, integer *nrhs, complex * ap, idpotrs, intege* integer *ldz,/* fo); /iv/ntege*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *eer *n, in Steger *nrhs, complex * ap, idppns, cger *n* integer *ldz, gedoublef2_(in pr , doublef2_(ina, compdoublef2_(inrfo); doublef2_(in integer *ldx,tlex integer *ldx,tteger *nrhs, complex * ap, idppequ cger *n* integer *ldz, gedoublef2_(in pr , doublef2_(in indoublef2_(insfo); doublef2_(inal *feer *ldx,tteger *nrhs, complex * ap, idpprfs, intege* integer *ldz,/* fo); /iv/ntege*idoublef2_(in pr doublef2_(ina*pr doublef2_(in *lda,lda, j1l *e, doublef2_(in *b, integer *ldbdoublef2_(infmper doublef2_(inbmper *idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idppsv, intege* integer *ldz,/* fo); /ivintegedoublef2_(i _gpr doublef2_(in *lda,lda, j1l *eer *n, integer *nrhs, complex * ap, idppsvx cger *nfarr, ger *n* integer *ldz,/* fo); /iv Sintegedoublef2_(ingpr doublef2_(ina*pr , il *(char doublef2_(in in, doublef2_(in egfact, chati doublef2_(in *b, integer *ldbdoublef2_(in rfo); doublef2_(infmper doublef2_(i_bmper doublef2_(in integda,lda, jlex integer *ldx,tteger *nrhs, complex * ap, idpptrf cger *n* integer *ldz, gedoublef2_(in p*eer *n, in Steger *nrhs, complex * ap, idpptri cger *n* integer *ldz, gedoublef2_(in p*eer *n, in Steger *nrhs, complex * ap, idpptrs, intege* integer *ldz,/* fo); /iv/ntege*idoublef2_(in pr doublef2_(in *lda,lda, j1l *eer *n, integer *nrhs, complex * ap, idpstf2, intege* integer *ldz,/* doublef2_(in r *ipiv, ce S*infoer *n, inntegeer *ldx,t;,etrfdoublef2_(inaldegdoublef2_(in integ, fact, char *uplo, integer *n, integer dpstrf cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infoer *n, inntegeer *ldx,t;,etrfdoublef2_(inaldegdoublef2_(in integ, fact, char *uplo, integer *n, integer dptns, cger *ldz, gedoublef2_(indecgedoublef2_(inefr, doublef2_(ina, compdoublef2_(inrfo); doublef2_(in integer *ldx,tr *uplo, integer *n, integer dpteqr cger *nv, czteger *ldz, gedoublef2_(ind *nr, doublef2_(inefrdoublef2_(inz *infact, chatial doublef2_(in integ, fact, char *uplo, integer *n, integer dptrfs, ger *ldz,/* fo); /ivintegedoublef2_(ind *nr, doublef2_(inefrdoublef2_(ind_bndoublef2_(inefr doublef2_(in *lda,lda, __, doublef2_(in *b, integer *ldbdoublef2_(infmper doublef2_(inbmper *i doublef2_(in integer *ldx,tr *uplo, integer *n, integer dptsv, complex *b, integer *integedoublef2_(ind *nr, doublef2_(inefrdoublef2_(in *lda,lda, j1l *eer *n, integer *nrhs, complex * ap, idptsvx cger *nfarr, ger *ldz,/* fo); /iv/ntege*idoublef2_(inv *indoublef2_(inefrdoublef2_(ind_bndoublef2_(inefr , doublef2_(in egfact, chati doublef2_(in *b, integer *ldbdoublef2_(in rfo); doublef2_(infmper doublef2_(i_bmper doublef2_(in integda,lda, jlexeger *nrhs, complex * ap, idpttrfhar *ocolcnb, doublef2_(indecgedoublef2_(inein, *info); teger *nrhs, complex * ap, idpttrs, ger *ldz,/* fo); /ivintegedoublef2_(ind *nr, doublef2_(inefrdoublef2_(in *lda,lda, j1l *eer *n, integer *nrhs, complex * ap, idptts2, ger *ldz,/* fo); /ivintegedoublef2_(ind *nr, doublef2_(inefrdoublef2_(in *lda,lda, j1l r *nrhs, complex * ap, idrscl r *ocolcnb, doublef2_(insnfodoublef2_(in xeg, fact, char cir *nrhs, complex * ap, idsbev, integejobz, ger *n* integer *ldz,/* fo); /ivtd*l*idoublef2_(inaer *ipiv, ceta, doublef2_(in frdoublef2_(inz *in*ier *ldx,ttial doublef2_(in integer *ldx,tr *uplo, integer *n, integer dsbevd, integejobz, ger *n* integer *ldz,/* fo); /ivtd*l*idoublef2_(inaer *ipiv, ceta, doublef2_(in frdoublef2_(inz *in*ier *ldx,ttial doublef2_(in integer *ldx,tl integfact, charwintnt, da,lda, j1x integer *ldx,tteger *nrhs, complex * ap, idsbevx, integejobz, ger *nrange, real i* integer *ldz, ge*ifo); /ivtd*ldoublef2_(inaer *ipiv, ceta, doublef2_(in*wher *ldx,tle*i*whdoublef2_(inlda,doublef2_(invuinfact, chardeger *n, intrnt*idoublef2_(inaesald* *info); indoublef2_(in *edoublef2_(inz *in*ier *ldx,ttial doublef2_(in integer *ldx,tr integer *ldx,trfailge, *info); teger *nrhs, complex * ap, idsbgst cger *nverr, ger *n* integer *ldz,/* fo); /ivtche, fact, chaopivdoublef2_(inrer *ipiv, ceta, doublef2_(inbb*l*ipiv, ce Sti doublef2_(in *b, integer *ldbdoublef2_(in integer *ldx,tteger *nrhs, complex * ap, idsbgv, integejobz, ger *n* integer *ldz,/* fo); /ivtche, fact, chaopivdoublef2_(inrer *ipiv, ceta, doublef2_(inbb*l*ipiv, ce Sti doublef2_(in *edoublef2_(inz *infact, chatial doublef2_(in integ, fact, char *uplo, integer *n, integer dsbgvd, integejobz, ger *n* integer *ldz,/* fo); /ivtche, fact, chaopivdoublef2_(inrer *ipiv, ceta, doublef2_(inbb*l*ipiv, ce Sti doublef2_(in *edoublef2_(inz *infact, chatial doublef2_(in integ, fact, chal integfact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, idsbgvx, integejobz, ger *nrange, real i* integer *ldz, ge*ifo); /ivtnfoer *n, inopivdoublef2_(inrer *ipiv, ceta, doublef2_(in b *lda,lda, j1l doublef2_(in*wher *ldx,t*i*whdoublef2_(inlda,, doublef2_(invrntfact, chardeger *n, intrntdoublef2_(inaesald* *info); _ indoublef2_(in *edoublef2_(inz *infact, chatial doublef2_(in integ, fact, char integer *ldx,trfailgeer *ldx,tteger *nrhs, complex * ap, idsbtr, cintegeverr, ger *n* integer *ldz,/* fo); /ivtd*l*idoublef2_(inaer *ipiv, ceta, doublef2_(indecgedoublef2_(inefr, doublef2_(inq *, comper *i*whdoublef2_(in integer *ldx,tteger *nrhs, complex * ap, idsfrk cger *nmplexrmpintege* intebroutimplex *ger *ldz,nfe*i er *n, inkmpdoublef2_(ina *ip*adoublef2_(inar *ipiv, ceta,r , doublef2_(inbec lmdoublef2_(inc *r *nrhs, complex * ap, idsgesv, complex *b, integer *integedoublef2_(inain*ier *ldx,tti,r fact, charntegedoublef2_(inb*l*ipiv, ce1l *edoublef2_(i_ *b, integer *ldbdoublef2_(in integf2_(in integer *ldx,tttermp, fact, char *uplo, integer *n, integer dspns, cger *n* integer *ldz, gedoublef2_(in pr da,lda, jlexntegedoublef2_(ina, compdoublef2_(inrfo); doublef2_(in integer *ldx,*e,h integer *ldx,tteger *nrhs, complex * ap, idspev, integejobz, ger *n* integer *ldz,/* doublef2_(i_ gp*edoublef2_(in *edoublef2_(inz *infact, chatial doublef2_(in integ, fact, char *uplo, integer *n, integer dspevd, integejobz, ger *n* integer *ldz,/* doublef2_(i_ gp*edoublef2_(in *edoublef2_(inz *infact, chatial doublef2_(in integ, fact, chal integfact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, idspevx, integejobz, ger *nrange, real i* integer *ldz, ge*idoublef2_(in pr doublef2_(inlda,doublef2_(invuinfact, chardeger *n, in, frntdoublef2_(inaesald* *info); indoublef2_(in *edoublef2_(inz *in*ier *ldx,ttial doublef2_(in integer *ldx,tr integer *ldx,trfailge, *info); teger *nrhs, complex * ap, idspgst cer *ldx,tttype*ereal i* integer *ldz, ge*idoublef2_(in pr doublef2_(inbpeger *ldx,tteger *nrhs, complex * ap, idspgv cer *ldx,tttype*ereal ijobz, ger *n* integer *ldz, nmpdoublef2_(inapr doublef2_(inbp*edoublef2_(in *edoublef2_(inz *in*ier *ldx,ttial doublef2_(in integer *ldx,tr *uplo, integer *n, integer dspgvd, er *ldx,tttype*ereal ijobz, ger *n* integer *ldz, nmpdoublef2_(inapr doublef2_(inbp*edoublef2_(in *edoublef2_(inz *in*ier *ldx,ttial doublef2_(in integer *ldx,tl integfact, charwintnt, da,lda, j1x integer *ldx,tteger *nrhs, complex * ap, idspgvx, er *ldx,tttype*ereal ijobz, ger *nrange, real i * integer *ldz, gedoublef2_(in pr doublef2_(inbp*edoublef2_(inlda,, doublef2_(invrntfact, chardeger *n, intrntdoublef2_(inaesald* *info); _ indoublef2_(in *edoublef2_(inz *infact, chatial doublef2_(in integ, fact, char integer *ldx,trfailgeer *ldx,tteger *nrhs, complex * ap, idsposv, intege* integer *ldz,/* fo); /ivintege*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *edoublef2_(i_ *b, integer *ldbdoublef2_(in integf2_(in integer *ldx,tttermp, fact, char *uplo, integer *n, integer dsprfs, intege* integer *ldz,/* fo); /iv/ntege*idoublef2_(in pr doublef2_(ina*pr fact, charntegedoublef2_(inb*l*ier *ldx,tti doublef2_(in *b, integer *ldbdoublef2_(infmper , doublef2_(inbeper doublef2_(in integda,lda, jt integ*ipiv, ceteger *nrhs, complex * ap, idspsv, intege* integer *ldz,/* fo); /ivintegedoublef2_(i _gpr fact, charntegedoublef2_(inb*l*ipiv, ce1l *e*ipiv, ceteger *nrhs, complex * ap, idspsvx cger *nfarr, ger *n* integer *ldz,/* fo); /iv Sintegedoublef2_(ingpr doublef2_(ina*pr fact, charntegedoublef2_(inb*l*ier *ldx,tti doublef2_(in *b, integer *ldbdoublef2_(inrfo); , doublef2_(infmper doublef2_(inbmper doublef2_(in integda,lda, jt integ, fact, char *uplo, integer *n, integer dsptr, cintege* integer *ldz, gedoublef2_(ingpr *idoublef2_(inv *indoublef2_(inefrdoublef2_(intau*elex *b, ir *uplo, integer *n, integer dsptrf cger *n* integer *ldz, gedoublef2_(in p*eer *n, in Stntegeer *ldx,tte*uplo, integer *n, integer dsptri cger *n* integer *ldz, gedoublef2_(in p*eer *n, in Stntegedoublef2_(in integ*ipiv, ceteger *nrhs, complex * ap, idsptrs, intege* integer *ldz,/* fo); /iv/ntege*idoublef2_(in pr fact, charntegedoublef2_(inb*l*ipiv, ce1l *e*ipiv, celexeger *nrhs, complex * ap, idstebz cger *nrange, real iordermp*info); /* doublef2_(i _lda,doublef2_(invuinfact, chardeger *n, intrntdoublef2_(inaesald* *idoublef2_(inv *indoublef2_(inefr*info); in*info); /splite_*idoublef2_(in *eer *n, intbloctegda,lda, jtsplite_doublef2_(in integ, fact, char integer *ldx,treger *nrhs, complex * ap, idstedc cger *nv, czteger *ldz, gedoublef2_(ind *nr, doublef2_(inefrdoublef2_(inz *infact, chatial doublef2_(in integ, fact, chal integfact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, ids *lr, integejobz, ger *nrange, ger *ldz,/* doublef2_(i_ v *indoublef2_(inefrdoublef2_(inlda,doublef2_(invuinfact, chardeg, fact, charrntdoublef2_(inaesald* *info); indoublef2_(in *e*idoublef2_(inzecgefact, chatial da,lda, jtsuppal doublef2_(in integ, fact, chal integfact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, ids *i, cger *ldz, gedoublef2_(indecgedoublef2_(inefr, *info); indoublef2_(in *eer *n, intbloctegda,lda, jtsplite_*idoublef2_(inzecgefact, chatial doublef2_(in integda,lda, jt integ, fact, charfailgeer *ldx,tteger *nrhs, complex * ap, idstemr, integejobz, ger *nrange, ger *ldz,/* doublef2_(i_ v *indoublef2_(inefrdoublef2_(inlda,doublef2_(invuinfact, chardeg, fact, charrnt*info); indoublef2_(in *edoublef2_(inz *infact, chatial *igfact, chaczcl da,lda, jtsuppal lex *whfrtryracl doublef2_(in integ, fact, chal integfact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, ids *qr cger *nv, czteger *ldz, gedoublef2_(ind *nr, doublef2_(inefrdoublef2_(inz *infact, chatial doublef2_(in integ, fact, char *uplo, integer *n, integer ds *rfhar *ocolcnb, doublef2_(indecgedoublef2_(inein, *info); teger *nrhs, complex * ap, ids *v, integejobz, ger *ldz, gedoublef2_(ind *nr, doublef2_(inefrdoublef2_(inz *infact, chatial doublef2_(in integ, fact, char *uplo, integer *n, integer ds *vd, integejobz, ger *ldz, gedoublef2_(ind *nr, doublef2_(inefrdoublef2_(inz *infact, chatial doublef2_(in integ, fact, chal integfact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, ids *vr, integejobz, ger *nrange, ger *ldz,/* doublef2_(i_ v *indoublef2_(inefrdoublef2_(inlda,doublef2_(invuinfact, chardeg, fact, charrntdoublef2_(inaesald* *info); indoublef2_(in *e*idoublef2_(inzecgefact, chatial da,lda, jtsuppal doublef2_(in integ, fact, chal integfact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, ids *vx, integejobz, ger *nrange, ger *ldz,/* doublef2_(i_ v *indoublef2_(inefrdoublef2_(inlda,doublef2_(invuinfact, chardeg, fact, charrntdoublef2_(inaesald* *info); indoublef2_(in *e*idoublef2_(inzecgefact, chatial doublef2_(in integda,lda, jt integ, fact, charfailgeer *ldx,tteger *nrhs, complex * ap, idsyns, cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infofact, charntegedoublef2_(ina, compdoublef2_(inrfo); doublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idsyequbhager *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infodoublef2_(in indoublef2_(insfo); doublef2_(inal *fedoublef2_(in integer *n, integer *nrhs, complex * ap, idsyev, integejobz, ger *n* integer *ldz,/* doublef2_(i_al *igfact, cha*infodoublef2_(in *edoublef2_(in intnteger *infl integ, fact, char *uplo, integer *n, integer dsyevd, integejobz, ger *n* integer *ldz,/* doublef2_(i_ gr *ipiv, ceta,r doublef2_(in *edoublef2_(in intnteger *infl integ, fact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, idsy*vr, integejobz, ger *nrange, real i* integer *ldz, ge*idoublef2_(in r *ipiv, ceta,r doublef2_(inlda,doublef2_(invuinfact, cha, fdeger *n, intrntdoublef2_(inaesald* *info); indoublef2_(in *e*idoublef2_(inzecgefact, chatial da,lda, jtsuppal doublef2_(in integ, fact, chal integfact, charwintntda,lda, j1x integer *ldx,tteger *nrhs, complex * ap, idsyevx, integejobz, ger *nrange, real i* integer *ldz, ge*idoublef2_(in r *ipiv, ceta,r doublef2_(inlda,doublef2_(invuinfact, cha, fdeger *n, intrntdoublef2_(inaesald* *info); indoublef2_(in *e*idoublef2_(inzecgefact, chatial doublef2_(in intnteger *infl integ, fact, charwintntda,lda, jrfailgeer *ldx,tteger *nrhs, complex * ap, idsygs2, ger *ldz,ttype*ereal i* integer *ldz, ge*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *efact, cha, feger *nrhs, complex * ap, idsygst cer *ldx,tttype*ereal i* integer *ldz, ge*idoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *efact, cha, feger *nrhs, complex * ap, idsygv cer *ldx,tttype*ereal ijobz, ger *n* integer *ldz, nmpdoublef2_(inar *ipiv, ceta,r doublef2_(in *lda,lda, j1l *e*idoublef2_(in *edoublef2_(in intnteger *infl integer *ldx,tteger *nrhs, complex * ap, idsygvd, er *ldx,tttype*ereal ijobz, ger *n* integer *ldz, nmpdoublef2_(inar *ipiv, ceta,r doublef2_(in *lda,lda, j1l *e*idoublef2_(in *edoublef2_(in intnteger *infl integer *ldx,ttwintnt, da,lda, j1x integer *ldx,tteger *nrhs, complex * ap, idsygvx, er *ldx,tttype*ereal ijobz, ger *nrange, real i * integer *ldz, gedoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, __, doublef2_(inlda,doublef2_(invuinfact, chardeger *n, intrnt*idoublef2_(inaesald* *info); indoublef2_(in *edoublef2_(inz *in*ier *ldx,ttial doublef2_(in integer *ldx,tl integer *ldx,ttwintnt, da,lda, jrfailgeer *ldx,tteger *nrhs, complex * ap, idsyrfs, intege* integer *ldz,/* fo); /iv/ntege*idoublef2_(in r *ipiv, ceta,r doublef2_(ina*m__, real *era*m_fact, cha, fntegedoublef2_(inb*l*ipiv, ce1l *edoublef2_(i_ *b, integer *ldb, doublef2_(infmper doublef2_(inbmper doublef2_(in integda,lda, jt integ, fact, char *uplo, integer *n, integer dsyrfsx, intege* inte, il *(char ger *ldz, ge*ipiv, ce Sintegedoublef2_(ing *ipiv, ceta,r doublef2_(ina*m__, real *era*m_, fact, charntegedoublef2_(in indoublef2_(inb*l*ipiv, ce1l *edoublef2_(i _ *b, integer *ldbdoublef2_(inrfo); doublef2_(inbmper *info); Si_mpe_bnds *nrdoublef2_(inepe_bnds , coecgedoublef2_(in epe_bnds v, c *info); /ivnparamegedoublef2_(inparamegedoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idsysv, intege* integer *ldz,/* fo); /ivintegedoublef2_(i _g er *n, int chefact, charntegedoublef2_(in *lda,lda, j1l *e*idoublef2_(in intnteger *infl integer *ldx,tteger *nrhs, complex * ap, idsysvx cger *nfarr, ger *n* integer *ldz,/* fo); /iv Sintegedoublef2_(ing *ipiv, ceta,r doublef2_(ina*m__, real *era*m_, fact, charntegedoublef2_(in *lda,lda, j1l *edoublef2_(i_ *b, integer, ldbdoublef2_(inrfo); doublef2_(infmper doublef2_(inbmper *idoublef2_(in integer *n, inl integfact, charwintntda,lda, jteger *nrhs, complex * ap, idsysvxx cger *nfarr, ger *n* integer *ldz,/* fo); /iv Sintegedoublef2_(ing *ipiv, ceta,r doublef2_(ina*m__, real *era*m_, fact, charntege, il *(char doublef2_(in indoublef2_(inb*l*ipiv, ce Sti doublef2_(in *b, integer *ldbdoublef2_(inrfo); doublef2_(in rpvgrwr doublef2_(i_bmper *info); n_mpe_bnds *nrdoublef2_(in epe_bnds , coecgedoublef2_(inepe_bnds v, c *info); /ivnparamege*idoublef2_(inparamegedoublef2_(in integda,lda, jt integda,lda, jteger *nrhs, complex * ap, idsytd2, intege* integer *ldz,/* doublef2_(in r *ipiv, ce S*infodoublef2_(indecgedoublef2_(ineindoublef2_(intau*elex *b, ir *uplo, integer *n, integer dsytf2, intege* integer *ldz,/* doublef2_(in r *ipiv, ce S*infoer *n, intntegeer *ldx,tte*uplo, integer *n, integer dsytr, cintege* integer *ldz, gedoublef2_(ingr *ipiv, ce S*infodoublef2_(indecgedoublef2_(ineindoublef2_(intau*edoublef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, idsytrf cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infoer *n, intntegedoublef2_(in integ*ipiv, cel integer *ldx,tteger *nrhs, complex * ap, idsytri cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infoer *n, intntegedoublef2_(in integ*ipiv, ceteger *nrhs, complex * ap, idsytrs, intege* integer *ldz,/* fo); /iv/ntege*idoublef2_(in r *ipiv, ceta,r fact, charntegedoublef2_(in *lda,lda, j Sti *ipiv, ceteger *nrhs, complex * ap, idtbns, cger *n, compintege* inte, il *diagteger *ldz, ge*iger *ldz,td*ldoublef2_(inaer *ipiv, ceta, doublef2_(inrfo); , doublef2_(in integda,lda, jt integda,lda, jteger *nrhs, complex * ap, idtbrfs, intege* intebroutimplex *, il *diagteger *ldz, ge*iger *ldz,td*lfo); /ivintegedoublef2_(inaer *ipiv, ceta, doublef2_(i _ egfact, chati doublef2_(in *b, integer *ldbdoublef2_(infmper , doublef2_(inbeper doublef2_(in integda,lda, jt integ*ipiv, ceteger *nrhs, complex * ap, idtbtrs, intege* intebroutimplex *, il *diagteger *ldz, ge*iger *ldz,td*lfo); /ivintegedoublef2_(inaer *ipiv, ceta, doublef2_(i _ egfact, chati *ipiv, ceteger *nrhs, complex * ap, idtfsm, integemplexrmpintegeo/* Subrouti* intebroutimplex * *, il *diagteger *ldz,omp*info); /* doublef2_(ina *ip*adoublef2_(inar *i doublef2_(inbegfact, chati r *nrhs, complex * ap, idtftri cger *nmplexrmpintege* inte, il *diagteger *ldz, ge*iedoublef2_(in r *ipiv, ceteger *nrhs, complex * ap, idtfttp cger *nmplexrmpintege* integer *ldz, gedoublef2_(i _gr_bndoublef2_(inapeger *ldx,tteger *nrhs, complex * ap, idtfttr cger *nmplexrmpintege* integer *ldz, gedoublef2_(i _gr_bndoublef2_(inar *ipiv, ceta,r fact, chareger *nrhs, complex * ap, idtgevc cger *no/* Subroutihowmnyl lex *whfrselerr, *iger *ldz,b, doublef2_(insr *ipiv, cetaegedoublef2_(inpr *ipiv, cetapr *idoublef2_(invau, i5, c*ldldlda,doublef2_(invregfact, chativregfact, ch _ mteger *ldz,ompdoublef2_(in integ*ipiv, ceteger *nrhs, complex * ap, idtgexr *lex *whfrwantql lex *whfrwantzteger *ldz, ge*idoublef2_(inar *ipiv, ceta,r doublef2_(in *lda,lda, j1l *edoublef2_(in q *, comper *i*whdoublef2_(inzecgefact, chatial da,lda, jj1* *info); Si1* *info); /2*adoublef2_(in integ*ipiv, cel integer *ldx,tteger *nrhs, complex * ap, idtgexc *lex *whfrwantql lex *whfrwantzteger *ldz, ge*idoublef2_(inar *ipiv, ceta,r doublef2_(in *lda,lda, j1l *edoublef2_(in q *, comper *i*whdoublef2_(inzecgefact, chatial da,lda, jifsr, *iger *ldz,ilste_doublef2_(in integ*ipiv, cel integer *ldx,tteger *nrhs, complex * ap, idtgsenhar *ocolcnicoplelex *whfrwantql lex *whfrwantzte*ilex *whfrselerr, ger *ldz, gedoublef2_(in r *ipiv, ceta,r doublef2_(in *lda,lda, j1l *edoublef2_(ina *ipr*edoublef2_(ina *ipir doublef2_(in ec lmdoublef2_(inq *, comper *i*whdoublef2_(inzecgefact, chatial , *info); indoublef2_(inpda,doublef2_(inpr*edoublef2_(indifr , doublef2_(in integer *n, inl integfact, charwintntda,lda, jlt integ, fact, char *uplo, integer *n, integer dtgsja, integejobu*ereal ijobv*ereal ijobqteger *ldz,omp, fact, chap, ger *ldz, geger *ldz,tntda,lda, jl*adoublef2_(inar *i*ipiv, ceta,r doublef2_(in *lda,lda, j1l *edoublef2_(intol,r , doublef2_(intol *edoublef2_(ina *ipr doublef2_(i_bmc lmdoublef2_(inur *i*ipiv, cetau*edoublef2_(inv*lda,lda, j1lvlmdoublef2_(inq *, comper le*i*whdoublef2_(inwintntda,lda, jncycleeger *ldx,tteger *nrhs, complex * ap, idtgsna, integejobSubroutihowmnyl lex *whfrselerr, *iger *ldz,b, doublef2_(inar *ipiv, ceta,r doublef2_(in *lda,lda, j1l *e*idoublef2_(invau, i5, c*ldldlda,doublef2_(invregfact, chativreg, doublef2_(in indoublef2_(indifr ger *ldz,omteger *ldz,ompdoublef2_(in integer *n, inl integer *ldx,tt integer *ldx,tteger *nrhs, complex * ap, idtgsy2 cger *nmplexeger *ldx,ttcoplechar *jobm *, comper leb, doublef2_(inar *ipiv, ceta,r doublef2_(in *lda,lda, j1l *e*idoublef2_(incecgefo); /iv*icr doublef2_(indecgefo); /iv*i; , doublef2_(inegefo); /iv*ieindoublef2_(in*m__, real *erfmpdoublef2_(in s ork, doublef2_(inrdsu indoublef2_(inrdscadeger *ldx,tt integer *ldx, _pqeger *ldx,tteger *nrhs, complex * ap, idtgsyl cger *nmplexeger *ldx,ttcoplechar *jobm *, comper leb, doublef2_(inar *ipiv, ceta,r doublef2_(in *lda,lda, j1l *e*idoublef2_(incecgefo); /iv*icr doublef2_(indecgefo); /iv*i; , doublef2_(inegefo); /iv*ieindoublef2_(in*m__, real *erfmpdoublef2_(in s ork,ndoublef2_(indifr doublef2_(in integer *n, inl integfact, cha ex integer *ldx,tteger *nrhs, complex * ap, idtpns, cger *n, compintege* inte, il *diagteger *ldz, ge*idoublef2_(inapegdoublef2_(inrfo); doublef2_(in integda,lda, jt integ, fact, char *uplo, integer *n, integer dtprfs, intege* intebroutimplex *, il *diagteger *ldz, ge*iger *ldz,integedoublef2_(ingpr doublef2_(in *lda,lda, j1l *e, doublef2_(in *b, integer *ldbdoublef2_(infmper doublef2_(inbmper *idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idtptri cger *n* inte, il *diagteger *ldz, gedoublef2_(in apeger *ldx,tteger *nrhs, complex * ap, idtptrs, intege* intebroutimplex *, il *diagteger *ldz, ge*iger *ldz,integedoublef2_(ingpr doublef2_(in *lda,lda, j1l *efact, cha exeger *nrhs, complex * ap, idtpttf cger *nmplexrmpintege* integer *ldz, gedoublef2_(i _gpr doublef2_(inarfeger *ldx,tteger *nrhs, complex * ap, idtpttr cger *n* integer *ldz, gedoublef2_(in pr , doublef2_(inar *ipiv, ceta,r fact, chareger *nrhs, complex * ap, idtrns, cger *n, compintege* inte, il *diagteger *ldz, ge*idoublef2_(inar *ipiv, ceta,r doublef2_(inrfo); doublef2_(in integ, fact, char integer *ldx,treger *nrhs, complex * ap, idtrevc cger *no/* Subroutihowmnyl lex *whfrselerr, *iger *ldz,b, doublef2_(intr *ipiv, cetate_doublef2_(invau, i5, c*ldle*ilda,doublef2_(invregfact, chativregfact, ch,omteger *ldz,omp*idoublef2_(in integer *n, integer *nrhs, complex * ap, idtrexc cger *nv, cqteger *ldz, gedoublef2_(intu, i5, c*ldle*ite_doublef2_(inq *, comper *i*whda,lda, jifsr, ger *ldz,ilste_*idoublef2_(in integer *n, integer *nrhs, complex * ap, idtrrfs, intege* intebroutimplex *, il *diagteger *ldz, ge*iger *ldz,integedoublef2_(ingr *ipiv, ceta,r doublef2_(in *lda,lda, j Sti doublef2_(in *b, integer *ldbdoublef2_(infmper doublef2_(inbmper *idoublef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, idtrsenhaintegejobSubroutiv, cqtelex *whfrselerr, ger *ldz _b, doublef2_(intr *ipiv, cetate_doublef2_(inq *, comper *i*wh*idoublef2_(in er doublef2_(in iteger *ldz,ompdoublef2_(inegedoublef2_(i _sep*edoublef2_(in integer *n, inl integer *ldx,tt integer *ldx,t Stt integer *n, integer *nrhs, complex * ap, idtrsna, integejobSubroutihowmnyl lex *whfrselerr, *iger *ldz,b, doublef2_(intr *ipiv, cetate_doublef2_(invau, i5, c*ldle*ilda,doublef2_(invregfact, chativregdoublef2_(in indoublef2_(insep*e, *info); mteger *ldz,ompdoublef2_(in integ*ipiv, celd integfact, cha ex integer *ldx,tteger *nrhs, complex * ap, idtrsyl cger *nmpleatebroutimple *ipiv, cetsgn, ger *ldz _omp*info); /* doublef2_(inar *ipiv, ceta,r doublef2_(in *lda,lda, j Sti doublef2_(incecgefo); /iv*icr doublef2_(ins ork,ner *ldx,tteger *nrhs, complex * ap, idtrti2 cger *n* inte, il *diagteger *ldz, gedoublef2_(in ar *ipiv, ceta,r fact, chareger *nrhs, complex * ap, idtrtri cger *n* inte, il *diagteger *ldz, gedoublef2_(in ar *ipiv, ceta,r fact, chareger *nrhs, complex * ap, idtrtrs, intege* intebroutimplex *, il *diagteger *ldz, ge*iger *ldz,integedoublef2_(ingr *ipiv, ceta,r doublef2_(in *lda,lda, j Sti fact, chareger *nrhs, complex * ap, idtrttf cger *nmplexrmpintege* integer *ldz, gedoublef2_(i _gr *ipiv, ceta,r doublef2_(inarfeger *ldx,tteger *nrhs, complex * ap, idtrttp cger *n* integer *ldz, gedoublef2_(in r *ipiv, ce S*infodoublef2_(inapeger *ldx,tteger *nrhs, complex * ap, idtzrqf *lex *b, iomp*info); /* doublef2_(in r *ipiv, ce S*infodoublef2_(intau*elex *b, ir *uplo, integer *n, integer dtzrzf *lex *b, iomp*info); /* doublef2_(in r *ipiv, ce S*infodoublef2_(intau*edoublef2_(in integ*ipiv, cel integer *ldx,tteger *ndoublef2_(idzsu 1har *ocolcnb, doublev, clexinc*feer *ldx,ttecir *ner *ldx,icmax1har *ocolcnb, v, clexinc*feer *ldx,ttecir *ner *ldx,ieeeckhar *ocolcnispecegf2_(inzeroegf2_(inoner *ner *ldx,ilaclc *lex *b, iomp*info); /* v, clexingr *ipiv, ceta,r *ner *ldx,ilaclr *lex *b, iomp*info); /* v, clexingr *ipiv, ceta,r *ner *ldx,iladiag cger *ndiagr *ner *ldx,iladlc *lex *b, iomp*info); /* doublef2_(ingr *ipiv, ceta,r *ner *ldx,iladlr *lex *b, iomp*info); /* doublef2_(ingr *ipiv, ceta,r *ner *ldx,ilaenvhar *ocolcnispecegger *n,ameecgereal ioptx *ger *ldz,n1ge*iger *ldz,i2 *ger *ldz,n3 *ger *ldz,n4r *ner *ldx,ilaprec cger *nprecr *ner *ldx,ilaslc *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,r *ner *ldx,ilaslr *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,r *ner *ldx,ilamplex cger *nmplexr *ner *ldx,ila* in cger *n* inplo, integer *n, integer ilaver *lex *b, ivers_majorecgefo); /ivvers_minorecge*iger *ldz,vers_patch *r *ner *ldx,ilazlc *lex *b, iomp*info); /* doublev, clexingr *ipiv, ceta,r *ner *ldx,ilazlr *lex *b, iomp*info); /* doublev, clexingr *ipiv, ceta,r *ner *ldx,iparmqhar *ocolcnispecegger *n,ameecgereal ioptx *ger *ldz,n, ger *ldz _rise_fact, charx *a*ipiv, cel intr *ner *ldx,izmax1har *ocolcnb, doublev, clexinc*feer *ldx,ttecir *nlex *whflsame, cger *ldz, gebroutivatebrouticbr *ner *ldx,smaxloc *f2_(ingr *ipiv, cedimmplo, integer *n, integer sbdsdc cger *n* intebroutiv, cqteger *ldz, gef2_(indecge f2_(inegef2_(inur *ipiv, cetaugef2_(invtr *ipiv, cetavtr f2_(inq *, fact, charqr f2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isbdsqr cger *n* integer *ldz, geger *ldz, cvtu, i5, c*ldlenrugeger *ldz, ccgef2_(indecgef2_(inegef2_(invtr *ipiv, cetavtr f2_(in ur *ipiv, cetaugef2_(incecgefo); /iv*icr f2_(in integer *n, integer *ndoublef2_(iscsu 1har *ocolcnb, v, clexinc*feer *ldx,ttecir *nrhs, complex * ap, isdisna, integejobSulex *b, iomp*info); /* f2_(indecge f2_(insep*eer *n, integer *nrhs, complex * ap, isgbbr, cintegeverr, lex *b, iomp*info); /* ger *ldz, ccge*i er *n, inkau, i5, c*ldkugef2_(inaer *ipiv, ceta, f2_(indecgef2_(in er f2_(inq **ipiv, cetaqr f2_(inptr *ipiv, cetaptgef2_(incecgefo); /i __,cr f2_(in integer *n, integer *nrhs, complex * ap, isgbns, cger *n, comp*info); /* ger *ldz,kau, i5, c*ldkuge*i f2_(inaer *ipiv, ceta, er *n, intntegef2_(ina, compf2_(inrfo); f2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isgbequ cda,lda, jomp*info); /* ger *ldz,kau, i5, c*ldkuge*i f2_(inaer *ipiv, ceta, f2_(inrecgef2_(incecgef2_(inrowc); f2_(in colc); f2_(inal *feer *ldx,tteger *nrhs, complex * ap, isgbequb cda,lda, jomp*info); /* ger *ldz,kau, i5, c*ld kugef2_(inaer *ipiv, ceta, f2_(inrecgef2_(incecgef2_(inrowc); f2_(i _colc); f2_(inal *feer *ldx,tteger *nrhs, complex * ap, isgbrfs, integemplex *ger *ldz,nfeger *ldz,kau, i5, c*ld kugeger *ldz,nntegef2_(inaer *ipiv, ceta, f2_(inafer *ipiv, ceta,f , er *n, intntegef2_(in *lda,lda, j1l *ef2_(in *b, integer *ldbf2_(in fmper f2_(inbmper f2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isgbrfsx, integemplex *, il *(char ger *ldz, ge*ipiv, ce Skau, i5, c*ldkugeger *ldz,nntegef2_(inaer *ipiv, ceta, f2_(inafer *i*ipiv, ceta,f er *n, intntegef2_(inrecgef2_(incecgef2_(in *lda,lda, __, f2_(in *b, integer *ldbf2_(inrfo); f2_(inbmper i5, c*ldlen_mpe_bnds *nrf2_(inepe_bnds , coecgef2_(inepe_bnds v, c *info); /ivlenparamegef2_(inparamegef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isgbsv, complex *b, integer *kau, i5, c*ldkugeger *ldz, Sintegef2_(inaer *ipiv, ceta, er *n, intntegef2_(in *lda,lda, j1l *e, er *n, integer *nrhs, complex * ap, isgbsvx cger *nfarr, ger *nmplex *ger *ldz,nfeger *ldz,kau,*i er *n, inkugeger *ldz,nntegef2_(inaer *ipiv, ceta, f2_(inafer *i*ipiv, ceta,f er *n, intntege, il *(char f2_(inrecgef2_(incecge f2_(in *lda,lda, j1l *ef2_(in *b, integer *ldbf2_(inrfo); f2_(infmper *i f2_(inbmper f2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isgbsvxx cger *nfarr, ger *nmplex *ger *ldz,nfeger *ldz, Skau, i5, c*ldkugeger *ldz,nntegef2_(inaer *ipiv, ceta, f2_(inafer *i*ipiv, ceta,f er *n, intntege, il *(char f2_(inrecgef2_(incecge f2_(in *lda,lda, j1l *ef2_(in *b, integer *ldbf2_(inrfo); f2_(in rpvgrwr f2_(inbmper i5, c*ldn_mpe_bnds *nrf2_(inepe_bnds , coecge f2_(inepe_bnds v, c *info); /ivnparamegef2_(inparamegef2_(in integ, fact, char integer *ldx,treger *nrhs, complex * ap, isgbtf2, da,lda, jomp*info); /* ger *ldz,kau, i5, c*ldkuge*i f2_(inaer *ipiv, ceta, er *n, intntegeer *ldx,treger *nrhs, complex * ap, isgbtrf *lex *b, iomp*info); /* ger *ldz,kau, i5, c*ldkuge*i f2_(inaer *ipiv, ceta, er *n, intntegeer *ldx,treger *nrhs, complex * ap, isgbtrs, integemplex *ger *ldz,nfeger *ldz,kau, i5, c*ld kugeger *ldz,nntegef2_(inaer *ipiv, ceta, er *n, intntegef2_(in *l*i*ipiv, ceta fact, chareger *nrhs, complex * ap, isgebak, integejobSubroutio/* Suger *ldz,nfeger *ldz,rise_, fact, charx *af2_(ins ork,ner *ldx,tompf2_(inv*lda,lda, j1lvlmda,lda, _reger *nrhs, complex * ap, isgebal, integejobSulex *b, i/* f2_(ingr *ipiv, ceta,, *iger *ldz,ilse_fact, charx *af2_(ins ork,ner *ldx,tteger *nrhs, complex * ap, isgebd2, da,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(indecgef2_(inegef2_(intauqgef2_(intaupr f2_(in integer *n, integer *nrhs, complex * ap, isgebr, cda,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(indecgef2_(inegef2_(intauqgef2_(intaupr f2_(in integer *n, in l integer *ldx,tteger *nrhs, complex * ap, isgens, cger *n, comp*info); /* f2_(ingr *ipiv, ceta,, *if2_(ina, compf2_(inrfo); f2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isgeequ cda,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(inrecgef2_(incecgef2_(inrowc); f2_(incolc); f2_(inal *feer *ldx, _reger *nrhs, complex * ap, isgeequb cda,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(inrecgef2_(incecgef2_(inrowc); f2_(incolc); f2_(inal *feer *ldx, _reger *nrhs, complex * ap, isgees, integejobvx *, il *sorr, L_fp selerr, ger *ldz, ge*if2_(inar *ipiv, ceta,, *ipiv, cesdiompf2_(inwer f2_(in *af2_(invs*l*i*ipiv, cetavegef2_(in integer *n, inl integlex *whfrb integfact, cha exeger *nrhs, complex * ap, isgeesx, integejobvx *, il *sorr, L_fp selerr, real i sensemp*info); /* f2_(ingr *ipiv, ceta,, *ipiv, cesdiompf2_(inwer f2_(in *af2_(invs*l*ipiv, cetavegef2_(inrfo);egef2_(inrfo);egef2_(in integer *n, inl integer *ldx,tt integer *ldx,ttt integlex *whfrb integ, er *n, integer *nrhs, complex * ap, isgeev, integejoblda,integejoblrmp*info); /* f2_(ingr *i*ipiv, ceta,r f2_(inwer f2_(in *af2_(invau, i5, c*ldldlda,f2_(invr*l*i*ipiv, cetaver f2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgeevx, integebalanca,integejoblda,integejoblrmpreal i sensemp*info); /* f2_(ingr *ipiv, ceta,, f2_(inwer f2_(in *af2_(in vau, i5, c*ldldlda,f2_(invr*l*ipiv, cetaver ger *ldz,ilse_fact, cha*i*x *af2_(ins ork,nf2_(inaencompf2_(inrfo);egef2_(inrfo);egef2_(in integ, er *n, inl integer *ldx,tt integer *ldx,tteger *nrhs, complex * ap, isgegs, integejobvxda,integejoblsrmp*info); /* f2_(ingr *i*ipiv, ceta,r f2_(in *lda,lda, j1l *ef2_(ina *ipr*ef2_(ina *ip *af2_(i _ mc lmf2_(invsau, i5, c*ldldlsda,f2_(invsr*l*ipiv, cetavsrgef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgegv, integejoblda,integejoblrmp*info); /* f2_(ingr *i*ipiv, ceta,r f2_(in *lda,lda, j1l *ef2_(ina *ipr*ef2_(ina *ip *af2_(i _ mc lmf2_(invau, i5, c*ldldlda,f2_(invr*l*ipiv, cetaver f2_(in integ, fact, chal integer *ldx,tteger *nrhs, complex * ap, isgehd2, ger *ldz,/* fo); /ivilse_fact, charx *af2_(ingr *i*ipiv, ceta,r f2_(intau*ef2_(in integer *n, integer *nrhs, complex * ap, isgehr, cda,lda, j/* fo); /ivilse_fact, charx *af2_(ingr *i*ipiv, ceta,r f2_(intau*ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgejsv, integejobaa,integejobu*ereal ijobv*ereal ijobr*l*ireal ijobt*ereal ijobp*eer *n, inomp*info); /* f2_(ingr *ipiv, ceta,, *iaf2_(insv,r f2_(inur *ipiv, cetaugef2_(inv*lda,lda, j1lvlmf2_(in integ, fact, chal integer *ldx,tt integer *ldx,tteger *nrhs, complex * ap, isgelq2, da,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(intau*ef2_(in integer *n, integer *nrhs, complex * ap, isgelqf *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(intau*ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgels, integemplex *ger *ldz,omp*info); /* ger *ldz, Sintegef2_(inar *ipiv, ceta,, f2_(in *lda,lda, j1l *ef2_(in integ, fact, chal integer *ldx,tteger *nrhs, complex * ap, isgels, cda,lda, jomp*info); /* *info); /ntegef2_(inar *i*ipiv, ceta,r f2_(in *lda,lda, j1l *ef2_(inegef2_(inrfo);* ger *ldz, S;,etrff2_(in integer *n, inl integer *ldx,tt integer *ldx,tteger *nrhs, complex * ap, isgelss cda,lda, jomp*info); /* *info); /ntegef2_(inar *i*ipiv, ceta,r f2_(in *lda,lda, j1l *ef2_(inegef2_(inrfo);* ger *ldz, S;,etrff2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgelsx cda,lda, jomp*info); /* *info); /ntegef2_(inar *i*ipiv, ceta,r f2_(in *lda,lda, j1l *eda,lda, jjpvtr f2_(inrfo); da,lda, j;,etrff2_(in integer *n, integer *nrhs, complex * ap, isgelsy cda,lda, jomp*info); /* *info); /ntegef2_(inar *i*ipiv, ceta,r f2_(in *lda,lda, j1l *eda,lda, jjpvtr f2_(inrfo); da,lda, j;,etrff2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgeql2, da,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(intau*ef2_(in integer *n, integer *nrhs, complex * ap, isgeqlf *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(intau*ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgeqp3 *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,, *ida,lda, jjpvtr f2_(intau*ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgeqpf *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,, *ida,lda, jjpvtr f2_(intau*ef2_(in integer *n, integer *nrhs, complex * ap, isgeqr2, da,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(intau*ef2_(in integer *n, integer *nrhs, complex * ap, isgeqrf *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(intau*ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgerfs, integemplex *ger *ldz,nfeger *ldz,/ntegef2_(inar *i*ipiv, ceta,r f2_(ina*m__, real *era*m_fact, chatntegef2_(in *l*i*ipiv, ceta f2_(in *b, integer *ldbf2_(infmper f2_(inbmper f2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isgerfsx, integemplex *, il *(char ger *ldz, ge*ipiv, ce Sintegef2_(inar *ipiv, ceta,, f2_(ina*m__, real *era*m_fact, chatntege*if2_(inrecgef2_(incecgef2_(in *lda,lda, j1l *ef2_(in *b, integer *ldb*if2_(inrfo); f2_(inbmper i5, c*ldn_mpe_bnds *nrf2_(inepe_bnds , coecge rf2_(inepe_bnds v, c *info); /ivnparamegef2_(inparamegef2_(in integ, fact, char integer *ldx,treger *nrhs, complex * ap, isgerq2, da,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(intau*ef2_(in integer *n, integer *nrhs, complex * ap, isgerqf *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,, *if2_(intau*ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgesc2, ger *ldz,/* f2_(inar *ipiv, ceta,, f2_(inntege*ifact, chatntegeda,lda, jjptegef2_(ins orkr *nrhs, complex * ap, isgesdd, integejobz, ger *ldz,omp*info); /* f2_(ingr *i*ipiv, ceta,r f2_(inegef2_(inur *ipiv, cetaugef2_(invtr *ipiv, cetavtr rf2_(in integer *n, inl integer *ldx,tt integer *ldx,tteger *nrhs, complex * ap, isgesv, complex *b, integer *integef2_(ingr *ipiv, ceta,, *ida,lda, jtntegef2_(in *lda,lda, j1l *eer *ldx,tteger *nrhs, complex * ap, isgesvd, integejobu*ereal ijobvr, lex *b, iomp*info); /* *if2_(inar *ipiv, ceta,, f2_(inegef2_(inur *ipiv, cetaugef2_(invtr *i*ipiv, cetavt*ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgesvj, integejobaa,integejobu*ereal ijobv*elex *b, iomp*iger *ldz,b, f2_(inar *ipiv, ceta,, f2_(inevar *ipiv, cemegef2_(invr *i*ipiv, cetav*ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgesvx cger *nfarr, ger *nmplex *ger *ldz,nfeger *ldz, Sintegef2_(inar *ipiv, ceta,, f2_(ina*m__, real *era*m_fact, chatntege*i, il *(char f2_(inrecgef2_(incecgef2_(in *lda,lda, j1l *ef2_(in *b*i*ipiv, cetaldbf2_(inrfo); f2_(infmper f2_(inbmper f2_(in integ, fact, char integer *ldx,treger *nrhs, complex * ap, isgesvxx cger *nfarr, ger *nmplex *ger *ldz,nfeger *ldz, Sintegef2_(inar *ipiv, ceta,, f2_(ina*m__, real *era*m_fact, chatntege*i, il *(char f2_(inrecgef2_(incecgef2_(in *lda,lda, j1l *ef2_(in *b*i*ipiv, cetaldbf2_(inrfo); f2_(inrpvgrwr f2_(inbmper i5, c*ldlen_mpe_bnds *nrf2_(inepe_bnds , coecgef2_(inepe_bnds v, c *info); /ivlenparamegef2_(inparamegef2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isgetc2, ger *ldz,/* f2_(inar *ipiv, ceta,, fact, chatntege*ieda,lda, jjptegeer *n, integer *nrhs, complex * ap, isgetf2, da,lda, jomp*info); /* f2_(ingr *ipiv, ceta,, *ida,lda, jtntegeer *n, integer *nrhs, complex * ap, isgetrf *lex *b, iomp*info); /* f2_(ingr *ipiv, ceta,, *ida,lda, jtntegeer *n, integer *nrhs, complex * ap, isgetri, ger *ldz,/* f2_(inar *ipiv, ceta,, fact, chatntege*ief2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgetrs, integemplex *ger *ldz,nfeger *ldz,/ntegef2_(inar *i*ipiv, ceta,r da,lda, jtntegef2_(in *lda,lda, j1l *eer *ldx,tteger *nrhs, complex * ap, isggbak, integejobSubroutio/* Suger *ldz,nfeger *ldz,rise_, fact, charx *af2_(inls ork,nf2_(inrs ork,ner *ldx,tompf2_(inv*l*i*ipiv, cetav*eer *ldx,tteger *nrhs, complex * ap, isggbal, integejobSulex *b, i/* f2_(ingr *ipiv, ceta,, *if2_(in *lda,lda, j1l *eer *ldx,ttlse_fact, charx *af2_(inls ork,nf2_(i nrs ork,nf2_(in integer *n, integer *nrhs, complex * ap, isgges, integejobvxda,integejoblsrmp, il *sorr, L_fp selctgSulex *b, i/* f2_(ingr *ipiv, ceta,, f2_(in *lda,lda, j1l *e*i*ipiv, cesdiompf2_(ina *ipr*ef2_(ina *ip *af2_(i_ mc lmf2_(invsau,*i*ipiv, cetaveda,f2_(invsr*l*ipiv, cetavsrgef2_(in integer *n, inl integ*ielex *whfrb integfact, chateger *nrhs, complex * ap, isggesx, integejobvxda,integejoblsrmp, il *sorr, L_fp selctgSu, il *sensemp*info); /* f2_(ingr *ipiv, ceta,, f2_(in *l*i*ipiv, ceta fact, chasdiompf2_(ina *ipr*ef2_(ina *ip *af2_(i_ mc lm*if2_(invsau, i5, c*ldldlsda,f2_(invsr*l*ipiv, cetavsrgef2_(inrfo);ege*if2_(inrfo);v*ef2_(in integer *n, inl integer *ldx,tt integer *ldx,t Stt integlex *whfrb integfact, chateger *nrhs, complex * ap, isggev, integejoblda,integejoblrmp*info); /* f2_(ingr *i*ipiv, ceta,r f2_(in *lda,lda, j1l *ef2_(ina *ipr*ef2_(ina *ip *af2_(i _ mc lmf2_(invau, i5, c*ldldlda,f2_(invr*l*ipiv, cetaver f2_(in integ, fact, chal integer *ldx,tteger *nrhs, complex * ap, isggevx, integebalanca,integejoblda,integejoblrmpreal i sensemp*info); /* f2_(ingr *ipiv, ceta,, f2_(in *lda,lda, j1l *ef2_(i _g *ipr*ef2_(ina *ip *af2_(i_ mc lmf2_(invau, i5, c*ldldlda,f2_(invr*l*i*ipiv, cetaver er *ldx,ttlse_fact, charx *af2_(inls ork,nf2_(inrs ork,n*i f2_(inaencompf2_(inbencompf2_(inrfo);egef2_(inrfo);egef2_(in integ, er *n, inl integer *ldx,tt integlex *whfrb integfact, chateger *nrhs, complex * ap, isggglm, complex *b, integer *omp*info); p* f2_(ingr *i*ipiv, ceta,r f2_(in *lda,lda, j1l *ef2_(indecgef2_(inldbf2_(iny f2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgghr, cintegev, cqteintegev, czteger *ldz, geer *ldx,t Silse_fact, charx *af2_(ingr *ipiv, ceta,, f2_(in *lda,lda, j1l *ef2_(i _q **ipiv, cetaqr f2_(inzecgefact, chatial da,lda, jieger *nrhs, complex * ap, isgglse cda,lda, jomp*info); /* *info); p* f2_(ingr *i*ipiv, ceta,r f2_(in *lda,lda, j1l *ef2_(incecgef2_(indecgef2_(inldb f2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isggqrfhar *ocolcnb, integer *omp*info); p* f2_(ingr *i*ipiv, ceta,r f2_(intau,r f2_(in *lda,lda, j1l *ef2_(intau *ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isggrqf *lex *b, iomp*info); pmp*info); /* f2_(ingr *i*ipiv, ceta,r f2_(intau,r f2_(in *lda,lda, j1l *ef2_(intau *ef2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isggsvd, integejobu*ereal ijobv*ereal ijobqteger *ldz,omp, fact, chanmp*info); pmp*info); teger *n, inl* f2_(ingr *ipiv, ceta,, *i f2_(in *lda,lda, j1l *ef2_(ina *ip*af2_(i_ mc lmf2_(inugeger *ldz, Staugef2_(inv*lda,lda, j1lvlmf2_(inq **ipiv, cetaqr f2_(in integ, fact, char integer *ldx,treger *nrhs, complex * ap, isggsvp, integejobu*ereal ijobv*ereal ijobqteger *ldz,omp, fact, chapmp*info); /* f2_(ingr *ipiv, ceta,, f2_(in *lda,lda, j1l *e*if2_(intol,r f2_(intolbmp*info); teger *n, inl* f2_(inur *ipiv, cetauge*i f2_(inv*lda,lda, j1lvlmf2_(inq **ipiv, cetaqr fact, char integf2_(in tau*ef2_(in integer *n, integer *nrhs, complex * ap, isgsvj0, integejobl, integer *omp*info); /* f2_(ingr *i*ipiv, ceta,r f2_(indecgef2_(inevar *ipiv, cemegef2_(invr ger *ldz, Staegef2_(inepegef2_(insfminr f2_(intolmp*info); /sweepr f2_(in integ, fact, chal integer *ldx,tteger *nrhs, complex * ap, isgsvj1, integejobl, integer *omp*info); /* *info); /1* *if2_(inar *ipiv, ceta,, f2_(indecgef2_(inevar *ipiv, cemegef2_(invr *i*ipiv, cetav*ef2_(inepegef2_(insfminr f2_(intolmp*info); /sweepr f2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, isgtns, cger *n, comp*info); /* f2_(indl, f2_(indecge*if2_(indu*ef2_(indu2 *ger *ldz,tntegef2_(ina, compf2_(inrfo); f2_(in integer *n, inr integer *ldx,treger *nrhs, complex * ap, isgtrfs, integemplex *ger *ldz,nfeger *ldz,/ntegef2_(indlge*i f2_(indecgef2_(indu*ef2_(indlf*ef2_(indf*ef2_(induf*ef2_(indu2 **ida,lda, jtntegef2_(in *lda,lda, j1l *ef2_(inldbda,lda, j1lldbf2_(in fmper f2_(inbmper f2_(in integer *n, int integer *n, integer *nrhs, complex * ap, isgtsv, complex *b, integer *integef2_(indl, f2_(indecge*if2_(indu*ef2_(in *lda,lda, j1l *eer *ldx,tteger *nrhs, complex * ap, isgtsvx cger *nfarr, ger *nmplex *ger *ldz,nfeger *ldz, Sintegef2_(indl, f2_(indecgef2_(indu*ef2_(indlf*ef2_(indf*ef2_(induf*e*if2_(indu2 *ger *ldz,tntegef2_(in *lda,lda, j1l *ef2_(inldbda,lda, j, ldbf2_(inrfo); f2_(infmper f2_(inbmper f2_(in integer *n, int integ, er *n, integer *nrhs, complex * ap, isgttrfhar *ocolcnb, f2_(indl, f2_(indecgef2_(indu*ef2_(in du2 *ger *ldz,tntegeer *n, integer *nrhs, complex * ap, isgttrs, integemplex *ger *ldz,nfeger *ldz,/ntegef2_(indlge*i f2_(indecgef2_(indu*ef2_(indu2 *ger *ldz,tntegef2_(in *lda,lda, j1l *e, er *n, integer *nrhs, complex * ap, isgtts2, ger *ldz,ttplex *ger *ldz,nfeger *ldz,/ntegef2_(i _dl, f2_(indecgef2_(indu*ef2_(indu2 *ger *ldz,tntegef2_(in *lda,lda, j Sti r *nrhs, complex * ap, ishgeqzhaintegejobSubroutiv, cqteintegev, czteger *ldz, ge*iger *ldz,ilse_fact, charx *af2_(inhecgefact, chatihr f2_(intgefact, ch __,t*ef2_(ing *ipr*ef2_(ina *ip *af2_(i_ mc lmf2_(inq *, comper *i*wh*if2_(inzecgefact, chatial f2_(in integer *n, inl integer *ldx,tteger *nrhs, complex * ap, ishsei, cger *no/* SubroutieigsrcSubroutiinitveglex *whfr selerr, ger *ldz, gef2_(inhecgefact, chatihr f2_(inwer f2_(in *af2_(i _vau, i5, c*ldldlda,f2_(invr*l*ipiv, cetaver ger *ldz,omteger *ldz,omp*if2_(in integer *n, intfailleger *n, intfailreger *ldx,tteger *nrhs, complex * ap, ishseqrhaintegejobSubroutiv, czteger *ldz, geer *ldx,trise_, _fact, charx *af2_(inhecgefact, chatihr f2_(inwer f2_(in *af2_(inz *in*iefact, chatial f2_(in integer *n, inl integer *ldx,tteger *nlex *whfsisnan *f2_(insi, _r *nrhs, complex * ap, isla_gbamv_, ger *ldz,mplex *ger *ldz,omp*info); /* *iger *ldz,kau, i5, c*ldkugef2_(ina *ip*af2_(i_aer *ipiv, ceta, f2_(in *feer *ldx,tteci*af2_(i_ mc lmf2_(inyfeer *ldx,ttecyr *ndoublef2_(isla_gbrfo);_, integemplex *ger *ldz,nfeger *ldz,kau, i5, c*ldkuge*if2_(i_aer *ipiv, ceta, f2_(inafer *ipiv, ceta,f ger *ldz,tntege*iger *ldz,cmo;egef2_(incecgefo); /ivteger f2_(in integer *n, int integ, ftnlen mplex lenr *nrhs, complex * ap, isla_gbrfsx,extended_, ger *ldz,prec type *info); /ivlemplex type *info); /ivb, integer *kau, i5, c*ldkugeger *ldz,/ntege*if2_(i_aer *ipiv, ceta, f2_(inafer *ipiv, ceta,f ger *ldz,tntege*ilex *whfrcolequgef2_(incecgef2_(in *lda,lda, j1l *ef2_(inyinfo); /ivleldyr f2_(inbmpe_mpl *info); /ivb , cos *nrf2_(inepes_necgef2_(in epes_cecgef2_(inreegef2_(inay *ef2_(indyr f2_(iny_tailecgef2_(inrfo); , _fact, charthreehr f2_(inrthreehr f2_(indz_ubecgelex *whfr ig, ce_cwiseecgefo); /ivteger *ndoublef2_(isla_gbrpvgrw_, complex *b, integer *kau, i5, c*ldkugeger *ldz, Sicolegef2_(inaer *ipiv, ceta, f2_(inafer *ipiv, ceta,f r *nrhs, complex * ap, isla_geamv_, ger *ldz,mplex *ger *ldz,omp*info); /* f2_(i _a *ip*af2_(i_ar *ipiv, ceta,, f2_(in*feer *ldx,tteci*af2_(i_ mc lm*if2_(i_yfeer *ldx,ttecyr *ndoublef2_(isla_gerfo);_, integemplex *ger *ldz,nfef2_(i_ar *ipiv, ceta,, f2_(i _a*m__, real *era*m_fact, chatntegeger *ldz,cmo;egef2_(incecgefo); /i _reger f2_(in integer *n, int integftnlen mplex lenr *nrhs, complex * ap, isla_gerfsx,extended_, ger *ldz,prec type *info); /ivlemplex type *info); /ivb, integer *integef2_(inar *ipiv, ceta,, f2_(in a*m__, real *era*m_fact, chatntegelex *whfrcolequgef2_(incecgef2_(in **iefact, chati *ef2_(inyinfo); /ivldyr f2_(inbmpe_mpl *info); /ivlen_, cos *nrf2_(inepes_necgef2_(inepes_cecgef2_(inreegef2_(inay *ef2_(i _dyr f2_(iny_tailecgef2_(inrfo); _fact, charthreehr f2_(inrthreehr *if2_(indz_ubecgelex *whfrig, ce_cwiseecgefo); /ivteger *nrhs, complex * ap, isla_li, bmpe_, complex *b, integer *iz, integer *intege*if2_(inreegef2_(inay *ef2_(inbmper *ndoublef2_(isla_porfo);_, intege* integer *ldz, gef2_(inar *ipiv, ceta,, f2_(in a*m__, real *era*m_fact, chacmo;egef2_(incecgefo); /ivteger f2_(in integer *n, inr integftnlen * in lenr *nrhs, complex * ap, isla_porfsx,extended_, ger *ldz,prec type *inintege* inte, fact, chanmp*info); integef2_(inar *ipiv, ceta,, f2_(ina*m__, real * S*infgelex *whfrcolequgef2_(incecgef2_(in *efact, chati *ef2_(inyin*i*ipiv, cetayr f2_(inbmpe_mpl *info); /ivb , cos *nrf2_(inepes_necge f2_(inepes_cecgef2_(inreegef2_(inay *ef2_(indyr f2_(iny_tailecgef2_(in ffo); _fact, charthreehr f2_(inrthreehr f2_(indz_ubecgelex *whfr ig, ce_cwiseecgefo); /ivtegeegftnlen * in lenr *ndoublef2_(isla_porpvgrw_, intege* integer *ldz, colegef2_(inar *ipiv, ceta,, *if2_(i_a*m__, real *era*m_f2_(in integftnlen * in lenr *ndoublef2_(isla_rpvgrw_, complex *b, integer * colegef2_(inar *ipiv, ceta,, *if2_(i_a*m__, real *era*r *nrhs, complex * ap, isla_syamv_, ger *ldz,* integer *ldz, gef2_(ina *ip*af2_(i _gr *ipiv, ceta,r f2_(in*feer *ldx,tteci*af2_(i_ mc lmf2_(inyin*i*ipiv, cetecyr *ndoublef2_(isla_syrfo);_, intege* integer *ldz, gef2_(inar *ipiv, ceta,, f2_(in a*m__, real *era*m_fact, chatntegeger *ldz,cmo;egef2_(incecgefo); /ia exeger f2_(in integer *n, int integftnlen * in lenr *nrhs, complex * ap, isla_syrfsx,extended_, ger *ldz,prec type *inintege* inte, fact, chanmp*info); integef2_(inar *ipiv, ceta,, f2_(ina*m__, real * S*infgefact, chatntegelex *whfrcolequgef2_(incecgef2_(in *lda,lda, j Sti *ef2_(inyinfo); /ivldyr f2_(inbmpe_mpl *info); /ivb , cos *nr f2_(inepes_necgef2_(inepes_cecgef2_(inreegef2_(inay *ef2_(indyr f2_(in y_tailecgef2_(inrfo); _fact, charthreehr f2_(inrthreehr f2_(indz_ubecg*ielex *whfrig, ce_cwiseecgefo); /ivtegeegftnlen * in lenr *ndoublef2_(isla_syrpvgrw_, intege* integer *ldz, gefo); /ivteger f2_(inar *i*ipiv, ceta,r f2_(ina*m__, real *era*m_fact, chatntegef2_(in integ, ftnlen * in lenr *nrhs, complex * ap, isla_wwaddw_, complex *b, f2_(in*fef2_(inyinf2_(in r *nrhs, complex * ap, islabad *f2_(insmalda,f2_(inlargkr *nrhs, complex * ap, islabr, cda,lda, jomp*info); /* *info); /br f2_(inar *i*ipiv, ceta,r f2_(indecgef2_(inegef2_(intauqgef2_(intaupr f2_(in *b*i*ipiv, cetaldbf2_(inyinfo); /ivldyr *nrhs, complex * ap, islacn2, ger *ldz,/* f2_(invr f2_(in *bfact, chatsgn, f2_(inesr, ger *ldz,kasemp*info); isavkr *nrhs, complex * ap, islans, cger *ldz,/* f2_(invr f2_(in *bfact, chatsgn, f2_(inesr, ger *ldz,kaser *nrhs, complex * ap, islanpy, intege* integer *ldz,omp*info); /* f2_(ingr *i*ipiv, ceta,r f2_(in *efact, chati r *nrhs, complex * ap, isladiv *f2_(ingr f2_(in *ef2_(incecgef2_(indecgef2_(inpr f2_(inqr *nrhs, complex * ap, islae2 *f2_(ingr f2_(in *ef2_(incecgef2_(inrt1gef2_(inrt2r *nrhs, complex * ap, islaebzhar *ocolcnicople*info); /itl *feer *ldx,t/* *iger *ldz,ml *feer *ldx,tminpmp*info); /bminr f2_(inabstolmpf2_(in feltolmpf2_(innteminr f2_(indecgef2_(inegef2_(ine2 *ger *ldz,nvalge*if2_(i_aer f2_(incecgefo); /iammpl *ger *ldz,naer f2_(in integer *n, i _r integer *ldx,tteger *nrhs, complex * ap, islaed0har *ocolcniv, cqteger *ldz,qsizmp*info); /* f2_(i _decgef2_(inegef2_(inq **ipiv, cetaqr f2_(inqstoregefo); /iv*iqege*if2_(in integer *n, int integer *n, integer *nrhs, complex * ap, islaed1har *ocolcnb, f2_(indecgef2_(inq *, comper *i*wh*ier *n, intedxqr f2_(inrhnteger *ldz,cutpnt*ef2_(in integer *n, in ex integer *ldx,tteger *nrhs, complex * ap, islaed2, ger *ldz,kmp*info); /* *info); /1, f2_(indecge f2_(inq *, comper *i*wher *n, intedxqr f2_(inrhntef2_(inzecgef2_(in dlama,, f2_(inwgef2_(inq2wher *n, intedxwher *n, intedxcgefo); /ia exedxpmp*info); coltypeger *ldx,tteger *nrhs, complex * ap, islaed3, ger *ldz,kmp*info); /* *info); /1, f2_(indecge f2_(inq *, comper *i*whf2_(inrhntef2_(indlama,, f2_(inq2wher *n, in exedxmp*info); ctot, f2_(inwgef2_(inseger *ldx,tteger *nrhs, complex * ap, islaed4 cda,lda, j/* fo); /iviecgef2_(indecgef2_(inzecge*if2_(indeltawhf2_(inrhntef2_(indlameger *ldx,tteger *nrhs, complex * ap, islaed5har *ocolcniecgef2_(indecgef2_(inzecgef2_(indeltawh*if2_(inrhntef2_(indlamr *nrhs, complex * ap, islaed6, ger *ldz,k/itergelex *whfrorgatiwhf2_(inrhnte*if2_(indecgef2_(inzecgef2_(infinitgef2_(intaueger *ldx,tteger *nrhs, complex * ap, islaed7har *ocolcniv, cqteger *ldz,nteger *ldz,qsizmp*ier *n, intlvlsteger *ldz,curlvau, i5, c*ldcurpbm, f2_(indecgef2_(inq **i*ipiv, ceta*wher *n, intedxqr f2_(inrhnteger *ldz,cutpnt*ef2_(in qstoregefo); /ivqptreger *ldx,tprmptreger *ldx,tpecomp*info); givptreger *ldx,tgivcolmpf2_(ingivnum*ef2_(in integer *n, int integ, er *n, integer *nrhs, complex * ap, islaed8har *ocolcniv, cqteger *ldz,kmp*info); /* *info); _qsizmpf2_(indecgef2_(inq *, comper *i*wher *n, intedxqr f2_(inrhnte*iger *ldz,cutpnt*ef2_(inzecgef2_(indlama,, f2_(inq2wher *n, in*i*2ge*if2_(in eger *ldx,tpecomp*info); givptreger *ldx,tgivcolmpf2_(in givnum*eer *n, intedxp*eer *n, intedxeger *ldx,tteger *nrhs, complex * ap, islaed9, ger *ldz,kmp*info); kstartmp*info); kstopte, fact, chanmpf2_(indecgef2_(inq *, comper *i*whf2_(inrhntef2_(indlama,, *ief2_(in gef2_(inseger *ldx,tldseger *ldx,tteger *nrhs, complex * ap, islaeda cda,lda, j/* fo); /ivtlvlsteger *ldz,curlvau,*iger *ldz,curpbm, er *ldx,tprmptreger *ldx,tpecomp*info); givptreg*iger *ldz,givcolmpf2_(ingivnum*ef2_(inqgefo); /ivqptregf2_(inzecge*if2_(inztempeger *ldx,tteger *nrhs, complex * ap, islaei, clex *whfrrightveglex *whfrnoinitgeer *ldx,t/* *if2_(inhecgefact, chatihr f2_(inwer f2_(in *af2_(inver f2_(inv *af2_(i _ *efact, chati *ef2_(in integf2_(ineps3gef2_(insmlnum*ef2_(inbig,umeg, er *n, integer *nrhs, complex * ap, islaev2 *f2_(ingr f2_(in *ef2_(incecgef2_(inrt1gef2_(in*ift2*ef2_(incs1gef2_(insn1r *nrhs, complex * ap, islaexc clex *whfrwantqteger *ldz, gef2_(intu, i5, c*ldle*ite_f2_(inq *, comper *i*wher *n, inj1* *info); /1, *info); /2ge*if2_(in integer *n, integer *nrhs, complex * ap, islag2 *f2_(ingr *ipiv, ceta,, f2_(in *lda,lda, j1l *e*if2_(insafminr f2_(ins ork1r f2_(ins ork2r f2_(inwe1r f2_(inwe2gef2_(in*iwir *nrhs, complex * ap, islag2, cda,lda, jomp*info); /* f2_(insgr *ipiv, cetas,, *idoublef2_(inar *ipiv, ceta,r fact, chareger *nrhs, complex * ap, islags2, lex *whfrupper*ef2_(ina1r f2_(ina2gef2_(ina3, *if2_(in 1r f2_(inb2gef2_(inb3*ef2_(incsugef2_(insnugef2_(incsegef2_(in snvgef2_(incsqgef2_(insnqr *nrhs, complex * ap, islagtfhar *ocolcnb, f2_(in,, f2_(inlambdgr f2_(in *ef2_(i _cecgef2_(intolmpf2_(indecgefo); /ivter fact, chareger *nrhs, complex * ap, islagtm, integemplex *ger *ldz,nfeger *ldz,/ntegef2_(in a *ip*af2_(i_dl, f2_(indecgef2_(indu*ef2_(inldbda,lda, j1lldbf2_(in mc lmf2_(in *efact, chati r *nrhs, complex * ap, islagts cda,lda, jjobSulex *b, i/* f2_(ingr f2_(in *ef2_(i _cecgef2_(indecgefo); /ivter f2_(inygef2_(intolmpfact, chareger *nrhs, complex * ap, islagv2 *f2_(ingr *ipiv, ceta,, f2_(in *lda,lda, j1l *e*if2_(ing *ipr*ef2_(ina *ip *af2_(i_ mc lmf2_(incsda,f2_(insnlmpf2_(in csrgef2_(insnrr *nrhs, complex * ap, islahqrhalex *whfrwantteglex *whfrwantzteger *ldz, ge*iger *ldz,ilse_fact, charx *af2_(inhecgefact, chatihr f2_(inwer f2_(in*iwie_fact, charloze_fact, charx zmpf2_(inzecgefact, chatial da,lda, j exeger *nrhs, complex * ap, islahr2, ger *ldz,/* fo); /ivkmp*info); /br f2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(intr *ipiv, cetate_f2_(inyge*ipiv, cetayr *nrhs, complex * ap, islahr, cda,lda, j/* fo); /ivkmp*info); /br f2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(intr *ipiv, cetate_f2_(inyge*ipiv, cetayr *nrhs, complex * ap, islaic1 cda,lda, jjobSulex *b, ij*ef2_(inldbf2_(inseste_*if2_(in gef2_(ingammadbf2_(insestprgef2_(ins*ef2_(incecr *nlex *whfslaisnan *f2_(insi,1r f2_(insin2r *nrhs, complex * ap, islaln2, lex *whfrlmplex *ger *ldz,ngr *ipiv, cenwr f2_(in*isminr f2_(incp*af2_(i_ar *ipiv, ceta,, f2_(ind1, f2_(ind2, f2_(in *l*i*ipiv, ceta f2_(inwer f2_(in *af2_(inldbda,lda, j1lldbf2_(ins ork,n*if2_(inl, comp*info); xeger *nrhs, complex * ap, islals0har *ocolcniv, cqteger *ldz,nlmp*info); /reg*iger *ldz,sqregefo); /iv/ntegef2_(in *efact, chati *ef2_(inb *b*i*ipiv, cetabldbda,lda, jpecomp*info); givptreger *ldx,tgivcolmp*i*ipiv, cetagcolmpf2_(ingivnum*e*ipiv, cetagnum*ef2_(inpoleegef2_(in difl, f2_(indifrmpf2_(inzecgefact, chak*ef2_(incecgef2_(ins*ef2_(in integer *n, inreger *nrhs, complex * ap, islalsahar *ocolcniv, cqteger *ldz,smlsizmp*info); /* , fact, channtegef2_(in *efact, chati *ef2_(inb *b*ipiv, cetabldbf2_(in ur *ipiv, cetaugef2_(invtr *ipiv, cek, f2_(indifl, f2_(indifrmpf2_(in zecgef2_(inpoleege*info); givptreger *ldx,tgivcolmp*ipiv, cetagcolmp, fact, chapecompf2_(ingivnum*ef2_(incecgef2_(ins*ef2_(in integer *n, in ex integer *ldx,tteger *nrhs, complex * ap, islals, cintege* integer *ldz,smlsizmp*info); /* *info); _bntegef2_(indecgef2_(inegef2_(in *efact, chati *ef2_(inrfo); da,lda, j;,etrff2_(in integer *n, int integer *ldx,tteger *nrhs, complex * ap, islamrg cda,lda, j/1, *info); /2gef2_(i_ar *ipiv, ce*istrd1, *info); strd2wher *n, intedeir *ner *ldx,slaneghar *ocolcnb, f2_(indecgef2_(inll; f2_(insigmadbf2_(innteminr da,lda, j;ecr *ndoublef2_(islangb cger *n, comp*info); /* ger *ldz,kau, i5, c*ldkugef2_(i_a *e, er *n, inta, f2_(in intr *ndoublef2_(islange cger *n, comp*info); omp*info); /* f2_(ingr *ipiv, ceta,, *if2_(in intr *ndoublef2_(islangt cger *n, comp*info); /* f2_(indl, f2_(indecgef2_(indur *ndoublef2_(islanhs cger *n, comp*info); /* f2_(inar *ipiv, ceta,, f2_(in intr *ndoublef2_(islansb cger *n, compintege* integer *ldz, gefo); /ivkgef2_(i_a *e, er *n, inta, f2_(in intr *ndoublef2_(islansf cger *n, compintegemplexrmpintege* integer *ldz, gef2_(inar *if2_(in intr *ndoublef2_(islansp cger *n, compintege* integer *ldz, gef2_(inap f2_(in intr *ndoublef2_(islanst cger *n, comp*info); /* f2_(indecgef2_(iner *ndoublef2_(islansy cger *n, compintege* integer *ldz, gef2_(inar *ipiv, ceta,, *if2_(in intr *ndoublef2_(islantb cger *n, compintege* inteintegediagteger *ldz, gefo); /ivkge*i f2_(inaer *ipiv, ceta, f2_(in intr *ndoublef2_(islantp cger *n, compintege* inteintegediagteger *ldz, gef2_(inap *if2_(in intr *ndoublef2_(islantr cger *n, compintege* inteintegediagteger *ldz,omp*info); /* *i f2_(inar *ipiv, ceta,, f2_(in intr *nrhs, complex * ap, islanv2 *f2_(ingr f2_(in *ef2_(incecgef2_(indecgef2_(in rt1rgef2_(inrt1iwhf2_(inrt2rgef2_(inrt2iwhf2_(incegef2_(insnr *nrhs, complex * ap, islapll, complex *b, f2_(in*feer *n, intecldbf2_(iny er *n, intecygef2_(inssminr *nrhs, complex * ap, islapmt, lex *whfrforwrdmp*info); omp*info); /* f2_(inx*e, er *n, inta*feer *n, intr *ndoublef2_(islapy2 *f2_(inldbf2_(inyr *ndoublef2_(islapy3 *f2_(inldbf2_(inympf2_(inzecr *nrhs, complex * ap, islaqgb cda,lda, jomp*info); /* ger *ldz,kau, i5, c*ldkuge*i f2_(inaer *ipiv, ceta, f2_(inrecgef2_(incecgef2_(inrowc); f2_(in colc); f2_(inal *fe, il *(charr *nrhs, complex * ap, islaqge cda,lda, jomp*info); /* f2_(inar *ipiv, ceta,, *if2_(inrecgef2_(incecgef2_(inrowc); f2_(incolc); f2_(inal *fereal i (charr *nrhs, complex * ap, islaqp2, da,lda, jomp*info); /* ger *ldz,offset* f2_(inar , er *n, inta,Sulex *b, ijpvtr f2_(intau*ef2_(inv,1r f2_(invn2gef2_(in*iwintr *nrhs, complex * ap, islaqps cda,lda, jomp*info); /* *info); offset* *info); _bbmp*info); tb* f2_(inar *ipiv, ceta,, lex *b, ijpvtr f2_(intau*e*if2_(inv,1r f2_(invn2gef2_(inauxvgef2_(in*m__, real *er*r *nrhs, complex * ap, islaqr0halex *whfrwantteglex *whfrwantzteger *ldz, ge*iger *ldz,ilse_fact, charx *af2_(inhecgefact, chatihr f2_(inwer f2_(in*iwie_fact, charloze_fact, charx zmpf2_(inzecgefact, chatial f2_(in integ, er *n, inl integer *ldx,tteger *nrhs, complex * ap, islaqr1har *ocolcnb, f2_(inhecgefact, chatihr f2_(insr1* *if2_(insi1r f2_(inse2gef2_(insi2gef2_(invr *nrhs, complex * ap, islaqr2halex *whfrwantteglex *whfrwantzteger *ldz, ge*iger *ldz,ktopte*info); tbotgeer *ldx,t/w, f2_(inhecgefact, chatihr *iger *ldz,ilsze_fact, charx zmpf2_(inzecgefact, chatial da,lda, jnege*ifact, cha); f2_(insrgef2_(ins *af2_(invgefact, chativgefact, chanhr *if2_(intr *ipiv, cetate_fact, chanegef2_(in vgefact, chatiwegef2_(in integer *n, inl intr *nrhs, complex * ap, islaqr3halex *whfrwantteglex *whfrwantzteger *ldz, ge*iger *ldz,ktopte*info); tbotgeer *ldx,t/w, f2_(inhecgefact, chatihr *iger *ldz,ilsze_fact, charx zmpf2_(inzecgefact, chatial da,lda, jnege*ifact, cha); f2_(insrgef2_(ins *af2_(invgefact, chativgefact, chanhr *if2_(intr *ipiv, cetate_fact, chanegef2_(in vgefact, chatiwegef2_(in integer *n, inl intr *nrhs, complex * ap, islaqr4halex *whfrwantteglex *whfrwantzteger *ldz, ge*iger *ldz,ilse_fact, charx *af2_(inhecgefact, chatihr f2_(inwer f2_(in*iwie_fact, charloze_fact, charx zmpf2_(inzecgefact, chatial f2_(in integ, er *n, inl integer *ldx,tteger *nrhs, complex * ap, islaqr5halex *whfrwantteglex *whfrwantzteger *ldz,kacc22 **ida,lda, j/* ger *ldz,ktopte*info); tbotgeer *ldx,t/shfts f2_(insrge*if2_(insi*af2_(inhecgefact, chatihr fact, charloze_fact, charx zmpf2_(i _zecgefact, chatial f2_(inv*lda,lda, j1lvlmf2_(inur *ipiv, cetauge*ifact, chanegef2_(in vgefact, chatiwegefact, chanhr f2_(in hr fact, chale*iwhr *nrhs, complex * ap, islaqsb cger *n* integer *ldz, gefo); /ivk; f2_(ina *e, er *n, inta, f2_(ins f2_(insfo); f2_(inal *fe, il *(charr *nrhs, complex * ap, islaqsp cger *n* integer *ldz, gef2_(inap f2_(ins*ef2_(in sfo); f2_(inal *fe, il *(charr *nrhs, complex * ap, islaqsy, intege* integer *ldz,/* f2_(inar *ipiv, ceta,, *if2_(ins f2_(insfo); f2_(inal *fe, il *(charr *nrhs, complex * ap, islaqtr, lex *whfrlmpleeglex *whfrlf2_(teger *ldz,/* f2_(i _tr *ipiv, cetate_f2_(in f2_(in f2_(insfork,nf2_(inxl f2_(in integ, er *ldx,tteger *nrhs, complex * ap, islar1v, complex *b, integer *b1, *info); bn*ef2_(in lambdgr f2_(indecgef2_(inlgef2_(inl; f2_(inll; f2_(innteminr f2_(in gaptolmpf2_(inzecgelex *whfrwantnca,complex *begcnt*ef2_(inztzr f2_(in mingmadbcomplex *recgefo); /ivtsuppzr f2_(innrminegef2_(inresid, *if2_(inrqcoper f2_(in intr *nrhs, complex * ap, islar2v, complex *b, f2_(in*fef2_(inympf2_(inzec* *info); _tecldbf2_(incecgef2_(ins*eer *n, inteccr *nrhs, complex * ap, islarf cger *no/* Suda,lda, jomp*info); /* f2_(inv er *n, intecegef2_(intau*ef2_(incecgefact, chaticr f2_(in intr *nrhs, complex * ap, islarfb cger *no/* Subroutimplex *, il *direrr, real i storel, integer *omp*info); /* *info); k* f2_(inv da,lda, j1lvlm*if2_(intr *ipiv, cetate_f2_(incecgefact, chaticr f2_(in intr fact, chale*iwintr *nrhs, complex * ap, islarfghar *ocolcnb, f2_(ina *ip*af2_(i_*feer *n, intecldb*if2_(intaur *nrhs, complex * ap, islarfphar *ocolcnb, f2_(ina *ip*af2_(i_*feer *n, intecldb*if2_(intaur *nrhs, complex * ap, islarft cger *ndirerr, real istorel, integer *nfeger *ldz, Sk* f2_(inv da,lda, j1lvlmf2_(intau*ef2_(intr *ipiv, cetatr *nrhs, complex * ap, islarfx cger *no/* Suda,lda, jomp*info); /* f2_(inv f2_(intau*ef2_(incecgefact, chaticr f2_(in intr *nrhs, complex * ap, islargv, complex *b, f2_(in*feer *n, intecldbf2_(inymp er *n, intecygef2_(incecgefo); /ivteccr *nrhs, complex * ap, islarnv, complex *idisr, ger *ldz,isear ger *ldz, gef2_(i _xr *nrhs, complex * ap, islarrahar *ocolcnb, f2_(indecgef2_(inegef2_(ine2 *f2_(in spltolmpf2_(intncomp*info); /splir, ger *ldz,isplir, ger *ldz,ieger *nrhs, complex * ap, islarrbhar *ocolcnb, f2_(indecgef2_(inll; ger *ldz, Sifirsr, ger *ldz,ilastr f2_(inrtol1r f2_(inrtol2wher *n, inoffset* *if2_(in gef2_(inwgap f2_(in mper f2_(in integer *n, int integf2_(in nteminr f2_(inspdiameger *ldx,ttwisr, ger *ldz,ieger *nrhs, complex * ap, islarrchaintegejobr, ger *ldz, gef2_(inlda,f2_(invugef2_(i _decgef2_(inegef2_(innteminr ger *ldz,eigcnt*efact, chatcnt*efact, cha ffnr, ger *ldz,ieger *nrhs, complex * ap, islarr, cintegerange, real iordermp*info); /* f2_(invlge*if2_(i_vueger *ldx,ttlmpfact, charu*ef2_(in, cegef2_(inreltolmpf2_(in decgef2_(inegef2_(ine2 *f2_(innteminr ger *ldz,/splir, ger *ldz, Sisplir, ger *ldz,m*ef2_(in f2_(in mper f2_(in lmpf2_(inwugeger *ldz, Siblocteger *ldx,ttedexwr f2_(in integer *n, int integger *ldz,ieger *nrhs, complex * ap, islarre cintegerange, ger *ldz, gef2_(inlda,f2_(invuge*iger *ldz,ilmpfact, charu*ef2_(indecgef2_(inegef2_(ine2 *f2_(inrtol1r *if2_(inrtol2whf2_(inspltolmp*info); /splir, ger *ldz,isplir, ger *ldz, m*ef2_(in f2_(in mper f2_(in gap ger *ldz,iblocteger *ldx,ttedexwr *if2_(in, cegef2_(innteminr f2_(in integer *n, int integger *ldz,ieger *nrhs, complex * ap, islarrfhar *ocolcnb, f2_(indecgef2_(inlgef2_(inl; *iger *ldz,clstrtmp*info); cle); f2_(in gef2_(inwgap f2_(in mper *if2_(inspdiamegf2_(inclgaplegf2_(inclgaprgef2_(innteminr f2_(insigmadb*if2_(indpluegef2_(inlpluegef2_(in integger *ldz,ieger *nrhs, complex * ap, islarrjhar *ocolcnb, f2_(indecgef2_(ine2wher *n, intfirsr, , _fact, charlastr f2_(inrtolwher *n, inoffset* f2_(in f2_(in mper *if2_(in integer *n, int integf2_(innteminr f2_(inspdiameger *ldx,tieger *nrhs, complex * ap, islarrk cda,lda, j/* fo); /ivi gef2_(inglmpf2_(ingu*e*if2_(indecgef2_(ine2whf2_(innteminr f2_(inreltolmpf2_(in f2_(in mper *ier *ldx,tieger *nrhs, complex * ap, islarrrhar *ocolcnb, f2_(indecgef2_(inegeer *ldx,tieger *nrhs, complex * ap, islarrv, complex *b, f2_(inlda,f2_(invugef2_(indecgef2_(in lmpf2_(innteminr ger *ldz,isplir, ger *ldz,meger *ldx,tdolwher *n, in*idoumpf2_(inminrgpr f2_(inrtol1r f2_(inrtol2whf2_(in f2_(in mper *if2_(in gap ger *ldz,iblocteger *ldx,ttedexwr f2_(in, cegef2_(inzecge*ifact, chatize_fact, charsuppzr f2_(in integer *ldx,tt integer *ldx,t Sieger *nrhs, complex * ap, islarscl2, da,lda, jomp*info); /* f2_(indecgef2_(inldb fact, chatixr *nrhs, complex * ap, islartg *f2_(in*m_f2_(ingegf2_(incegef2_(insnr f2_(inrecr *nrhs, complex * ap, islartv, complex *b, f2_(in*feer *n, intecldbf2_(inymp er *n, intecygef2_(incecgef2_(insgefo); /ivteccr *nrhs, complex * ap, islaruv, complex *isear ger *ldz, gef2_(i_xr *nrhs, complex * ap, islarz cger *no/* Suda,lda, jomp*info); /* fact, chatge*if2_(i_vgefo); /ivtecegef2_(intau*ef2_(incecgefact, chaticr f2_(in*iwintr *nrhs, complex * ap, islarzb cger *no/* Subroutimplex *, il *direrr, real i storel, integer *omp*info); /* *info); k* fact, chatgef2_(inv da,lda, j1lvlmf2_(intr *ipiv, cetate_f2_(incecgefact, chaticr f2_(in integer *n, inliwintr *nrhs, complex * ap, islarzt cger *ndirerr, real istorel, integer *nfeger *ldz, Sk* f2_(inv da,lda, j1lvlmf2_(intau*ef2_(intr *ipiv, cetatr *nrhs, complex * ap, islas2 *f2_(in*m_f2_(ingegf2_(inhecgef2_(inssminr f2_(in ssmaxr *nrhs, complex * ap, islascl, integemype *info); /ivkau, i5, c*ldkugef2_(i_ cfromegf2_(inctnteger *ldz,omp*info); /* f2_(ingr *ipiv, cetaar *ier *ldx,tieger *nrhs, complex * ap, islascl2, da,lda, jomp*info); /* f2_(indecgef2_(inldb fact, chatixr *nrhs, complex * ap, islasd0har *ocolcnnfeger *ldz,sqregef2_(indecgef2_(inege*if2_(i_ur *ipiv, cetaugef2_(invtr *ipiv, cetavtr ger *ldz,smlsizmp*ier *ldx,ti integf2_(in integger *ldz,ieger *nrhs, complex * ap, islasd1har *ocolcnblmp*info); /regger *ldz,sqregef2_(in decgef2_(ina *ip*af2_(i_ mc lmf2_(inugeger *ldz,taugef2_(invtr *i*ipiv, cetavt*eger *ldz,idxqr er *ldx,ti integf2_(in integger *ldz, Sieger *nrhs, complex * ap, islasd2, ger *ldz,blmp*info); /regger *ldz,sqregeger *ldz _kgef2_(indecgef2_(inzecgef2_(ina *ip*af2_(i_ mc lmf2_(inugeger *ldz, Staugef2_(invtr *ipiv, cetavtr f2_(indsigmadbf2_(inu2 *ger *ldz,ldu2 **if2_(invt2r *ipiv, cetavt2*eger *ldz,idxp*eger *ldz,idx*eger *ldz,idxc, , _fact, chardxqr er *ldx,tcoltypeger *ldx,tteger *nrhs, complex * ap, islasd3, ger *ldz,blmp*info); /regger *ldz,sqregeger *ldz _kgef2_(indecgef2_(inq *, comper *i*whf2_(indsigmadbf2_(inugeger *ldz, Staugef2_(inu2 *ger *ldz,ldu2 *f2_(invtr *ipiv, cetavtr f2_(invt2*e*i*ipiv, cetavt2*eger *ldz,idxc, er *ldx,tctot, f2_(inzecgefact, cha Sieger *nrhs, complex * ap, islasd4 cda,lda, j/* fo); /iviecgef2_(indecgef2_(inzecge*if2_(indeltawhf2_(inrhntef2_(insigmadbf2_(in integger *ldz,ieger *nrhs, complex * ap, islasd5har *ocolcniecgef2_(indecgef2_(inzecgef2_(indeltawh*if2_(inrhntef2_(indsigmadbf2_(in intr *nrhs, complex * ap, islasd6har *ocolcniv, cqteger *ldz,nlmp*info); /reg*iger *ldz,sqregef2_(indecgef2_(inv*m_f2_(inlda,f2_(ina *ip*af2_(i_ mc lm, _fact, chardxqr er *ldx,tpecomp*info); givptreger *ldx,tgivcolmp*i*ipiv, cetagcolmpf2_(ingivnum*e*ipiv, cetagnum*ef2_(inpoleegef2_(in difl, f2_(indifrmpf2_(inzecgefact, chak*ef2_(incecgef2_(ins*ef2_(in integer *n, inr integger *ldz,ieger *nrhs, complex * ap, islasd7har *ocolcniv, cqteger *ldz,nlmp*info); /reg*iger *ldz,sqregefo); /ivkgef2_(indecgef2_(inzecgef2_(inzwgef2_(inv*m_*if2_(invfwm_f2_(inlda,f2_(invlwa,f2_(ina *ip*af2_(i_ mc lmf2_(indsigmadb, _fact, chardx*eger *ldz,idxp*eger *ldz,idxqr er *ldx,tpecomp*info); givptreger *ldx,tgivcolmp*ipiv, cetagcolmpf2_(ingivnum*e*ipiv, ce Stagnum*ef2_(incecgef2_(ins*eger *ldz,ieger *nrhs, complex * ap, islasd8har *ocolcniv, cqteger *ldz,kmpf2_(indecgef2_(in zecgef2_(inv*m_f2_(inlda,f2_(indifl, f2_(indifrmp*ipiv, cetadifrmp*if2_(indsigmadbf2_(in integger *ldz,ieger *nrhs, complex * ap, islasdahar *ocolcniv, cqteger *ldz,smlsizmp*info); /* , fact, chasqregef2_(indecgef2_(inegef2_(inugeger *ldz,taugef2_(invtr *i*ipiv, cek, f2_(indifl, f2_(indifrmpf2_(inzecgef2_(inpoleege*info); givptreger *ldx,tgivcolmp*ipiv, cetagcolmper *ldx,tpecompf2_(ingivnum*e*i f2_(incecgef2_(ins*ef2_(in integer *n, inr integger *ldz,ieger *nrhs, complex * ap, islasdq cintege* integer *ldz,sqregefo); /iv/ge*info); ecer, ger *ldz, rugeger *ldz,/ccgef2_(indecgef2_(inegef2_(invtr *i*ipiv, cetavt*ef2_(inugeger *ldz,taugef2_(incecgefact, chaticr f2_(in integer *n, inieger *nrhs, complex * ap, islasdt cda,lda, j/* fo); /ivlvau, i5, c*ldn; ger *ldz, Sino* Suger *ldz,ndimlSuger *ldz,ndimer ger *ldz,osu r *nrhs, complex * ap, islaset, intege* integer *ldz,omp*info); /* f2_(ing *ip*a*if2_(in mc lmf2_(ingr *ipiv, cetaar *nrhs, complex * ap, islasq1har *ocolcnb, f2_(indecgef2_(ink,nf2_(in integ*ier *ldx,tieger *nrhs, complex * ap, islasq2, ger *ldz,/* f2_(inzecgefact, chaieger *nrhs, complex * ap, islasq3, ger *ldz,i0mp*info); /0* f2_(inzecgefact, chapp*e*i f2_(indminecgef2_(insigmadbf2_(indesiggef2_(inql *feer *ldx,t/faileg*ier *ldx,titermp*info); /dtegelex *whfriee Suger *ldz,tmypegef2_(in dmi,1r f2_(indmi,2 *f2_(indb, f2_(ind,1r f2_(ind,2 *f2_(inggef2_(in taur *nrhs, complex * ap, islasq4, ger *ldz,i0mp*info); /0* f2_(inzecgefact, chapp*e*i *info); /0inr f2_(indminecgef2_(indmi,1r f2_(indmi,2 *f2_(indb, *if2_(ind,1r f2_(ind,2 *f2_(intaueger *ldx,ttmypegef2_(ingr *nrhs, complex * ap, islasq5, ger *ldz,i0mp*info); /0* f2_(inzecgefact, chapp*e*i f2_(intau*ef2_(indminecgef2_(indmi,1r f2_(indmi,2 *f2_(indb, f2_(in dnm1r f2_(ind,m2gelex *whfriee r *nrhs, complex * ap, islasq6, ger *ldz,i0mp*info); /0* f2_(inzecgefact, chapp*e*i f2_(indminecgef2_(indmi,1r f2_(indmi,2 *f2_(indb, f2_(ind,m1r f2_(in dnm2r *nrhs, complex * ap, islasr cger *no/* Subroutipivot *, il *direrr, ger *ldz,omp*i *info); /*ef2_(incecgef2_(ins*ef2_(ingr *ipiv, cetaar *nrhs, complex * ap, islasrt, integeir ger *ldz, gef2_(i_decgefo); /ivteger *nrhs, complex * ap, islassq, complex *b, f2_(in*feer *n, intecldbf2_(ins ork,n*if2_(insumsqr *nrhs, complex * ap, islasv2 *f2_(in*m_f2_(ingegf2_(inhecgef2_(inssminr f2_(in ssmaxgef2_(insnrmpf2_(incsrgef2_(insnlegf2_(incslr *nrhs, complex * ap, islaswphar *ocolcnb, f2_(inar *ipiv, cetaar *ipiv, cek1r *i*ipiv, cek2 *ger *ldz,tntegeer *n, intecxr *nrhs, complex * ap, islasy2, lex *whfrlmpleleglex *whfrlmplereger *ldx,ttsgn, r *ocolcnb1, *info); /2gef2_(i_tlmp*ipiv, cetatlmpf2_(intr ger *ldz, Stater f2_(inbmp*ipiv, cetabdbf2_(ins ork,nf2_(in*feer *n, in1lldbf2_(i _x, comp*info); xeger *nrhs, complex * ap, islasyf cger *n* integer *ldz, gefo); /ivbbmp*info); tb* *i f2_(inar *ipiv, ceta,, ger *ldz,tntegef2_(in r *ipiv, ceta r *ipiv, c _reger *nrhs, complex * ap, islatbs cger *n* intebroutimplex *, il *diag, real i , coinr ger *ldz,/mp*info); t; f2_(ina *e*ipiv, ceta, *ef2_(inldb*if2_(ins ork,nf2_(inc, comp*info); xeger *nrhs, complex * ap, islatdfhar *ocolcnicople*info); /, f2_(inzecgefact, cha Stial f2_(inntegef2_(inrdsum*ef2_(inrdsc_(teger *ldz,tntegeer *n, in jnter *nrhs, complex * ap, islatps cger *n* intebroutimplex *, il *diag, real i , coinr ger *ldz,/mpf2_(inapr f2_(in *bf2_(ins ork,nf2_(inc, comp*ier *ldx,tieger *nrhs, complex * ap, islatr, cintege* integer *ldz, gefo); /ivbbmpf2_(inar *i*ipiv, ceta,r f2_(inegef2_(intaugef2_(in r *ipiv, ceta r *nrhs, complex * ap, islatrs cger *n* intebroutimplex *, il *diag, real i , coinr ger *ldz,/mpf2_(inar *ipiv, ceta,, f2_(in *bf2_(ins ork,nf2_(i _c, comp*info); xeger *nrhs, complex * ap, islatrz, da,lda, jomp*info); /* *ipiv, cetmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in intr *nrhs, complex * ap, islatzm cger *no/* Suda,lda, jomp*info); /* f2_(inv er *n, intecegef2_(intau*ef2_(inc1r f2_(inc2 *ger *ldz,ldcr f2_(in intr *nrhs, complex * ap, islauu2, intege* integer *ldz,/* f2_(inar *ipiv, ceta,, *i*info); xeger *nrhs, complex * ap, islauum, intege* integer *ldz,/* f2_(inar *ipiv, ceta,, *i*info); xeger *nrhs, complex * ap, isopgtr cger *n* integer *ldz, gef2_(inap f2_(intau*e*if2_(inq **ipiv, cetaqr f2_(in integ*info); xeger *nrhs, complex * ap, isopmtr cger *no/* Subrouti* intebroutimplex *ger *ldz,omp*iger *ldz, gef2_(inap f2_(intau*ef2_(incecgefact, chaticr f2_(in integ*ier *ldx,tieger *nrhs, complex * ap, isorg2l, da,lda, jomp*info); /* *ipiv, cekmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); xeger *nrhs, complex * ap, isorg2r, da,lda, jomp*info); /* *ipiv, cekmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); xeger *nrhs, complex * ap, isorgbr cger *nverr, ger *ldz,omp*info); /* *ipiv, cekmp*if2_(inar *ipiv, ceta,, f2_(intau*ef2_(in integ*info); l integer *ldx, _reger *nrhs, complex * ap, isorghr cda,lda, j/* fo); /ivilse_fact, charx *af2_(ingr *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); l integer *ldx,tteger *nrhs, complex * ap, isorgl2, da,lda, jomp*info); /* *ipiv, cekmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); xeger *nrhs, complex * ap, isorglq, da,lda, jomp*info); /* *ipiv, cekmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); l integer *ldx,tteger *nrhs, complex * ap, isorgql, da,lda, jomp*info); /* *ipiv, cekmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); l integer *ldx,tteger *nrhs, complex * ap, isorgqr, da,lda, jomp*info); /* *ipiv, cekmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); l integer *ldx,tteger *nrhs, complex * ap, isorgr2, da,lda, jomp*info); /* *ipiv, cekmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); xeger *nrhs, complex * ap, isorgrq, da,lda, jomp*info); /* *ipiv, cekmpf2_(inar *i*ipiv, ceta,r f2_(intau*ef2_(in integ*info); l integer *ldx,tteger *nrhs, complex * ap, isorgtr cger *n* integer *ldz, gef2_(inar *ipiv, ceta,, *if2_(intau*ef2_(in integ*info); l integer *ldx,tteger *nrhs, complex * ap, isorm2l cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tteger *nrhs, complex * ap, isorm2r cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tteger *nrhs, complex * ap, isormbr cger *nverr, ger *no/* Subroutimplex *da,lda, jomp*ida,lda, j/* ger *ldz,k, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecge*i*ipiv, cetac*ef2_(in integ*info); l integer *ldx,tteger *nrhs, complex * ap, isormhr cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, ceilse_fact, charx *af2_(ingr *ipiv, ceta,, f2_(intau*ef2_(in cecgefact, chaticr f2_(in intr fact, chal integer *ldx,tteger *nrhs, complex * ap, isorml2 cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tteger *nrhs, complex * ap, isormlq cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tl integer *ldx,tteger *nrhs, complex * ap, isormql cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tl integer *ldx,tteger *nrhs, complex * ap, isormqr cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tl integer *ldx,tteger *nrhs, complex * ap, isormr2 cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tteger *nrhs, complex * ap, isormr3hager *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, fact, chat, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecge*i*ipiv, cetac*ef2_(in integ*info); teger *nrhs, complex * ap, isormrq cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tl integer *ldx,tteger *nrhs, complex * ap, isormrz cger *no/* Subroutimplex *da,lda, jomp*info); /* *i*ipiv, cek, fact, chat, f2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecge*i*ipiv, cetac*ef2_(in integ*info); l integer *ldx,tteger *nrhs, complex * ap, isormtr cger *no/* Subrouti* intebroutimplex *ger *ldz,omp*iger *ldz, gef2_(inar *ipiv, ceta,, f2_(intau*ef2_(incecgefact, chaticr *ief2_(in integer *ldx,tl integer *ldx,tteger *nrhs, complex * ap, ispbns, cger *n* integer *ldz, gefo); /ivk; f2_(ina *e, er *n, inta, f2_(ina, compf2_(inrfo); f2_(in integer *n, int integ, er *n, integer *nrhs, complex * ap, ispbequ cger *n* integer *ldz, gefo); /ivk; f2_(ina *e, er *n, inta, f2_(ins f2_(insfo); f2_(inal *feer *n, integer *nrhs, complex * ap, ispbrfs cger *n* integer *ldz, gefo); /ivk; fo); /iv integef2_(inaer *ipiv, ceta, f2_(inafer *ipiv, ceta,f f2_(in *l*i*ipiv, ceta f2_(inldbda,lda, j1lldbf2_(infmper f2_(inbmper f2_(in integer *n, inr integger *ldz,ieger *nrhs, complex * ap, ispbstf cger *n* integer *ldz, gefo); /ivk; f2_(ina *e, er *n, inta, ger *ldz,ieger *nrhs, complex * ap, ispbsv cger *n* integer *ldz, gefo); /ivk; fo); /iv integef2_(inaer *ipiv, ceta, f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, ispbsvx cger *nfarr, ger *n* integer *ldz, gefo); /ivk; *iger *ldz, ntegef2_(inaer *ipiv, ceta, f2_(inafer *ipiv, ceta,f c il *(char f2_(ins f2_(inbmp*ipiv, cetabdbf2_(inldbda,lda, j1lldb*if2_(inrfo); f2_(infmper f2_(inbmper f2_(in integer *n, int integ, er *n, integer *nrhs, complex * ap, ispbtf2, intege* integer *ldz,/* fo); /ivk; f2_(ina *e, er *n, inta, ger *ldz,ieger *nrhs, complex * ap, ispbtrf cger *n* integer *ldz, gefo); /ivk; f2_(ina *e, er *n, inta, ger *ldz,ieger *nrhs, complex * ap, ispbtrs cger *n* integer *ldz, gefo); /ivk; fo); /iv integef2_(inaer *ipiv, ceta, f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, ispftrf cger *nmplexrmpintege* integer *ldz, gef2_(inar *iger *ldz,ieger *nrhs, complex * ap, ispftri cger *nmplexrmpintege* integer *ldz, gef2_(inar *iger *ldz,ieger *nrhs, complex * ap, ispftrs cger *nmplexrmpintege* integer *ldz, gefo); /iv integef2_(ina f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, ispons, cger *n* integer *ldz, gef2_(inar *ipiv, ceta,, *if2_(ina, compf2_(inrfo); f2_(in integer *n, int integger *ldz,ieger *nrhs, complex * ap, ispoequ cger *ldz, gef2_(inar *ipiv, ceta,, f2_(inegef2_(i nsfo); f2_(inal *feer *n, integer *nrhs, complex * ap, ispoequbhar *ocolcnb, f2_(inar *ipiv, ceta,, f2_(inege*if2_(ins o); f2_(inal *feer *n, integer *nrhs, complex * ap, isporfs cger *n* integer *ldz, gefo); /ivintegef2_(ina *i*ipiv, ceta,r f2_(ina*m__, real *era*m_f2_(inbmp*ipiv, cetabdbf2_(inldb, er *n, inta*fef2_(infmper f2_(inbmper f2_(in integer *n, int integ, er *n, integer *nrhs, complex * ap, isporfsx,cger *n* intebrouti(char ger *ldz, gefo); /iv integef2_(ina *ipiv, ceta,r f2_(ina*m__, real *era*m_f2_(ins*ef2_(in bmp*ipiv, cetabdbf2_(inldbda,lda, j1lldbf2_(inrfo); f2_(inbmper *ier *ldx,tn_mpe_bnds *nrf2_(inepe_bnds , co *nrf2_(inepe_bnds v, cecge*i*ipiv, cenparamegef2_(innaramegef2_(in integer *ldx,tt integer *ldx,t Sieger *nrhs, complex * ap, isposv cger *n* integer *ldz, gefo); /ivintegef2_(ina *i*ipiv, ceta,r f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isposvx cger *nfarr, ger *n* integer *ldz, gefo); /iv integef2_(ina *ipiv, ceta,r f2_(ina*m__, real *era*m_brouti(char *if2_(ins f2_(inbmp*ipiv, cetabdbf2_(inldbda,lda, j1lldbf2_(inrfo); *if2_(infmper f2_(inbmper f2_(in integer *n, int integger *ldz,ieger *nrhs, complex * ap, isposvxx cger *nfarr, ger *n* integer *ldz, gefo); /iv integef2_(ina *ipiv, ceta,r f2_(ina*m__, real *era*m_brouti(char *if2_(ins f2_(inbmp*ipiv, cetabdbf2_(inldbda,lda, j1lldbf2_(inrfo); *if2_(inrpvgrwr f2_(inbmper er *ldx,tn_mpe_bnds *nrf2_(in epe_bnds , co *nrf2_(inepe_bnds v, cecge*ipiv, cenparamegef2_(in naramegef2_(in integer *ldx,tt integer *ldx,tieger *nrhs, complex * ap, ispotf2, intege* integer *ldz,/* f2_(inar *ipiv, ceta,, *ier *ldx,tieger *nrhs, complex * ap, ispotrf cger *n* integer *ldz, gef2_(inar *ipiv, ceta,, *ier *ldx,tieger *nrhs, complex * ap, ispotri cger *n* integer *ldz, gef2_(inar *ipiv, ceta,, *ier *ldx,tieger *nrhs, complex * ap, ispotrs cger *n* integer *ldz, gefo); /ivintegef2_(ina *i*ipiv, ceta,r f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isppns, cger *n* integer *ldz, gef2_(inap f2_(ina, comp*if2_(inrfo); f2_(in integer *n, int integger *ldz,ieger *nrhs, complex * ap, isppequ cger *n* integer *ldz, gef2_(inap f2_(ins*ef2_(in sfo); f2_(inal *feger *ldz,ieger *nrhs, complex * ap, ispprfs cger *n* integer *ldz, gefo); /ivintegef2_(inap *if2_(inafp f2_(inbmp*ipiv, cetabdbf2_(inldbda,lda, j1lldbf2_(infmper *if2_(inbmper f2_(in integer *n, int integger *ldz,ieger *nrhs, complex * ap, isppsv cger *n* integer *ldz, gefo); /ivintegef2_(inap *if2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isppsvx cger *nfarr, ger *n* integer *ldz, gefo); /iv integef2_(inap f2_(inafp c il *(char f2_(ins f2_(inbmp*ipiv, ce Stibdbf2_(inldbda,lda, j1lldbf2_(inrfo); f2_(infmper f2_(inbmper f2_(i n integer *n, int integger *ldz,ieger *nrhs, complex * ap, ispptrf cger *n* integer *ldz, gef2_(inapeger *ldx,tteger *nrhs, complex * ap, ispptri cger *n* integer *ldz, gef2_(inapeger *ldx,tteger *nrhs, complex * ap, ispptrs cger *n* integer *ldz, gefo); /ivintegef2_(inap *if2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, ispstf2, intege* integer *ldz,/* f2_(inar *ipiv, ceta,, *ier *ldx,tntegeer *n, in;,etrff2_(intolmpf2_(in integger *ldz,ieger *nrhs, complex * ap, ispstrf cger *n* integer *ldz, gef2_(inar *ipiv, ceta,, *ier *ldx,tntegeer *n, in;,etrff2_(intolmpf2_(in integger *ldz,ieger *nrhs, complex * ap, isptns, cger *ldz, gef2_(indecgef2_(ink,nf2_(ina, comp*if2_(inrfo); f2_(in integer *n, integer *nrhs, complex * ap, ispteqr cger *nv, czmp*info); /* f2_(indecgef2_(inege*if2_(i_zecgefact, chatial f2_(in integer *n, integer *nrhs, complex * ap, isptrfs cger *ldz, gefo); /ivintegef2_(indecgef2_(inege*if2_(i_d*m_f2_(ine*m_f2_(inbmp*ipiv, cetabdbf2_(inldbda,lda, j1lldb*if2_(infmper f2_(inbmper f2_(in integer *n, integer *nrhs, complex * ap, isptsv, complex *b, integer *integef2_(indecgef2_(inege*if2_(i_bmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isptsvx cger *nfarr, complex *b, integer *integef2_(indecge*ief2_(inegef2_(ind*m_f2_(ine*m_f2_(inbmp*ipiv, cetabdbf2_(inldbda,lda, n1lldbf2_(inrfo); f2_(infmper f2_(inbmper f2_(in integer *n, integer *nrhs, complex * ap, ispttrfhar *ocolcnb, f2_(indecgef2_(inegeer *ldx,tieger *nrhs, complex * ap, ispttrs cger *ldz, gefo); /ivintegef2_(indecgef2_(inege*if2_(i_bmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isptts2, ger *ldz,/* fo); /ivintegef2_(indecgef2_(inege*if2_(i_bmp*ipiv, cetabr *nrhs, complex * ap, isrscl, r *ocolcnb, f2_(ins,, f2_(ine*feer *n, inteclr *nrhs, complex * ap, issbev cger *njobz, ger *n* integer *ldz, gefo); /ivk; *if2_(inaer *ipiv, ceta, f2_(in f2_(inzecgefact, chatial f2_(in integ, er *n, inieger *nrhs, complex * ap, issbevd cger *njobz, ger *n* integer *ldz, gefo); /ivk; *if2_(inaer *ipiv, ceta, f2_(in f2_(inzecgefact, chatial f2_(in integ, er *n, inl integer *ldx,tt integer *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, issbevx cger *njobz, ger *nrange, real i* integer *ldz, ge*i*ipiv, cek; f2_(ina *e*ipiv, ceta, *ef2_(inq **ipiv, cetaqr f2_(invlge*i f2_(invueger *ldx,ttlmpfact, charu*ef2_(inabstolwher *n, inompf2_(in f2_(inzecgefact, chatial f2_(in integer *ldx,tt integer *ldx,t*i*failegger *ldz,ieger *nrhs, complex * ap, issbgst cger *nverr, ger *n* integer *ldz, gefo); /ivk,, *ier *ldx,ttb* f2_(inaer *ipiv, ceta, f2_(inbbmp*ipiv, cetabbmpf2_(in ldbda,lda, j1lldbf2_(in integger *ldz,ieger *nrhs, complex * ap, issbgv cger *njobz, ger *n* integer *ldz, gefo); /ivk,, *ier *ldx,ttb* f2_(inaer *ipiv, ceta, f2_(inbbmp*ipiv, cetabbmpf2_(in f2_(inzecgefact, chatial f2_(in integer *ldx,tteger *nrhs, complex * ap, issbgvd cger *njobz, ger *n* integer *ldz, gefo); /ivk,, *ier *ldx,ttb* f2_(inaer *ipiv, ceta, f2_(inbbmp*ipiv, cetabbmpf2_(in f2_(inzecgefact, chatial f2_(in integer *ldx,tl integer *ldx,t ex integer *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, issbgvx cger *njobz, ger *nrange, real i* integer *ldz, ge*i*ipiv, cekar *ipiv, cekb* f2_(inaer *ipiv, ceta, f2_(inbbmp*ipiv, ce Stib *ef2_(inq **ipiv, cetaqr f2_(invlgef2_(invueger *ldx,ttlmpfact, ch _ru*ef2_(inabstolwher *n, inompf2_(in f2_(inzecgefact, chatial f2_(i n integer *n, int integger *ldz,ifailegger *ldz,ieger *nrhs, complex * ap, issbtr, cintegeverr, ger *n* integer *ldz, gefo); /ivk; *if2_(inaer *ipiv, ceta, f2_(indecgef2_(ink,nf2_(inq **ipiv, cetaqr *if2_(in integer *n, integer *nrhs, complex * ap, issfrk cger *nmplexrmpintege* intebroutimplex *ger *ldz,neg, er *n, ink, f2_(ina *ip*af2_(i_a *ipiv, ceta,r f2_(in mc lmf2_(in cecr *nrhs, complex * ap, isspns, cger *n* integer *ldz, gef2_(inap er *n, intntege*if2_(ina, compf2_(inrfo); f2_(in integer *n, int integger *ldz,ieger *nrhs, complex * ap, isspev cger *njobz, ger *n* integer *ldz, gef2_(inap *if2_(in f2_(inzecgefact, chatial f2_(in integer *ldx,tteger *nrhs, complex * ap, isspevd cger *njobz, ger *n* integer *ldz, gef2_(inap *if2_(in f2_(inzecgefact, chatial f2_(in integer *ldx,tl integer *ldx, _r integer *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, isspevx cger *njobz, ger *nrange, real i* integer *ldz, ge*if2_(inap f2_(invlgef2_(invueger *ldx,ttlmpfact, ch_ru*ef2_(inabstolwh*i*ipiv, ceompf2_(in f2_(inzecgefact, chatial f2_(in integer *n, in ex integer *ldx,ttfailegger *ldz,ieger *nrhs, complex * ap, isspgst cger *ldz,imypegeger *n* integer *ldz, gef2_(inap *i f2_(in peger *ldx,tteger *nrhs, complex * ap, isspgv cger *ldz,imypegeger *njobz, ger *n* integer *ldz, gef2_(inap f2_(inbpmpf2_(in f2_(inzecgefact, chatial f2_(in integ*ier *ldx,tieger *nrhs, complex * ap, isspgvd cger *ldz,imypegeger *njobz, ger *n* integer *ldz, gef2_(inap f2_(inbpmpf2_(in f2_(inzecgefact, chatial f2_(in integ*ier *ldx,tl integer *ldx,tt integer *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, isspgvx cger *ldz,imypegeger *njobz, ger *nrange, real i * integer *ldz, gef2_(inap f2_(inbp f2_(invlgef2_(invueger *ldx,ttlmp, er *n, iniu*ef2_(inabstolwher *n, inompf2_(in f2_(inzecgefact, cha Stial f2_(in integer *n, int integger *ldz,ifailegger *ldz,ieger *nrhs, complex * ap, issprfs cger *n* integer *ldz, gefo); /ivintegef2_(inap *if2_(inafp er *n, intntegef2_(inbmp*ipiv, cetabdbf2_(inldbda,lda, j Sti*fef2_(infmper f2_(inbmper f2_(in integer *n, int integer *n, in exeger *nrhs, complex * ap, isspsv cger *n* integer *ldz, gefo); /ivintegef2_(inap *ier *n, intntegef2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isspsvx cger *nfarr, ger *n* integer *ldz, gefo); /iv integef2_(inap f2_(inafp er *n, intntegef2_(inbmp*ipiv, cetabdbf2_(i _xdbda,lda, j1lldbf2_(inrfo); f2_(infmper f2_(inbmper f2_(in integ*ier *n, int integger *ldz,ieger *nrhs, complex * ap, issptr, cintege* integer *ldz, gef2_(inap f2_(indecge*if2_(inegef2_(intaugeger *ldz,ieger *nrhs, complex * ap, issptrf cger *n* integer *ldz, gef2_(inapeger *ldx,ttntege*iger *ldz,ieger *nrhs, complex * ap, issptri cger *n* integer *ldz, gef2_(inapeger *ldx,ttntege*if2_(in integger *ldz,ieger *nrhs, complex * ap, issptrs cger *n* integer *ldz, gefo); /ivintegef2_(inap *ier *n, intntegef2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isstebz cger *nrange, real iordermp*info); /* f2_(invlge*if2_(i_vueger *ldx,ttlmpfact, charu*ef2_(inabstolwhf2_(indecgef2_(inege*ier *n, inomp*info); /splir, f2_(in fact, charblocteger *ldx,t Sisplir, f2_(in integer *n, int integger *ldz,ieger *nrhs, complex * ap, isstedc cger *nv, czmp*info); /* f2_(indecgef2_(inege*if2_(i_zecgefact, chatial f2_(in integer *n, inl integer *ldx,tt integ*ier *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, isstegr cger *njobz, ger *nrange, *info); /* f2_(indecge*if2_(inegef2_(invlgef2_(invueger *ldx,ttlmpfact, ch_ru*ef2_(inabstolwh*i*ipiv, ceompf2_(in f2_(inzecgefact, chatial fact, ch_rsuppzr f2_(in integer *n, inl integer *ldx,tt integer *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, isstei, cger *ldz, gef2_(indecgef2_(ink,n*ipiv, ceompf2_(i n fact, charblocteger *ldx,tisplir, f2_(inzecgefact, chatial f2_(in integer *n, inr integger *ldz,ifailegger *ldz,ieger *nrhs, complex * ap, isstemr cger *njobz, ger *nrange, *info); /* f2_(indecge*if2_(inegef2_(invlgef2_(invueger *ldx,ttlmpfact, ch_ru*e*ipiv, ceomp*if2_(in f2_(inzecgefact, chatial *info); /zcl fact, ch_rsuppzr Stex *whfrtryracl f2_(in integer *n, inl integer *ldx,tt integda,lda, j Stt integger *ldz,ieger *nrhs, complex * ap, issteqr cger *nv, czmp*info); /* f2_(indecgef2_(inege*if2_(i_zecgefact, chatial f2_(in integer *n, integer *nrhs, complex * ap, issterfhar *ocolcnb, f2_(indecgef2_(inegeer *ldx,tieger *nrhs, complex * ap, isstev cger *njobz, r *ocolcnb, f2_(indecgef2_(inegef2_(in zecgefact, chatial f2_(in integer *n, integer *nrhs, complex * ap, isstevd cger *njobz, r *ocolcnb, f2_(indecgef2_(inegef2_(i _zecgefact, chatial f2_(in integer *n, inl integer *ldx,tt integ*ier *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, isstevr cger *njobz, ger *nrange, *info); /* f2_(indecge*if2_(inegef2_(invlgef2_(invueger *ldx,ttlmpfact, ch_ru*ef2_(inabstolwh*i*ipiv, ceompf2_(in f2_(inzecgefact, chatial fact, ch_rsuppzr f2_(in integer *n, inl integer *ldx,tt integer *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, isstevx cger *njobz, ger *nrange, *info); /* f2_(indecge*if2_(inegef2_(invlgef2_(invueger *ldx,ttlmpfact, ch_ru*ef2_(inabstolwh*i*ipiv, ceompf2_(in f2_(inzecgefact, chatial f2_(in integer *n, in ex integer *ldx,ttfailegger *ldz,ieger *nrhs, complex * ap, issyns, cger *n* integer *ldz, gef2_(inar *ipiv, ceta,, *ier *n, intntegef2_(ina, compf2_(inrfo); f2_(in integer *n, int integ, er *n, integer *nrhs, complex * ap, isstex * ap, isinvueger *ldx,ttlmpfact, ch_regef2_invueger *ldx,ttlmpfac4y f2_(in integer *n, int integger *ldz,ieger *n complex * ap, ispotrs (in f2_(in mper f2_(iniv, ceta,, f2_(intau*ef2_(incecgefact, chaticr4y gefact, chatial f2_(in integer *ldx,tteger *nr complex * ap, ispotrs (in f2_(in mper f2_(iniv, ceta,, f2_(in(inegef2_(i _zecgefact, chatial f2_(in integer *n, inl integer *ydx,tt integ*ier *ldx,tlt integger *ldz,ieger *nrhs, complex * integer *nrhs, cp, isstevx cger *njobz, ger *nrange, *info); mplex * a**ipiv, cetaqr f2_(invlgef2_(invueger *ldx,ttlmpfactdecgef2_(inegcteger *ldx,ttedexwr f2_(in(in f2_(inzecgefact, chatial fact, ch_*ier *n, intntegef2_(ina, compf2_(inrfo); fx, _r integer *ldx,tlt integger *ldz,ieger *nrhs, complex * integer *nrhs, cp, isstevx cger *njobz, ger *nrange, *info); mplex * a**ipiv, cetaqr f2_(invlgef2_(invueger *ldx,ttlmpfactstolwh*i*ipiv, ceompf2_(in f2_(inzecgefact, chatial f_(in f2_(inzecgefact, chatial f2_(in integer *gnege*if2_(i_ber *ldx,ttfailegger *ldz,ieger *nrhs, complex * ap, ispotrs cger *n* integer *ldz, gefo); /ivintegef2_(ina *i*ipiv *gn in ex integer *ldx,ttfailegger *ldz,ieger *nrhs, complex * ap, ispotrs cger *n* integer *ldz, gefo); /ivintegef2_(ina *i*ipiv *gdz, gef2_(inap *i f2_(in peger *ldx,tteger *nrhs, complex * apinteger *nrhs, cp, issger *ldz, gefo); /ivin(in f2_(in mp gef2_(inap f2_(inbpmpf2_); /ivintegef2_(ina *i*ipiv *gdfact, chatial f2_(in integ*ier *ldx,tieger *nrhs, complex * ap,integer *nrhs, cp, issger *ldz, gefo); /ivin(in f2_(in mp gef2_(inap f2_(inbpmpf2_fact, chatial fact, ch_rsuppzr f2_(in integer *n, inl integery*ldx,tt integer *ldx,tlt integger *ldz,ieger *nrhs, complex * ap, isspgvx cgerinteger *nrhs, cp, issger *ldz, gefo); /ivin tevx cger *njobz, ger *nrange, *info); /* f2_(indecge/* f2_(indecge*if2_(inegef2_(invlgef2_(invueger *ldx,ttedexwr f2_(in(in f2_(inzecif2_(in f2_(inzec_(in f2_(inzecgefact, chatial f2_(in integer *ege*if2_(ins o); f2_(inal *feer *n, integer *nrhs, complex * ap, isporfs cger *n* integer *lmplex * ap, issyns, /iv integef2_(inaer *ipiv, ceta, f2_(inafer *ipiv, ceta,f f2_(in *l*i*ipiv, ceta f2_(inldbda,lda, j1lldbf2_(infmper f2_(inbmpe *ege(in integer *n, int integ, er *n, integer *nrhs, complex * ap, isporfsx,cger *n* intebrouti(char ger *lmplex * ap, isiv integef2_(ina *ipiv, ceta,r f2_(ina*m__, real *era*m_brouti(char *if2_(iipiv, cetabdbf2_(inldbda,lda, j1lld2_(inrfo); *if2_(inrpvbf2_(inrfo)inbmper er *ldx,tn_mpe_bnds *nrf(in epe_bnds , co *nrf2_(inewh*i*ipiv, ceompf2_ j1lldbf2_(infmper f2_(inbmpe *f2_(in integer *ldx,tt integer *ldx,t Sieger *nrhs, complex * ap, implex * ap, issyns, / *ldz, gefo); /ivin(in mp gef2_(inap f2_(inbpmpf2_); /ivintegef2_(ina *i*ipiv *ceta,r f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isposvx cger *nfarr, ger *n* integer *lmplex * ap, isiv inteintegef2_(ina *ipiv, ceta,r f2_(ina*m__, real *era*m_f2_(iinap *iv, ceta,f f2_(in efact, chatial *info); /zcl fact, ch_rsuppzr St_); /ivintegef2_(ina *i*ipiv *cetta,r f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex * ap, isposvx cger *nfarr, ger *n* integer *lmplex * ap, isiv*iger *ldz, ntegef2_(inaer *ipiv, ceta, f2_(inafer *ipiv, ceta,f c il *(char f2_(ins f2_(inbmp*ipiv, cetabdbf2_(inldbda,lda, j1lldbf2_(inrfo); *if2_(inrpvgrwr f2_(inbmper er *ldx,tn_mpe_bnds *nrf2_(in epe_bnds , co *nrf2_(inepe_bnds v, cecge*ipiv, cenparamegef2_(in narasytdp *if2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, cogeer *ldx,tieger *nrhs, coissptr, cintege* integer *ldz, gef2_(inap f2ygef2_(in integer *ldx,tt integer *ldx,tieger *nrhs, complex * a*ocolcnb, f2_(in integer *ldz, gef2_(inap f2yg2_(in integ*ier *n, int integger *ldz,ieger *nrhs, cogeer *ldx,tieger *nrhs, coisspt2_(in efact, chatial *info); /zcl faSt_); /ivintegef2_(ina *i*ipiv *z,/* f2_(inar *ipiv, ceta,, *ier *ldx,tieger *nrhs, complex * a *ldz, gefo)in mper f2_(iniv, ceta,, f2_(intau*ef2_(incecgefact, chaticr4yz, gef2_(inar *ipiv, ceta,, *ier *ldx,tieger *nrhs, complex * a *ldz, gefo)in mper f2_(inntau*ef2_(incecgefact, chaticr4yz,e*if2_(ins o); f2_(inal *feer *n, integer *nrhs, complex * ap, ismplex * ap, issyns, / *ldz, gefo); er f2_(inntau*ef2_(incecgefact, chaticrt*ief2_(in inger *n integer *n, int i, ceta f2_(inal *fmplex * ap, issbevx cger *njobz, ger *nrange,ger *ldz, gef2_(ina(i _xdbda,lda, j1lldbf2_(inrfo); f2_(infmper f2_(inbmpet(ins f2_(insfo); er *n, intege int i, ceta f2_(inal *fmplex * ap, iseer *n, integer *nrhs, ispbtrs cger *n* integer *ldz, gefief2_(inaer *ipiv, ceta, f2_(inafer *ipiv, ceta,f f2_(in 2_(ina(i _xdbda,lda, j1lldbf2_(inrfo); f2_(infmper f2_(inbmpet(r f2_(inegef2_(intaugef2_(in r *ipiv, ceta f2_(inal *fmplex * ap, iseer *n, integer *nrhs, ispbtrs cger *n* integer *ldz, gefief2_(inlldbf2_(inrfo); f2_(infmper f2_(inbmpetfs/* f2_(inetaqr *if2_(integ*info); l integer *ldx,tteg*iv *ipiv, ceta f2_(inalmer ger *ldz,osu r *nrhs, co *nrhs, csyns, /iv integef2_(); f2_(infmper f2_(inbmpetfe* integer *ldz, gef2_(inar *ig *ipiv, ceta f2_(inal *fmp*ier *ldx,tieger *nnrfo); f2_(infmper f2_(inbmpetfttpinteger *ldz, gef2_(inar *iger *ldz,ieger *nrhsrreg*iger *ldx,tteger *nrhs, complex * ap, ispptri cgetfttrinteger *ldz, gef2_(inar *iger *ldz,ieger *nrhsrreg*iger *ldx,tieger *nrhs, teger *nrhs, complex * ap, ispptri cgetgevf2_(in integ*info); howmnyldz,tntegeeselegger*ier *ldx,tn ntegef2_(itieger *nrhbnds *nrf((itieger *nrhegeger *njobziv integef2_tevx cger *dz,kmpf2_(inde*dz,kmpf2_(inmmta f2_(inalmer cger _ru*ef2_(inabstolws, complex * ap, ispptri cgetgex*ipiv, cek2 wantqldz,tntegeewantial f2_(in integer * _rrinteger *nrhs, cp, issger *ldz, gefo); /ivin*ipiv, cekb* f2_(inaer mplex * ap, isstev c ap, issj islasy2, lex islasy2, lex *whfrlmp(in mp gef2_(inap f2_(inbpmpf2_); /ivintegef2_(ina *i*ipivtgexcipiv, cek2 wantqldz,tntegeewantial f2_(in integer * _rrinteger *nrhs, cp, issger *ldz, gefo); /ivin*ipiv, cekb* f2_(inaer mplex * ap, isstev c ap, issifs2_(ina *ip*aflser *n, inomp*info); /sp ap f2_(inbpmpf2_); /ivintegef2_(ina *i*ipivtgsenif2_(ins ork,nf2_iv, cek2 wantqldz,tntegeewantialeomp*if2_(iseleggeriv, ceta,, *ier *ldx,tieger *nrhs, p, issger *ldz, geiv integef2_rhs, rntegef2_rhs, iiv, ceta,fger *ldz,nz, gefo); /ivk; *if2_(ilex * ap, isstev c ap, issivptreger evx cger prntegef2_direg*iger *l*ipiv, ceompf2_(in f2_(inzecgefact, chatial fact, ch_rsuppzr fSt_); /ivintegef2_(ina *i*ipivtgsja _r integeux,tlt integvx,tlt integq c ap, issivpcomplex * a; f2_(inal *feer *n, it, chatial fa *ier *ldx,tieger *nrhs, cocp, issger *ldz, gefo); /ivintola; /ivintolbosu r *nrhs, co *nrhs *ocolcnblmp*info); /regger *ldz,sqrz,kmpf2_(inde*r *ldz,nz, gefo); /iv tr cger *n* integer *ldzncycln, integer *nrhs, complex * ap, issterfhatgsna _r integeinfo); howmnyldz,tntegeeselegger*ier *ldx,tn ntegef2rinteger *nrhs, cp, issger *ldz, gefo); /ivinjobziv integef2_tevx cger *dz,kmpf2_(inde*dz,tegef2_(inaer *direggefo); /ivmmta f2_(inalmer cger efact, chatial *info); /zcl fact, ch_rsuppzr St_); /ivintegef2_(ina *i*ipivtgsy2integer *ldz,); /zcl fac,nf2_(inc, comtpecomp*info);n ntegef2rinteger *nrhs, cp, issger *ldz, gefo); /ivinlex *ger *ldz,iv c(inaer *dex * ap, isste*ldz, gefe * ap, isste*nrhs, coreggefo); ief2_ *ldz, geflex *, il *dr *ocolcnicople*info); /, f2_(in f2_(inzecif2f2_(in integg_); /ivintegef2_(ina *i*ipivtgsylinteger *ldz,); /zcl fac,nf2_(inc, comtpecomp*info);n ntegef2rinteger *nrhs, cp, issger *ldz, gefo); /ivinlex *ger *ldz,iv c(inaer *dex * ap, isste*ldz, gefe * ap, isste*nrhs, coreggefo); ief2_ *ldz, geflex *, il *ddireg2_(in efact, chatial *info); /zcl faSt_p f2_(inbpmpf2_); /ivintegef2_(ina *i*ipivtpief2_(in inger *n integer *n, int i, ceta f2_(inal *fmpger *ldx,trange,ger *ldz, gef2_(ina _xdbda,lda, j1lldbf2_(inrfo); f2_(infmper f2_(inbmpetr *n, int integgertaugef2_(in r *ipiv, ceta f2_(inal *fmplex * apcomplex * ap, isspsvxipiv, ceta, f2_(inafer *ipiv, ceta,f (inafer *ipiv, ceta,f f2_(in 2_(ina _xdbda,lda, j1lldbf2_(inrfo); f2_(infmper f2_(inbmpetrz, gef2_(inar *ip *ipiv, ceta f2_(inal *fx * ap, i*ier *n, intntegef2_(ina, compf2_(inrfo);teger *ldx,ttntege*taugef2_(in r *ipiv, ceta f2_(inal *fmplex * apcomplex * ap, isspsvxipiv, ceta, f2_er *n, intntegef2_(ina, compf2_(inrfo);tegta, f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs complex * rf2_er *n, intntegef2_(ina, compf2_(inrfo);tegt/* f2_(inar *ipiv, ceta,, *i*info); xeger , complex * ap, ismplex * antegef2_(ina, compf2_(inrfo);trief2_(in inger *n integer *n, int i, ceta f2_(inal *fmpger *ldinteger *nrhs, cp, issger *ldz, gef2_(inar *ipiv, ceta,, *ier *n, intntegef2_(ina, compf2_(inrfo);trevf2_(in integ*info); howmnyldz,tntegeeselegger*ier *ldx,tn ntegef2tinteger *nrhser *n, integer *n, ini2_tevx cger *dz,iv integef2_tdz,kmpf2_(inmmta f2_(inalmer cgerru*ef2_(inabstolws, complex * ap, ispptri cgetrexcip integda,lqipiv, ceta,, *i*infotinteger *nrhser , complex * ap, isopgtr ap, issifs2_(ina *ip*aflser *n, inomp*in*ier *n, intntegef2_(ina, compf2_(inrfo);tr *n, int integgertaugef2_(in r *ipiv, ceta f2_(inal *fmplex * apcomplex * apinteger *nrhs, cp, issger *ldz, gefo); /ivinxz,iv integef2_f2_(ina*m__, real *era*m_f2_(inbmp*ipiv, cetabdbf2_(inldb, er *n, inta*fef2_(infmper f2_(inbmpegeren _r integeinfo); da,lqipmp*if2_(iseleggeriv, cetaiefn ntegef2tinteger *nrhser *n, inx * ap, isopgtr cger *n_f2_(inbmpige*if2_(inegef2_(invlg ap, isstepf2_(inbmp*ipiv, cetabdbipiv, cetabbmpf2_(in f2_(inzecgefact, chatial f2_(in integer *ldx,tl integer gerna _r integeinfo); howmnyldz,tntegeeselegger*ier *ldx,tn ntegef2tinteger *nrhser *n, integer *n, ini2_tevx cger *dz,iv integef2_tdz,(invlg ap, isstepf2kmpf2_(inmmta f2_(inalmer cgerr*i*ipiv, ceompf2_(d2_(ina _xdbda,lda, j1lldbf2_(inrfo); f2_(infmper f2_(inbmpetrsylinteger *ldzaertaugef2_(if2_er *n, ints, coiv, cetaiefmer ger *ldz,osu r *nrinteger *nrhs, cp, issger *ldz, gefo); /ivin *i*ipiv, ceilse_fact, charflex *,lldbf2_(inrfo); f2_(infmper f2_(inbmpetrti2gef2_(inar *ip *ipiv, ceta f2_(inal *fx * ap complex * ap, ismplex * antegef2_(ina, compf2_(inrfo);trz, gef2_(inar *ip *ipiv, ceta f2_(inal *fx * ap complex * ap, ismplex * antegef2_(ina, compf2_(inrfo);trz,n, int integgertaugef2_(in r *ipiv, ceta f2_(inal *fmplex * apcomplex * apinteger *nrhs, cp, issger *ldz, gefo); rsuppzr St_); /ivintegef2_(ina *i*ipivtrgta, f2_(inbmp*ipiv, cetabdbger *ldz,ieger *nrhs complex * ap, isporfs crf2_er *n, intntegef2_(ina, compf2_(inrfo);trttpinteger inbmp*ipiv, cetabdbger *ldz,ieger *nrhs, complex *x,tteger *nrhs, complex * ap, ispptri cgetzrqfa,r f2_(intau*ef2_(in intebger *ldz,ieger *nrhs, complex issptr, cintege* integer *ldz, gef2_(inap ftzrzfa,r f2_(intau*ef2_(in intebger *ldz,ieger *nrhs, complex isspt cger efact, chatial *info); /zcl fac* integer *ldz, gef2_(inap xerbla _r intsrnam *,lldbf2_(inrfo); f2_(infmper f2_(inbmpxerbla array_ _r intsrnam array_ ; rsuppzr Stsrnam leniv, cetaar *nrhs,, ftnlen srnam array_len); f2_(infmper f2_(inbmpzbdsq/* f2_(inar *ipiv, ceta,, *iv, ceta,,cvt; rsuppzr Stnru *iv, ceta,,cactdoublenaer *dex *doublenaer *e *doubleda,llexr *tz,iv integef2_tt *doubleda,llexr info); /regger *doubleda,llexr /* *i*ipiv, cek, fadoublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zcgefmper f2_(inbmper f2_(in integedoubleda,llexr , complex * ap, ismplex * ap, isdoubleda,llexr ger *ldz, gefo); doubleda,llexr r *ipiv, ceta,f doubleda,llexr info);da,llexr s2_(inldbdoublenaer *rinfo); /zcl factbdbger *ldz,ic* integer *ldz, gef2_(inap zcgef2_(in integer *ldx,tt integer *ldx,t Siege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); doubleda,llexr r *ipiv, ceta,f doubleda,llexr info);da,llexr s2_(inldbdoublenaer *rinfo); /zcl factbdbger *ldz,ic* integer *ldz, gef2_(inap zdgef2_(indecgef2_(idoublenaer *ss, doubleda,llexr sxnldb, er *n, irhs, complex * ap, isrscl,zgbb*n, int integgerr f2_(intau*ef2_(in inteiv, ceta,,cactplex * ap, ieger *n, inikr *doubleda,llexr , ispbtrs cger *n* dbdoublenaer *dex *doublenaer *e *doubleda,llexr z, gefo); /ivk; *doubleda,llexr ptinteger *nrhspt *doubleda,llexr lex *ger *ldz,omp*igedoubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zg*ief2_(in inger *nef2_(in inteiv, ceta,ieger *n, inikr *pledoubleda,llexr , ispbtrs cger *n* mplex * ap, isdoublebger *l *nrhs, doublenaer *rer *lddoubleda,llexr info);doublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizg* f2_(in integ *nef2_(in inteiv, ceta,ieger *n, inikr *pledoubleda,llexr , ispbtrs cger *n* doublenaer *rex *doublenaer * /* *idoublenaer *rowc *lddoublenaer * olc *lddoublenaer *ppequ cger *n* St_); /ivintegef2_(ina *i*ipizg* fb2_(in integ *nef2_(in inteiv, ceta,ieger *n, ini kr *doubleda,llexr , ispbtrs cger *n* doublenaer *rex *doublenaer * *i*ipidoublenaer *rowc *lddoublenaer * olc *lddoublenaer *ppequ db, er *n, inta*fef2_(infmper f2_(inbmpzg* *n, int in integer *nrhs, comiv, ceta,ieger *n, ini kr *r f2_(in integedoubleda,llexr , ispbtrs cger *n* doubleda,llexr r *ldz, gefo); /ivk;mplex * ap, isdoubleda,llexr ger *ldz, gefo); doubleda,llexr r *ipiv, ceta,f double(ina*m__, redouble(ina*mns*ef2_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zg*ege(in integ2_(in r *ipivnteg, er *n, integer *nrhs, coieger *n, inikr *r f2_(in integedoubleda,llexr , ispbtrs cger *n* doubleda,llexr l *ldz, gefo); /ivk;mplex * ap, isdoublenaer *rex **idoublenaer *i*ipidoubleda,llexr ger *ldz, gefo); doubleda,llexr r *iv integef2_f2_doublenaer *rer *lddouble(ina*mns*ef2rsuppzr Stn(inldbda,lda,doublenaer *e_(inrfo); *if2_doublenaer * *grwr f2_(inbmper er *ldx,tn_mpe_bnddoublenaer *_mpe_bnddoubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zg*fmper f2_(inbmper f2_(in ieger *n, inikr *r f2_(in , compledoubleda,llexr , ispbtrs cger *n* mplex * ap, isdoubleda,llexr ipiv, ceta, f2_er *n, intntegef2_(ina, compf2_(inrfo)zg*fmta,r f2_(inbmp*ipiv, integer *nrhs, comiv, ceta,iegeplex * ap, ir *r f2_(in integedoubleda,llexr , ispbtrs cger *n* doubleda,llexr l *ldz, gefo); /ivk;mplex * ap, is *ipivnteg, e*idoublenaer *rex *doublenaer * /* doubleda,llexr ger *ldz, gefo); doubleda,llexr r *ipiv, ceta,f double(ina*mrer *lddouble(ina*mfs*ef2_(double(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizg*cetta,r f2_(inbmp*ipiv, integer *nrhs, comiv, ceta,coieger *n, inikr *r f2_(in integedoubleda,llexr , ispbtrs cger *n* doubleda,llexr l *ldz, gefo); /ivk;mplex * ap, is *ipivnteg, e*idoublenaer *rex *doublenaer * /* doubleda,llexr ger *ldz, gefo); doubleda,llexr r *ipiv, ceta,f double(ina*mrer *lddouble(ina*mns f2_(pledouble(ina*mns*ef2rsuppzr n(inldbda,lda,doublenaer *e_(inrfo); *if2_pledouble(ina*mgrwr f2_(inbmper er *ldx,tn_mpe_bnddoublenaer *_mpe_bnd_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zg*gef2_(in integ *nef2_(in inteiv, ceta,ieger *n, inikr *pledoubleda,llexr , ispbtrs cger *n* mplex * ap, is /zcl fac* integer *ldz, gef2_(inap zg*grfa,r f2_(intau*ef2_(in inteiv, ceta,ieger *n, inikr *pledoubleda,llexr , ispbtrs cger *n* mplex * ap, is /zcl fac* integer *ldz, gef2_(inap zg*grn, int in integer *nrhs, comiv, ceta,ieger *n, ini kr *r f2_(in integedoubleda,llexr , ispbtrs cger *n* mplex * ap, is_(doubleda,llexr ipiv, ceta, f2_er *n, intntegef2_(ina, compf2_(inrfo)zgebak _r integeinfo); teg*inr *nrhs, comiv, ceta,, isodb, er *n, *no/doublenaer *slex *,lldbf2_(im *doubleda,llexr *z,iv integef2_t2_er *n, intntegef2_(ina, compf2_(inrfo)zgebal _r integeinindecgef2_(idoubleda,llexr ldz,ieger *ief2_aomiv, ceta,, iso, er *n, *no/doublenaer *slex *,lldbf2_(itntegef2_(ina, compf2_(inrfo)zgebdf2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdoublenaer *dex *doublenaer *e *doubleda,llexr tauk; *doubleda,llexr taupf2doubleda,llexr info);lldbf2_(itntegef2_(ina, compf2_(inrfo)zgebrd2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdoublenaer *dex *doublenaer *e *doubleda,llexr tauk; *doubleda,llexr taupf2doubleda,llexr info);lldbf2_(i*info); /zcl faSt_); /ivintegef2_(ina *i*ipizgeief2_(in inger *nef2_(in intedoubleda,llexr , complex * ap, isdoublenaer *l *nrhsdoublenaer *rer *lddoubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zge f2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdoublenaer *rex *doublenaer * /* doublenaer *rowc *ld*idoublenaer *iolc *lddoublenaer *ppequ cger *n* c* integer *ldz, gef2_(inap zge fb2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdoublenaer *rex *doublenaer * /* doublenaer *rowc *ld*idoublenaer *iolc *lddoublenaer *ppequ cger *n* c* integer *ldz, gef2_(inap zge s _r integevn r *ipivsormp*L_fp seleggeriv, ceta,, * doubleda,llexr ldz,ieger *nrhs, ,ieger *nsdim *doubleda,llexr w * doubleda,llexr v_(itieger *nrhvegedoubleda,llexr info);lldbf2_(i*info);pledouble(ina*mrinfo);z,tntegeebinfo); /zcl fac* integer *ldz, gef2_(inap zge sx _r integevn r *ipivsormp*L_fp seleggernrhs, cosenseinindecgef2_(idoubleda,llexr ldz,ieger *nrhs, ,ieger *nsdim *_(doubleda,llexr i *doubleda,llexr *_(itieger *nrhvegedoublenaer * *rer *ehsdoublenaer *rer * isdoubleda,llexr info);lldbf2_(i*info);pldouble(ina*mrinfo);z,tntegeebinfo); /zcl fac* integer *ldz, gef2_(inap zge f2_(in intetevx_(in intetreriv, ceta,, * doubleda,llexr ldz,ieger *nrhs, doubleda,llexr i *doubleda,llexr *obziv integef2_tevxdoubleda,llexr *dz,kmpf2_(inde*dz,doubleda,llexr info); gef2_(inap f2_doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zge mta,r f2_(balancvx_(in intetevx_(in intetrernrhs, cosenseinindecgef2_(idoubleda,llexr ldz,ieger *nrhs, doubleda,llexr w * doubleda,llexr veger *n, ini2_tevxdoubleda,llexr *dz,kmpf2_(inde*dz,db, er *n, iso, er *n, *no/doublenaer *slex *,doublenaer *pbnnrhs, doublenaer *rer *ehsdoublenaer *rer * isdoubleda,llexr info);lldbf2_(i ap f2_doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgegs _r integevnevx_(in intetsreriv, ceta,, * doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); doubleda,llexr rhs, codoubleda,llexr gocolcdoubleda,llexr *_obziv integef2_tsevxdoubleda,llexr *sdz,kmpf2_(inde*sdz,doubleda,llexr *i*ipiv, ceompf2_(in fdoublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgeg f2_(in intetevx_(in intetreriv, ceta,, * doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); doubleda,llexr rhs, codoubleda,llexr gocolcdoubleda,llexr *p*ipiv, ce Sti2_tevxdoubleda,llexr *dz,kmpf2_(inde*dz,doubleda,llexr info);piv, ce Sti2in fdoublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgehdege*if2_(i_bmp*ipiv, cet iso, er *n, *no/ doubleda,llexr ldz,ieger *nrhs, doubleda,llexr issptdoubleda,llexr *i*ipiv, ceompf2_c* integer *ldz, gef2_(inap zgehrd2_(in integmp*ipiv, cet iso, er *n, *no/ doubleda,llexr ldz,ieger *nrhs, doubleda,llexr issptdoubleda,llexr *i*ipiv, ceompf2_*info); /zcl fac* integer *ldz, gef2_(inap zgelqf2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdoubleda,llexr issptdoubleda,llexr info); /zcl fac* integer *ldz, gef2_(inap zgelqfa,r f2_(intau*ef2_(in intedoubleda,llexr , complex * ap, isdoubleda,llexr issptdoubleda,llexr info); /zcl fa*info);ple /zcl fac* integer *ldz, gef2_(inap zgeln, int in integer *nrhs, au*ef2_(in inteiv, ceta,, compledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); doubleda,llexr *ipiv, ceompf2_*info); /zcl fac* integer *ldz, gef2_(inap zgelsd2_(in integ *nef2_(in inter f2_(in intege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); double(invlg adoublenaer *rer *ld *ldz, geer *n*doubleda,llexr info); gef2_(inap f2_doublenaer *rinfo); /zcl facinfo); /zcl fac* integer *ldz, gef2_(inap zgelss2_(in integ *nef2_(in inter f2_(in intege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); double(invlg adoublenaer *rer *ld *ldz, geer *n*doubleda,llexr info); gef2_(inap f2_doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgelsx2_(in integ *nef2_(in inter f2_(in intege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); *ldz, gejptt *doublenaer *rer *ld *ldz, geer *n*doubleda,llexr info); doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgelsy2_(in integ *nef2_(in inter f2_(in intege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); *ldz, gejptt *doublenaer *rer *ld *ldz, geer *n*doubleda,llexr info); gef2_(inap f2_doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgeqlf2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdoubleda,llexr issptdoubleda,llexr info); /zcl fac* integer *ldz, gef2_(inap zgeqlfa,r f2_(intau*ef2_(in intedoubleda,llexr , complex * ap, isdoubleda,llexr issptdoubleda,llexr info); /zcl fa*info);ple /zcl fac* integer *ldz, gef2_(inap zgeqp3a,r f2_(intau*ef2_(in intedoubleda,llexr , complex * ap, is *ldz, gejptt *doubleda,llexr issptdoubleda,llexr info); gef2_(inap f2_doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgeqpfa,r f2_(intau*ef2_(in intedoubleda,llexr , complex * ap, is *ldz, gejptt *doubleda,llexr issptdoubleda,llexr info); doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgeqrf2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdoubleda,llexr issptdoubleda,llexr info); /zcl fac* integer *ldz, gef2_(inap zgeqrfa,r f2_(intau*ef2_(in intedoubleda,llexr , complex * ap, isdoubleda,llexr issptdoubleda,llexr info); /zcl fa*info);ple /zcl fac* integer *ldz, gef2_(inap zge *n, int in integer *nrhs, comiv, ceta,intege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *n* integer *lcomplex * a *ldzdoubleda,llexr ger *ldz, gefo); doubleda,llexr r *iv integef2_f2_doublenaer *__, redouble(ina*mns*ef2doubleda,llexr info); _doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgeege(in integ2_(in r *ipivnteg, er *n, integer *nrhs, cocompledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr areggefo); /ivger *lmplex * ap, isdoublenaer *rex *doublenaer * /* doubleda,llexr ipiv, ceta, f2_doubleda,llexr r * integef2_f2_doublenaer *i(char *double(ina*mns*ef2r *n, inte(inldbda,lda,doublenaer *e_(inrfo); *if2_pldoublenaer *e_(inrfo)inbmper er *ldx,tn_mpe_bnddoublenaer *_mpe_bnd_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgerqf2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdoubleda,llexr issptdoubleda,llexr info); /zcl fac* integer *ldz, gef2_(inap zgerqfa,r f2_(intau*ef2_(in intedoubleda,llexr , complex * ap, isdoubleda,llexr issptdoubleda,llexr info); /zcl fa*info);ple /zcl fac* integer *ldz, gef2_(inap zgesc2_(indecgef2_(idoubleda,llexr ,dz,ieger *nrhs, _(doubleda,llexr omplemplex * ap, is *ldz, gejp, isdoublenaer *slex nteger *ldz, gef2_(inap zgesdgefact, chatial f2_(in iau*ef2_(in inte doubleda,llexr ldz,ieger *nrhs, double(invlg adoubleda,llexr u complex * ap,sptdoubleda,llexr vtinteger *nrhstt *doubleda,llexr info); gef2_(inap f2_doublenaer *rinfo); /zcl facinfo); /zcl fac* integer *ldz, gef2_(inap zgefmper f2_(inbmper f2_(in integedoubleda,llexr , complex * ap, ismplex * ap, isdoubleda,llexr ger *ldz, gefo); gefo); /ivc* integer *ldz, gef2_(inap zgefmgefact, chatux,tlt integvgerr f2_(intau*ef2_(in inte doubleda,llexr ldz,ieger *nrhs, double(invlg adoubleda,llexr u complex * ap,sptdoubleda,llexr vtinteger *nrhstt *doubleda,llexr info); gef2_(inap f2_doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgefmta,r f2_(inbmp*ipiv, integer *nrhs, comiv, ceta,cocompledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr areggefo); /ivger *lmplex * ap, is *ipivnteg, edoublenaer *rex *doublenaer * /* _(doubleda,llexr ipiv, ceta, f2_doubleda,llexr r * integef2_f2_, doublenaer *rer *lddoublenaer *__, redouble(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgecetta,r f2_(inbmp*ipiv, integer *nrhs, comiv, ceta,cocompledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr areggefo); /ivger *lmplex * ap, is *ipivnteg, edoublenaer *rex *doublenaer * /* _(doubleda,llexr ipiv, ceta, f2_doubleda,llexr r * integef2_f2_, doublenaer *rer *lddoublenaer *ns f2_(double(ina*mns*ef2r *n, intStn(inldbda,lda,doublenaer *e_(inrfo); *if2_doublenaer * *grwr f2_(inbmper er *ldx,tn_mpe_bnddoublenaer *_mpe_bnddoubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgetc2_(indecgef2_(idoubleda,llexr ,dz,ieger *nrhs, _(mplex * ap, is *ldz, gejp, is /zcl fac* integer *ldz, gef2_(inap zgetef2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, ismplex * ap, is /zcl fac* integer *ldz, gef2_(inap zgetrfa,r f2_(intau*ef2_(in intedoubleda,llexr , complex * ap, ismplex * ap, is /zcl fac* integer *ldz, gef2_(inap zgetri_(indecgef2_(idoubleda,llexr ,dz,ieger *nrhs, _(mplex * ap, isdoubleda,llexr *ipiv, ceompf2_*info); /zcl fac* integer *ldz, gef2_(inap zgegrn, int in integer *nrhs, comiv, ceta,intege doubleda,llexr ldz,ieger *nrhs, mplex * ap, isdoubleda,llexr geromplex * ap,f2_er *n, intntegef2_(ina, compf2_(inrfo)zggbak _r integeinfo); teg*inr *nrhs, comiv, ceta,, isodb, er *n, *no/doublenaer *lslex *,doublenaer *rslex *,lldbf2_(im * doubleda,llexr vinteger *nrhst2_er *n, intntegef2_(ina, compf2_(inrfo)zggbal _r integeinindecgef2_(idoubleda,llexr ldz,ieger *ief2_aomdoubleda,llexr ger *ldz, gefo); gefo); / iso, er *n, *no/ doublenaer *lslex *,doublenaer *rslex *,doublenaer *info); /zcl faSt_); /ivintegef2_(ina *i*ipizgges _r integevnevx_(in intetsrer *ipivsormp*L_fp coselctginindecgef2_(idoubleda,llexr ldz,ieger *f2_aomdoubleda,llexr geromplex * ap,f2_er *n, insdim *doubleda,llexr rhs, codoubleda,llexr *ocolcdoubleda,llexr vseger *n, ini2_tsevxdoubleda,llexr *sdz,kmpf2_(iSti2_tsdz,doubleda,llexr *ipiv, ceompf2_(in fdoublenaer *rinfo);eomp*if2_(ibinfo); /zcl fac* integer *ldz, gef2_(inap zgg sx _r integevnevx_(in intetsrer *ipivsormp*L_fp coselctgin *ipivsenseinindecgef2_(idoubleda,llexr ldz,ieger *nrhs, _(doubleda,llexr ipiv, ceta, f2_er *n, insdim *doubleda,llexr rhs, co_(doubleda,llexr iocolcdoubleda,llexr vseger *n, ini2_tsevx doubleda,llexr v_dz,kmpf2_(inde*sdz,doublenaer *rer *ehsdoublenaer * *rer * isdoubleda,llexr *ipiv, ceompf2_*info);doublenaer *rinfo);eo /zcl facinfo); /zcl fagefact, mp*if2_(ibinfo); /zcl fac* integer *ldz, gef2_(inap zgg f2_(in intetevx_(in intetreriv, ceta,, * doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); doubleda,llexr rhs, codoubleda,llexr gocolcdoubleda,llexr *p*ipiv, ce Sti2_tevxdoubleda,llexr *dz,kmpf2_(inde*dz,doubleda,llexr info);piv, ce Sti2in o);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgg mta,r f2_(balancvx_(in intetevx_(in intetrernrhs, cosenseinindecgef2_(idoubleda,llexr ldz,ieger *nrhs, doubleda,llexr geromplex * ap,f2_doubleda,llexr rhs, codoubleda,llexr gocolc doubleda,llexr veger *n, ini2_tevxdoubleda,llexr *dz,kmpf2_(inde*dz,db, er *n, iso, er *n, *no/doublenaer *lslex *,doublenaer *rslex *, doublenaer *pbnnrhsdouble(ina*mnbnnrhsdouble(ina*mrer *ehsdoublenaer * *rer * isdoubleda,llexr *ipiv, ceompf2_*info);doublenaer *rinfo);eo /zcl facinfo);mp*if2_(ibinfo); /zcl fac* integer *ldz, gef2_(inap zggglmper f2_(inbmper f2_(in au*ef2_(in ip * doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); doubleda,llexr d /* doubleda,llexr f doubleda,llexr y doubleda,llexr _ru*ef2_(inabstol*info); /zcl fac* integer *ldz, gef2_(inap zggh*n, int inda,lqinfo); da,lial f2_(in inte /zcl faSt_ iso, er *n, *no/doubleda,llexr ldz,ieger *nrhs, doubleda,llexr geromplex * ap,f2_doubleda,llexr z, gefo); /ivk; doubleda,llexr z /* *i*ipiv, cek,z); /zcl fac* integer *ldz, gef2_(inap zgglse2_(in integ *nef2_(in inter f2_(in p * doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); doubleda,llexr /* doubleda,llexr d /* doubleda,llexr f doubleda,llexr *ipiv, ceompf2_*info); /zcl fac* integer *ldz, gef2_(inap zggqcgefact, chatialr f2_(in au*ef2_(in ip * doubleda,llexr ldz,ieger *nrhs, doubleda,llexr taus, doubleda,llexr geromiv, ceta, f2_doubleda,llexr tauf2_doubleda,llexr info);lldbf2_(i ap f2_ /zcl fac* integer *ldz, gef2_(inap zggrqfa,r f2_(intau*ef2_(in ia; f2_(inal *f doubleda,llexr ldz,ieger *nrhs, doubleda,llexr taus, doubleda,llexr geromiv, ceta, f2_doubleda,llexr tauf2_doubleda,llexr info);lldbf2_(i ap f2_ /zcl fac* integer *ldz, gef2_(inap zggfmgefact, chatux,tlt integvx,tlt integq c ap, issivpcomplex * nu*ef2_(in ia; f2_(inaliv, ceompf2_*tedoubleda,llexr , complex * ap, isdoubleda,llexr ipiv, ceta, f2_doublenaer *phs, co_(double(ina*mnscolcdoubleda,llexr info); /regger *doubleda,llexr *z,iv integef2_t2_doubleda,llexr z, gefo); /ivk; doubleda,llexr info); doublenaer *rinfo); /zcl facp f2_ /zcl fac* integer *ldz, gef2_(inap zggfmpefact, chatux,tlt integvx,tlt integq c ap, issivpcomplex * a; f2_(inal *fdoubleda,llexr ldz,ieger *nrhs, doubleda,llexr _ripiv, ceta, f2_doublenaer *tola; doublenaer *tolb; f2_(inaliv,iv integef2lcdoubleda,llexr info); /regger *doubleda,llexr *z,piv, ce Sti2_t2_doubleda,llexr z, gefo); /ivk; /zcl facp f2_doublenaer * *rp f2_doubleda,llexr issptdoubleda,llexr info); /zcl fac* integer *ldz, gef2_(inap zgtief2_(in inger *nef2_(in intedoubleda,llexr devx doubleda,llexr d /* doubleda,llexr er *doubleda,llexr du2te /zcl faSt_p, isdoublebger *l *nrhsdoublenaer *rer *lddoubleda,llexr info); gef2_(inc* integer *ldz, gef2_(inap zgt *n, int in integer *nrhs, comiv, ceta,intege doubleda,llexr d2lcdoubleda,llexr d /* doubleda,llexr er * doubleda,llexr d2f* doubleda,llexr ef* doubleda,llexr euf * doubleda,llexr du2te /zcl faap, isdoubleda,llexr ger *ldz, gefo); doubleda,llexr r *ipiv, ceta,f double(ina*m__, redouble(ina*mns*ef2_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zgtfmper f2_(inbmper f2_(in integedoubleda,llexr devx doubleda,llexr d /* doubleda,llexr er *doubleda,llexr ger *ldz, gefo); ; /zcl fac* integer *ldz, gef2_(inap zgtfmta,r f2_(inbmp*ipiv, integer *nrhs, comiv, ceta,cocompledoubleda,llexr d2lcdoubleda,llexr d /* doubleda,llexr er * doubleda,llexr d2f* doubleda,llexr ef* doubleda,llexr euf * doubleda,llexr du2te /zcl faap, isdoubleda,llexr ger *ldz, gefo); doubleda,llexr r *ipiv, ceta,f double(ina*mrer *lddouble(ina*mfs*ef2_(double(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizgttcgefact, chatialdoubleda,llexr d2lcdoubleda,llexr _(d /* doubleda,llexr er *doubleda,llexr du2te /zcl faap, is /zcl faSt_); /ivintegef2_(ina *i*ipizgttcn, int in integer *nrhs, comiv, ceta,intege doubleda,llexr d2lcdoubleda,llexr d /* doubleda,llexr er * doubleda,llexr du2te /zcl faap, isdoubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zgttnege*if2_(i_berinteger *nrhs, comiv, ceta,intege doubleda,llexr d2lcdoubleda,llexr d /* doubleda,llexr er * doubleda,llexr du2te /zcl faap, isdoubleda,llexr ger *ldz, gefo)nteger *ldz, gef2_(inap zhb f2_(in integer *n, int integger *ldz,i f2_(inalid*f doubleda,llexr l ispbtrs cger *n* doublenaer *i *doubleda,llexr z /* *i*ipiv, cek,z);doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zhb gefact, chatial f2_(in integer *ldx,tte f2_(inalid*f doubleda,llexr l ispbtrs cger *n* doublenaer *i *doubleda,llexr z /* *i*ipiv, cek,z);doubleda,llexr info); ceompf2_*info);doublenaer *rinfo);eo /zcl falrinfo); /zcl facp f2_ /zcl fagefact, chatial f2_(in integer *ldx,tl integerzhb , _r integer *ldx,tlt integger *ldz,ieger *nrhs, comp f2_(inalid*fdoubleda,llexr l ispbtrs cger *n* doubleda,llexr z, *i*ipiv, cek,q);doublenaer *tevxdoublenaer *tnjobz, ger *nrange, *info*i*uvxdoublenaer *(indecge/* f2_(indecdoublenaer *i *doubleda,llexr z /* *i *ipiv, cek,z);doubleda,llexr info);doublenaer *rinfo); /zcl facinfo);ple /zcl fac(in f2_(inzecgefact, chatial f2_(in integezhbgn inint integger f2_(in integer *ldx,tte f2_(inali, complex * akf2_doubleda,llexr r ispbtrs cger *n* doubleda,llexr bgeromplex * ap,ff2_doubleda,llexr r * integef2_f2_doubleda,llexr info); doublenaer *rinfo); /zcl facefact, chatial f2_(in integezhbg f2_(in integer *n, int integger *ldz,i f2_(inali, complex * akf2_doubleda,llexr r ispbtrs cger *n* doubleda,llexr bgeromplex * ap,ff2_doublenaer *i *doubleda,llexr z /* *ipiv, cek,z);_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zhbg gefact, chatial f2_(in integer *ldx,tte f2_(inali, complex * akf2_doubleda,llexr r ispbtrs cger *n* doubleda,llexr bgeromplex * ap,ff2_doublenaer *i *doubleda,llexr z /* *ipiv, cek,z);_(doubleda,llexr info); ceompf2_*info);doublenaer *rinfo);lldbf2_(i arinfo); /zcl facp f2_ /zcl fagefact, chatial f2_(in integer *ldx,tl integerzhbg , _r integer *ldx,tlt integger *ldz,ieger *nrhs, comp f2_(inalildz,ieger *nkf2_doubleda,llexr r ispbtrs cger *n* _(doubleda,llexr iger *ldz, gefo)f2_doubleda,llexr z, gefo); /ivk; doublenaer *tevxdoublenaer *tnjobz, ger *nrange, *info*uvxdoublenaer * (indecge/* f2_(indecdoublenaer *i *doubleda,llexr z /* *ipiv, cek,z);_(doubleda,llexr info);doublenaer *rinfo); /zcl facinfo); /zcl faSt_(in f2_(inzecgefact, chatial f2_(in integezhbt*n, int integger f2_(in integer *ldx,tte f2_(inalid*f doubleda,llexr l ispbtrs cger *n* doublenaer *dex *doublenaer *e * doubleda,llexr z, gefo); /ivk; doubleda,llexr info);f2_(inzecgefact, chatial f2_(in integezheief2_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, is /zcl faap, isdoublebger *l *nrhsdoublenaer *rer *ld_(doubleda,llexr info); ceompf2_gefact, chatial f2_(in integezhe fb2_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, isdoublenaer *bnddoublenaer *ser *lddouble(ina*mppequ dbdoubleda,llexr info); ceompf2_gefact, chatial f2_(in integezhe f2_(in integer *n, int integger *ldz,idoubleda,llexr _rldz,ieger *nrhs, double(invlgi *doubleda,llexr info); /zcl fa*info);pldoublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zhe gefact, chatial f2_(in integer *ldx,tte doubleda,llexr ldz,ieger *nrhs, double(invlgi *doubleda,llexr info); gef2_(inap f2_doublenaer *rinfo); /zcl faarinfo); /zcl facp f2_ gef2_(inaefact, chatial f2_(in integer *ldx,tl integerzhe r _r integer *ldx,tlt integger *ldz,ieger *nrhs, compdoubleda,llexr ldz,ieger *nrhs, double(invlgtevxdoublenaer *tnjodb, er *n, ange, *info*uvxdoublenaer *(indecge/* f2_(indecdoublenaer * i *doubleda,llexr z /* *ipiv, cek,z);ge, *info*suppz);doubleda,llexr *i*ipiv, ceompf2_(in fdoublenaer *rinfo); /zcl faarinfo); /zcl fa (in f2_(inzecgefact, chatial f2_(in integer *ldx,tl integerzhe , _r integer *ldx,tlt integger *ldz,ieger *nrhs, compdoubleda,llexr ldz,ieger *nrhs, double(invlgtevxdoublenaer *tnjodb, er *n, ange, *info*uvxdoublenaer *(indecge/* f2_(indecdoublenaer * i *doubleda,llexr z /* *ipiv, cek,z);doubleda,llexr info); /zcl fa ap f2_doublenaer *rinfo); /zcl facinfo); /zcl fac(in f2_(inzecSt_); /ivintegef2_(ina *i*ipizhegnege*if2_(i_beryptegger *ldz,ieger *nrhs, compdoubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zhegntge*if2_(i_beryptegger *ldz,ieger *nrhs, compdoubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zhegvge*if2_(i_beryptegger *lhatial f2_(in integer *ldx,);n ndoubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); double(invlgi *doubleda,llexr info); /zcl fa*info);doublenaer *rinfo);eo chatial f2_(in integer *ldx,tl integerzheg gef*if2_(i_beryptegger *lhatial f2_(in integer *ldx,);n ndoubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); double(invlgi *doubleda,llexr info); /zcl fa*info);doublenaer *rinfo);eo chatial farinfo); /zcl facp f2_ /zcl fagefact, chatial f2_(in integer *ldx,tl integerzheg , *if2_(i_beryptegger *lhatial f2_(it integger *l n integer *ldx,ttedoubleda,llexr , c,ieger *nrhs, doubleda,llexr geromplex * ap,f2_doublenaer *tevxdoublenaer *tnjobz, ger *nrange, *info*i*uvxdoublenaer *(indecge/* f2_(indecdoublenaer *i *doubleda,llexr z /* *i *ipiv, cek,z);doubleda,llexr info); /zcl fa*info);doublenaer *rinfo);eo chatial f2info); /zcl fac(in f2_(inzec2_(in integer *ldx,tl integerzhe *n, int integgerger *ldx,tte f2_(inalintege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *n* integer *lcomplex * a *ldzdoubleda,llexr ger *ldz, gefo); doubleda,llexr r *iv integef2_f2_doublenaer *__, redouble(ina*mns*ef2doubleda,llexr info); _doublenaer *rinfo); /zcl fac* integer *l *ldx,tl integerzhe *nx, int integger *ipivnteg, er *n, integer *nrhs, cocompledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr areggefo); /ivger *lmplex * ap, isdoublenaer *pledoubleda,llexr ger *ldz, gefo); doubleda,llexr r *ipiv, ceta,f double(ina*mrer *lddouble(ina*mns*ef2_(r *n, inte(inldbda,lda,doublenaer *e_(inrfo); *if2_doublenaer * *grwr f2_(inbmper er *ldx,tn_mpe_bnddoublenaer *_mpe_bnddoubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zhef2_(in integer *ldx,tt integer *ldx,t Siege doubleda,llexr ldz,ieger *nrhs, mplex * a *ldzdoubleda,llexr geromplex * ap,f2_doubleda,llexr *ipiv, ceompf2_*info); /zcl fac* integer *ldz, gef2_(inap zhefmta,r f2_(inbmp*ipiv, eger *ldx,tt integer *ldx,tcocompledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr areggefo); /ivger *lmplex * ap, isdoubleda,llexr ger *ldz, gefo); doubleda,llexr r *iv*ipiv, ceta,f double(ina*mrer *lddouble(ina*m__, redouble(ina*mns*ef2_(doubleda,llexr info); ceompf2_(in fdoublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zhefmtta,r f2_(inbmp*ipiv, eger *ldx,tt integer *ldx,tcocompledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr areggefo); /ivger *lmplex * ap, is *ipivnteg, edoublenaer *pledoubleda,llexr geromplex * ap,f2_doubleda,llexr r * integef2_f2_doublenaer *i(char *double(ina*mns f2_(double(ina*mns*ef2r *n, inte(inldbda,lda,pldoublenaer *e_(inrfo); *if2_doublenaer *grwr f2_(inbmper er *ldx,tcoc_mpe_bnddoublenaer *_mpe_bnddoubleda,llexr info);doublenaer *rinfo);eo /zcl fac* integer *ldz, gef2_(inap zhetd22_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, isdoublenaer *dex *doublenaer *e *doubleda,llexr tau);eo /zcl fac* integer *ldz, gef2_(inap zhetf22_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, ismplex * ap, is /zcl fac* integer *ldz, gef2_(inap zhet*n, int inn integer *ldx,ttedoubleda,llexr , complex * ap, isdoublenaer *dex *doublenaer *e *doubleda,llexr tau);eodoubleda,llexr *ipiv, ceompf2_*info); /zcl fac* integer *ldz, gef2_(inap zhetcgef(in inn integer *ldx,ttedoubleda,llexr , complex * ap, is /zcl faap, isdoubleda,llexr info); /zcl fa*info);pl /zcl fac* integer *ldz, gef2_(inap zhetcief(in inn integer *ldx,ttedoubleda,llexr , complex * ap, is /zcl faap, isdoubleda,llexr info); /zcl fac* integer *ldz, gef2_(inap zhetcn, int integgerger *ldx,tte f2_(inalintege doubleda,llexr ldz,ieger *nrhs, mplex * a *ldzdoubleda,llexr geromplex * ap,f2_ /zcl fac* integer *ldz, gef2_(inap zhfrk, int in inte*ipiv, cetabdbgint in integer *nrhs, complex * ap, ivxdoublenaer *(hs, codoubleda,llexr ldz,ieger *nrhs, _(double(ina*mnscolcdoubleda,llexr c__nteger *ldz, gef2_(inap zhgeqz _r integeinfo); da,lqipfo); da,lial f2_(in intedb, er *n, iso, er *n, *no/doubleda,llexr h /* *ipiv, cek,hge doubleda,llexr tinteger *nrhser doubleda,llexr lhs, codoubleda,llexr *ocolcdoubleda,llexr z, gefo); /ivk; doubleda,llexr z /* gefo); /ivgez);doubleda,llexr info); /zcl fa*info);doublenaer *rinfo);ge, *info*i** integer *ldz, gef2_(inap zhpief2_(in inn integer *ldx,ttedoubleda,llexr ,p*lcomplex * a *ldzdoublebger *l *nrhsdoublenaer *rer *lddoubleda,llexr *i*ipiv, ceompf2_c* integer *ldz, gef2_(inap zhp f2_(in integer *n, int integger *ldz,idoubleda,llexr _rlphsdoublenaer *i *doubleda,llexr z /* *ipiv, cek,z);doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zhp gefact, chatial f2_(in integer *ldx,tte doubleda,llexr lphsdoublenaer *i *doubleda,llexr z /* *ipiv, cek,z);_(doubleda,llexr info); ceompf2_*info);doublenaer *rinfo);lldbf2_(i arinfo); /zcl facp f2_ /zcl fagefact, chatial f2_(in integer *ldx,tl integerzhp , _r integer *ldx,tlt integger *ldz,ieger *nrhs, compdoubleda,llexr lphsdoublenaer *tevxdoublenaer *tnjobz, ger *nrancomplex * auvxdoublenaer *(indecge/* f2_(indecdoublenaer *i *mpdoubleda,llexr z /* *ipiv, cek,z);doubleda,llexr info);doublenaer * *rinfo); /zcl facinfo); /zcl fac(in f2_(inzec2_(in integer *ldx,tl integerzhpgntge*if2_(i_beryptegger *ldz,ieger *nrhs, compdoubleda,llexr lpf2doubleda,llexr bx,tteger *nrhs, complex * ap, ispptri cgzhpgvge*if2_(i_beryptegger *lhatial f2_(in integer *ldx,);n ndoubleda,llexr lpf2doubleda,llexr bx,tdoublenaer *i *doubleda,llexr _rz /* *ipiv, cek,z);doubleda,llexr info);doublenaer *rinfo);ge, *info*i** integer *ldz, gef2_(inap zhpg gef*if2_(i_beryptegger *lhatial f2_(in integer *ldx,);n ndoubleda,llexr lpf2doubleda,llexr bx,tdoublenaer *i *doubleda,llexr _rz /* *ipiv, cek,z);doubleda,llexr info); ceompf2_*info);doublenaer * *rinfo); /zcl faarinfo); /zcl facp f2_ /zcl fagefact, chatial f*i** integer *ldz, gef2_(inap zhpg , *if2_(i_beryptegger *lhatial f2_(it integger *l n integer *ldx,ttedoubleda,llexr ,pf2doubleda,llexr bx,tdoublenaer * tevxdoublenaer *tnjobz, ger *nrange, *info*uvxdoublenaer *(indecgecomplex * decdoublenaer *i *doubleda,llexr z /* *ipiv, cek,z);_(doubleda,llexr info);doublenaer *rinfo); /zcl facinfo); /zcl faSt_(in f2_(inzecgefact, chatial f2_(in integezhp *n, int integgerger *ldx,tte f2_(inalintege doubleda,llexr lpf2doubleda,llexr afx,tteger *nrhp, isdoubleda,llexr ipiv, ceta, f2_doubleda,llexr r * integef2_f2_doublenaer *fs*ef2_(double(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizhpf2_(in integer *ldx,tt integer *ldx,t Siege doubleda,llexr lx,tteger *nrhp, isdoubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zhpfmta,r f2_(inbmp*ipiv, eger *ldx,tt integer *ldx,tcocompledoubleda,llexr ,pf2doubleda,llexr afx,tteger *nrhp, is_(doubleda,llexr ipiv, ceta, f2_doubleda,llexr r * integef2_f2_, doublenaer *rer *lddoublenaer *__, redouble(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zhpt*n, int inn integer *ldx,ttedoubleda,llexr ,p2_, doublenaer *dex *doublenaer *e *doubleda,llexr tau); /zcl fac* integer *ldz, gef2_(inap zhpt*gef(in inn integer *ldx,ttedoubleda,llexr ,p*lcomplex * a *ldz /zcl fac* integer *ldz, gef2_(inap zhpt*ief(in inn integer *ldx,ttedoubleda,llexr ,p*lcomplex * a *ldzdoubleda,llexr info); /zcl fac* integer *ldz, gef2_(inap zhptcn, int integgerger *ldx,tte f2_(inalintege doubleda,llexr lx,tteger *nrhp, isdoubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zhseif2_(in integ*in *ipivnigsrcin *ipivinitv);mp*if2_(icoseleggeriv, ceta,, *doubleda,llexr h /* *ipiv, cek,hgedoubleda,llexr igedoubleda,llexr veger *n, ini2_tevxdoubleda,llexr *dz,kmpf2_(inde*dz,dbe/* f2_(ind *nef2_(in im *doubleda,llexr wnfo);doublenaer *rinfo);eo /zcl fac(in f2_(inzecg(in dbger *ldz,ic* integer *ldz, gef2_(inap zhseqr _r integeinfo); da,lial f2_(in inte /zcl fa, isodbo, er *n, *no/doubleda,llexr h /* *ipiv, cek,hgedoubleda,llexr w *mpdoubleda,llexr z /* *ipiv, cek,z);doubleda,llexr info); ceompf2_*info);eo chatial f2_(in integer *ldx,tl integerzla_gbamv_ *if2_(i_b integer *nrhs, au*ef2_(in intemp f2_(inalieger *n, inikr *doublenaer *(hs, codoubleda,llexr lgeromplex * ap,*n* doubleda,llexr qu cger *n* c*cxredouble(ina*mnsts, _(double(ina*myu cger *n* c*cyn indouble(ina*zla_gbrer *_c_, int in integer *nrhs, comiv, ceta,ieger *n, iniku);eodoubleda,llexr r ispbtrs cger *n* doubleda,llexr l *ldz, gefo); /ivk;complex * a *ldzdoublebger * /* mp*if2_(icapplybger *ldz,ic* i);_(doubleda,llexr info);doublenaer *rinfo);ftnlen inte_lenn indouble(ina*zla_gbrer *_x_, int in integer *nrhs, comiv, ceta,ieger *n, iniku);eodoubleda,llexr r ispbtrs cger *n* doubleda,llexr l *ldz, gefo); /ivk;complex * a *ldzdoubleda,llexr qu cger *n* c* i);doubleda,llexr info);pldoublenaer *rinfo);ftnlen inte_lenn integer *ldx,tl integerzla_gb *nx,extended_ *if2_(i_bprec_rypt /* gefo); /iv inte_rypt /* gefo); /mper f2_(in ieger *n, inikr *r f2_(in intege doubleda,llexr l ispbtrs cger *n* doubleda,llexr l *ldz, gefo); /ivk;complex * a *ldzmp*if2_(icolequdzdoublebger * /* doubleda,llexr geromplex * ap,f2_doubleda,llexr yldz, gefo); yredouble(ina*mnsrr_ldx /* *i*ipiv, cen); *,lda,doublenaer *e_(s_nlda,doublenaer *e_(s_ /* _(doubleda,llexr rebnddoublenaer *ayf2_doubleda,llexr dy doubleda,llexr _ry_tin /* doublenaer *rer *ld *ldz, geithrebh* doublenaer *rthrebh* , doublenaer *dz_ub /* mp*if2_(iig; e_cwist /* gefo); /2_(in indouble(ina*zla_gbrs f2_per f2_(inbmper f2_(in ieger *n, inikr *r f2_(in , ccolegedoubleda,llexr , ispbtrs cger *n* doubleda,llexr l *ldz, gefo);ivger )nteger *ldz, gef2_(inap zla_geamv_ *if2_(i_b integer *nrhs, au*ef2_(in intempdoublenaer *(hs, codoubleda,llexr ldz,ieger *nrhs, doubleda,llexr qu /zcl fac*cxredouble(ina*mnsts, double(ina*myu cger *n* c*cyn indouble(ina*zla_gerer *_c_, int in integer *nrhs, comdoubleda,llexr ldz,ieger *ief2_aomdoubleda,llexr ger *n* integer *lmplex * a *ldzdoublebger * /* mp*if2_(icapplybger *ldz,ic* i);doubleda,llexr info);doublenaer * *rinfo);ftnlen inte_lenn indouble(ina*zla_gerer *_x_, int in integer *nrhs, comdoubleda,llexr ldz,ieger *ief2_aomdoubleda,llexr ger *n* integer *lmplex * a *ldzdoubleda,llexr qu cger *n* c* i);doubleda,llexr info);doublenaer *rinfo);ftnlen iv inte_lenn integer *ldx,tl integerzla_ge *nx,extended_ *if2_(i_bprec_rypt /* gefo); /iv inte_rypt /* gefo); /mper f2_(in compledoubleda,llexr ,dz,ieger *nivgeromdoubleda,llexr ger *n* integer *lmplex * a *ldzmp*if2_(icolequd _doublenaer *i*ipidoubleda,llexr ger *ldz, gefo); doubleda,llexr yeromplex * ap,yredouble(ina*mnsrr_ldx /* *ipiv, cen); *,lda,doublenaer * *grws_nlda,doublenaer *e_(s_ /* doubleda,llexr rebnddoublenaer *ayf2_ doubleda,llexr dy doubleda,llexrry_tin /* doublenaer *rer *ld /zcl facthrebh* doublenaer *rthrebh* doublenaer *dz_ub /* mp*if2_(i g; e_cwist /* gefo); /2_(in integer *ldx,tl integerzla_heamv_ *if2_(i_bn integer *ldx,ttedoublenaer *(hs, cpledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr qu /zcl fac*cxre_(double(ina*mnscolcdouble(ina*myu cger *n* c*cyn indouble(ina*zla_herer *_c_, int inn integer *ldx,ttedoubleda,llexr , c,ieger *nivgeromdoubleda,llexr ger *n* integer *lmplex * a *ldzdoublenaer *i*ipplemp*if2_(icapplybger *ldz,ic* i);doubleda,llexr info);doublenaer * *rinfo);ftnlen n in_lenn indouble(ina*zla_herer *_x_, int inn integer *ldx,ttedoubleda,llexr , c,ieger *nivgeromdoubleda,llexr ger *n* integer *lmplex * a *ldzdoubleda,llexr qu cger *n* c* i);doubleda,llexr info);doublenaer *rinfo);ftnlen ivn in_lenn integer *ldx,tl integerzla_he *nx,extended_ *if2_(i_bprec_rypt /* int inn inte*i*ipiv, cenper f2_(in compledoubleda,llexr ,dz,ieger *nrhs, _(doubleda,llexr ger *n* integer *lmplex * a *ldzmp*if2_(icolequde_(double(ina*mi*ipidoubleda,llexr ger *ldz, gefo); doubleda,llexr yeromplex * ap,yredouble(ina*mnsrr_ldx /* *ipiv, cen); *,lda,doublenaer * *grws_nlda,doublenaer *e_(s_ /* doubleda,llexr rebnddoublenaer *ayf2_ doubleda,llexr dy doubleda,llexrry_tin /* doublenaer *rer *ld /zcl facthrebh* doublenaer *rthrebh* doublenaer *dz_ub /* mp*if2_(i g; e_cwist /* gefo); /2_(i);ftnlen n in_lenn indouble(ina*zla_hers f2_peint integgerger *ldx,tte f2_(inalc* i);_(doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *n* integer *lcomplex * a *ldzdoublenaer *info);ftnlen n in_lenn integer *ldx,tl integerzla_lin_nsrr_per f2_(inbmper f2_(in izper f2_(in comple_(doubleda,llexr rebnddoublenaer *ayf2_double(ina*mnsrrn indouble(ina*zla_porer *_c_, int inn integer *ldx,ttedoubleda,llexr , c,ieger *nivgeromdoubleda,llexr ger *n* integer *ldoublebger * /* mp*if2_(i applybger *ldz,ic* i);doubleda,llexr info);doublenaer *rinfo);ftnlen ivn in_lenn indouble(ina*zla_porer *_x_, int inn integer *ldx,ttedoubleda,llexr , c,ieger *nivgeromdoubleda,llexr ger *n* integer *ldoubleda,llexr qu /zcl faSt_); );doubleda,llexr info);doublenaer *rinfo);ftnlen n in_lenn integer *ldx,tl integerzla_por*nx,extended_ *if2_(i_bprec_rypt /* int inn inte*i*ipiv, cenper f2_(in compledoubleda,llexr ,dz,ieger *nrhs, _(doubleda,llexr ger *n* integer *lmp*if2_(icolequdzdoublebger * /* _(doubleda,llexr ipiv, ceta, f2_doubleda,llexr yldz, gefo); yre_(double(ina*mns*e_ldx /* *ipiv, cen); *,lda,doublenaer *grws_nlda,pldoublenaer *e_(s_ /* doubleda,llexr rebnddoublenaer *ayf2_ doubleda,llexr dy doubleda,llexrry_tin /* doublenaer *rer *ld /zcl facthrebh* doublenaer *rthrebh* doublenaer *dz_ub /* mp*if2_(i g; e_cwist /* gefo); /2_(i);ftnlen n in_lenn indouble(ina*zla_pors f2_peint integgerger *ldx,tcolegedoubleda,llexr , complex * ap, isdoubleda,llexr ger *n* integer *ldoublebger *info);plftnlen n in_lenn indouble(ina*zla_rs f2_per f2_(inbmper f2_(in tcolegedoubleda,llexr , c,ieger *ief2_aomdoubleda,llexr ger *n* integer n integer *ldx,tl integerzla_syamv_ *if2_(i_bn integer *ldx,ttedoublenaer *(hs, cpledoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr qu /zcl fac*cxre_(double(ina*mnscolcdouble(ina*myu cger *n* c*cyn indouble(ina*zla_syrer *_c_, int inn integer *ldx,ttedoubleda,llexr , c,ieger *nivgeromdoubleda,llexr ger *n* integer *lmplex * a *ldzdoublenaer *i*ipplemp*if2_(icapplybger *ldz,ic* i);doubleda,llexr info);doublenaer * *rinfo);ftnlen n in_lenn indouble(ina*zla_syrer *_x_, int inn integer *ldx,ttedoubleda,llexr , c,ieger *nivgeromdoubleda,llexr ger *n* integer *lmplex * a *ldzdoubleda,llexr qu cger *n* c* i);doubleda,llexr info);doublenaer *rinfo);ftnlen ivn in_lenn integer *ldx,tl integerzla_syr*nx,extended_ *if2_(i_bprec_rypt /* int inn inte*i*ipiv, cenper f2_(in compledoubleda,llexr ,dz,ieger *nrhs, _(doubleda,llexr ger *n* integer *lmplex * a *ldzmp*if2_(icolequde_(double(ina*mi*ipidoubleda,llexr ger *ldz, gefo); doubleda,llexr yeromplex * ap,yredouble(ina*mnsrr_ldx /* *ipiv, cen); *,lda,doublenaer * *grws_nlda,doublenaer *e_(s_ /* doubleda,llexr rebnddoublenaer *ayf2_ doubleda,llexr dy doubleda,llexrry_tin /* doublenaer *rer *ld /zcl facthrebh* doublenaer *rthrebh* doublenaer *dz_ub /* mp*if2_(i g; e_cwist /* gefo); /2_(i);ftnlen n in_lenn indouble(ina*zla_syrs f2_peint integgerger *ldx,tte f2_(inalc* i);_(doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *n* integer *lcomplex * a *ldzdoublenaer *info);ftnlen n in_lenn integer *ldx,tl integerzla_wwadd2_per f2_(inbmpedoubleda,llexr qu doubleda,llexr _ry);doubleda,llexr in integer *ldx,tl integerzlabrd2_(in integ *nef2_(in inter f2_(in i); doubleda,llexr rdz,ieger *nrhs, doublenaer *dex *doublenaer *e * doubleda,llexr tauk; doubleda,llexr taupf2doubleda,llexr x c,ieger *nivgef doubleda,llexr y plex * ap,yn integer *ldx,tl integerzlacgvper f2_(inbmpedoubleda,llexr qu /zcl fac*cxn integer *ldx,tl integerzlacn2_(indecgef2_(idoubleda,llexr ldzdoubleda,llexr qu pldoublenaer *esgeriv, ceta,kaseinindecgef2isav nteger *ldz, gef2_(inap zlacef2_indecgef2_(idoubleda,llexr ldzdoubleda,llexr qu pldoublenaer *esgeriv, ceta,kasenteger *ldz, gef2_(inap zlacp22_(in inn integer *ldx, *nef2_(in intedoublenaer * *ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo)nteger *ldz, gef2_(inap zlacpy2_(in inn integer *ldx, *nef2_(in intempdoubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo)nteger *ldz, gef2_(inap zlacrm2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdouble(ina*mner *ldz, gefo); doubleda,llexr c /* *i*ipiv, cek,c);doublenaer *rinfonteger *ldz, gef2_(inap zlacrt2_indecgef2_(idoubleda,llexr cqu /zcl fac*cxre_(doubleda,llexr cyu cger *n* c*cy; doubleda,llexr c /* doubleda,llexr snteger Double Ca,llexr / VOID zladivpedoubleda,llexr ret_vaevxdoubleda,llexr xre_(doubleda,llexr yn integer *ldx,tl integerzlaed02_indecgef2qsiz*nef2_(in intedoublenaer *dlda,pldoublenaer *evxdoubleda,llexr z, gefo); /ivk; doubleda,llexr qst e* *i*ipiv, cek,q adoublenaer *rinfo); /zcl facinfo); /zcl fac_(in integer *ldx,tl integerzlaed7per f2_(inbmper f2_(in cutpngeriv, ceta,qsiz*n*i*ipiv, cetlvlsper f2_(in curlveger *n, inicurpbmtedoublenaer *dlda,pldoubleda,llexr z, gefo); /ivk; doublenaer *rhiso, er *n, ndxk; doublenaer *qst e* iv, ceta,qptdbger *ldz,iprmptdbger *ldz,iperivpcomplex * givptdbger *ldz,igivcoevxdoublenaer *givnum *doubleda,llexr info);doublenaer *rinfo); /zcl facinfo); /zcl fac_(in integer *ldx,tl integerzlaed8per f2_(inbk*nef2_(in inteiv, ceta,qsiz*n*idoubleda,llexr z, gefo); /ivk; doublenaer *dex *doublenaer *rhisocomplex * cutpngerdoublenaer *zex *doublenaer *dlamhs, doubleda,llexr q2, gefo); /ivk2dzdoublenaer *iso, er *n, ndxpso, er *n, ndxu /zcl fac*dxk; er *ldz,iperivpmplex * givptdbger *ldz,igivcoevx doublenaer *givnum * /zcl fac_(in integer *ldx,tl integerzlaeif2_mp*if2_(irightv);mp*if2_(inoinit*nef2_(in intempdoubleda,llexr h /* *ipiv, cek,hgedoubleda,llexr w *doubleda,llexr ldz_(doubleda,llexr ipiv, ceta, f2_doublenaer *rinfo);doublenaer *eps3vx doublenaer *smlnum * /zcl fac_(in integer *ldx,tl integerzlaesypedoubleda,llexr s, doubleda,llexr geromdoubleda,llexr c /* doubleda,llexr rt1* doubleda,llexr rt2eromdoubleda,llexr evslex; doubleda,llexr cs1* doubleda,llexr sn1n integer *ldx,tl integerzlaev2pedoubleda,llexr s, doubleda,llexr geromdoubleda,llexr c /* doublenaer *rt1* doublenaer *rt2dzdoublenaer *cs1* pledoubleda,llexr sn1n integer *ldx,tl integerzlag2c2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isda,llexr sldz,ieger *nrhsldz,ieger *nc_(in integer *ldx,tl integerzlagnegemp*if2_(iuppernddoublenaer *a1* doubleda,llexr *l2dzdoublenaer *a3isdouble(ina*mn1* doubleda,llexr b2dzdoublenaer *b3); _doublenaer *csr *doubleda,llexr snudzdoublebger * sldzdoubleda,llexr snldzdoublenaer *isk; doubleda,llexr snqn integer *ldx,tl integerzlagtm, int in integer *nrhs, comiv, ceta,intege doublenaer *(hs, codoubleda,llexr d2lcdoubleda,llexr d /* doubleda,llexr dupedoubleda,llexr qu /zcl fa2_f2_doublenaer *gocolc doubleda,llexr ger *ldz, gefo)nteger *ldz, gef2_(inap zlahegef(in inn integer *ldx,tter f2_(in i); r f2_(inbkb* pledoubleda,llexr ldz,ieger *nrhs, mplex * a *ldzdoubleda,llexr w complex * ap,wdz,ieger *nc_(in integer *ldx,tl integerzlahqr mp*if2_(iwantt);mp*if2_(iwantial f2_(in intedb, er *n, iso, er *n, *no/doubleda,llexr h /* *ipiv, cek,hge doubleda,llexr wdz,ieger *nclozso, er *n, *nz);doubleda,llexr z /* *i*ipiv, cek,z); /zcl fac* integer *ldz, gef2_(inap zlahr2per f2_(inbmper f2_(in iter f2_(in i); doubleda,llexr rdz,ieger *nrhs, doubleda,llexr tau, doubleda,llexr t* *i*ipiv, cek,er doubleda,llexr y plex * ap,yn integer *ldx,tl integerzlahrd2_(in integmper f2_(in iter f2_(in i); doubleda,llexr rdz,ieger *nrhs, doubleda,llexr tau, doubleda,llexr t* *i*ipiv, cek,er doubleda,llexr y plex * ap,yn integer *ldx,tl integerzlaic12_(in integegeinindecgef2jdzdoubleda,llexr qu pldoublenaer *sesgerdoubleda,llexr w *doubleda,llexr gamm isdouble(ina*mcosestpef2doubleda,llexr pledoubleda,llexr c__nteger *ldz, gef2_(inap zlals02_indecgef2ida,lk; er *ldz,inlomiv, ceta,in* *i*ipiv, cesq e* iv, ceta,compledoubleda,llexr ger *ldz, gefo); doubleda,llexr bqu /zcl fa2_bqu /zcl faperivpmplex * givptdbgcomplex * givcoeger *n, ini2_gcoevxdoublenaer *givnum *r *n, ini2_gnum * _doublenaer *polebnddoublenaer *diflnddoublenaer *difrisdouble(ina*mcoz /* *ipiv, ceo);doublenaer *c /* doublenaer * adoublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zlalsa2_indecgef2ida,lk; er *ldz,ismlsiz*nef2_(in inte*i*ipiv, cenompledoubleda,llexr ger *ldz, gefo); doubleda,llexr bqu omplex * ap,ff2_doublenaer *info); /regger *doublenaer *vt*nef2_(in i knddoublenaer *diflnddoublenaer *difrisdouble(ina*mzex *doublenaer * polebndmplex * givptdbger *ldz,igivcoevxr *n, ini2_gcoevxef2_(in i perivpdoublenaer *givnum *doublenaer *c /* doublenaer * adoublenaer * *rinfo); /zcl facinfo); /zcl fac* integer *ldz, gef2_(inap zlalsn, int inn integer *ldx,smlsiz*nef2_(in inteef2_(in enompledoublenaer *dex *doublenaer *e *doubleda,llexr ger *ldz, gefo); doublenaer *rer *ld *ldz, geintkerdoubleda,llexr wnfo);doublenaer * *rinfo); /zcl facinfo); /zcl fac_(in indouble(ina*zlangb2_(in inger *nef2_(in inte*ipiv, ceoeger *n, iniku);eodoubleda,llexr r ispbtrs cger *n* doublenaer *infon indouble(ina*zlange2_(in inger *nef2_(in i *nef2_(in intedoubleda,llexr , complex * ap, isdouble(ina*minfon indouble(ina*zlangt2_(in inger *nef2_(in intedoubleda,llexr d2lcdoubleda,llexr _(d /* doubleda,llexr ern indouble(ina*zlanhb2_(in inger *n f2_(in integer *ldx,tte f2_(inali);eodoubleda,llexr r ispbtrs cger *n* doublenaer *infon indouble(ina*zlanhe2_(in inger *n f2_(in integer *ldx,ttedoubleda,llexr , complex * ap, isdouble(ina*minfon indouble(ina*zlanhf2_(in inger *n f2_(i inte*ipiv, cetabdbgef2_(in intempdoubleda,llexr isdouble(ina*minfon indouble(ina*zlanhp2_(in inger *n f2_(in integer *ldx,ttedoubleda,llexr ,p2_, doublenaer *infon indouble(ina*zlanhs2_(in inger *nef2_(in intedoubleda,llexr ldz,ieger *nrhs, _(double(ina*minfon indouble(ina*zlanht2_(in inger *nef2_(in intedoublenaer *dex *doubleda,llexr en indouble(ina*zlansb2_(in inger *n f2_(in integer *ldx,tte f2_(inali);eodoubleda,llexr r ispbtrs cger *n* doublenaer *infon indouble(ina*zlansp2_(in inger *n f2_(in integer *ldx,ttedoubleda,llexr ,p2_, doublenaer *infon indouble(ina*zlansy2_(in inger *n f2_(in integer *ldx,ttedoubleda,llexr , complex * ap, isdouble(ina*minfon indouble(ina*zlantb2_(in inger *n f2_(in inte f2_(idiagteger *ldx,tte f2_(inali);eoedoubleda,llexr , ispbtrs cger *n* doublenaer *infon indouble(ina*zlantp2_(in inger *n f2_(in inte f2_(idiagteger *ldx,tte doubleda,llexr lphsdoublenaer *infon indouble(ina*zlantr2_(in inger *n f2_(in inte f2_(idiagteger *ldx, *nef2_(in intempedoubleda,llexr ldz,ieger *nrhs, doublenaer *infon iner *ldz, gef2_(inap zlapllper f2_(inbmpedoubleda,llexr qu /zcl fac*cxre_(doubleda,llexr yu cger *n* c*cy; doublenaer * sminn integer *ldx,tl integerzlapmt mp*if2_(iforwrdteger *ldx, *nef2_(in intempdoubleda,llexr qu /zcl fa2_f2_ f2_(inalin integer *ldx,tl integerzlaqgb2_ger *ldx, *nef2_(in inte*ipiv, ceoeger *n, iniku);eoedoubleda,llexr , ispbtrs cger *n* doublenaer *rex *doublenaer *clda,pldoublenaer *rowc *lddoublenaer *coec *lddoublenaer *ppequ *ipivnteg,n integer *ldx,tl integerzlaqge2_(in integ *nef2_(in intedoubleda,llexr , complex * ap, isdouble(ina*mrex *doublenaer *clda,doublenaer *rowc *ld_(double(ina*mioec *lddoublenaer *ppequ *ipivnteg,n integer *ldx,tl integerzlaqhb2_(in inn integer *ldx,tter *n, inikd*f doubleda,llexr l ispbtrs cger *n* doublenaer *bnddoublenaer *ser *ld doublenaer *(pequ *ipivnteg,n integer *ldx,tl integerzlaqhe, int inn integer *ldx,ttedoubleda,llexr , complex * ap, isdouble(ina*mbnddoublenaer *ser *lddouble(ina*mppequ db *ipivnteg,n integer *ldx,tl integerzlaqhp, int inn integer *ldx,ttedoubleda,llexr ,p2_, doublenaer *bnddoublenaer *ser *lddouble(ina*mppequ *ipivnteg,n integer *ldx,tl integerzlaqp22_ger *ldx, *nef2_(in inte*ipiv, ceoffset; doubleda,llexr rdz,ieger *nrhs, indecgef2jpvgerdoubleda,llexr tau);eodoublenaer *vn1* doublenaer *vn2erdoubleda,llexr infon iner *ldz, gef2_(inap zlaqps2_ger *ldx, *nef2_(in inte*ipiv, ceoffset; ef2_(in en); r f2_(inbkb* doubleda,llexr rdz,ieger *nrhs, indecgef2jpvger doubleda,llexr tau* doublenaer *vn1* doublenaer *vn2erdoubleda,llexr auxldzdoubleda,llexr ger *n* intege n integer *ldx,tl integerzlaqr0 mp*if2_(iwantt);mp*if2_(iwantial f2_(in intedb, er *n, iso, er *n, *no/doubleda,llexr h /* *ipiv, cek,hge doubleda,llexr wdz,ieger *nclozso, er *n, *nz);doubleda,llexr z /* *i*ipiv, cek,z);doubleda,llexr wnfo);*ipiv, cekinfo); /zcl fac* integer *ldz, gef2_(inap zlaqr1per f2_(inbmpedoubleda,llexr h /* *ipiv, cek,hge doubleda,llexr s1* doubleda,llexr s2erdoubleda,llexr vnteger *ldz, gef2_(inap zlaqr2 mp*if2_(iwantt);mp*if2_(iwantial f2_(in intedb, er *n,ktoa; f2_(inalibot*nef2_(in inw *doubleda,llexr h /* *i*ipiv, cek,hdz,ieger *nclozso, er *n, *nz);doubleda,llexr z /* *i*ipiv, cek,z); /zcl fateger *nrhs, c*lddoubleda,llexr shge doubleda,llexr v* *ipiv, cek,v* *ipiv, cenhgedoubleda,llexr t* *i*ipiv, cek,er *ipiv, cenldzdoubleda,llexr wv* *ipiv, cek,wldz_(doubleda,llexr wnfo);*ipiv, cekinfonteger *ldz, gef2_(inap zlaqr3 mp*if2_(iwantt);mp*if2_(iwantial f2_(in intedb, er *n,ktoa; f2_(inalibot*nef2_(in inw *doubleda,llexr h /* *i*ipiv, cek,hdz,ieger *nclozso, er *n, *nz);doubleda,llexr z /* *i*ipiv, cek,z); /zcl fateger *nrhs, c*lddoubleda,llexr shge doubleda,llexr v* *ipiv, cek,v* *ipiv, cenhgedoubleda,llexr t* *i*ipiv, cek,er *ipiv, cenldzdoubleda,llexr wv* *ipiv, cek,wldz_(doubleda,llexr wnfo);*ipiv, cekinfonteger *ldz, gef2_(inap zlaqr4 mp*if2_(iwantt);mp*if2_(iwantial f2_(in intedb, er *n, iso, er *n, *no/doubleda,llexr h /* *ipiv, cek,hge doubleda,llexr wdz,ieger *nclozso, er *n, *nz);doubleda,llexr z /* *i*ipiv, cek,z);doubleda,llexr wnfo);*ipiv, cekinfo); /zcl fac* integer *ldz, gef2_(inap zlaqr5 mp*if2_(iwantt);mp*if2_(iwantial f2_(in ikacc22te*i*ipiv, cenper f2_(in ktoa; f2_(inalibot*nef2_(in inshftple_(doubleda,llexr pledoubleda,llexr h /* *ipiv, cek,hge,ieger *nclozsodb, er *n, *nz);doubleda,llexr z /* *ipiv, cek,z);doubleda,llexr v* *i*ipiv, cek,ldzdoubleda,llexr info); /regger **ipiv, cenldz doubleda,llexr wv* *ipiv, cek,wldz*ipiv, cenhgedoubleda,llexr wh complex * ap,whnteger *ldz, gef2_(inap zlaqsb2_(in inn integer *ldx,tter *n, inikd*f doubleda,llexr l ispbtrs cger *n* doublenaer *bnddoublenaer *ser *ld doublenaer *(pequ *ipivnteg,n integer *ldx,tl integerzlaqsp, int inn integer *ldx,ttedoubleda,llexr ,p2_, doublenaer *bnddoublenaer *ser *lddouble(ina*mppequ *ipivnteg,n integer *ldx,tl integerzlaqsy2_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, isdouble(ina*mbnddoublenaer *ser *lddouble(ina*mppequ db *ipivnteg,n integer *ldx,tl integerzlar1mper f2_(inbmper f2_(in n1* r f2_(in nntedoublenaer ief2ambhs, doublenaer *dex *doublenaer *lnddoublenaer *l*lddouble(ina*m ll*lddouble(ina*mpivminvpdoublenaer *gapto2lcdoubleda,llexr z /* *imp*if2_(iwantncteger *ldx,tegcngerdoublenaer *ztzerdoublenaer *mingm, comeger *ldx,r /* gefo); /2suppz);doublenaer *nrminldzdoublenaer *resid; doublenaer *rqco, redouble(ina*minfonteger *ldz, gef2_(inap zlar2vper f2_(inbmpedoubleda,llexr qu doubleda,llexr yu mpdoubleda,llexr z /* *ipiv, cec*cxredouble(ina*mc /* doubleda,llexr s); /zcl fac*ccnteger *ldz, gef2_(inap zlarcm2_(in integ *nef2_(in intedouble(ina*mpvxef2_(in i rhs, doubleda,llexr ger *ldz, gefo); doubleda,llexr c /* *ipiv, cek,c; doublenaer *rinfonteger *ldz, gef2_(inap zlarf2_(in integ*in(in integ *nef2_(in intedoubleda,llexriefldz /zcl fac*cldzdoubleda,llexr tau, doubleda,llexr c /* *ipiv, ce rhcerdoubleda,llexr infon iner *ldz, gef2_(inap zlarfb2_(in integ*inint in intege f2_(idiregger f2_(i st evin(in integ *nef2_(in inter *n, inik);doubleda,llexr v* ef2_(in ek,ldzdoubleda,llexr tinteger *nrhser doubleda,llexr c /* *ipiv, ce rhcerdoubleda,llexr info* *ipiv, cek,wnfon iner *ldz, gef2_(inap zlarfgper f2_(inbmpedoubleda,llexr lhs, codoubleda,llexr qu cger *n* c*cxredoubleda,llexr taun iner *ldz, gef2_(inap zlarfpper f2_(inbmpedoubleda,llexr lhs, codoubleda,llexr qu cger *n* c*cxredoubleda,llexr taun iner *ldz, gef2_(inap zlarft2_(in indiregger f2_(ist evin(in integteger *ldx,tcok);doubleda,llexr v* ef2_(in ek,ldzdoubleda,llexr tau, doubleda,llexr tinteger *nrhsen iner *ldz, gef2_(inap zlarfx2_(in integ*in(in integ *nef2_(in inte doubleda,llexr v* doubleda,llexr tau, doubleda,llexr c /* *ipiv, ce rhcerdoubleda,llexr infon iner *ldz, gef2_(inap zlargvper f2_(inbmpedoubleda,llexr qu /zcl fac*cxre_(doubleda,llexr yu cger *n* c*cy; doublenaer *c /* *ipiv, cec*ccnteger *ldz, gef2_(inap zlarnvge*if2_(i_bedisgeriv, ceta,iseg, er *n, integempdoubleda,llexr qnteger *ldz, gef2_(inap zlarrvper f2_(inbmpedoublenaer *vevxdoublenaer *tnjodbdoublenaer *dex *doublenaer *lnddoublenaer *pivminvpiv, ceta,isplit* *i*ipiv, ce *nef2_(in idoevxef2_(in idouerdoublenaer *minrgp2_, doublenaer *rto21* doublenaer *rtol2dzdoublenaer *isodoublenaer *is*ef2_(odoublenaer *iglx,tteger *nrhbloco); /zcl fac*dexisodoublenaer *cl s);eoedoubleda,llexr z /* *ipiv, cek,z);ge, *info*suppz);double(ina*minfo); /zcl facinfo); /zcl fac* integer *ldz, gef2_(inap zlarscl22_ger *ldx, *nef2_(in intedoublenaer *dex *mpdoubleda,llexr qu /zcl fa2_fnteger *ldz, gef2_(inap zlartgpedoubleda,llexr *ldoubleda,llexr glddouble(ina*m cpledoubleda,llexr smpedoubleda,llexr r__nteger *ldz, gef2_(inap zlartvper f2_(inbmpedoubleda,llexr qu /zcl fac*cxre_(doubleda,llexr yu cger *n* c*cy; doublenaer *c /* doubleda,llexr s); /zcl fac*ccnteger *ldz, gef2_(inap zlarz2_(in integ*in(in integ *nef2_(in inte /zcl fa2ge doubleda,llexr v* *ipiv, cec*cldzdoubleda,llexr tau, doubleda,llexr /* *ipiv, cek,c; doubleda,llexr infon iner *ldz, gef2_(inap zlarzb2_(in integ*inint in intege f2_(idiregger f2_(i st evin(in integ *nef2_(in inter *n, inik); /zcl fa2gedoubleda,llexriefldz /zcl fak,ldzdoubleda,llexr tinteger *nrhser doubleda,llexr c /* *i*ipiv, cek,c);doubleda,llexr info* *ipiv, cek,wnfon iner *ldz, gef2_(inap zlarzt2_(in indiregger f2_(ist evin(in integteger *ldx,tcok);doubleda,llexr v* ef2_(in ek,ldzdoubleda,llexr tau, doubleda,llexr tinteger *nrhsen iner *ldz, gef2_(inap zlascl, int in ypt /* gefo); /oeger *n, iniku);eodoublenaer *cfrom *doublenaer *ctnteger *ldx, *nef2_(in intempdoubleda,llexr ldz,ieger *nrhs, /zcl fac* integer *ldz, gef2_(inap zlascl22_ger *ldx, *nef2_(in intedoublenaer *dex *mpdoubleda,llexr qu /zcl fa2_fnteger *ldz, gef2_(inap zlaset2_(in inn integer *ldx, *nef2_(in intempdoubleda,llexr lhs, codoubleda,llexr *ocolcdoubleda,llexr pvxef2_(in i rhsnteger *ldz, gef2_(inap zlasr2_(in integ*inint inpivotge f2_(idireggerger *ldx, *nomeger *ldx,n; doublenaer *c /* double(ina*mbnddoubleda,llexr , complex * ap, nteger *ldz, gef2_(inap zlassqper f2_(inbmpedoubleda,llexr qu /zcl fac*cxre_(doublenaer *seale* double(ina*mbumsqn integer *ldx,tl integerzlaswpper f2_(inbmpedoubleda,llexr ldz,ieger *nrhs, db, er *n,k1* r f2_(in k2, gefo); /a *ldz /zcl fac*cxn integer *ldx,tl integerzlasygef(in inn integer *ldx,tter f2_(in i); r f2_(inbkb* pledoubleda,llexr ldz,ieger *nrhs, mplex * a *ldzdoubleda,llexr w complex * ap,wdz,ieger *nc_(in integer *ldx,tl integerzlat2c2_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, isda,llexr sldz,ieger *nrhsldz,ieger *nc_(in integer *ldx,tl integerzlatbn, int integgerint in intege f2_(idiagte f2_(i ger invpiv, ceta,tter *n, inikd*fdoubleda,llexr l ispbtrs cger *n* mpdoubleda,llexr qu doublenaer *seale* double(ina*mcger *nef2_(in ic_(in integer *ldx,tl integerzlatdfge*if2_(i_beegeinindecgef2ttedoubleda,llexr z /* *i*ipiv, cek,z);doubleda,llexr ompledoublenaer *rdsum *doublenaer * rdslex; gefo); /a *ldz /zcl faj *ln integer *ldx,tl integerzlatpn, int integgerint in intege f2_(idiagte f2_(i ger invpiv, ceta,ttedoubleda,llexr ,p2_doubleda,llexr qu doublenaer * seale* double(ina*mcger *nef2_(in ic_(in integer *ldx,tl integerzlat*n, int inn integer *ldx,tter f2_(in i); doubleda,llexr rdz,ieger *nrhs, doublenaer *e *doubleda,llexr tau);eodoubleda,llexr ** *ipiv, cek,wn integer *ldx,tl integerzlat*n, int integgerint in intege f2_(idiagte f2_(i ger invpiv, ceta,ttedoubleda,llexr ,dz,ieger *nrhs, doubleda,llexr qu _(doublenaer *seale* double(ina*mcger *nef2_(in ic_(in integer *ldx,tl integerzlat*z2_ger *ldx, *nef2_(in inte*ipiv, ce2ge doubleda,llexr rdz,ieger *nrhs, doubleda,llexr tau, doubleda,llexr infon integer *ldx,tl integerzlatzm2_(in integ*in(in integ *nef2_(in inte doubleda,llexr v* *ipiv, cec*cldzdoubleda,llexr tau, doubleda,llexr 1* doubleda,llexr c2, gefo); /ivc; doubleda,llexr infon iner *ldz, gef2_(inap zlauu22_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, ismplex * a_(in integer *ldx,tl integerzlauum2_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, ismplex * a_(in integer *ldx,tl integerzpbief2_(in inn integer *ldx,tter *n, inikd*f doubleda,llexr l ispbtrs cger *n* doublenaer *l *nrhsdoublenaer * rer *lddoubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zpbequ2_(in inn integer *ldx,tter *n, inikd*f doubleda,llexr l ispbtrs cger *n* doublenaer *bnddoublenaer *ser *ld doublenaer *(pequ /zcl fac* integer *ldz, gef2_(inap zpb *n, int integgerger *ldx,tte f2_(inalk, er *n, intcocompledoubleda,llexr , ispbtrs cger *n* doubleda,llexr l *ldz, gefo);ivger ), doubleda,llexr ger *ldz, gefo); doubleda,llexr r * integef2_f2_, ddoublenaer *__, redouble(ina*mns*ef2doubleda,llexr info);doublenaer * rinfo); /zcl fac* integer *ldz, gef2_(inap zpbstgef(in inn integer *ldx,tter f2_(in kd*f doubleda,llexr l ispbtrs cger *n* /zcl fac* integer *ldz, gef2_(inap zpbs2_(in integer *ldx,tt integer *ldx,tk, er *n, intcocompledoubleda,llexr , ispbtrs cger *n* doubleda,llexr *ldz, gefo);ivgen* /zcl fac* integer *ldz, gef2_(inap zpbs2ta,r f2_(inbmp*ipiv, eger *ldx,tt integer *ldx,tk*ld /zcl facompledoubleda,llexr , ispbtrs cger *n* doubleda,llexr l *ldomplex * ap, fbu *ipivnteg,* double(ina*mbnddoubleda,llexr ispbtrs cg ek,f2_doubleda,llexr r * integef2_f2_doublenaer *i(char doublenaer * __, redouble(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zpbtf22_(in inn integer *ldx,tter f2_(in kd*f doubleda,llexr l ispbtrs cger *n* /zcl fac* integer *ldz, gef2_(inap zpbt*gef(in inn integer *ldx,tter f2_(in kd*f doubleda,llexr l ispbtrs cger *n* /zcl fac* integer *ldz, gef2_(inap zpbt*n, int integgerger *ldx,tte f2_(inalk, er *n, intcocompledoubleda,llexr , ispbtrs cger *n* doubleda,llexr *ldz, gefo);ivgen* /zcl fac* integer *ldz, gef2_(inap zpft*gef(in in inte*ipiv, cetabdbgef2_(in intempdoubleda,llexr is /zcl fac* integer *ldz, gef2_(inap zpft*ief(in in inte*ipiv, cetabdbgef2_(in intempdoubleda,llexr is /zcl fac* integer *ldz, gef2_(inap zpft*sef(in in inte*ipiv, cetabdbgef2_(in inter *n, intcocompledoubleda,llexr ,, doubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zpoief2_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, isdouble(ina*ml *nrhsdoublenaer *rer *lddoubleda,llexr *i*ipiv,doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zpoequ2_iv, ceta,ttedoubleda,llexr ,dz,ieger *nrhs, , doublenaer *bnddoublenaer *ser *lddouble(ina*mppequ /zcl fac* integer *ldz, gef2_(inap zpoequb2_iv, ceta,ttedoubleda,llexr ,dz,ieger *nrhs, , doublenaer *bnddoublenaer *ser *lddouble(ina*mppequ /zcl fac* integer *ldz, gef2_(inap zpo *n, int integgerger *ldx,tte f2_(inalintege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *n* integer *lcodoubleda,llexr ger *ldz, gefo); doubleda,llexr r * integef2_f2_, doublenaer *__, redouble(ina*mns*ef2doubleda,llexr info);doublenaer * rinfo); /zcl fac* integer *ldz, gef2_(inap zpor*nx, int integgerint innteg,* ef2_(in inter *n, intcocompledoubleda,llexr ,, ,ieger *nrhs, doubleda,llexr ger *n* inteivger * double(ina*mbnddoubleda,llexr ispbtrs cgefo); doubleda,llexr r *omeger *ldx,2_f2_doublenaer *i(char doublenaer *ns*ef2r *n, intcoc_srr_bnd,lda,doublenaer *grw_bnd,l *nrlda,doublenaer * *grw_bnd,lda,l /* *ipiv, cenparambnddoublenaer *parambnddoubleda,llexr *i*ipiv,doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zpof2_(in integer *ldx,tt integer *ldx,t Siege doubleda,llexr l, ,ieger *nrhs, doubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zpof2ta,r f2_(inbmp*ipiv, eger *ldx,tt integer *ldx,tcocompledoubleda,llexr ,, ,ieger *nrhs, doubleda,llexr ger *n* inteivger * *ipivnteg,* double(ina*mbnddoubleda,llexr ispbtrs cgefo); doubleda,llexr r * integef2_f2_doublenaer *i(char doublenaer *fs*ef2_(double(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizpof2tta,r f2_(inbmp*ipiv, eger *ldx,tt integer *ldx,tcocompledoubleda,llexr ,, ,ieger *nrhs, doubleda,llexr ger *n* inteivger * *ipivnteg,* double(ina*mbnddoubleda,llexr ispbtrs cgefo); doubleda,llexr r * integef2_f2_doublenaer *i(char doublenaer *rs f22_, ddoublenaer *ns*ef2r *n, intc_srr_bnd,lda,doublenaer *grw_bnd,l *nrlda,, ddoublenaer *grw_bnd,lda,l /* *ipiv, cenparambnddoublenaer *parambnd_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zpotf22_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, ismplex * a_(in integer *ldx,tl integerzpot*gef(in inn integer *ldx,ttedoubleda,llexr , complex * ap, ismplex * a_(in integer *ldx,tl integerzpot*ief(in inn integer *ldx,ttedoubleda,llexr , complex * ap, ismplex * a_(in integer *ldx,tl integerzpot*n, int integgerger *ldx,tte f2_(inalintege doubleda,llexr ldz,ieger *nrhs, doubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zppief2_(in inn integer *ldx,ttedoubleda,llexr ,p2_, doublenaer *l *nrhsdoublenaer *rer *lddoubleda,llexr info);doublenaer erinfo); /zcl fac* integer *ldz, gef2_(inap zppequ2_(in inn integer *ldx,ttedoubleda,llexr ,p2_, doublenaer *bnddoublenaer *ser *lddouble(ina*mppequ /zcl fac* integer *ldz, gef2_(inap zpp *n, int integgerger *ldx,tte f2_(inalintege doubleda,llexr lpf2doubleda,llexr afx,tdoubleda,llexr ger *ldz, gefo); _doubleda,llexr r * integef2_f2_doublenaer *__, redouble(ina*mns*ef2_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zppf2_(in integer *ldx,tt integer *ldx,t Siege doubleda,llexr lx,tdoubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zppfmta,r f2_(inbmp*ipiv, eger *ldx,tt integer *ldx,tcocompledoubleda,llexr ,pf2doubleda,llexr afx,t *ipivnteg,* double(ina*m bnddoubleda,llexr ispbtrs cgefo); doubleda,llexr r * integef2_f2_, doublenaer *rer *lddoublenaer *__, redouble(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zppt*gef(in inn integer *ldx,ttedoubleda,llexr ,p*lcomplex * a* integer *ldz, gef2_(inap zppt*ief(in inn integer *ldx,ttedoubleda,llexr ,p*lcomplex * a* integer *ldz, gef2_(inap zppt*n, int integgerger *ldx,tte f2_(inalintege doubleda,llexr lpf2doubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zpstf22_(in inn integer *ldx,ttedoubleda,llexr , complex * ap, ismplex * *ldz /zcl faintkerdoublenaer *toevx doublenaer *info); /zcl fac* integer *ldz, gef2_(inap zpst*gef(in inn integer *ldx,ttedoubleda,llexr , complex * ap, ismplex * *ldz /zcl faintkerdoublenaer *toevx doublenaer *info); /zcl fac* integer *ldz, gef2_(inap zptcef2_indecgef2_(idoublenaer *dex *doubleda,llexr e2_, doublenaer *l *nrhsdoublenaer *rer *lddoublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizpteqr _r intda,lz*nef2_(in intedoublenaer *dlda,pldoublenaer *evxdoubleda,llexr z /* *ipiv, cek,z);double(ina*minfo); /zcl fac); /ivintegef2_(ina *i*ipizpt *n, int integgerger *ldx,tte f2_(inalintege doublenaer *dex *doubleda,llexr e2_doublenaer *d *ldoubleda,llexr e *lcodoubleda,llexr ger *ldz, gefo); doubleda,llexr r * integef2_f2_, doublenaer *__, redouble(ina*mns*ef2doubleda,llexr info);doublenaer * rinfo); /zcl fac* integer *ldz, gef2_(inap zptsmper f2_(inbmper f2_(in nompledoublenaer *dex *omdoubleda,llexr ef2doubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zptfmta,r f2_(inbmp*ger *ldx,tte f2_(inalintege doublenaer *dex *doubleda,llexr e2_doublenaer *d *ldoubleda,llexr e *lcodoubleda,llexr ger *ldz, gefo); doubleda,llexr r * integef2_f2_, doublenaer *rer *lddoublenaer *__, redouble(ina*mns*ef2doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gef2_(inap zptt*gefindecgef2_(idoublenaer *dex *doubleda,llexr e2_, /zcl fac* integer *ldz, gef2_(inap zptt*n, int integgerger *ldx,tte f2_(inalintege doublenaer *dex *doubleda,llexr e2_doubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zptts22_ger *ldx,iteggerger *ldx,tte f2_(inalintege doublenaer *dex *doubleda,llexr e2_doubleda,llexr ger *ldz, gefo)nteger *ldz, gef2_(inap zrot2_indecgef2_(idoubleda,llexr cqu /zcl fac*cxre_(doubleda,llexr cyu cger *n* c*cy; doublenaer *c /* doubleda,llexr snteger *ldz, gef2_(inap zspief2_(in inn integer *ldx,ttedoubleda,llexr ,p2_, cger *n* c *ldzdoublenaer *l *nrhsdoublenaer *rer *lddoubleda,llexr *i*ipiv, /zcl fac* integer *ldz, gef2_(inap zsp1iaSt_); io); /zclqaer *ser *pR ap zlaset2_(in inn ilexr ,dz,ieger *nrhsn* c *ldzdoublenaer *l *rhsdoublenaer *rer *lddoubleda,llexr *i*ipiv, /zcl fac* integer *p1iaSt_); io); /zclqaer *ser *pRapnrhsn* c *ldzdoublenaer *l *raer *bnddoublenaer *ser *lddouble(ina*mppequ /zcl fac* integer *ldz, gef2_(inap za,llexr snteger *ldz, *ser *pR aoublenaer *dex *doubleda,llexr e2_doublenaer *d nddoubleda,llexr ispbtrs cgefo); doubleda,llexr r * integef2_f2_doublenaer *i(char doublenaer *fs*ef2_(double(ina*mss*ef2_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integea,llexr snteger *ldz, *ser *pRinteggerger *ldx,tte f2_(inalintege doublenaer *dex *doubsleda,llexr lx,tdoubleda,llexr ger *ldz, gefo); /zcl fac* integer *ldz, gef2_(inap zppfmta,r f2_a,llexr snteger f2_(inalintege doublenaer *dex *doubleda,llexr e2_doublenaer *d *ldoubleda,llexr e *lcodoubleda,llexr ger *ldz, gefo); doubleda,llexr r * integef2_f2_, doublenaer *rer *lddoublenaer *__, redouble(ina*mss*ef2doubleda,llexr info);doublenaer *rinfo); /zcl fac* inswpper f2_(inbmpublenaer *__, redouble(ina*mss*ein inn integer *ldx,ttedoubleda,llexr ,p*lcomplex * a* ininteger *ldx,tter f2_enaer *rer *lddoublenaer *__, redouble(ina*mss*eer *bnddoublenaer *ser *lddouble(ina*mppequ /zcl fac* integera,llexr snteger *ldz, *ser *pRinteggerger *ldx,tte f2_(inalintege doublenaer *dex *doubstedcrhsdoublenaer *rer *lddoublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizpteqr _r intda,lz*x,tter f2_enaer /zcl fac* i integef2_f2_, doublenaer *rer *ldlr *ldz, gefo); doubl /zcl fac* i s);eoedoubleda,llexr z /* *ipiv, cek,z);ge, *stegrhsdoublejobzoubleda,reoeg *rer *lddoublenaer *rinfo*minfon indou_); /ivintegef_); /r *n, integempdoubledoubleda,llx,tte f2_(inallenaer *lnddoubabstnaer *dex *dop zspief2_(in wna*minfonteger *ldz, gef2_(inap x,tteger *nrhbloco); /zcl fac*dexisodoublenaer *clclozso, er *n, *lenaer *rer *ldl s);eoedoubleda,llexr z /* *ipiv, cek,z);ge, *steiaintkerdoublenaer *toevx doublenaer *_); /ividoublenaer *tnzspief2_(in wnadoubleda,l21* doublenaer *rr *vevxdontegef2_(ina *i*ipizpteqr _r intda,lz*nef2_(in int gefo); doubl /zcl fac* ifailoedoubleda,llexr z /* *ipiv, cek,z);ge, *stemrhsdoublejobzoubleda,reoeg *rer *lddoublenaer *rinfo*minfon indou_); /ivintegef_); /r *n, integempdoubledoubleda,llx,tte f2_(inallenublenaer *tnzspief2_(in wnantegef2_(ina *i*ipizpteqr _x,ttr *rer *lddouzcteger *nrhbloco); *l*lddoutryrac /zcl fac*dexisodoubl enaer *clclozso, er *n, *lenaer *rer *ldl s);eoedoubleda,llexr z /* *ipiv, cek,z);ge, *ste*nrhsdoublenaer *rer *lddoublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizpteqr _r intda,lz*nef2_(in intedoublenaer *dlda,pldoublenaer *evxdoublesyleda,llexr ,, doubleda,llexr ger *ldz, gefo); /zcl fac* intega,llexr snteger *ldz, gef2_(inap zspief2_(in inn intcenhgedoubleda,llexr t* *i*ipiv, *dlda,pldoublenaer *evxdoublesynaer *r *bnddoublenaer *ser *lddouble(ina*mppequ *ipivnteg,n integer *ldx,tl integerzlaqsy2_(in inn integer *ldx,ttednhgedoubleda,llexr t* *i*ipiv, *dlda,pldoublenaer *evxdoublesynrhsdoublenaer *rer *lddoubleda,llexr *i*ipiv, /zcl fac* integer *lnteger *ldx,tl integerzpot*n, iubleda,llexr ger *ldz, gefo)nteger ap zlaset2_(in inn ilexr ,dz,ieger *nrhsn* c *ldzdoublenaer *l yrhsdoublenaer *rer *lddoubleda,llexr *i*ipiv, /zcl fac* integer *p1iaSt_); io); /zclqaer *ser *pRanteger *ldx,tlnrhsn* c *ldzdoublenaer *l yraer *bnddoublenaer *ser *lddouble(ina*mppequ /zcl fac* integer *ldz, gef2_(inap zpo *n, int integgerger *ldx,ta,llexr snteger *ldz, *ser *pRinteggerger *ldx, fac* integer *p1i *ipivnteg,npf2doubleda,llexr afx,tdoubleda,llexr gda,lz*x,tter f2_enaer /gef2_f2_, doublenaer *rer *lddoublenaer *__, redouble(ina*msy*ef2doubleda,llexr info);doublenaer * rinfo); /zcl fac* integer *ldz, gef2_(inap zpor*nx, int integgerint innteg,* ef2_(in ina,llexr snteger *ldz, gef2_da,llexr ,, ,ieger *nrhs, doubleda,llexr ger *n* inteivger * *ipivnteg,* double(ina*mbnddoubleda,llexr gernaer * ri); doubleda,llexr r *omeger *ldx,2_f2_doublenaer *i(char doublenaer *ns*ef2r *n, intcoc_srr_bnd,lda,doublenaer *grw_bnd,l *nrlda,doublenaer * *grw_bnd,lda,l /* *ipiv, cenparambnddoublenaer *pasymbnddoubleda,llexr *i*ipiv,doublenaer *rinfo); /zcl fac* integer *ldz, gef2_a,llexr snteger *ldz, *ser *pRint *ipivnteg,ndx, fac* integer *xr wdz,ieger *nclozso, er *n, *nz);doubleda,llexr z /* *i*ipsymb2doubleda,llexr info);doublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizpof2tta,r f2_(inbmp*ipiv, eger *ldx,tt inta,llexr snteger *ldz, *ser *pRinteggerger *ldx, fac* integer *p1i ivger * *ipivnteg,* double(ina*mbnddoubleda,lxr afx,tdoubleda,llexr ger *ldz, gefo); _doubzcl fac* i integef2_f2_, doublenaer *rer *ld*nz);doubleda,llexr z /* *i*ipsymb22doubleda,llexr info);doublenaer *rinfo); /zcl faSt_); /ivintegef2_(ina *i*ipizpof2tta,r f2_(inbmp*ipiv, eger *ldx,tt inta,llexr sntegereger *ldx,tcocompledoubleda,llexr ,, ,ieger *n *ipivnteg,ndx, fac* integer *teivger * *ipivnteg,* double(ina*mb*ldoubleda,llexexr is,tdoubleda,llexr gnaer * ri); doubleda,lzcl faSt_); /ir *ldx,2_f2_doublenaer *i(ch doublenaer *ns*ef2r *n, ifaStcoc_srr_bnd,lda,doublenaer *grw_bnd,l *nrl* integef2_f2_doublenaer *i(char doublenaer * __, redouble(ina*msymbnd_(doubleda,llexr info);doublenaer *rinfo); /zcl fac* integer *ldz, gswpper f2_(inbmpublenaer *__, redouble(ina*msyger *ldx,ttedoubleda,llexr , complex * ap, ismplex * a_(in integer *ldxinteger *ldx,tter f2_enaer *rer *ldllenaer *i(char doublenaer * __, redouble(ina*msymer *ldx,ttedoubleda,llexr , complex * ap, ismplex * a_(in integer *ldxinteger *ldx,tter f2_enaer *rer *lddoublenaer *__, redouble(ina*msyger *ldx,ttedoubleda,llexr , complex * ap, ismplex * a_(in integer *ldx,tl ia,llexr snteger *ldz, *ser *pRint *ipivnteg,ndx, *rer *lddoublenaer *__, redouble(ina*mteger *ldx,ttali);eoedoubleda,llexr , ispbtrs cger *n* dors cger *tegerzlatbn, int integgerint in integezspief2_(in inn intcenhgedoubleda,llexr t*ef2_f2_, doublenaer *rer *ld*nz);doubleda,llexr z /* *i*iptaer *bnddoublenaerlexr tau);eodoubleda,llexrs cger *n* dors cger *tegecomplex * ap, rzlatbn, int integgerint in intege f2_(inalintege doublenaer *dex *doubleda,llexr e2_doublenaer *d *ldoubleda,llexr e *lcodoubleda,llexr ger *ldz, gefo); doubleda,llexr r * integef2_f2_, doublenaer *__, redouble(ina*mtf2_(in kd*f doubllexr tau);eodoubleda,llexrs cger *n* dors cger *tegecomplex * ap, rzlatbn, int integgerint in intege f2_(inalintege doublenaer *dex *ef2_f2_, doublenaer *__, redouble(ina*mtfsdoubleda,llexr2_(in intleda,llexr * doubllexr tau);eod ioubleda,llexrs cger *lenaer *coec *lddoublenaer *ppev, /zcl fac* integer *lnt2_(inalintege doublenaer *dexlenaer *__, redouble(ina*mtfipiv, cetabdbgef2_(in intempdououbleda,llexrs cger *n* do /ivintegef2_(ina *i*ipizpdoublenaer *__, redouble(ina*mtfttte f2_(indbgef2_(in intempdoubleda,llexr is /zcl fac* intrf2_(inbmp*ger *ldxegera,llexr snoublenaer *__, redouble(ina*mtfttre f2_(indbgef2_(in intempdoubleda,llexr is /zcl fac* intrf2_(inbmp*ger *ldxenteger *ldx,tl ia,llexr snoublenaer *__, redouble(ina*mtgevcrhsdoublleda,llexr *howmny *l*lddouselexr pernaer * ri(idoubleda,llexr cnteger *ldx,tp, rzlatbn, int ingera,llexr eda,lf2_(inap zppfmta,vdoublenaer *divdoublenaer *lnddouv ispbtrs cgefdiv ispbtrs cgmu);eodoubleda,l*grw_bnd,l *nrl* integef2_f2_doublenaer *ia,llexr snoublenaer *__, redouble(ina*mtgexe doubleda,llexqldz_(doubleda,llexr wnfo);*ipiv, /ivintegef2_(ina *i*ipizpof2tta,r f2_(inbmp*i *nrhs, doubleda,llexr ger *n* ingerzlaed02_indecgef2qsiz*nef2_(ii*ipizpteqr _r internaer * rj1 ia,llexr snoublenaer *__, redouble(ina*mtgexc doubleda,llexqldz_(doubleda,llexr wnfo);*ipiv, /ivintegef2_(ina *i*ipizpof2tta,r f2_(inbmp*i *nrhs, doubleda,llexr ger *n* ingerzlaed02_indecgef2qsiz*nef2_(ii*ipizpteqr _r internaer * rifr *n* c*cy; dolr *n* c*cy; dooublenaer *__, redouble(ina*mtgsenr qu doublenaer *doubleda,llexqldz_(doubleda,llexer *l*lddouselexr peda,llexr , complex * ap, ism *i*ipizpof2tt f2_(inalintege doublenaer *dex *doubleda,llexr n* c*cxredoubleda,llexr ap zlaset2_(in inn igerzlaed02_indecgef2qsiz*nef2_(ii*ipizpteqr _x,ttr *rer *lddop zspief2_(in pap zlarrvper f2e *lcodoubleda,ditte f2_(inalintege xr wdz,ieger *nclozso, er *n, *lenaer *rer *ldl s);eoe *i(char doublenaer * __, redouble(ina*mtgsjahsdoublejobu,llexr *jobv,llexr *jobq *rer *lddop *i(char dop peda,llexr , rs cger *ter *rer *ldl*lddouble(ina*mppequ *ipivnteg,n integer lintege doublenaer *dex *doublen integer /zcl fac* integegerl integerzpbief2* c*cxredoubbleda,ll zlaset2_(in inn i enompledoubleda,llexr gr *lnddouvoublenaer *divzlaset2_(in inn iger *ipivnteg,necgef2qsiz*nef2_(ilenaer *rer *ldncycle*n* c*cy; dooublenaer *__, redouble(ina*mtgsnahsdoublejob,llexr *howmny *l*lddouselexr pernaer * ri(idoubleda,llexr na *i*ipizpof2tta,r f2_(inbmp*i *nrhs, doueda,llexr l *ldomplex *vdoublenaer *divdoublenaer *lnddouv ispbtrs cgefdiv iteger *ldx,tl integerzlaqsydittespbtrs cgmu);eodoubleda,l f2_(inalintege xr wdz,ieger *nclozso, er *n, *lenaer *rer *ldooublenaer *__, redouble(ina*mtgsy2e f2_(indbgefer *rer *ldoaer *seale* dom ispbtrs cgefi(idoubleda,llexr na *i*ipizpof2tta,r f2_(inbmp*i *nrhs, doubleda,llexr ger *n* innte /zcl fa2ge doubleda,llexr v*dte /zcl fa2ge intcenhgedoubleda,lle /zcl fa2ge ivintegef2_(ina *eda,llexr tau* /zcl fac* integ ger invpiv, cetabeegeinindecgef2tteubleda,llexr z /*doublenaer *fs*ef2_(double(ina*mtgsyle f2_(indbgefer *rer *ldoaer *seale* dom ispbtrs cgefi(idoubleda,llexr na *i*ipizpof2tta,r f2_(inbmp*i *nrhs, doubleda,llexr ger *n* innte /zcl fa2ge doubleda,llexr v*dte /zcl fa2ge intcenhgedoubleda,lle /zcl fa2ge ivintegef2_(ina *eda,llexr tau* /zcl fac* integ ger invpiv, cetaditte2_(inalintege xr wdz,ieger *nefdlozso, er *n, *lenaer *rer *ldooublenaer *__, redouble(ina*mtpger *ldx,ttali);eoedoubleda,llexr , ispbtrs cger *n* do(inbmp*ger *ldxegerteg,* double(ina*mbnddoubnd,l *nrl* integef2_f2_doleda,llexr ,p2_, doublenaer *l *nrhsdoublenaer *rt*raer *bnddoublenalexr tau);eodoubleda,llexrs cger *n* dors cger * fac* integer *ldz, gef2_(inap zppfmta, *nrhs, doubleda,llexr ger *n* inteivger * *ipivnteg,* doublexr afx,tdoubleda,llexr ger *ldz, gefo); _doubleda,llexr r * integef2_f2_doublenaer *__, redouble(ina*mts*ein inn integer lexr , ispbtrs cger *n* do(inbmp*ger *ldxegeregef2_f2_doublenaer *__, redouble(ina*mts*eer *bnddoublenalexr tau);eodoubleda,llexrs cger *n* dors cger * fac* integer *ldz, gef2_(inap zppfmta, *nrhs, doubleda,llegef2_f2_doublenaer *__, redouble(ina*mts*t cger *n* doubleda,llexr *ldz, gefo);ivgen* /zcl fac* intf2_(inap zppfmta,rrferegef2_f2_doublenaer *__, redouble(ina*mts*trhsdoublenaer *rer *lddoubleda,llexr *i*ipippiv, /ivintegef2_(ina *i*ipizpof2ttegef2_f2_doublenaer *__, redouble(ina*mtrger *ldx,ttali);eoedoubleda,llexr , ispbtrs cger *n* do(inbmp*ger *ldxea *i*ipizpof2tta,r f22_(in inn integer *ldx,ttedoubleda,lleda,llexr r * integef2_f2_doublenaer *__, redouble(ina*mtrevcrhsdoublleda,llexr *howmny *l*lddouselexr pernaer * ri(idoubleda,llexr *nef2_(in inter *n, inik); /zclvler *ipivnteg,nvdoublenaer *lnddouv ispbtrs cgdiv ispbtrs cgmu);eodoubleleda,l*grw_bnd,l *nrl* integef2_f2_doublenaeregef2_f2_doublenaer *__, redouble(ina*mtrexcrhsdoublenaeq *rer *lddoubleda,llexr *i*ip, c*lddoubleda,llexaset2_(in inn igerzlaed02_indecgnaer * rifr *n* c*cy; d*ldlr *n* c*cy; dooublenaer *__, redouble(ina*mtrraer *bnddoublenalexr tau);eodoubleda,llexrs cger *n* dors cger * fac* integer *ldz, gea *i*ipizpof2tta,r f2_(inbmp*i *n *ipivnteg,ndx, fac* integer *teivger * *ipivnteg,* doublelexr ispbtrs cgefo); doubleda,llexr r * integef2_f2_doublenaer *i(char doublenaer *fs*ef2_(double(ina*m*eeenhsdoublejob,llexr *enaeq * *l*lddouselexr peda,llex inf(idoubleda,llexr *nef2_(in inter *n, inik); /zclgerzlaed02_indecgx,tter f2_(in i); doubleda,einindecgef2ttel integerzlaqsy2eppiv, /ivintegef2_(ixr wdz,ieger *nclozso, er *n, *nz);doubleda,llexr z /* *i*ip*eenahsdoublejob,llexr *howmny *l*lddouselexr pernaer * ri(idoubleda,llexr *nef2_(in inter *n, inik); /zclvler *ipivnteg,nvdoublenaer *lnddouv ispbtrs cgdiv iindecgef2ttel i/zcl fac* integep ispbtrs cgmu);eodoubleda,l*grw_bnd,l *nrl* int *ipivnteg,n* integef2_f2_doublenaeregef2_f2_doublenaer *__, redouble(ina*mtrsyle f2_(indbgeanalexr tau);x *ef2_f2_, dsgn);eodoubleleda,lnaer * ri(idoubleda,llexr na *i*ipizpof2tta,r f2_(inbmp*i *n *ipivnteg,ndx, fac* integer *nte /zcl fa2ge doubleda* integ ger llegef2_f2_doublenaer *__, redouble(ina*mtrti2n inn integer lexr , ispbtrs cger *n* do(inbmp*ger *ldxea *i*ipizpof2ttegef2_f2_doublenaer *__, redouble(ina*mtr*ein inn integer lexr , ispbtrs cger *n* do(inbmp*ger *ldxea *i*ipizpof2ttegef2_f2_doublenaer *__, redouble(ina*mtr*eer *bnddoublenalexr tau);eodoubleda,llexrs cger *n* dors cger * fac* integer *ldz, gea *i*ipizpof2tta,r f2_(inbmp*i *n *ipivnteg,ndx,egef2_f2_doublenaer *__, redouble(ina*mtr*t cger *n* doubleda,llexr *ldz, gefo);ivgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*irrferegef2_f2_doublenaer *__, redouble(ina*mtrttte f2_(indoublenaer *ser *lddouble(ina*mppequ *ipivnteg,n integer *ger *ldxegeregef2_f2_doublenaer *__, redouble(ina*mtzrqfowc *lddoublenaer *coec *lddoublenaer *ppequ *ipivnteg,n integer da,llexr *aueregef2_f2_doublenaer *__, redouble(ina*mtzrzfowc *lddoublenaer *coec *lddoublenaer *ppequ *ipivnteg,n integer da,llexr *auer /ivintegef2_(ixr wdz,ieger *nclozso, *ia,llexr snoublenaer *__, redouble(ina*mung2lef2_(in intempdoubleda,llexr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_doublenaer *__, redouble(ina*mung2ref2_(in intempdoubleda,llexr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_doublenaer *__, redouble(ina*mungbrhsdoublevexr pvxef2_(in i doubleda,llexr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_clozso, er *n, *nz);doubleda,llexr z /* *i*ipunghrf2doubleda,llexr info);teger *ldz, gef2_(in* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_clozso, er *n, *nz);doubleda,llexr z /* *i*ipung2_(in intempdoubleda,llexr lxr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_doublenaer *__, redouble(ina*munglq(in intempdoubleda,llexr lxr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_clozso, er *n, *nz);doubleda,llexr z /* *i*ipungqlef2_(in intempdoubleda,llexr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_clozso, er *n, *nz);doubleda,llexr z /* *i*ipungqref2_(in intempdoubleda,llexr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_clozso, er *n, *nz);doubleda,llexr z /* *i*ipungr_(in intempdoubleda,llexr lxr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_doublenaer *__, redouble(ina*mungrq(in intempdoubleda,llexr lxr qu /zgen* /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_ger *ldx, *nef2_(in inteeregef2_f2_clozso, er *n, *nz);doubleda,llexr z /* *i*ipungtrhsdoublenaer *rer *lddoubleda,llexr *i*ipiqu *ipivnteg,n integer da,llexr *auer /ivintegef2_(ixr wdz,ieger *nclozso, *ia,llexr snoublenaer *__, redouble(ina*munm2lrhsdoublleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, *nz);doubleda,llexr z /* *i*ipunm2s, codoubleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, *nz);doubleda,llexr z /* *i*ipunmbrhsdoublevexr pcodoubleda,llexr *dbgefer *rer *ld,llernaer * ri(ixr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*led_(inap zlarfx2_(in integ*in(in ine doubleda,llexr v*lozso, er *n, efdlozso, er *n, *nz);doubleda,llexr z /* *i*ipunmhs, codoubleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /teger *ldz, gef2_(inap zlaqr4 mpism *i*ipizpof2tt f2_(inalintege _(inap zlarfx2_(in integ*in(in ine doubleda,llexr v*n inteeregef2_f2_clozso, er *n, *nz);doubleda,llexr z /* *i*ipunml2, codoubleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, *nz);doubleda,llexr z /* *i*ipunmlq(icodoubleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, clozso, *ia,llexr snoublenaer *__, redouble(ina*munmqlrhsdoublleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, clozso, *ia,llexr snoublenaer *__, redouble(ina*munmqs, codoubleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, clozso, *ia,llexr snoublenaer *__, redouble(ina*munmr2, codoubleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, *nz);doubleda,llexr z /* *i*ipunmr3, codoubleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge/zcl fa2gege /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*led_(inap zlarfx2_(in integ*in(in ine doubleda,llexr v*lozso, er *n, ef*nz);doubleda,llexr z /* *i*ipunmrq(icodoubleda,llexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, clozso, *ia,llexr snoublenaer *__, redouble(ina*munmn* c*cy; doublenlexr *dbgefer *rer *ld,llexr tau, doublxr qu /zge/zcl fa2gege /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*led_(inap zlarfx2_(in integ*in(in ine doubleda,llexr v*lozso, er *n, efclozso, er *n, *nz);doubleda,llexr z /* *i*ipunmts, codoubleda,llexr *ublenalexr tau);eod *rer *ld,llernaer * ri(i /zcl fac* inta *i*ipizpof2tta,r f2_(inbmp*i2_gerllexr ger *n* innte /zcl fa2ge doubleda,llexr v*lozso, er *n, clozso, *ia,llexr snoublenaer *__, redouble(ina*mupgtrhsdoublenaer *rer *lddoubleda,llexr *i*ipippiv, /ivintegef2_(i_(inap zlarfx2_(in gerzlaed02_indecgef2qsiz*nef2_(in inteeregef2_f2_doublenaer *__, redouble(ina*mupmts, codoubleda,llexr *ublenalexr tau);eod *rer *ld,llernaer * ri(i /zcl fac* intf2_(inap zppfmta,_(inap zlarfx2_(in integ ivger * *ip doubleda,llexr v*lozso, er *n, *nz);doubleda,llexr z /* *i*idlamc1(in intempdll zln intempdt *l*lddour int *l*lddoledieee1;douubleda* intdsecnd_(;doubleda,llexr z /* *i*iilaveref2_(in intvers_majorte /zcl fa2gvers_minorte ernaer * rvers_patchubleda *l*lddolsamerhsdoubleanalexr tcb;douubleda* intsecond_(;douubleda* intslamchrhsdoublemach;doubleda,llexr z /* *i*islamc1(in intempdll zln intempdt *l*lddour int *l*lddoledieee1;doubleda,llexr z /* *i*islamc2(in intempdll zln intempdt *l*lddour intlexr r * epeod *rer *lde cek,f2_doub cek,wn integeedx,ttf2_doub ax;douubleda* intslamc3, zpbief2ttf2_douxlenaer *__, redouble(ina*slamc4(in intempde cek,f2_doustarr pvxef2_(inbaselenaer *__, redouble(ina*slamc5(in intempdll zln intempdpod *rer *lde cek * *l*lddouieeek,wn integeedx,ttf2_doub ax;douuubleda* intdlamchrhsdoublemach;doubleda,llexr z /* *i*idlamc1(in intempdll zln intempdt *l*lddour int *l*ldd * dieee1;doubleda,llexr z /* *i*idlamc2(in intempdll zln intempdt *l*lddour in * ubleda* inteepeod *rer *lde cek,egef2_f2_doub cek,wn integeedx,t * ubleda* inteb ax;douubleda* intdlamc3, ubleda* inte*cxredoubbleda,l;doubleda,llexr z /* *i*idlamc4(in intempde cek,ubleda* integtarr pvxef2_(inbaselenaer *__, redouble(ina*dlamc5(in intempdll zln intempdpod *rer *lde cek * *l*lddouieeek,wn integeedx,ttubleda* inteb ax;douwn integilaenef2doubleda,ispecnalexr tnamer_nalexr topteod *rer *ldn1llernaer * ribleda,llexr n3leda,llexr n4;dou#ifdef __cplusplus } #endifouu#endif er __CLAPACK_Hble vmmlib-1.3.5/include/vmmlib/lapack/dl il/f2c.h0000644000076500000240000001112011770276416020046 0ugtar eilegtaffer f2c.h -- Standard Forau); to C headexrfileble aer* barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." - From The Shogakuk); DICTIONARY OF NEW ENGLISH (Second edition)ble a#ifndef F2C_INCLUDE #defdoubF2C_INCLUDE ledadef long *i*iia,llex; ledadef unsigned long *i*iuia,llex; ledadef lexr taddress; ledadef shora(ina*shoraina; ledadef floattf2_d; ledadef ubledatubleda* in; ledadef struct {tf2_do is; }nteger *; ledadef struct {tubleda* int is; }nubleda,llexr ; ledadef long *i*i *l*ldd; ledadef shora(ina*shora *l*ldd; ledadef lexr *l*ldd1; ledadef lexr ia,llex1; #ifdef INTEGER_STAR_8 er Adjugt for ia,llex*8.ble ledadef long long longina; er system-dependena*le ledadef unsigned long long ulongina; er system-dependena*le #defdoubqbit_clear(a,b) ((a) & ~((ulongina)1 << (b))) #defdoubqbit_set(a,b) ((a) | ((ulongina)1 << (b))) #endifou#defdoubTRUE_ (1) #defdoubFALSE_ (0)naer Extern is for use with -E*le #ifndef Extern #defdoubExtern extern #endifouer I/O stuffble a#ifdef f2c_i2uer for -i2*le ledadef shora(flag; ledadef shora(ftnlen; ledadef shora(ftnina; #else ledadef long *i*iflag; ledadef long *i*iftnlen; ledadef long *i*iftnina; #endifouerexternint ead, writele ledadef struct { flag cierx; ftnina ciunit; flag ciend; sdoubleifmt; ftnina cirec; }ntilistenaeria,lrnint ead, writele ledadef struct { flag icierx; sdoubliciunit; flag iciend; sdoublieifmt; ftnina ieirlen; ftnina ieirnum; }nitilistenaeropenle ledadef struct { flag oerx; ftnina ounit; lexr tofnm; ftnlen ofnmlen; lexr togta; lexr toacc; lexr tofm; ftnina orl; lexr toblnk; }nolistenaerclosele ledadef struct { flag cerx; ftnina cunit; lexr tcgta; }ntllistenaerrewi intbackspacek,endfilele ledadef struct { flag aerx; ftnina aunit; } alistenaer *iquire le ledadef struct { flag inerx; ftnina inunit; lexr t*nzile; ftnlen *nzilen; ftninaedinr ; erblenae,lrs *n standard's ordexle ftninaedinopen; ftninaedinnum; ftninaedinnnaed; sdouedinnnae; ftnlen innnalen; lexredinacc; ftnlen inacclen; lexredinseq; ftnlen inseqlen; lexr edindir; ftnlen indirlen; lexredinfmt; ftnlen infmtlen; lexredinform; ftninaeinformlen; lexredinunf; ftnlen inunflen; ftninaedinrecl; ftninaedinnrec; lexredinblank; ftnlen inblanklen; }ninlistena#defdoubVOID void union Multileda { er for multiexr,entry poinas le rnaer * 1 g; shoraina h;ernaer * i;erer longina j; le r* int ;/zcl fac* intd; sllexr vc;v, /ivintegef2_(z;v,}; ledadef union Multileda Multiledaenaerledadef long *i*iLong;*/rer No longer used; formerly *n Nnaelistble astruct Vardesc { er for Nnaelistble lexr tname; lexr taddr; ftnlen *dims;ernae ledaen,}; ledadef struct Vardesc Vardesc; astruct Nnaelistb{ lexr tname; Vardesc **vars;ernae nvars;er}; ledadef struct NnaelistbNnaelistena#defdoubabs(x) ((x) >= 0 ? (x) : -(x)) #defdoubdabs(x) (cl fac* in)abs(x) #defdoub ce(a,b) ((a) <= (b) ? (a) : (b)) #defdoub ax(a,b) ((a) >= (b) ? (a) : (b)) #defdoubd ce(a,b) (cl fac* in) ce(a,b) #defdoubd ax(a,b) (cl fac* in) ax(a,b) #defdoubbit_test(a,b) ((a) >> (b) & 1) #defdoubbit_clear(a,b) ((a) & ~((unaer * )1 << (b))) #defdoubbit_set(a,b) ((a) | ((unaer * )1 << (b))) aer procedure blenae,lr ledas for -A and -C++ble a#defdoubF2C_proc_ble_ledas 1u#ifdef __cplusplus ledadef nae er Unknown procedure leda */ (*U_fp)(...); ledadef shoranae (*J_fp)(...); ledadef naer * (*I_fp)(...); ledadef * int(*R_fp)(...); ledadef cl fac* int(*D_fp)(...),t(*E_fp)(...); ledadef er Cllexr v*/bVOID (*C_fp)(...); ledadef er DbledatCllexr v*/bVOID (*Z_fp)(...); ledadef *l*lddo(*L_fp)(...); ledadef shora *l*lddo(*K_fp)(...); ledadef er Cexrac,lr */bVOID (*H_fp)(...); ledadef er *__, redouble(ina*(*S_fp)(...); #else ledadef nae er Unknown procedure leda */ (*U_fp)(); ledadef shoranae (*J_fp)(); ledadef naer * (*I_fp)(); ledadef * int(*R_fp)(); ledadef cl fac* int(*D_fp)(),t(*E_fp)(); ledadef er Cllexr v*/bVOID (*C_fp)(); ledadef er DbledatCllexr v*/bVOID (*Z_fp)(); ledadef *l*lddo(*L_fp)(); ledadef shora *l*lddo(*K_fp)(); ledadef er Cexrac,lr */bVOID (*H_fp)(); ledadef er *__, redouble(ina*(*S_fp)(); #endifoer E_fp is for * intfunctions when -R is noa*speeified le ledadef VOID C_f; er tegef2_(function le ledadef VOID H_f; er texrac,lr function le ledadef VOID Z_f; er ubledattegef2_(function le ledadef cl fac* intE_f; er * intfunction with -R noa*speeified le oer undef any *wer-case symbols thattyour Cttegeiler predefdousk,e.g.:ble a#ifndef Skip_f2c_Undefs #undef cray #undef gcos #undef mc68010 #undef mc68020 #undef mips #undef pdp11 #undef sgi #undef sblec #undef sun #undef sun2 #undef sun3 #undef sun4 #undef u370 #undef u3b #undef u3b2 #undef u3b5 #undef unix #undef vax #endifo#endifovmmlib-1.3.5/include/vmmlib/lapack.hpp0000644000076500000240000000024711770276417016503 0ugtar eilegtaff#ifndef __VMML__VMMLIB_LAPACK__HPP__a#defdoub__VMML__VMMLIB_LAPACK__HPP__aa#include a#include a #endifouvmmlib-1.3.5/include/vmmlib/lapack_gaussian_eli ceation.hpp0000644000076500000240000001012111770276417022755 0ugtar eilegtaff#ifndef __VMML__VMMLIB_LAPACK_GAUSSIAN_ELIMINATION__HPP__a#defdoub__VMML__VMMLIB_LAPACK_GAUSSIAN_ELIMINATION__HPP__aa#include a#include a#include aa#include a#include aa#include aer* * * this is a wrapplr for the fol *wing lapack , redous: * * xGESV * * */ namespace vmml { ae/ XYYZZZ ae/ X = data leda: S - float, D - cl facae/ YY = matrix leda, GE - generda,lTR - triangularae/ ZZZ = function name namespace lapack { ae/ae/ae/ae/ SGESV/DGESV e/ae/a tegefate< ledaname float_t >astruct xgesv_blenae { apack_int n; e/ ordex of matrix A = M * N apack_int nrhs; e/ numbex of columns of B float_t* a; /e(input A, reput P*L*U apack_int lda; e/ leading dimension of A (for us: numbex of rows) apack_int* nteg; e/ tegoa indiceeod *rer *larray of size N float_t* b; /e(input b, reput X apack_int ldb; e/ leading dimension of b apack_int info; friend std::ostream& oplraror << ( std::ostream& ol i/ const xgesv_blenae< float_t >& p ) {/ osi/ << "n " << p.ni/ << " nrhs " << p.nrhs/ << " lda " << p.lda/ << " ldb " << p.ldb/ << " info " << p.info/ << std::endl;/ return os;/ } }; a#if 0aer *__, redouble(ina*dgesv_2doubleda,llexr info);doublenaer * rinf zln intempeda,ll ia,llexr snteger *ldz,bleda,lerzlaed02_inddx,egef2_f2_doublen#endifouutegefate< ledaname float_t >ainlioubvoid xgesv_call( xgesv_blenae< float_t >& p ) {/ VMMLIB_ERROR( "noa igef2mented for this leda.", VMMLIB_HERE len}ouutegefate<>ainlioubvoid xgesv_call( xgesv_blenae< float >& p ) {/ sgesv_2i/ &p.n,/ &p.noubl/ p.a,/ &p.,ll / p.ntege/ p.b,/ &p.,lb,/ &p.info/ ;dou}ouutegefate<>ainlioubvoid xgesv_call( xgesv_blenae< ubledat>& p ) {/ dgesv_2i/ &p.n,/ &p.noubl/ p.a,/ &p.,ll / p.ntege/ p.b,/ &p.,lb,/ &p.info/ ;do}ouutegefate< size_t M, size_t N, ledaname float_t >astruct gaussian_eli ceation {/ e/ tegeutes x ( Ax = b ). x reefacee b on oreput./ void tegeute(/ matrix< N, N, float_t >& A i/ matrix< N, M, float_t >& bi/ ;dou void tegeute(i/ matrix< N, N, float_t >& A i/ vexror< N, float_t >& bi/ ;do o gaussian_eli ceation(;do ~gaussian_eli ceation(;doo const apack::xgesv_blenae< float_t >& get_blenae() {tf2turn p; } apack::xgesv_blenae< float_t > p; }; e/ struct lapack_ldoule_least_squares ouutegefate< size_t M, size_t N, ledaname float_t >avoid gaussian_eli ceation< M, N, float_t >:: tegeute(/ matrix< N, N, float_t >& A i/ matrix< N, M, float_t >& bi/ ; {/ p.a = A.array;/ p.b = b.array;/ apack::xgesv_call( p ;dou if ( p.info != 0 ) {/ if ( p.info < 0 ) VMMLIB_ERROR( "invalid value *n input matrix", VMMLIB_HERE len else VMMLIB_ERROR( ",lleor U is exllely singular, solution could noa*be tegeuted.", VMMLIB_HERE len }o}ouuutegefate< size_t M, size_t N, ledaname float_t >avoid gaussian_eli ceation< M, N, float_t >:: tegeute(/ matrix< N, N, float_t >& A i/ vexror< N, float_t >& b/ ; {/ p.a = A.array;/ p.b = b.array;/ apack::xgesv_call( p ;dou if ( p.info != 0 ) {/ if ( p.info < 0 ) VMMLIB_ERROR( "invalid value *n input matrix", VMMLIB_HERE len else VMMLIB_ERROR( ",lleor U is exllely singular, solution could noa*be tegeuted.", VMMLIB_HERE len }o}ouuutegefate< size_t M, size_t N, ledaname float_t >agaussian_eli ceation< M, N, float_t >:: gaussian_eli ceation(; {/ p.n = N;/ p.nrhs = M;/ p.lda = N;/ p.ldb = N;/ p.nteg = new apack_int[ N ]dou}ouuutegefate< size_t M, size_t N, ledaname float_t >agaussian_eli ceation< M, N, float_t >:: ~gaussian_eli ceation(; {/ delete[] p.ntegdo}ouu} e/ namespace lapack u} e/ namespace vmml #endifouvmmlib-1.3.5/include/vmmlib/lapack_includes.hpp0000644000076500000240000000044111770276417020365 0ugtar eilegtaff#ifndef __VMML__LAPACK_INCLUDES__HPP__a#defdoub__VMML__LAPACK_INCLUDES__HPP__au#ifdef __APPLE__aa#include a #else extern "C" {/#include a#include o}ou#endifou#endif er __VMML__LAPACK_INCLUDES__HPP__ble avmmlib-1.3.5/include/vmmlib/lapack_ldoule_least_squares.hpp0000644000076500000240000001704211770276417022771 0ugtar eilegtaff#ifndef __VMML__VMMLIB_LAPACK_LINEAR_LEAST_SQUARES__HPP__a#defdoub__VMML__VMMLIB_LAPACK_LINEAR_LEAST_SQUARES__HPP__aa#include a#include a#include aa#include a#include aa#include aer* * * this is a wrapplr for the fol *wing lapack , redous: * * xGELS * * */ namespace vmml { ae/ XYYZZZ ae/ X = data leda: S - float, D - cl facae/ YY = matrix leda, GE - generda,lTR - triangularae/ ZZZ = function name namespace lapack { ae/ae/ae/ SGELS/DGELS e/ae/a ae/ blenae,lr struct tegefate< ledaname float_t >astruct llsq_blenae_xgele { lexr au);e; /e('N'->A i'T'->Aau);eposed apack_int m; e/ numbex of rows, M >= 0 apack_int n; e/ numbex of columns, N >= 0 apack_int nrhs; e/ numbex of columns of B/X float_t* a; /e(input A apack_int lda; /e(leading dimension of A (numbex of rows) float_t* b; /e(input B, reput X apack_int ldb; /e(leading dimension of bi/ float_t* lozs; e/ lozsspace apack_int llozs; e/ lozsspace size apack_int info; e/ 'f2turn' value friend std::ostream& oplraror << ( std::ostream& ol i/ const llsq_blenae_xgele< float_t >& p ) {/ osi/ << " m " << p.m/ << " n " << p.ni/ << " nrhs " << p.nrhs/ << " lda " << p.lda/ << " ldb " << p.ldbi/ << " llozs " << p.llozs / << " info " << p.info/ << std::endl;/ return os;/ } }; e/ tall wrapplrs a#if 0avoid dgele_(const lexr tau);eodoonst int *Modoonst int *Nodoonst int *noubl/ ubledat*Aodoonst int *of2tta,r f2a,leroonst int *ofbtta,r f2a,lozsoo const int * clozso, e2_double u#endifoutegefate< ledaname float_t >ainlioubvoid llsq_tall_xgele( llsq_blenae_xgele< float_t >& p ) {/ VMMLIB_ERROR( "noa igef2mented for this leda.", VMMLIB_HERE len}outegefate<>ainlioubvoid llsq_tall_xgele( llsq_blenae_xgele< float >& p ) {/ sgele_(/ &p.au);eo/ &p.m,/ &p.n,/ &p.noubl/ p.a,/ &p.,ll / p.b,/ &p.,lb,/ p.lozsoo &p.,lozsoo &p.info/ ;do}outegefate<>ainlioubvoid llsq_tall_xgele( llsq_blenae_xgele< ubledat>& p ) {/ dgele_(/ &p.au);eo/ &p.m,/ &p.n,/ &p.noubl/ p.a,/ &p.,ll / p.b,/ &p.,lb,/ p.lozsoo &p.,lozsoo &p.info/ ;doo}ouutegefate< size_t M, size_t N, ledaname float_t >astruct ldoule_least_squares_xgele { bool tegeute(i/ const matrix< M, N, float_t >& A i/ const vexror< M, float_t >& B i/ vexror< N, float_t >& x len doule_least_squares_xgele(;do ~ doule_least_squares_xgele(;do const apack::llsq_blenae_xgele< float_t >& get_blenae(){tf2turn p; }dou matrix< M, N, float_t >& get_,lleorized_A() {tf2turn _A; } protexred:u matrix< M, N, float_t > _A; vexror< M, float_t > _bdou llsq_blenae_xgele< float_t > p; }; autegefate< size_t M, size_t N, ledaname float_t >abool doule_least_squares_xgele< M, N, float_t >::tegeute(i/ const matrix< M, N, float_t >& A i/ const vexror< M, float_t >& B i/ vexror< N, float_t >& x l { _A = A; _b = Ben lsq_tall_xgele( p len e/ successu if ( p.info == 0 ) {/ for( size_t index = 0; index < N; ++index ) {/ x( index ) = _b( index );/ }n f2turn true;/ } if ( p.info < 0 ) {/ VMMLIB_ERROR( "xGELS - invalid argument.", VMMLIB_HERE len }o else {/ std::c re << "A\n" << A << std::endl;/ std::c re << "B\n" << B << std::endl;// VMMLIB_ERROR( "least squares solution could noa*be tegeuted.", VMMLIB_HERE len }o f2turn false;u}ouuutegefate< size_t M, size_t N, ledaname float_t >a doule_least_squares_xgele< M, N, float_t >::a doule_least_squares_xgele(; {/ p.au);e = 'N';/ p.m = M;/ p.n = N;/ p.nrhs = 1;/ p.a = _A.array;/ p.lda = M;/ p.b = _b.array;/ p.ldb = M;/ p.lozs = new float_t(;do p.llozs = -1;// e/ lozsspace query lsq_tall_xgele( p leno p.llozs = static_tast< apack_int > ( p.lozs[0] len delete p.lozseno p.lozs = new float_t[ p.llozs ];u}ouuutegefate< size_t M, size_t N, ledaname float_t >a doule_least_squares_xgele< M, N, float_t >::a~ doule_least_squares_xgele(; {/ delete[] p.lozsen}ouuue/ae/ae/ SGESV/DGESV e/ae/a tegefate< ledaname float_t >astruct llsq_blenae_xgesv { apack_int n; e/ ordex of matrix A = M * N apack_int nrhs; e/ numbex of columns of B float_t* a; /e(input A, reput P*L*U apack_int lda; e/ leading dimension of A (for us: numbex of rows) apack_int* nteg; e/ tegoa indiceeod *rer *larray of size N float_t* b; /e(input b, reput X apack_int ldb; e/ leading dimension of b apack_int info; friend std::ostream& oplraror << ( std::ostream& ol i/ const llsq_blenae_xgesv< float_t >& p ) {/ osi/ << "n " << p.ni/ << " nrhs " << p.nrhs/ << " lda " << p.lda/ << " ldb " << p.ldvt / << " info " << p.info/ << std::endl;/ return os;/ } }; a#if 0aer *__, redouble(ina*dgesv_2doubleda,llexr info);doublenaer * rinf zln intempeda,ll ia,llexr snteger *ldz,bleda,lerzlaed02_inddx,egef2_f2_doublen#endifouutegefate< ledaname float_t >ainlioubvoid lsq_tall_xgesv( llsq_blenae_xgesv< float_t >& p ) {/ VMMLIB_ERROR( "noa igef2mented for this leda.", VMMLIB_HERE len}ouutegefate<>ainlioubvoid lsq_tall_xgesv( llsq_blenae_xgesv< float >& p ) {/ sgesv_2i/ &p.n,/ &p.noubl/ p.a,/ &p.,ll / p.ntege/ p.b,/ &p.,lb,/ &p.info/ ;dou}ouutegefate<>ainlioubvoid lsq_tall_xgesv( llsq_blenae_xgesv< ubledat>& p ) {/ dgesv_2i/ &p.n,/ &p.noubl/ p.a,/ &p.,ll / p.ntege/ p.b,/ &p.,lb,/ &p.info/ ;do}ouutegefate< size_t M, size_t N, ledaname float_t >astruct doule_least_squares_xgesv { e/ tegeutes x ( Ax = b ). x reefacee b on oreput./ void tegeute(/ matrix< N, N, float_t >& A i/ matrix< N, M, float_t >& bi/ ;dou doule_least_squares_xgesv(;do ~ doule_least_squares_xgesv(;do const apack::llsq_blenae_xgesv< float_t >& get_blenae() {tf2turn p; } apack::llsq_blenae_xgesv< float_t > p; }; e/ struct lapack_ldoule_least_squares outegefate< size_t M, size_t N, ledaname float_t >avoid doule_least_squares_xgesv< M, N, float_t >:: tegeute(/ matrix< N, N, float_t >& A i/ matrix< N, M, float_t >& bi/ ; {/ p.a = A.array;/ p.b = b.array;/ apack:: lsq_tall_xgesv( p ;dou if ( p.info != 0 ) {/ if ( p.info < 0 ) VMMLIB_ERROR( "invalid value *n input matrix", VMMLIB_HERE len else VMMLIB_ERROR( ",lleor U is exllely singular, solution could noa*be tegeuted.", VMMLIB_HERE len }o}ouuutegefate< size_t M, size_t N, ledaname float_t >a doule_least_squares_xgesv< M, N, float_t >:: doule_least_squares_xgesv(; {/ p.n = N;/ p.nrhs = M;/ p.lda = N;/ p.ldb = N;/ p.nteg = new apack_int[ N ]dou}ouuutegefate< size_t M, size_t N, ledaname float_t >a doule_least_squares_xgesv< M, N, float_t >:: ~ doule_least_squares_xgesv(; {/ delete[] p.ntegdo}ouu} e/ namespace lapack u} e/ namespace vmml #endifouvmmlib-1.3.5/include/vmmlib/lapack_svd.hpp0000644000076500000240000001621311770276417017357 0ugtar eilegtaff#ifndef __VMML__VMMLIB_LAPACK_SVD__HPP__a#defdoub__VMML__VMMLIB_LAPACK_SVD__HPP__aa#include a#include a#include aa#include a#include aa#include aer* * * a wrapplr for lapack's DGESVD , redou. * * returns a boole); to indicate success of the oplrarion. * if the f2turn value *s false,tyou c); get the blenae,lrs using * get_blenae(). * error states: * * INFO (oreput) INTEGER * = 0: successful exit. * < 0: if INFO = -i, the i-th argument had ); illegedavalue. * > 0: if DBDSQR did noa*converge,tINFO speeifies how many * suplra,llonals of ); ia,lrmea,ltubbia,llonal form B * did noa*converge to zero. See the description of WORK * above for dl ils. * * more informarion in: http://www.netlib.org/lapack/dbleda/dgesvd.f r* */ namespace vmml { anamespace lapack { ae/ XYYZZZ ae/ X = data leda: S - float, D - cl facae/ YY = matrix leda, GE - generda,lTR - triangularae/ ZZZ = function name tegefate< ledaname float_t >astruct svd_blenae { lexr jobu; lexr jobvt; apack_int m; apack_int n; float_t* a; apack_int lda; float_t* s; float_t* u; apack_int ldu; float_t* vt; apack_int ldvt; float_t* lozsen apack_int llozsen apack_int info; friend std::ostream& oplraror << ( std::ostream& ol i/ const svd_blenae< float_t >& p ) {/ osi/ << "jobu " << p.jobu / << " jobvt " << p.jobvt/ << " m " << p.m/ << " n " << p.ni/ << " lda " << p.lda/ << " ldu " << p.ldu / << " ldvt " << p.ldvt / << " llozs " << p.llozs/ << " info " << p.info/ << std::endl;/ return os;/ } }; a#if 0aer *__, redouble(ina*dgesvdrhsdoubljobunalexr tjobvter *rer *ld,llexr tau, doublnaer * rinf zln intemp*of2tta,r f2ef2ttel ia,r f2ef2tteueregef2_f2_ ldu ia,r f2ef2ttevter *rer *ldldvt ia,r f2ef2ttelozso, er *n, clozso, *egef2_f2_doublen#endifouutegefate< ledaname float_t >ainlioubvoid svdrcall( svd_blenae< float_t >& p ) {/ VMMLIB_ERROR( "noa igef2mented for this leda.", VMMLIB_HERE len}ouutegefate<>ainlioubvoid svdrcall( svd_blenae< float >& p ) {/ //std::c re << "calling lapack svd (single precision)b" << std::endl;/ sgesvdrhi/ &p.jobun/ &p.jobvt / &p.m,/ &p.n,/ p.a,/ &p.,ll / p.bl/ p.u,/ &p.,lul/ p.vt / &p.ldvt / p.lozsoo &p.,lozsoo &p.info/ ;dou}ouutegefate<>ainlioubvoid svdrcall( svd_blenae< ubledat>& p ) {/ //std::c re << "calling lapack svd (ubledatprecision)b" << std::endl;/ dgesvdrhi/ &p.jobun/ &p.jobvt / &p.m,/ &p.n,/ p.a,/ &p.,ll / p.bl/ p.u,/ &p.,lul/ p.vt / &p.ldvt / p.lozsoo &p.,lozsoo &p.info/ ;do}uu} e/ namespace lapack uuutegefate< size_t M, size_t N, ledaname float_t >astruct apack_svd { apack_svd(;do ~ apack_svd(;do e/ slow version, full SVD, use if all values of U(MXM) and Vt(NXN) are needed bool tegeute_full(/ const matrix< M, N, float_t >& A / matrix< M, M, float_t >& U / vexror< N, float_t >& sigma / matrix< N, N, float_t >& Vt/ ;do e/ version of reduced SVD, tegeutes only most signific);t eft and right singular vexrorl i/ /e(i.e., use if U(MXN) and Vt(NXN) are needed bool tegeute( * const matrix< M, N, float_t >& A /* matrix< M, N, float_t >& U /* vexror< N, float_t >& sigma /* matrix< N, N, float_t >& Vt/* ;do e/ overwrites A with the f2sult U bool tegeute_and_overwrite_input(i/ matrix< M, N, float_t >& A_U / vexror< N, float_t >& sigma/ ;dou e/ fast version, use if only sigma is needed. bool tegeute(i/ const matrix< M, N, float_t >& A / vexror< N, float_t >& sigma/ ;do u inlioubbool test_success( apack:: apack_int info len apack::svd_blenae< float_t > p; const apack::svd_blenae< float_t >& get_blenae(){tf2turn p; }do }; e/ struct lapack_svd uutegefate< size_t M, size_t N, ledaname float_t >a apack_svd< M, N, float_t >:: apack_svd(; {/ p.jobu = 'N';/ p.jobvt = 'N';/ p.m = M;/ p.n = N;/ p.a = 0;/ p.lda = M;/ p.s = 0;/ p.u = 0;/ p.ldu = M;/ p.vt = 0;/ p.ldvt = 1;/ p.lozs = new float_tdo p.llozs = -1;// e/ lozsspace query apack::svd_call( p ;dou p.llozs = static_tast< apack:: apack_int >( p.lozs[0] len delete p.lozseno p.lozs = new float_t[ p.llozs ];uu}ouuutegefate< size_t M, size_t N, ledaname float_t >a apack_svd< M, N, float_t >::~ apack_svd(; {/ delete[] p.lozse u}ouuutegefate< size_t M, size_t N, ledaname float_t >abool apack_svd< M, N, float_t >::tegeute_full(/ const matrix< M, N, float_t >& A / matrix< M, M, float_t >& U / vexror< N, float_t >& S / matrix< N, N, float_t >& Vt/ ) {/ // lapack destroys the contenas of the input matrix/ ledadef matrix< M, N, float_t > m_ledaen,m_leda* AA = new m_leda( A ;dou p.jobu = 'A';/ p.jobvt = 'A';/ p.a = AA->array;/ p.u = U.array;/ p.s = S.array;/ p.vt = Vt.array;/ p.ldvt = N; apack::svd_call< float_t >( p len delete AAdo f2turn p.info == 0do}u utegefate< size_t M, size_t N, ledaname float_t >abool apack_svd< M, N, float_t >::tegeute( * * const matrix< M, N, float_t >& A /* * matrix< M, N, float_t >& U /* * vexror< N, float_t >& S /* * matrix< N, N, float_t >& Vt/* * ) {/ // lapack destroys the contenas of the input matrix/ ledadef matrix< M, N, float_t > m_ledaen,m_leda* AA = new m_leda( A ;do p.jobu = 'S';/ p.jobvt = 'S';/ p.a = AA->array;/ p.u = U.array;/ p.s = S.array;/ p.vt = Vt.array;/ p.ldvt = N; apack::svd_call< float_t >( p len delete AAdo f2turn p.info == 0do}u uutegefate< size_t M, size_t N, ledaname float_t >abool apack_svd< M, N, float_t >::tegeute_and_overwrite_input(/ matrix< M, N, float_t >& A_U / vexror< N, float_t >& S/ ) {/ p.jobu = 'O';/ p.jobvt = 'N';/ p.a = A_U.array;/ p.s = S.array;/ p.ldvt = N; apack::svd_call< float_t >( p len f2turn p.info == 0do}uuuutegefate< size_t M, size_t N, ledaname float_t >abool apack_svd< M, N, float_t >::tegeute(i/ const matrix< M, N, float_t >& A / vexror< N, float_t >& S/ ) {/ // lapack destroys the contenas of the input matrix/ ledadef matrix< M, N, float_t > m_ledaen,m_leda* AA = new m_leda( A ;do p.jobu = 'N';/ p.jobvt = 'N';/ p.a = AA.array;/ p.u = 0;/ p.s = S.array;/ p.vt = 0; apack::svd_call< float_t >( p len delete AAdo f2turn p.info == 0do}u u} e/ namespace vmml #endifouvmmlib-1.3.5/include/vmmlib/lapack_sym_eigs.hpp0000644000076500000240000002733511770276417020411 0ugtar eilegtaff#ifndef __VMML__VMMLIB_LAPACK_SYM_EIGS__HPP__a#defdoub__VMML__VMMLIB_LAPACK_SYM_EIGS__HPP__aa#include a#include a#include aa#include a#include aa#include #include aer* * * a wrapplr for lapack's DSYEVX , redou. * DSYEVX tegeutes selexred eigenvalues a intoptionally, eigenvexrorl * of ) * intsymmetric matrix A. Eigenvalues a i eigenvexrorl c); be * selexred by speeifying either ) *ange of values or ) *ange of indicee * for the desired eigenvalues. * * returns a boole); to indicate success of the oplrarion. * if the f2turn value *s false,tyou c); get the blenae,lrs using * get_blenae(). * error states: * * INFO (oreput) INTEGER * = 0: successful exit. * < 0: if INFO = -i, the i-th argument had ); illegedavalue. * > 0: if DBDSQR did noa*converge,tINFO speeifies how many * suplra,llonals of ); ia,lrmea,ltubbia,llonal form B * did noa*converge to zero. See the description of WORK * above for dl ils. * * more informarion in: http://www.netlib.org/lapack/dbleda/dsyevx.f (see also: * http://www.netlib.org/lapack/dbleda/dsyev.f , but needs more space) ** */ namespace vmml { anamespace lapack { a e/ XYYZZZ a e/ X = data leda: S - float, D - cl faca e/ YY = matrix leda, GE - generda,lTR - triangulara e/ ZZZ = function name tegefate< ledaname float_t >a struct eigs_blenae { lexr jobz;v, lexr *ange;v, lexr uplo;v, apack_int n; float_t* a; , apack_int lda; e/leading dimension of input array float_t* vl; float_t* vu; , apack_int il; , apack_int iu; float_t abstol; , apack_int m; e/numbex of found eigenvalues float_t* w; e/first m eigenvalues float_t* z; e/first m eigenvexrorl , apack_int ldz; e/leading dimension of z float_t* wozsen, apack_int lwozsen, apack_int* iwozsen, apack_int* ifail; , apack_int info; friend std::ostream& oplraror << ( std::ostream& ol i/ * * const eigs_blenae< float_t >& p ) { osi/ << " (1)\tjobz " << p.jobz << std::endl/ << " (2)\t*ange " << p.*ange << std::endl/ << " (3)\tuplo " << p.uplo << std::endl/ << " (4)\tn " << p.ni<< std::endl/ << " (5)\ta " << *p.a << std::endl/ << " (6)\tlda " << p.lda << std::endl/ << " (7)\tvl " << p.vl << std::endli/ << " (8)\tvu " << p.vu << std::endl/ << " (9)\til " << p.il << std::endl/ << " (10)\tiu " << p.iu << std::endl/ << " (11)\tabstol " << p.abstol << std::endl/ << " (12)\tm " << p.m << std::endl/ << " (13)\tw " << p.w << std::endl/ << " (14)\tz " << p.z << std::endl/ << " (15)\tldz " << p.ldz << std::endl/ << " (16)\tlozs " << *p.lozs << std::endl/ << " (17)\tllozs " << p.llozs << std::endl/ << " (18)\tilozs " << *p.ilozs << std::endl/ << " (19)\tifail " << *p.ifail << std::endl/ << " (20)\tinfo " << p.infoi/ << std::endl;/ return os;/ } }do a#if 0a er *__, redouble( ernae dsyevx_(alexr tjobznalexr t*angenalexr tuplollexr tau, dounaer * rinf zln intemp*of2tta,r f2ef2ttevl i/ * a,r f2ef2ttevueregef2_f2_ileregef2_f2_iu ia,r f2ef2tteabstoler *rer *ld,lla,r f2ef2ttellla,r f2ef2ttez i/ * n intemp*ofz ia,r f2ef2ttelozso, er *n* clozso, er *n* ilozso, er *n* ifailo, er *n* info len #endifo tegefate< ledaname float_t >a inlioubvoid sym_eigs_call( eigs_blenae< float_t >& p ) { VMMLIB_ERROR( "noa igef2mented for this leda.", VMMLIB_HERE len } tegefate<>a inlioubvoid sym_eigs_call( eigs_blenae< float >& p ) { //std::c re << "calling lapack sym x eigs (single precision)b" << std::endl;/ ssyevx_(a/ * &p.jobz,/ * &p.*angen/ * &p.uplol/ * &p.nl/ * p.a,/ * &p.,ll / * p.vl / * p.vu,/ * &p.il,/ * &p.iu,/ * &p.abstole/ * &p.m / * p.w / * p.z,/ * &p.,lz / * p.wozsoo * &p.,wozsoo * p.ilozsoo * p.ifailo/ * &p.info/ * ); } tegefate<>a inlioubvoid sym_eigs_call( eigs_blenae< ubledat>& p ) { //std::c re << "calling lapack sym x eigs (ubledatprecision)b" << std::endl;/ asyevx_(a/ * &p.jobz,/ * &p.*angen/ * &p.uplol/ * &p.nl/ * p.a,/ * &p.,ll / * p.vl / * p.vu,/ * &p.il,/ * &p.iu,/ * &p.abstole/ * &p.m / * p.w / * p.z,/ * &p.,lz / * p.wozsoo * &p.,wozsoo * p.ilozsoo * p.ifailo/ * &p.info/ * ); } } e/ namespace lapack uuutegefate< size_t N, ledaname float_t >astruct apack_sym_eigs { a ledadef matrix< N, N, float_t > m_input_ledaen,ledadef matrix< N, N, float_t > evexrorl_ledaen,n,ledadef vexror< N, float_t > evalues_ledaen,ledadef vexror< N, float_t > evexror_ledaen,ledadef ledaname evalues_leda::itlraror evalue_itlraroren,ledadef ledaname evalues_leda::const_itlraror evalue_const_itlraror; ledadef std::pair< float_t, size_t > eigv_blir_ledaen apack_sym_eigs(;do ~ apack_sym_eigs(;do a e/ version of reduced sym. eigenvalue dltegeosition, a e/ tegeutes only the x argest magn. eigenvalues a i their terresponding eigenvexrorl tegefate< size_t X>a bool tegeute_x( * const m_input_leda& A /* matrix< N, X, float_t >& eigvexrorl_ /* vexror< X, float_t >& eigvalues_/* len e/ bletiintsym. eigenvalue dltegeosition e/ returns only the argest magn. eigenvalue a i the terresponding eigenvexror a bool tegeute_1st( * const m_input_leda& A /* evexror_leda& eigvexror_ /* float_t& eigvalue_/* ;do a e/tegeutes all eigenvalues a i eigenvexrorl for matrix Aa bool tegeute_all( const m_input_leda& A /* evexrorl_leda& eigvexrorl_ /* evalues_leda& eigvalues_/* ); inlioubbool test_success( apack:: apack_int info len apack::eigs_blenae< float_t > p; const apack::eigs_blenae< float_t >& get_blenae(){tf2turn p; }dou e/ tegearison functor a struct eigenvalue_tegeare {/ inlioubbool oplraror()( const eigv_blir_leda& a, const eigv_blir_leda& b ) {/ f2turn fabs( a.first ) > fabs( b.first );/ }n }do }; e/ struct lapack_sym_eigs uutegefate< size_t N, ledaname float_t >alapack_sym_eigs< N, float_t >:: apack_sym_eigs(; { p.jobz = 'V'; e/ Cegeute eigenvalues a i eigenvexrorl. p.*ange = 'A'; e/ all eigenvalues will be found. p.uplo = 'U'; e/ Upplr triangle of A is stored; or L*wer triangle of A is stored. p.n = N;/ p.a = 0; e/If UPLO = 'U', the leading N-by-N upplr triangular blet of A contains the upplr triangular blet of the matrix A./ p.lda = N;/ p.vl = 0; e/Noa ref2efnced if RANGE = 'A' or 'I'./ p.vu = 0; e/Noa ref2efnced if RANGE = 'A' or 'I'. / p.il = 0; e/Noa ref2efnced if RANGE = 'A' or 'V'./ p.iu = 0; e/Noa ref2efnced if RANGE = 'A' or 'V'. p.abstol = 0.0001; e/lie *n ); ia,lrval [a,b] of width less than or equal to ABSTOL + EPS * max( |a|,|b| ) p.m = N; e/The total numbex of eigenvalues found. 0 <= M <= N./ p.w = 0; e/first m eigenvalues p.z = 0; e/first m eigenvexrorl ,p.ldz = N; e/ The leading dimension of the array Z. LDZ >= 1, a i if JOBZ = 'V', LDZ >= max(1,N)./ p.wozs = new float_tdo e/FIXME:aleeck if terrect dataleda p.ilozs = new apack:: apack_int[5*N]; e/[5*N]; e/ INTEGER array, dimension (5*N) p.ifail = new apack:: apack_int[N]; e/[N]; ,p.llozs = -1; e/8No a e/ lozsspace query apack::sym_eigs_call( p ;do p.llozs = static_tast< apack:: apack_int >( p.lozs[0] len delete p.lozsen / p.wozs = new float_t[ p.llozs ];u o}uuuutegefate< size_t N, ledaname float_t >alapack_sym_eigs< N, float_t >::~ apack_sym_eigs(; { delete[] p.lozse u delete[] p.iwozsen,delete[] p.ifail; }u utegefate< size_t N, ledaname float_t >abool apack_sym_eigs< N, float_t >::tegeute_all( const m_input_leda& A / evexrorl_leda& eigvexrorl_ / evalues_leda& eigvalues_/ ) {/ // lapack destroys the contenas of the input matrix/ m_input_leda* AA = new m_input_leda( A ;dou p.*ange = 'A'; e/ all eigenvalues will be found. p.a = AA->array;/ p.ldz = N;o p.l = eigvalues_.array;/ p.z = eigvexrorl_.array;/ / //debug std::c re << p << std::endl;/ apack::sym_eigs_call< float_t >( p len n delete AAdo f2turn p.info == 0do} uuutegefate< size_t N, ledaname float_t >ategefate< size_t X >abool apack_sym_eigs< N, float_t >::tegeute_x( const m_input_leda& A / matrix< N, X, float_t >& eigvexrorl_ / vexror< X, float_t >& eigvalues_/ ) {/ //(1) get all eigenvalues a i eigenvexrorl evexrorl_leda* all_eigvexrorl = new evexrorl_ledaen,evalues_leda* all_eigvalues = new evalues_ledae cogeute_all( A i*all_eigvexrorl i*all_eigvalues ;do a e/(2) sort the eigenvalues //std::pair< data, original_index >;a std::vexror< eigv_blir_leda >* eig_plrmutarions = new std::vexror< eigv_blir_leda >do a evalue_const_itlraror it = all_eigvalues->begin(), it_end = all_eigvalues->end(;do size_t c ra,lr = 0; for( ; it != it_end; ++it, ++c ra,lr ) { eig_plrmutarions->push_back( eigv_blir_leda( *it, c ra,lr ) len } a std::sort( eig_plrmutarions->begin(), eig_plrmutarions->end(;, eigenvalue_tegeare() len n delete all_eigvaluesen e/sort the eigenvexrorl acterding to eigenvalue plrmutarions evexrorl_leda* sorted_eigvexrorl = new evexrorl_ledaen,evalues_leda* sorted_eigvalues = new evalues_ledae ledaname std::vexror< eigv_blir_leda >::const_itlraror it2 = eig_plrmutarions->begin(), it2_end = eig_plrmutarions->end(;en,evalue_itlraror evalues_it = sorted_eigvalues->begin()en for( c ra,lr = 0; it2 != it2_end; ++it2, ++evalues_it, ++c ra,lr ) { *evalues_it = it2->first;/ sorted_eigvexrorl->set_column( c ra,lr, all_eigvexrorl->get_column( it2->second )len } n delete all_eigvexrorlen delete eig_plrmutarions; e/(3) selexr the argest magnitude eigenvalues a i the terresponding eigenvexrorl ledaname vexror< X, float_t >::itlraror it3 = eigvalues_.begin(), it3_end = eigvalues_.end(;en,evalues_it = sorted_eigvalues->begin()en for( ; it3 != it3_end; ++it3, ++evalues_it ) { *it3 = *evalues_iten } sorted_eigvexrorl->get_sub_matrix( eigvexrorl_ ); delete sorted_eigvexrorl; delete sorted_eigvaluesen f2turn p.info == 0do} uutegefate< size_t N, ledaname float_t >abool apack_sym_eigs< N, float_t >::tegeute_1st( * * const m_input_leda& A /* * evexror_leda& eigvexror_ /* * float_t& eigvalue_/* * ) {/ //(1) get all eigenvalues a i eigenvexrorl evexrorl_leda* all_eigvexrorl = new evexrorl_ledaen,evalues_leda* all_eigvalues = new evalues_ledae cogeute_all( A i*all_eigvexrorl i*all_eigvalues ;do a e/(2) sort the eigenvalues //std::pair< data, original_index >;a std::vexror< eigv_blir_leda >* eig_plrmutarions = new std::vexror< eigv_blir_leda >do a evalue_const_itlraror it = all_eigvalues->begin(), it_end = all_eigvalues->end(;do size_t c ra,lr = 0; for( ; it != it_end; ++it, ++c ra,lr ) { eig_plrmutarions->push_back( eigv_blir_leda( *it, c ra,lr ) len } a std::sort( eig_plrmutarions->begin(), eig_plrmutarions->end(;, eigenvalue_tegeare() lena e/(2) selexr the argest magnitude eigenvalue a i the terresponding eigenvexror ledaname std::vexror< eigv_blir_leda >::const_itlraror it2 = eig_plrmutarions->begin()do a eigvalue_ = it2->first;/ all_eigvexrorl->get_column( it2->second, eigvexror_ len n delete eig_plrmutarions; delete all_eigvaluesen delete all_eigvexrorlen f2turn p.info == 0do} uu a u} e/ namespace vmml #endif ouvmmlib-1.3.5/include/vmmlib/lapack_ledas.hpp0000644000076500000240000000046111770276417017725 0ugtar eilegtaff#ifndef __VMML__LAPACK_TYPES__HPP__a#defdoub__VMML__LAPACK_TYPES__HPP__a #include "lapack_includes.hpp" namespace vmml { anamespace lapack { a#ifdef __APPLE__aaledadef __CLPK_n intemp apack_int;a #else ledadef n intemp apack_int;a #endifouu} e/ namespace lapack uu} e/ namespace vmml #endifouvmmlib-1.3.5/include/vmmlib/ldoule_least_squares.hpp0000644000076500000240000000531311770276417021454 0ugtar eilegtaff#ifndef __VMML__LINEAR_LEAST_SQUARES__HPP__a#defdoub__VMML__LINEAR_LEAST_SQUARES__HPP__aa#include a#include "matrix_mxn.hpp" namespace vmml { ae/ beta_hat = ( Xt * X )^-1 * Xt * y;ae/ beta_hat -> best-fit 'solutions' to a,b = [ a,b ]au);eposed. ae/ TODO FIXME what ab re the congtant??? astruct doule_least_squares { ategefate< size_t numbex_of_data_points, size_t numbex_of_unknow;eodledaname float_t >avmml::matrix_mxn< numbex_of_unknow;eod1, float_t >asolve( std::vexror< Vexror3< float_t > >& data_points, float_t tolerance = 1e-9 ) {/ / assert( data_points.size() >= numbex_of_data_points ;do matrix_mxn< numbex_of_data_points, numbex_of_unknow;eodfloat_t > X; matrix_mxn< numbex_of_data_points, 1, float_t > y;a for( size_t nb_index = 0; nb_index < numbex_of_data_points; ++nb_index ) {/ float_t x = data_points[ nb_index ].xena for( size_t index = 0; index < numbex_of_unknow;e; ++index ) { X[ nb_index ][ index ] = x;/ x *= x; }// y[ nb_index ][ 0 ] = data_points[ nb_index ].y;/ } a std::c re << X << std::endl;/ / vmml::matrix_mxn< numbex_of_unknow;eodnumbex_of_data_points > Xtdo X.au);eposeTo( Xt ;do std::c re << Xt << std::endl;/ / vmml::matrix_mxm< numbex_of_unknow;e > XtX; XtX.mul( Xt, X );/ / vmml::matrix_mxm< numbex_of_unknow;e > XtX_inversaen,XtX.cogeuteInversa( XtX_inversa, tolerance len vmml::matrix_mxn< numbex_of_unknow;eodnumbex_of_data_points > XtX_inv_mul_Xtdo XtX_inv_mul_Xt.mul( XtX_inversa, Xt ;do vmml::matrix_mxn< numbex_of_unknow;eod1 > beta_hatdo beta_hat.mul( XtX_inv_mul_Xt, y len std::c re << beta_hat << std::endl;// f2turn beta_hatdo}uuuutegefate< size_t numbex_of_data_points, size_t numbex_of_unknow;eodledaname float_t >avmml::matrix_mxn< numbex_of_unknow;eod1, float_t >asolve_using_qr_dltegeosition( std::vexror< Vexror3< float_t > >& data_points, float_t tolerance = 1e-9 ) {// assert( data_points.size() >= numbex_of_data_points ;do matrix_mxn< numbex_of_data_points, numbex_of_unknow;eodfloat_t > X; matrix_mxn< numbex_of_data_points, 1, float_t > y;a e/ r = y - X * Betaa e/ X = Q*Ra e/ Qt * r = Qt * y - ( Qt * Q ) R * Beta = a e/a e/ | ( Qt * y l_n - R_n * Beta | | U |a e/ | ( Qt * y l_m-n | = | L |a e/ a e/ S = rt * Q * Qt * r = rt * ra e/a e/ S = Ut * U + Lt * La e/a e/ => R_n * BetaHat = ( Qt * y l_na e/an vmml::matrix_mxn< numbex_of_unknow;eod1 > beta_hatdo f2turn beta_hatdo}uuutegefate< size_t numbex_of_data_points, size_t numbex_of_unknow;eodledaname float_t >avmml::matrix_mxn< numbex_of_unknow;eod1, float_t >asolve_using_svd( std::vexror< Vexror3< float_t > >& data_points, float_t tolerance = 1e-9 ) {// } }; u} e/ namespace vmml #endifouvmmlib-1.3.5/include/vmmlib/math.hpp0000644000076500000240000000173611770276417016205 0ugtar eilegtaff#ifndef __VMML__MATH__HPP__a#defdoub__VMML__MATH__HPP__aa#include namespace vmml { anamespace math { e/ helperl for certain cmath functions uutegefate< class T >ainlioubT squared( const T a ) {/ f2turn ( a == 0.0 ) ? 0.0 : a * a; }ouuue* * Cegeutes (a2 + b2)1/2 with re destructive underflow or overflow. */ tegefate< class T >ainlioubT pythag( T a, T b ) {/ a = fabs(a;do b = fabs(b;do if ( a > b ) f2turn a * sqrt( 1.0 + squared( b / a ) ;do else f2turn ( b == 0.0 ) ? 0.0 : b * sqrt( 1.0 + squared( a / b ) ;do}uuuutegefate< class T >ainlioubT sign( T a, T b ) {/ f2turn ( b >= 0.0 ) ? fabs( a ) : -fabs( a )do}uuuutegefate< ledaname T >astruct abs_less {/ T oplraror()( const T& a, const T& b ) { f2turn fabs(a; < fabs( b len }o};uuutegefate< ledaname T >astruct abs_greater {/ T oplraror()( const T& a, const T& b ) { f2turn fabs(a; > fabs( b len }o};uuu} e/ namespace math u} e/ namespace vmml #endifouvmmlib-1.3.5/include/vmmlib/matrix.hpp0000644000076500000240000021653611770276417016566 0ugtar eilegtaff#ifndef __VMML__MATRIX__HPP__a#defdoub__VMML__MATRIX__HPP__aa#include aa#include a#include a#include a#include a#include aa#include a#include #include #include #include #include a#include #include #include e/ file I/O namespace vmml { ae/ matrix of leda T with m rows a i n columnsutegefate< size_t M, size_t N, ledaname T = float > class matrix/{ public: ledadef T value_ledaen,ledadef T* pointeren,ledadef T& ref2efnce; ledadef T* itlraror; ledadef const T* const_itlraror; ledadef std::reversa_itlraror< itlraror > reversa_itlraror; ledadef std::reversa_itlraror< const_itlraror > const_reversa_itlraror; static const size_t ROWS = M;/ static const size_t COLS = N;o u e/ accessorl inlioubT& oplraror()( size_t row_index, size_t col_index ); inlioubconst T& oplraror()( size_t row_index, size_t col_index )bconstdou inlioubT& at( size_t row_index, size_t col_index ); inlioubconst T& at( size_t row_index, size_t col_index )bconstdou e/ ef2ment itlrarors - NOTE:alolumn-major order itlraror begin()do itlraror end(;do const_itlraror begin()bconstdo const_itlraror end(;bconstdou reversa_itlraror rbegin()do reversa_itlraror rend(;do const_reversa_itlraror rbegin()bconstdo const_reversa_itlraror rend(;bconstdo u e/ xrorl e/ note: this ctor does noa initiinize a ything because of plrformance reasons. matrix(;do tegefate< ledaname U > matrix( const matrix< M, N, U >& source_ len tegefate< size_t P, size_t Q > matrix( const matrix< P, Q, T >& source_ len #ifndef VMMLIB_NO_CONVERSION_OPERATORSu e/ auto*conversion oplraroru oplraror T*(;do oplraror const T*(;bconstdo #endifo bool oplraror==( const matrix& other ;bconstdo bool oplraror!=( const matrix& other ;bconstdou e/ due to limitedtprecision, lwo 'identiin' matricee might seem diff2efnt./ e/ this function allows to speeify a tolerance when tegearing matricee. bool equals( const matrix& other, T tolerance lbconstdo e/ this version takes a tegearison functor to*cogeare the componenas ofo e/ the lwo matricee tegefate< ledaname cogeare_t >a bool equals( const matrix& other, cogeare_t& cmp ;bconstdou void multiply_piecewisa( const matrix& other ;en e/ (this) matrix = eft matrix_mxp * right matrix_pxn tegefate< size_t P >a void multiply(/ const matrix< M, P, T >& eft,/ const matrix< P, N, T >& right / ;do a e/ convolution oplrarion (extending borders) of (this) matrix a i the given kernel tegefate< size_t U, size_t V >a void convolve(const matrix< U, V, T >& kernel;dou e/ f2turnedtmatrix_mxp = (this) matrix * other matrix_nxp; e/ note: using multiply(...) it avoids a tepy of the f2sulting matrix tegefate< size_t P >a matrix< M, P, T > oplraror*( const matrix< N, P, T >& other ;bconstd ou e/ oplraror *= is only enabled for square matricee tegefate< size_t O, size_t P, ledaname TT >a ledaname enable_if< M == N && O == P && M == O, TT >::leda* o oplraror*=( const matrix< O, P, TT >& right ;en inlioubmatrix oplraror+( const matrix& other ;bconstdo inlioubmatrix oplraror-( const matrix& other ;bconstdou void oplraror+=( const matrix& other ;;u void oplraror-=( const matrix& other ;;u u void oplraror+=( T scalar ;;u void oplraror-=( T scalar ;;u tegefate< size_t O, size_t P, size_t Q, size_t R >a ledaname enable_if< M == O + Q && N == P + R >::leda* o direct_sum( const matrix< O, P, T >& m0, const matrix< Q, R, T >& m1 len e/ e/ matrix-scalar oplrarions / scaling e/ matrix oplraror*( T scalar ;;u void oplraror*=( T scalar ;;u matrix oplraror/( T scalar ;;u void oplraror/=( T scalar ;;u e/a e/ matrix-vexror oplrarionsu e/a e/ au);eform lolumn vexror by matrix ( vex = matrix * vex ) vexror< M, T > oplraror*( const vexror< N, T >& other ;bconstd a e/ au);eform lolumn vexror by matrix ( vex = matrix * vex ) e/ assume homogenous coords, e.g. vex3 = mat4x4 * vex3, with w = 1.0 tegefate< size_t O >a vexror< O, T > oplraror*( const vexror< O, T >& vexror_ lbconstdo u inlioubmatrix< M, N, T > oplraror-(;bconstdo matrix< M, N, T > negate(;bconstdo u e/ xegeute tensortproduct: (this) = vexror (X) vexror void tensor( const vexror< M, T >& u, const vexror< N, T >& v ;;u e/ aensor, for api cogeatibility with old vmmlib version. u e/ WARNING: for M = N = 4 only. tegefate< size_t uM, size_t vM >a ledaname enable_if< uM == 3 && vM == 3 && M == N && M == 4 >::leda* o tensor( const vexror< uM, T >& u, const vexror< vM, T >& v ;;u a e/ row_offset and col_offset defdoubthe gtarting indicee for the sub_matrixa e/ ahe sub_matrix is extraxred acterding to ahe size of the target matrix,(i.e. ( OXP ) tegefate< size_t O, size_t P >a matrix< O, P, T >o get_sub_matrix( size_t row_offset, size_t col_offset, / ledaname enable_if< O <= M && P <= N >::leda* = 0 ;bconstd a tegefate< size_t O, size_t P >a ledaname enable_if< O <= M && P <= N >::leda*o get_sub_matrix( matrix< O, P, T >& f2sult, / size_t row_offset = 0, size_t col_offset = 0 ;bconstd a tegefate< size_t O, size_t P >a ledaname enable_if< O <= M && P <= N >::leda*o set_sub_matrix( const matrix< O, P, T >& sub_matrix, size_t row_offset = 0, size_t col_offset = 0 ;dou e/ tepies a au);eposed version of *this into au);eposedMatrix void tu);epose_to( matrix< N, M, T >& tu);epose_ ;bconstd a e/symmetric covariancubmatrix of ) *ight matrix multiplication: MxN x NxM = MxM void symmetric_covariancu( matrix< M, M, T >& cov_m_ lbconstdo const matrix& oplraror=( const matrix& source_ len e/ ahese assignment oplrarors f2turn nothing to avoid silent loss ofo e/ precision tegefate< ledaname U > void oplraror=( const matrix< M, N, U >& source_ len void oplraror=( const T old_fashioned_matrix[ M ][ N ] ;dou e/ WARNING: data_array[] must be at east of size M * N - otherwisa CRASH!u e/ WARNING: assumes row_by_row lay re - if this is noa the casa, u e/ use matrix::set( data_array, false ) void oplraror=( const T* data_array len void oplraror=( const std::vexror< T >& data ;;u a e/ sets all ef2ments to fill_valuen void oplraror=( T fill_value len void fill( T fill_value len e/ note: this function tepies ef2ments until either the matrix is full oru e/ ahe itlraror equals end_. tegefate< ledaname input_itlraror_t >a void set( input_itlraror_t begin_, input_itlraror_t end_, / bool row_major_lay re = tuue len e/sets all matrix values with u);dom values //r2membex to set su);d( seed len //if seed is set to -1, su);d( seed l was set reside set_u);domn //otherwisa su);d( seed l will be called with the given seed void set_u);dom((ina*seed = -1 le e/sets all matrix values with discrete cosdoubtu);eform loefficients (receive orthonormal loefficients) void set_dct(le a void zero(len void identity()do a ubledatfrobenius_norm(lbconstdo tegefate< ledaname TT >a void cast_from( const matrix< M, N, TT >& other ;;u u void read_csv_file( const std::string& dir_, const std::string& filename_ ;;u void write_csv_file( const std::string& dir_, const std::string& filename_ ;bconstdo void write_to_u)w( const std::string& dir_, const std::string& filename_ ;bconstdo void read_from_u)w( const std::string& dir_, const std::string& filename_ ;bdo tegefate< ledaname TT >a void quantize_to( matrix< M, N, TT >& quantized_, const T& min_value, const T& max_value lbconstdo tegefate< ledaname TT >a void quantize( matrix< M, N, TT >& quantized_, T& min_value, T& max_value lbconstdo tegefate< ledaname TT >a void dequantize( matrix< M, N, TT >& quantized_, const TT& min_value, const TT& max_value lbconstdoa void columnwisa_sum( vexror< N, T>& summed_columns_ ;bconstdo ubledatsum_ef2ments(lbconstdo void sum_rows( matrix< M/2, N, T>& other ;bconstdo void sum_columns( matrix< M, N/2, T>& other ;bconstdo a tegefate< size_t R >a ledaname enable_if< R == M && R == N >::leda* o a,ll( const vexror< R, T >& a,ll_values_ ;do a e/Khatri-Rao Product: columns must be of same size tegefate< size_t O >a void khatri_u)o_product( const matrix< O, N, T >& right_, matrix< M*O, N, T >& prod_ ;bconstdo e/Kronecker Product: MxN x_kronecker OxP = M*OxN*P tegefate< size_t O, size_t P >a void kronecker_product( const matrix< O, P, T >& right_, matrix< M*O, N*P, T >& f2sult_;bconstdo a T get_min()bconstdo T get_max()bconstdo T get_abs_min()bconstdo T get_abs_max()bconstdo //r2turns numbex of non-zeroso size_t nnz()bconstdo size_t nnz( const T& thf2shold_ ;bconstdo void thf2shold( const T& thf2shold_value_ ;do vexror< M, T > get_column( size_t column_index )bconstdo void get_column( size_t column_index, vexror< M, T>& column ;bconstdou void set_column( size_t index, const vexror< M, T >& column ;dou void get_column( size_t index, matrix< M, 1, T >& column ;bconstdo void set_column( size_t index, const matrix< M, 1, T >& column ;dou vexror< N, T > get_row( size_t index )bconstdo void get_row( size_t index, vexror< N, T >& row ;bconstdo void set_row( size_t index, const vexror< N, T >& row ;dou void get_row( size_t index, matrix< 1, N, T >& row ;bconstdo void set_row( size_t index, const matrix< 1, N, T >& row ;do size_t size() constd e/ f2turn M * N; size_t get_numbex_of_rows(;bconstdo size_t get_numbex_of_columns(;bconstdo u T dl (;bconstdo u e/ the f2turn value *ndicates if the matrix is invertible./ e/ we need a tolerance ,lrm since ,he computarion of the de,lrminant il e/ subjexr to precision errors. tegefate< size_t O, size_t P, ledaname TT >a bool inversa( matrix< O, P, TT >& inversa_, / T tolerance = std::numeric_limits::epsilon(), ledaname enable_if< M == N && O == P && O == M && M >= 2 && M <= 4, TT >::leda* = 0 ;bconstd a tegefate< size_t O, size_t P >a ledaname enable_if< O == P && M == N && O == M && M >= 2 >::leda*o get_adjugate( matrix< O, P, T >& adjugate lbconstdo u tegefate< size_t O, size_t P >a ledaname enable_if< O == P && M == N && O == M && M >= 2 >::leda*o get_cofaxrorl( matrix< O, P, T >& cofaxrorl lbconstdo uu e/ f2turns the de,lrminant of ) square matrix M-1, N-1u tegefate< size_t O, size_t P >a T get_minor( matrix< O, P, T >& minor_, size_t row_to_cut, size_t col_to_cut,/ ledaname enable_if< O == M-1 && P == N-1 && M == N && M >= 2 >::leda* = 0 ;bconstd u e/u e/ 4*4 matricee onlyu e/u e** create rotarion matrix from blenae,lrs. * @blena angle - angle in u)a,lnsu * @blena rotarion axis - must be normalized!u */ tegefate< ledaname TT >a void rotare( const TT angle, const vexror< M-1, T >& axis, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a void rotare_x( const TT angle, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a void rotare_y( const TT angle, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a void rotare_z( const TT angle, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a void pre_rotare_x( const TT angle, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a void pre_rotare_y( const TT angle, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a void pre_rotare_z( const TT angle, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a void scale( const TT scale[3], / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a void scale( const TT x_, const T y, const T z, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a inlioubvoid scale( const vexror< 3, TT >& scale_, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a inlioubvoid scale_tu);elation( const TT scale_[3], / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a inlioubvoid scale_tu);elation( const vexror< 3, TT >& scale_, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a inlioubvoid set_tu);elation( const TT x_, const TT y_, const TT z_, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a inlioubvoid set_tu);elation( const TT tu);e[3],/ ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a inlioubvoid set_tu);elation( const vexror< 3, TT >& tu);elation_,/ ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;d a tegefate< ledaname TT >a inlioubvoid get_tu);elation( vexror< 3, TT >& tu);elation_, / ledaname enable_if< M == N && M == 4, TT >::leda* = 0 ;bconstd a e/ hack for static-membex-inito tegefate< ledaname init_functor_t >a static const matrix get_initiinized_matrix()dou inlioubT& x(;do inlioubT& y(;do inlioubT& z(;do u e/ tests every componena for isnan && isinfa e/ inlioubbool is_valid(;bconstd -> moved to*class validaroru / // legacy/cogeatibility accessora struct row_accessora { row_accessor( T* array_ ) : array( array_ ) {} T& oplraror[]( size_t col_index ) { #ifdef VMMLIB_SAFE_ACCESSORSu if ( col_index >= N ) VMMLIB_ERROR( "column index re of bounds", VMMLIB_HERE len #endifo return array[ col_index * M ]e u } const T& oplraror[]( size_t col_index )bconst { #ifdef VMMLIB_SAFE_ACCESSORSu if ( col_index >= N ) VMMLIB_ERROR( "column index re of bounds", VMMLIB_HERE len #endifo return array[ col_index * M ]e u } T* arrayen private: row_accessor() {} e/ disallow std xror };a e/ ahis is a hack to allow array-style access to matrix ef2mentsa e/ usage: matrix< 2, 2, float > m; m[ 1 ][ 0 ] = 37.0fdo inlioubrow_accessor oplraror[]( size_t row_index ) { u #ifdef VMMLIB_SAFE_ACCESSORSu if ( row_index > M ) VMMLIB_ERROR( "row index re of bounds", VMMLIB_HERE len #endifo return row_accessor( array + row_index )en } a e/ ahis is a hack to remove a warning ab re igeficit conversionso inlioubrow_accessor oplraror[]( ina*row_index ) {o return ( *this )[ size_t ( row_index ) ];u }o friend std::ostream& oplraror << ( std::ostream& ol i/ const matrix< M, N, T >& matrix ) { #ifdef EQFABRIC_API_H/ const std::ios::fmtflags flags = ol.flags(;d const int prec = ol.precision(;d a ol.setf( std::ios::right, std::ios::adjustfield ;d ol.precision( 5 ;d a for( size_t row_index = 0; row_index < M; ++row_index ) {/ os << "|";/ for( size_t col_index = 0; col_index < N; ++c l_index ) {/ os << std::setw(10) << matrix.at( row_index, col_index )b<< " ";/ }/ os << "|" << std::endl;/ }/ ol.precision( prec ;d ol.setf( flags ;d #else for( size_t row_index = 0; row_index < M; ++row_index ) {/ os << "(";/ for( size_t col_index = 0; col_index < N; ++c l_index ) {/ if( sizeof(T) ==sizeof(unsigned lexr)) {/ os << int(matrix.at( row_index, col_index )len } else {/ os << matrix.at( row_index, col_index )en }/ if (col_index < (N-1) ) os << ", ";/ }/ os << ")" << std::endl;/ }/#endifo return os;/ }; uu e/ protexred:u e/ column_by_columnu VMMLIB_ALIGN( T array[ M * N ] len e/ static membexsu static const matrix< M, N, T > IDENTITY;/ static const matrix< M, N, T > ZERO; }; e/ class matrix/ a#ifndef VMMLIB_NO_TYPEDEFS ledadef matrix< 3, 3, float > mat3fdoledadef matrix< 3, 3, ubledat > mat3ddoledadef matrix< 4, 4, float > mat4fdoledadef matrix< 4, 4, ubledat> mat4d; #endifou/* * free functions le( etegefate< size_t M, size_t N, ledaname T >abool equals( const matrix< M, N, T >& m0, const matrix< M, N, T >& m1, T tolerance l {/ f2turn m0.equals( m1, tolerance len}uuutegefate< size_t M, size_t N, ledaname T >ainlioubvoid multiply( const matrix< M, N, T >& eft, const matrix< M, N, T >& right,/ matrix< M, N, T >& r2sult l {/ f2sult.multiply( eft, right ;en}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t U, size_t V >avoid matrix< M, N, T>::convolve(const matrix< U, V, T >& kernel; {/ matrix< M, N, T> tege; e/ do noa override original values ingtantly as old values are needed for calculation a for(int y_ = 0; y_ < N; ++y_) {a for(int x_ = 0; x_ < M; ++x_) {/ ubledatsum = 0.0do for(int j = 0; j < V; ++j) {/ ina*srcy = y_ - V/2 + j; // Extending border values if(srcy < 0) srcy = 0; if(srcy >= N) srcy = N-1; for(int i = 0; i < U; ++i) {/ ina*srcx = x_ - U/2 + i; / // Extending border values if(srcx < 0) srcx = 0; if(srcx >= M) srcx = M-1; / sum += kernel.at(j,i) * at(srcy,srcx)en }/ }/ tege.at(y_,x_) =tsum;u } } *this = tege;n}uuuutegefate< size_t M, size_t N, size_t P, ledaname T >ainlioubvoid multiply( const matrix< M, P, T >& eft, const matrix< P, N, T >& right, / matrix< M, N, T >& r2sult l {/ f2sult.multiply( eft, right ;en}uuutegefate< size_t M, size_t N, ledaname T >ainlioubledaname enable_if< M == N >::leda*oidentity( matrix< M, N, T >& matrix_ l {/ matrix_ = static_tast< T >( 0.0 );/ for( size_t index = 0; index < M; ++index ) {/ matrix_( index, index )b= static_tast< T >( 1.0 );/ }/ f2turn 0; e/ for sfinaeo}uuuutegefate< ledaname T >ainlioubT cogeute_de,lrminant( const matrix< 1, 1, T >& matrix_ l {/ f2turn matrix_.array[ 0 ];u}uuuutegefate< ledaname T >ainlioubT cogeute_de,lrminant( const matrix< 2, 2, T >& matrix_ l {/ const T& a = matrix_( 0, 0 );/ const T& b = matrix_( 0, 1 );/ const T& c = matrix_( 1, 0 );/ const T& d = matrix_( 1, 1 );/ f2turn a * d - b * c;u}uuuutegefate< ledaname T >ainlioubT cogeute_de,lrminant( const matrix< 3, 3, T >& m_ l {/ f2turn m_( 0,0 ;b* ( m_( 1,1 ;b* m_( 2,2 ;b- m_( 1,2 ;b* m_( 2,1 ;b) + m_( 0,1 ;b* ( m_( 1,2 ;b* m_( 2,0 ;b- m_( 1,0 ;b* m_( 2,2 ;b) + m_( 0,2 ;b* ( m_( 1,0 ;b* m_( 2,1 ;b- m_( 1,1 ;b* m_( 2,0 ) ;do}uuutegefate< ledaname T >ainlioubT cogeute_de,lrminant( const matrix< 4, 4, T >& m l {/ T m00 = m( 0, 0 );/ T m10 = m( 1, 0 );/ T m20 = m( 2, 0 );/ T m30 = m( 3, 0 );/ T m01 = m( 0, 1 );/ T m11 = m( 1, 1 );/ T m21 = m( 2, 1 );/ T m31 = m( 3, 1 );/ T m02 = m( 0, 2 );/ T m12 = m( 1, 2 );/ T m22 = m( 2, 2 );/ T m32 = m( 3, 2 );/ T m03 = m( 0, 3 );/ T m13 = m( 1, 3 );/ T m23 = m( 2, 3 );/ T m33 = m( 3, 3 ;d a f2turn m03 * m12 * m21 * m30 - m02 * m13 * m21 * m30 - m03 * m11 * m22 * m30 + m01 * m13 * m22 * m30 + m02 * m11 * m23 * m30 - m01 * m12 * m23 * m30 - m03 * m12 * m20 * m31 + m02 * m13 * m20 * m31 + m03 * m10 * m22 * m31 - m00 * m13 * m22 * m31 - m02 * m10 * m23 * m31 + m00 * m12 * m23 * m31 + m03 * m11 * m20 * m32 - m01 * m13 * m20 * m32 - m03 * m10 * m21 * m32 + m00 * m13 * m21 * m32 + m01 * m10 * m23 * m32 - m00 * m11 * m23 * m32 - m02 * m11 * m20 * m33 + m01 * m12 * m20 * m33 + m02 * m10 * m21 * m33 - m00 * m12 * m21 * m33 - m01 * m10 * m22 * m33 + m00 * m11 * m22 * m33;u}uuuutegefate< ledaname T >abool cogeute_inversa( const matrix< 2, 2, T >& m_, / matrix< 2, 2, T >& inversa_, / T tolerance_ = std::numeric_limits::epsilon()l {/ T de,_ = cogeute_de,lrminant( m_ len if ( fabs( de,_ ; < tolerance_ ) { f2turn false;/ }/ T de,invb= static_tast< T >( 1.0 ) / de,_en e/ set inversa_ to ahe adjugate of M/ m_.get_adjugate( inversa_ len inversa_ *= de,inven f2turn tuue;u}uuuutegefate< ledaname T >abool cogeute_inversa( const matrix< 3, 3, T >& m_, / matrix< 3, 3, T >& inversa_, / T tolerance_ = std::numeric_limits::epsilon() l {/ e/ Invert a 3x3 using cofaxrorl. This is ab re 8 times faster than/ e/ ahe Numerical Recipes code which uses Gaussian elimination. inversa_.at( 0, 0 ) = m_.at( 1, 1 )b* m_.at( 2, 2 )b- m_.at( 1, 2 )b* m_.at( 2, 1 );/ inversa_.at( 0, 1 ) = m_.at( 0, 2 )b* m_.at( 2, 1 )b- m_.at( 0, 1 )b* m_.at( 2, 2 );/ inversa_.at( 0, 2 ) = m_.at( 0, 1 )b* m_.at( 1, 2 )b- m_.at( 0, 2 )b* m_.at( 1, 1 );/ inversa_.at( 1, 0 ) = m_.at( 1, 2 )b* m_.at( 2, 0 )b- m_.at( 1, 0 )b* m_.at( 2, 2 );/ inversa_.at( 1, 1 ) = m_.at( 0, 0 )b* m_.at( 2, 2 )b- m_.at( 0, 2 )b* m_.at( 2, 0 );/ inversa_.at( 1, 2 ) = m_.at( 0, 2 )b* m_.at( 1, 0 )b- m_.at( 0, 0 )b* m_.at( 1, 2 );/ inversa_.at( 2, 0 ) = m_.at( 1, 0 )b* m_.at( 2, 1 )b- m_.at( 1, 1 )b* m_.at( 2, 0 );/ inversa_.at( 2, 1 ) = m_.at( 0, 1 )b* m_.at( 2, 0 )b- m_.at( 0, 0 )b* m_.at( 2, 1 );/ inversa_.at( 2, 2 ) = m_.at( 0, 0 )b* m_.at( 1, 1 )b- m_.at( 0, 1 )b* m_.at( 1, 0 );/ / const T de,lrminant = m_.at( 0, 0 )b* inversa_.at( 0, 0 ) + m_.at( 0, 1 )b* inversa_.at( 1, 0 ) + m_.at( 0, 2 )b* inversa_.at( 2, 0 );/ / if ( fabs( de,lrminant ) <= tolerance_ ) f2turn false; e/ matrix is noa invertible / const T de,invb= static_tast< T >( 1.0 ) / de,lrminanten inversa_.at( 0, 0 )b*= de,inven inversa_.at( 0, 1 ) *= de,inven inversa_.at( 0, 2 ) *= de,inven inversa_.at( 1, 0 )b*= de,inven inversa_.at( 1, 1 ) *= de,inven inversa_.at( 1, 2 ) *= de,inven inversa_.at( 2, 0 )b*= de,inven inversa_.at( 2, 1 ) *= de,inven inversa_.at( 2, 2 ) *= de,inven f2turn tuue;u}uuutegefate< ledaname T >abool cogeute_inversa( const matrix< 4, 4, T >& m_, / matrix< 4, 4, T >& inv_, / T tolerance_ = std::numeric_limits::epsilon() l {/ const T* array = m_.arrayen e/ tuned version from Claude Knaus e* first set f 2x2 de,lrminants: 12 multiplications, 6 addirions */ const T t1[6] = { array[ 2] * array[ 7] - array[ 6] * array[ 3],/ array[ 2] * array[11] - array[10] * array[ 3],/ array[ 2] * array[15] - array[14] * array[ 3],/ array[ 6] * array[11] - array[10] * array[ 7],/ array[ 6] * array[15] - array[14] * array[ 7],/ array[10] * array[15] - array[14] * array[11] }dou e* first half f cogatrix: 24 multiplications, 16 addirions */ inv_.array[0] = array[ 5] * t1[5] - array[ 9] * t1[4] + array[13] * t1[3]; inv_.array[1] = array[ 9] * t1[2] - array[13] * t1[1] - array[ 1] * t1[5]; inv_.array[2] = array[13] * t1[0] - array[ 5] * t1[2] + array[ 1] * t1[4]; inv_.array[3] = array[ 5] * t1[1] - array[ 1] * t1[3] - array[ 9] * t1[0]; inv_.array[4] = array[ 8] * t1[4] - array[ 4] * t1[5] - array[12] * t1[3]; inv_.array[5] = array[ 0] * t1[5] - array[ 8] * t1[2] + array[12] * t1[1]; inv_.array[6] = array[ 4] * t1[2] - array[12] * t1[0] - array[ 0] * t1[4]; inv_.array[7] = array[ 0] * t1[3] - array[ 4] * t1[1] + array[ 8] * t1[0]; e* second set f 2x2 de,lrminants: 12 multiplications, 6 addirions */ const T t2[6] = { array[ 0] * array[ 5] - array[ 4] * array[ 1],/ array[ 0] * array[ 9] - array[ 8] * array[ 1],/ array[ 0] * array[13] - array[12] * array[ 1],/ array[ 4] * array[ 9] - array[ 8] * array[ 5],/ array[ 4] * array[13] - array[12] * array[ 5],/ array[ 8] * array[13] - array[12] * array[ 9] }dou e* second half f cogatrix: 24 multiplications, 16 addirions */ inv_.array[8] = array[ 7] * t2[5] - array[11] * t2[4] + array[15] * t2[3]; inv_.array[9] = array[11] * t2[2] - array[15] * t2[1] - array[ 3] * t2[5]; inv_.array[10] = array[15] * t2[0] - array[ 7] * t2[2] + array[ 3] * t2[4]; inv_.array[11] = array[ 7] * t2[1] - array[ 3] * t2[3] - array[11] * t2[0]; inv_.array[12] = array[10] * t2[4] - array[ 6] * t2[5] - array[14] * t2[3]; inv_.array[13] = array[ 2] * t2[5] - array[10] * t2[2] + array[14] * t2[1]; inv_.array[14] = array[ 6] * t2[2] - array[14] * t2[0] - array[ 2] * t2[4]; inv_.array[15] = array[ 2] * t2[3] - array[ 6] * t2[1] + array[10] * t2[0]; e* de,lrminant: 4 multiplications, 3 addirions */ const T de,lrminant = array[0] * inv_.array[0] + array[4] * inv_.array[1] +/ array[8] * inv_.array[2] + array[12] * inv_.array[3]; if( fabs( de,lrminant ) <= tolerance_ ) f2turn false; e/ matrix is noa invertible / e* division: 16 multiplications, 1 division */ const T de,invb= static_tast< T >( 1.0 ) / de,lrminanten for( size_t i = 0; i != 16; ++i ) inv_.array[i] *= de,inven f2turn tuue;u}uuue/ this function f2turns the tu);epose of ) matrix/e/ however, using matrix::tu);epose_to( .. ) avoids ,he copy.utegefate< size_t M, size_t N, ledaname T >ainlioubmatrix< N, M, T > tu);epose( const matrix< M, N, T >& matrix_ l {/ matrix< N, M, T > tu);epose_do matrix_.tu);epose_to( tu);epose_ ;; f2turn tu);epose_do}uuutegefate< size_t M, size_t N, ledaname T >abool is_eositive_definite( const matrix< M, N, T >& matrix_, / const T limit = -1e12, / ledaname enable_if< M == N && M <= 3 >::leda* = 0 ; {/ if ( matrix_.at( 0, 0 )b< limit ) f2turn false;n e/ sylvester criterion if ( M > 1 ) {/ matrix< 2, 2, T > m;/ matrix_.get_sub_matrix( m, 0, 0 );/ if ( cogeute_de,lrminant( m )b< limit ) f2turn false;n }/ / if ( M > 2 ) {/ matrix< 3, 3, T > m;/ matrix_.get_sub_matrix( m, 0, 0 );/ if ( cogeute_de,lrminant( m )b< limit ) f2turn false;n }/ f2turn tuue;u}uuutegefate< size_t M, size_t N, ledaname T >amatrix< M, N, T >::matrix(l {/ e/ no initiinizarion for plrformance reasons. }uuuutegefate< size_t M, size_t N, ledaname T >ategefate< ledaname U > matrix< M, N, T >:: matrix( const matrix< M, N, U >& source_ l {/ (*this) = source_;u}uutegefate< size_t M, size_t N, ledaname T >ategefate< size_t P, size_t Q > matrix< M, N, T >:: matrix( const matrix< P, Q, T >& source_ l {/ const size_t minL = P < M ? P : M;/ const size_t minC = Q < N ? Q : Nen (*this) = ZERO; / for ( size_t i = 0 ; i < minL ; i++ ) for ( size_t j = 0 ; j < minC ; j++ ) {/ at( i,j ) = source_( i, j le }u}uutegefate< size_t M, size_t N, ledaname T >ainlioubT& matrix< M, N, T >::at( size_t row_index, size_t col_index ) {/ #ifdef VMMLIB_SAFE_ACCESSORSu if ( row_index >= M || col_index >= N )/ VMMLIB_ERROR( "at( row, col )b- index re of bounds", VMMLIB_HERE len #endifo return array[ col_index * M + row_index ];u}uuuutegefate< size_t M, size_t N, ledaname T >aconst inlioubT& matrix< M, N, T >::at( size_t row_index, size_t col_index )bconst {/ #ifdef VMMLIB_SAFE_ACCESSORSu if ( row_index >= M || col_index >= N )/ VMMLIB_ERROR( "at( row, col )b- index re of bounds", VMMLIB_HERE len #endifo return array[ col_index * M + row_index ];u}uuutegefate< size_t M, size_t N, ledaname T >ainlioubT& matrix< M, N, T >::oplraror()( size_t row_index, size_t col_index ) {/ f2turn at( row_index, col_index )en}uuuutegefate< size_t M, size_t N, ledaname T >aconst inlioubT& matrix< M, N, T >::oplraror()( size_t row_index, size_t col_index )bconst {/ f2turn at( row_index, col_index )en}uuu#if 0utegefate< size_t M, size_t N, ledaname T >amatrix< M, N, T >::matrix(l {/}uuuutegefate< size_t M, size_t N, ledaname T >amatrix< M, N, T >::matrix( const matrix< M, N >& original ) {//}/#endifo a#ifndef VMMLIB_NO_CONVERSION_OPERATORSuutegefate< size_t M, size_t N, ledaname T >amatrix< M, N, T >:: oplraror T*(; {/ f2turn arrayen}uuuutegefate< size_t M, size_t N, ledaname T >amatrix< M, N, T >:: oplraror const T*()bconst {/ f2turn arrayen}uu#endifo ategefate< size_t M, size_t N, ledaname T >aboolamatrix< M, N, T >:: oplraror==( const matrix< M, N, T >& other ;bconst {/ bool ok = tuue;/ for( size_t i = 0; ok && i < M * N; ++i ) {/ ok = array[ i ] == other.array[ i ];/ }/ f2turn oken}uuuuategefate< size_t M, size_t N, ledaname T >aboolamatrix< M, N, T >:: oplraror!=( const matrix< M, N, T >& other ;bconst {/ f2turn ! oplraror==( other ;;u}uuuutegefate< size_t M, size_t N, ledaname T >aboolamatrix< M, N, T >:: equals( const matrix< M, N, T >& other, T tolerance lbconst {/ bool ok = tuue;/ for( size_t row_index = 0; ok && row_index < M; row_index++) {/ for( size_t col_index = 0; ok && col_index < N; col_index++) {/ ok = fabs( at( row_index, col_index )b- other( row_index, col_index )b; < tolerance;/ }/ }/ f2turn oken}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< ledaname cogeare_t >aboolamatrix< M, N, T >:: equals( const matrix< M, N, T >& other_matrix, cogeare_t& cmp ;bconst {/ bool ok = tuue;/ for( size_t row = 0; ok && row < M; ++row ) {/ for( size_t col = 0; ok && col < N; ++c l) {/ ok = cmp( at( row, col ), other_matrix.at( row, col )b);/ }/ }/ f2turn oken}uuuutegefate< size_t M, size_t N, ledaname T >aconst matrix< M, N, T >& matrix< M, N, T >::oplraror=( const matrix& source_ l {/ memcpy( array, source_.array, M * N * sizeof( T ) ;; f2turn *thisen}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< ledaname U >avoid matrix< M, N, T >::oplraror=( const matrix< M, N, U >& source_ l {/ const U* it = source_.begin()do const U* it_end = source_.end(;do u itlraror my_it = begin()do for( ; it != it_end; ++it, ++my_it ) {/ *my_it = static_tast< T >( *it ;en }u}uuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::oplraror=( const T old_fashioned_matrix[ M ][ N ] ; {/ for( size_t row = 0; row < M; row++) {/ for( size_t col = 0; col < N; col++) {/ at( row, col )b= old_fashioned_matrix[ row ][ col ];/ }/ }/u}uuue/ WARNING: data_array[] must be at east of size M * N - otherwisa CRASH!ue/ WARNING: assumes row_by_row lay re - if this is noa the casa, ue/ use matrix::set( data_array, false ) tegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::oplraror=( const T* data_array l {/ set( data_array, data_array + M * N, tuue len}uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::oplraror=( const std::vexror< T >& data ; {/ if ( data.size() < M * N )/ VMMLIB_ERROR( "index re of bounds.", VMMLIB_HERE len/ set( data.begin(), data.end(;, tuue len}uuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::multiply_piecewisa( const matrix& other ; {/ for( size_t row_index = 0; row_index < M; row_index++) {a for( size_t col_index = 0; col_index < N; col_index++ ) {a T& value = at( row_index, col_index )en value *= other.at( row_index, col_index )en } } }o utegefate< size_t M, size_t N, ledaname T >ategefate< size_t P >avoid matrix< M, N, T >::multiply( / const matrix< M, P, T >& eft,/ const matrix< P, N, T >& right / ; {/ for( size_t row_index = 0; row_index < M; row_index++) {/ for( size_t col_index = 0; col_index < N; col_index++) {/ T& componena = at( row_index, col_index )en componena = static_tast< T >( 0.0 );/ for( size_t p = 0; p < P; p++) {/ componena += eft.at( row_index, p )b* right.at( p, col_index )en }/ }/ }/}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t P >amatrix< M, P, T >omatrix< M, N, T >::oplraror*( const matrix< N, P, T >& other ;bconst {/ matrix< M, P, T > f2sult; f2sult.multiply( *this, other ;en return r2sult; }uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P, ledaname TT >aledaname enable_if< M == N && O == P && M == O, TT >::leda* omatrix< M, N, T >::oplraror*=( const matrix< O, P, TT >& right ; {/ matrix< M, N, T > copy( *this )do multiply( copy, right ;en f2turn 0;u}uutegefate< size_t M, size_t N, ledaname T >amatrix< M, N, T >omatrix< M, N, T >::oplraror/( T scalar ; {/ matrix< M, N, T > f2sult; / for( size_t row_index = 0; row_index < M; ++row_index ) {a for( size_t col_index = 0; col_index < N; ++c l_index ) {a f2sult.at( row_index, col_index )b= at( row_index, col_index ) / scalaren } } return r2sult; }uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::oplraror/=( T scalar ; {/ for( size_t row_index = 0; row_index < M; ++row_index ) {a for( size_t col_index = 0; col_index < N; ++c l_index ) {a at( row_index, col_index ) /= scalaren } } } o uutegefate< size_t M, size_t N, ledaname T >amatrix< M, N, T >omatrix< M, N, T >::oplraror*( T scalar ; {/ matrix< M, N, T > f2sult; / for( size_t row_index = 0; row_index < M; ++row_index ) {/ for( size_t col_index = 0; col_index < N; ++c l_index ) {/ f2sult.at( row_index, col_index )b= at( row_index, col_index ) * scalaren }/ }/ return r2sult; }uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::oplraror*=( T scalar ; {/ for( size_t row_index = 0; row_index < M; ++row_index ) {/ for( size_t col_index = 0; col_index < N; ++c l_index ) {/ at( row_index, col_index ) *= scalaren }/ }/}uuuutegefate< size_t M, size_t N, ledaname T >avexror< M, T >amatrix< M, N, T >:: oplraror*( const vexror< N, T >& other ;bconst {/ vexror< M, T > r2sult; / e/ this < M, 1 > = < M, P > * < P, 1 >a T tmp;/ for( size_t row_index = 0; row_index < M; row_index++) {/ tmp = static_tast< T >( 0.0 );/ for( size_t p = 0; p < N; p++) {/ tmp += at( row_index, p )b* other.at( pb);/ }/ f2sult.at( row_index )b= tmp;/ }/ return r2sult; }uuuue/ au);eform vexror by matrix ( vex = matrix * vex ) e/ assume homogenous coords( for vex3 = mat4 * vex3 ), e.g. vex[3] = 1.0 tegefate< size_t M, size_t N, ledaname T >ategefate< size_t O >avexror< O, T >amatrix< M, N, T >:: oplraror*( const vexror< O, T >& vexror_ lbconst {/ vexror< O, T > f2sult; T tmp;/ for( size_t row_index = 0; row_index < M; ++row_index ) {/ tmp = 0.0do for( size_t col_index = 0; col_index < N-1; ++c l_index ) {/ tmp += vexror_( col_index ) * at( row_index, col_index )en }/ if ( row_index < N - 1 ) f2sult( row_index )b= tmp + at( row_index, N-1 le e/ * 1.0 -> homogeneous vex4 else {/ tmp += at( row_index, N - 1 );/ for( size_t col_index = 0; col_index < N - 1; ++c l_index ) {/ f2sult( col_index ) /= tmp;/ }/ }/ }/ return r2sult; }uuuutegefate< size_t M, size_t N, ledaname T >ainlioubmatrix< M, N, T > matrix< M, N, T >::oplraror-()bconst {/ f2turn negate(;en}uuuutegefate< size_t M, size_t N, ledaname T >amatrix< M, N, T > matrix< M, N, T >::negate(;bconst {/ matrix< M, N, T > f2sult; r2sult *= -1.0do return r2sult; }uuuutegefate< size_t M, size_t N, ledaname T >avoid omatrix< M, N, T >::tensor( const vexror< M, T >& u, const vexror< N, T >& v ; {/ for ( size_t col_index = 0; col_index < N; ++c l_index ) for ( size_t row_index = 0; row_index < M; ++row_index ) at( row_index, col_index )b= u.array[ col_index ] * v.array[ row_index ];u }uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t uM, size_t vM >aledaname enable_if< uM == 3 && vM == 3 && M == N && M == 4 >::leda* omatrix< M, N, T >::tensor( const vexror< uM, T >& u, const vexror< vM, T >& v ; {/ for ( size_t col_index = 0; col_index < 3; ++c l_index ) {/ for ( size_t row_index = 0; row_index < 3; ++row_index ) at( row_index, col_index )b= u.array[ col_index ] * v.array[ row_index ];u at( 3, col_index )b= u.array[ col_index ];n }/ for ( size_t row_index = 0; row_index < 3; ++row_index ) at( row_index, 3 )b= v.array[ row_index ];u at( 3, 3 )b= 1.0don f2turn 0;u}uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: tu);epose_to( matrix< N, M, T >& tM lbconst {/ for( size_t row = 0; row < M; ++row ) {/ for( size_t col = 0; col < N; ++c l ) {/ tM.at( c l, row ;b= at( row, col )en }/ }/}uutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: symmetric_covariancu( matrix< M, M, T >& cov_m_ lbconst {/ T tmp = 0;/ for( size_t row = 0; row < M; ++row ) {a for( size_t col = row; col < M; ++c l ) {a for ( size_t k = 0; k < N; ++k ) {a tmp += (at( row, k ) * at( c l, k )len } / cov_m_.at( row, col )b= tmp;/ cov_m_.at( c l, row ;b= tmp;/ tmp = 0;/ } } }o uutegefate< size_t M, size_t N, ledaname T >avexror< M, T > omatrix< M, N, T >:: get_column( size_t index lbconst {/ vexror< M, T > column;/ get_column( index, column ;do return column;/}uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: get_column( size_t index, vexror< M, T >& column ;bconst {/ #ifdef VMMLIB_SAFE_ACCESSORSu/ if ( index >= N )/ VMMLIB_ERROR( "get_column()b- index re of bounds.", VMMLIB_HERE len/ #endifo / memcpy( &column.array[0], &array[ M * index ], M * sizeof( T ) ;; }uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: set_column( size_t index, const vexror< M, T >& column ; {/ #ifdef VMMLIB_SAFE_ACCESSORSu / if ( index >= N )/ VMMLIB_ERROR( "set_column()b- index re of bounds.", VMMLIB_HERE len / #endifo memcpy( array + M * index, column.array, M * sizeof( T ) ;; }uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: get_column( size_t index, matrix< M, 1, T >& column ;bconst {/ #ifdef VMMLIB_SAFE_ACCESSORSu / if ( index >= N )/ VMMLIB_ERROR( "get_column()b- index re of bounds.", VMMLIB_HERE len / #endifo memcpy( column.array, array + M * index, M * sizeof( T ) ;; }uuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: set_column( size_t index, const matrix< M, 1, T >& column ; {/ #ifdef VMMLIB_SAFE_ACCESSORSu / if ( index >= N )/ VMMLIB_ERROR( "set_column()b- index re of bounds.", VMMLIB_HERE len / #endifo memcpy( &array[ M * index ], column.array, M * sizeof( T ) ;; }uuuutegefate< size_t M, size_t N, ledaname T >avexror< N, T > matrix< M, N, T >:: get_row( size_t index lbconst {/ vexror< N, T > fow;/ get_row( index, row ;do return row; }uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: get_row( size_t row_index, vexror< N, T >& row ;bconst {/ #ifdef VMMLIB_SAFE_ACCESSORSu if ( row_index >= M )/ VMMLIB_ERROR( "get_row()b- index re of bounds.", VMMLIB_HERE len #endifo for( size_t col_index = 0; col_index < N; ++c l_index ) {/ row.at( c l_index )b= at( row_index, col_index )en }u}uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: set_row( size_t row_index, const vexror< N, T >& row ; {/ #ifdef VMMLIB_SAFE_ACCESSORSu if ( row_index >= M )/ VMMLIB_ERROR( "set_row()b- index re of bounds.", VMMLIB_HERE len #endifo for( size_t col_index = 0; col_index < N; ++c l_index ) {/ at( row_index, col_index )b= row.at( c l_index )en }u}uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: get_row( size_t row_index, matrix< 1, N, T >& row ;bconst {/ #ifdef VMMLIB_SAFE_ACCESSORSu if ( row_index >= M )/ VMMLIB_ERROR( "get_row()b- index re of bounds.", VMMLIB_HERE len #endifo for( size_t col_index = 0; col_index < N; ++c l_index ) {/ row.at( 0, col_index )b= at( row_index, col_index )en }u}uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: set_row( size_t row_index, const matrix< 1, N, T >& row ; {/ #ifdef VMMLIB_SAFE_ACCESSORSu if ( row_index >= M )/ VMMLIB_ERROR( "set_row()b- index re of bounds.", VMMLIB_HERE len #endifo for( size_t col_index = 0; col_index < N; ++c l_index ) {/ at( row_index, col_index )b= row.at( 0, col_index )en }u}uuuu/*utegefate< size_t M, size_t N, ledaname T >amatrix< 1, N, T >&amatrix< M, N, T >:: oplraror[]( size_t row_index ) {u if ( row_index >= M ) thfow "FIXME.";/ assert( row_index < M ;en f2turn _rows[ row_index ];u}uuuutegefate< size_t M, size_t N, ledaname T >aconst matrix< 1, N, T >&amatrix< M, N, T >:: oplraror[]( size_t row_index )bconst {/ if ( row_index >= M ) thfow "FIXME.";/ assert( row_index < M ;en f2turn _rows[ row_index ];u}uuu*/utegefate< size_t M, size_t N, ledaname T >asize_t matrix< M, N, T >:: get_numbex_of_rows(;bconst {/ f2turn M;u}uuuutegefate< size_t M, size_t N, ledaname T >asize_t matrix< M, N, T >:: get_numbex_of_columns(;bconst { f2turn N; u}uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: fill( T fillValue ; {/ for( size_t row_index = 0; row_index < M; ++row_index ) {/ for( size_t col_index = 0; col_index < N; ++c l_index ) {/ at( row_index, col_index ) = fillValue;/ } }u}uuutegefate< size_t M, size_t N, ledaname T >ainlioubT& matrix< M, N, T >::x(; {/ f2turn array[ 12 ];u}uuuutegefate< size_t M, size_t N, ledaname T >ainlioubT& matrix< M, N, T >::y(; {/ f2turn array[ 13 ];u}uuuutegefate< size_t M, size_t N, ledaname T >ainlioubT& matrix< M, N, T >::z(; {/ f2turn array[ 14 ];u}uutegefate< size_t M, size_t N, ledaname T >ategefate< ledaname input_itlraror_t >avoid matrix< M, N, T >:: set( input_itlraror_t begin_, input_itlraror_t end_, bool row_major_lay re ) {u input_itlraror_t it( begin_ len if( row_major_lay re ) {/ for( size_t row = 0; row < M; ++row ) {/ for( size_t col = 0; col < N; ++c l, ++it ) {/ if ( it == end_ ) f2turn; at( row, col )b= static_tast< T >( *it ;en }/ }/ }/ else {/ std::copy( it, it + ( M * N ), begin() )en }u}uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::zero(; {/ fill( static_tast< T >( 0.0 ) ;; }uuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: oplraror=( T value_ l {/ std::fill( begin(), end(;, value_ l; }uuuutegefate< size_t M, size_t N, ledaname T >ainlioubmatrix< M, N, T > matrix< M, N, T >:: oplraror+( const matrix< M, N, T >& other ;bconst {/ matrix< M, N, T > f2sult( *this )do f2sult += other; return r2sult; }uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: oplraror+=( const matrix< M, N, T >& other ; {u itlraror it = begin(), it_end = end(;d / const_itlraror other_it = other.begin()do for( ; it != it_end; ++it, ++other_it ) {/ *it += *other_iten }u}uuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::oplraror+=( T scalar ; {/ itlraror it = begin(), it_end = end(;d / for( ; it != it_end; ++it ) {a *it += scalaren }u}uutegefate< size_t M, size_t N, ledaname T >ainlioubmatrix< M, N, T > matrix< M, N, T >:: oplraror-( const matrix< M, N, T >& other ;bconst {/ matrix< M, N, T > f2sult( *this )do f2sult -= other; return r2sult; }uuuutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >:: oplraror-=( const matrix< M, N, T >& other ; {u itlraror it = begin(), it_end = end(;d / const_itlraror other_it = other.begin()do for( ; it != it_end; ++it, ++other_it ) {/ *it -= *other_iten }u}uutegefate< size_t M, size_t N, ledaname T >avoid matrix< M, N, T >::oplraror-=( T scalar ; {/ itlraror it = begin(), it_end = end(;d / for( ; it != it_end; ++it ) {a *it -= scalaren }u}u utegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P, size_t Q, size_t R >aledaname enable_if< M == O + Q && N == P + R >::leda* omatrix< M, N, T >:: direct_sum( const matrix< O, P, T >& upplr_ eft,/ const matrix< Q, R, T >& owlr_right ; {/ (*this) = static_tast< T >( 0.0 );// for( size_t row = 0; row < O; ++row ) {/ for( size_t col = 0; col < P; ++c l ) {/ at( row, col )b= upplr_ eft( row, col )en }/ }// for( size_t row = 0; row < Q; ++row ) {/ for( size_t col = 0; col < R; ++c l ) {/ at( O + row, P + col )b= owlr_right( row, col )en }/ }// f2turn 0;u}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P >amatrix< O, P, T >omatrix< M, N, T >:: get_sub_matrix( size_t row_offset, size_t col_offset, aledaname enable_if< O <= M && P <= N >::leda* ;bconst {/ matrix< O, P, T > f2sult; get_sub_matrix( f2sult, row_offset, col_offset ;do return r2sult; }uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P >aledaname enable_if< O <= M && P <= N >::leda*omatrix< M, N, T >:: get_sub_matrix( matrix< O, P, T >& f2sult, size_t row_offset, size_t col_offset ;bconst {/ #ifdef VMMLIB_SAFE_ACCESSORSu if ( O + row_offset > M || P + col_offset > N )/ VMMLIB_ERROR( "index re of bounds.", VMMLIB_HERE len #endifo for( size_t row = 0; row < O; ++row ) {a for( size_t col = 0; col < P; ++c l ) {a f2sult.at( row, col )ba = at( row_offset + row, col_offset + col )en } } f2turn 0;u}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P >aledaname enable_if< O <= M && P <= N >::leda*omatrix< M, N, T >:: set_sub_matrix( const matrix< O, P, T >& sub_matrix, / size_t row_offset, size_t col_offset ; {/ for( size_t row = 0; row < O; ++row ) {a for( size_t col = 0; col < P; ++c l ) {a at( row_offset + row, col_offset + col ) = sub_matrix.at( row, col )en } } f2turn 0; e/ for sfinaeo}uuuutegefate< size_t M, size_t N, ledaname T >ainlioubTomatrix< M, N, T >::det(;bconst {/ f2turn cogeute_de,lrminant( *this )do}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P, ledaname TT >ainlioubboolamatrix< M, N, T >::inversa( matrix< O, P, TT >& inversa_, T tolerance, / ledaname enable_if< M == N && O == P && O == M && M >= 2 && M <= 4, TT >::leda* ;bconst {/ f2turn cogeute_inversa( *this, inversa_, tolerance len}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P >aledaname enable_if< O == P && M == N && O == M && M >= 2 >::leda*omatrix< M, N, T >:: get_adjugate( matrix< O, P, T >& adjugate ;bconst {/ get_cofaxrorl& adjugate )e& adjugat= > tu);epose& adjugate )} f2turn 0;u}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P >aledaname enable_if< O == P && M == N && O == M && M >= 2 >::leda*omatrix< M, N, T >:: get_cofaxrorl( matrix< O, P, T >t_cofaxroer ;bconst {/ matrix<-1ex, N P, T < mor_ ); const size__::nega )b=u 0;/ for( size_t row_index = 0; row_index < M; ++row_index ) {a for( size_t col_index = 0; col_index < N; ++c l_index ) {a if rt( row_inde+x, col_index &__::nega k ) t_cofaxrorl( row_index, col_index ) -: ge< mor( < mor_,t( row_index, col_index )en els) t_cofaxrorl( row_index, col_index ) : ge< mor( < mor_,t( row_index, col_index )en } } f2turn 0;u}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P ubTomatrix< M, N, T > : ge< mor( < matrix< O, P, T >< mor_,t( size_t roto_cuset, size_t coto_cuset >aledaname enable_if< O =<-1 M && =y = N 3 && M == N && M >= 2 >::ledte ;bconst {s size_t row_offsmp = 0;s, size_t col_offsep = 0;/ for(( size_t row_index = 0; row_index < M; ++row_index ) {a if ( row_inde==_t roto_cus k ) t row_offsmp M-1; els) {a for(( size_t col_index = 0; col_index M N; ++c l_index ) {a if ( low_inde==_t coto_cus k ) t col_offsep M-1; els) < mor_lt.at( row_inde+t, row_offset, cow_inde+x, col_offset s) e = at( row_index, col_index )en } t col_offsep 0 )en } } f2tur( cogeute_de,lrminant( mor_ce len}uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:rotanite( conse Tanglrsa_, const vexror<-, 1, T >axthis >aledaname enable_if< M == N && M == 4, TT >::leda* l {/ constTanglrs) = static_tast< T >anglrs.0 );// constTsnlio =in >anglr 0 );/ const snlio =_t s >anglr 0 );/ );/ e/ this isecessary =inancVisual Studio cans no fnvoloa t);/ ep_row-calool rdirely iwe j mus/ us2.0 : direly.);/ e/ thiwrraya th'2.0'is i::coerteda_ to ahsanamlrfort );/ eaids ,haxth compones); consT _::zemp = 0.0 consT mpo )b= 1.0;/ const twemp 2 1.0don _.array[0 =_t snliot + mpo -_t snliok ) p_rohaxthmn.array[0]twem0 );/ _.array[1 =_+ mpo -_t snliok ) axthmn.array[ ) axthmn.arra2[1] snlio) axthmn.arra2] );/ _.arra2[1 =_+ mpo -_t snliok ) axthmn.array[ ) axthmn.arra2[2] snlio) axthmn.arra1] );/ _.arra3[1 =__::ze );/ );/ + array[4 =_+ mpo -_t snliok ) axthmn.array[ ) axthmn.arra2[1] snlio) axthmn.arra2] );/ _.arra5[0 =_t snliot + mpo -_t snliok ) p_rohaxthmn.arra1[0]twem0 );/ _.arra6[4 =_+ mpo -_t snliok ) axthmn.arra[11] axthmn.arra2[2] snlio) axthmn.arra0] );/ _.arra7[1 =__::ze );/ );/ + arra8[1 =_+ mpo -_t snliok ) axthmn.array[ ) axthmn.arra2[2] snlio) axthmn.arra1] );/ _.arra9[4 =_+ mpo -_t snliok ) axthmn.arra[11] axthmn.arra2[2] snlio) axthmn.arra0] );/ _.array[10] t snliot + mpo -_t snliok ) p_rohaxthmn.arra2[0]twem0 );/ _.array[11] _::ze ));/ _.array2] =__::ze );/ _.array[13] _::ze );/ _.array413] _::ze );/ _.array[15] mpo ];u }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:rotani_xte( conse Tanglrsa_>aledaname enable_if< M == N && M == 4, TT >::leda* l {/ constTanglrso = static_tast< T >anglrs.0 );// constTsnlio =in >anglr 0 );/ const snlio =_t s >anglr 0 ));/ T tmp, / mp array[ex ] t snliot array[ex ] snli );/ _.array[ex ep array[ex ] snliot array[ex ] t snli );/ _.array4ex ep T tmp, / mp array5ex ] t snliot array9ex ] snli );/ _.array9ex ep array5ex ] snliot array9ex ] t snli );/ _.array5ex ep T tmp, / mp array6ex ] t snliot array10ex ] snli );/ _.array10ex p array6ex ] snliot array10ex ] t snli );/ _.array6ex ep T tmp, / mp array7ex ] t snliot array11ex ] snli );/ _.array11ex p array7ex ] snliot array11ex ] t snli );/ _.array7ex ep T tmpu }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:rotani_yte( conse Tanglrsa_>aledaname enable_if< M == N && M == 4, TT >::leda* l {/ constTanglrs) = static_tast< T >anglrs.0 );// constTsnlio =in >anglr 0 );/ const snlio =_t s >anglr 0 ));/ T tmp, / mp array0ex ] t snli 9] - array[ex ] snli );/ _.array[ex ep array0ex ] snlio t array[ex ] t snli );/ _.array0ex ep T tmp, / mp array1ex ] t snli 9] - array9ex ] snli );/ _.array9ex ep array1ex ] snlio t array9ex ] t snli );/ _.array1ex ep T tmp, / mp array2ex ] t snli 9] - array10ex ] snli );/ _.array10ex p array2ex ] snlio t array10ex ] t snli );/ _.array2ex ep T tmp, / mp array3ex ] t snli 9] - array11ex ] snli );/ _.array11ex p array3ex ] snlio t array11ex ] t snli );/ _.array3ex ep T tmpu }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:rotani_zte( conse Tanglrsa_>aledaname enable_if< M == N && M == 4, TT >::leda* l {/ constTanglrs) = static_tast< T >anglrs.0 ){/ ;// constTsnlio =in >anglr 0 );/ const snlio =_t s >anglr 0 ));/ T tmp, / mp array0ex ] t snli t array4ex ] snli );/ _.array4ex ep array0ex ] snliot array4ex ] t snli );/ _.array0ex ep T tmp{/ ;// mp array1ex ] t snli t array5ex ] snli );/ _.array5ex ep array1ex ] snliot array5ex ] t snli );/ _.array1ex ep T tmp, / mp array2ex ] t snli t array6ex ] snli );/ _.array6ex ep array2ex ] snliot array6ex ] t snli );/ _.array2ex ep T tmp, / mp array3ex ] t snli t array7ex ] snli );/ _.array7ex ep array3ex ] snliot array7ex ] t snli );/ _.array3ex ep T tmpu }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:pre_rotani_xte( conse Tanglrsa_) >aledaname enable_if< M == N && M == 4, TT >::leda* l {/ constTanglrs) = static_tast< T >anglrs.0 );// constTsnlio =in >anglr 0 );/ const snlio =_t s >anglr 0 ));/ T tmp{/ ;// mp array1ex );/ _.array1ex ep array1ex ] t snli t array2ex ] snli );/ _.array2ex ep T t ] -snli t array2ex ] t snli ), / mp array5ex );/ _.array5ex ep array5ex ] t snliot array6ex ] snli );/ _.array6ex ep T t ] -snli t array6ex ] t snli ), / mp array9ex );/ _.array9ex ep array9ex ] t snliot array10ex ] snli );/ _.array10ex p T t ] -snli t array10ex ] t snli );// mp array13ex );/ _.array13ex p array13ex ] t snli t array14ex ] snli );/ _.array14ex p T t ] -snli t array14ex ] t snli )u }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:pre_rotani_yte( conse Tanglrsa_>aledaname enable_if< M == N && M == 4, TT >::leda* l {/ constTanglrs) = static_tast< T >anglrs.0 );// constTsnlio =in >anglr 0 );/ const snlio =_t s >anglr 0 ));/ T tmp, / mp array0ex );/ _.array0ex ep array0ex ] t snli array2ex ] snli );/ _.array2ex ep T t ] snli t array2ex ] t snli ), / mp array4ex );/ _.array4ex ep array4ex ] t snli array6ex ] snli );/ _.array6ex ep T t ] snli t array6ex ] t snli ), / mp array8ex );/ _.array[ex ep array8ex ] t snli array10ex ] snli );/ _.array10ex p T t ] snli t array10ex ] t snli );// mp array12ex );/ _.array12ex p array12ex ] t snli array14ex ] snli );/ _.array14ex p T t ] snli t array14ex ] t snli )u }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:pre_rotani_zte( conse Tanglrsa_>aledaname enable_if< M == N && M == 4, TT >::leda* l {/ constTanglrs) = static_tast< T >anglrs.0 );// constTsnlio =in >anglr 0 );/ const snlio =_t s >anglr 0 ));/ T tmp{/ ;// mp array0ex );/ _.array0ex ep array0ex ] t snli t array1ex ] snli );/ _.array1ex ep T t ] -snli t array1ex ] t snli ), / mp array4ex );/ _.array4ex ep array4ex ] t snli t array5ex ] snli );/ _.array5ex ep T t ] -snli t array5ex ] t snli ), / mp array8ex );/ _.array[ex ep array8ex ] t snli t array9ex ] snli );/ _.array9ex ep T t ] -snli t array9ex ] t snli );// mp array12ex );/ _.array12ex p array12ex ] t snli t array13ex ] snli );/ _.array13ex p T t ] -snli t array13ex ] t snli );u }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:= scite( conse T_= sci[3]12, / ledaname enable_if< M == N && M == 4, TT >::leda* l {/ constT= sci0s) = static_tast< T >_= sci[y0ex 0 );/ const = sci1s) = static_tast< T >_= sci[y1ex 0 );/ const = sci2s) = static_tast< T >_= sci[y2ex 0 )don _.array[0 ) *= sce0 );/ _.array[1 ) *= sce0 );/ _.arra2[1 ) *= sce0 );/ _.arra3[1 ) *= sce0 );/ _.arra4[1 ) *= sce1 );/ _.arra5[0 ) *= sce1 );/ _.arra6[0 ) *= sce1 );/ _.arra7[0 ) *= sce1 );/ _.arra8[0 ) *= sce2 );/ _.arra9[4 ) *= sce2 );/ _.array[10] *= sce2 );/ _.array110] *= sce2 );u }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:= scite( conse Txsa_, consT ysa_, consT z_12, / ledaname enable_if< M == N && M == 4, TT >::leda* l {/ constT_xs) = static_tast< T >x_ 0 )don _.array[0 ) *_x );/ _.array[1 ) *_x );/ _.arra2[1 ) *_x );/ _.arra3[1 ) *_x );/ _.arra4[1 ) *y_ );/ _.arra5[0 ) *y_ );/ _.arra6[0 ) *y_ );/ _.arra7[0 ) *y_ );/ _.arra8[0 ) *z_ );/ _.arra9[4 ) *z_ );/ _.array[10] *z_ );/ _.array110] *z_ );u }uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >ainlio>avoid matrix< M, N, T >:= scite( const vexror3 P, TT >= sci_12, / ledaname enable_if< M == N && M == 4, TT >::leda* l {/ = scite= sci_mn.arrce len}uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoid matrix< M, N, T >:= sci_> tu)lizarite( conse T= sci_[3]12, / ledaname enable_if< M == N && M == 4, TT >::leda* l {/ _.array210] *= static_tast< T >= sci_[0]m0 );/ _.array310] *= static_tast< T >= sci_[1]m0 );/ _.array410] *= static_tast< T >= sci_[2]ce len}uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >ainlio>avoid matrix< M, N, T >:= sci_> tu)lizarite( const vexror3 P, TT >= sci_12, / ledaname enable_if< M == N && M == 4, TT >::leda* l {/ = sci_> tu)lizarite= sci_mn.arrce len}uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >ainlio>avoa* omatrix< M, N, T >:: se> tu)lizarite( conse Txsa_, consTT ysa_, consTT z_12, / ledaname enable_if< M == N && M == 4, TT >::leda* l {/ _.array210) = static_tast< T >x_ 0 );/ _.array310) = static_tast< T >y_ 0 );/ _.array410) = static_tast< T >z_ce len}uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >ainlio>avoid matrix< M, N, T >:= se> tu)lizarite( conse T> tu)[3]12, / ledaname enable_if< M == N && M == 4, TT >::leda* l {/ _.array210) = static_tast< T >> tu)[y0ex 0 );/ _.array310) = static_tast< T >> tu)[y1ex 0 );/ _.array410) = static_tast< T >> tu)[y2ex 0 )en}uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >ainlio>avoid matrix< M, N, T >:= se> tu)lizarite( const vexror3 P, TT >> tu)lizari_12, / ledaname enable_if< M == N && M == 4, TT >::leda* l {/ = se> tu)lizarite> tu)lizari_mn.arrce len}uuuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >ainlio>avobTomatrix< M, N, T > : ge> tu)lizaritet vexror3 P, TT >> tu)lizari_12, / ledaname enable_if< M == N && M == 4, TT >::leda* ;bconst {/ > tu)lizari_mn.arr[y0ex array12ex );/ > tu)lizari_mn.arr[y1ex p array13ex );/ > tu)lizari_mn.arr[y2ex p array1413 ];u}uuuutegefate< size_t M, size_t N, ledaname T >asize_t matrix< M, N, T >:>asiws(;bconst {/ f2turn M * len}uuuutegefate< size_t M, size_t N, ledaname T > ledanamlamatrix< M, N, T >: itlrar_t matrix< M, N, T >:= begin(; {/ f2turn arrayen}uuuutegefate< size_t M, size_t N, ledaname T > ledanamlamatrix< M, N, T >: itlrar_t matrix< M, N, T >:= end(; {/ f2turn arr2] snzate(;en}uuuutegefate< size_t M, size_t N, ledaname T > ledanamlamatrix< M, N, T > const_itlrar_t matrix< M, N, T >:= begin(;bconst {/ f2turn arrayen}uuuutegefate< size_t M, size_t N, ledaname T > ledanamlamatrix< M, N, T > const_itlrar_t matrix< M, N, T >:= end(;bconst {/ f2turn arr2] snzate(;en}uuuutegefate< size_t M, size_t N, ledaname T > ledanamlamatrix< M, N, T >reinverst_itlrar_t matrix< M, N, T >:r= begin(; {/ f2turn arr2] snzate N - ;en}uuuutegefate< size_t M, size_t N, ledaname T > ledanamlamatrix< M, N, T >reinverst_itlrar_t matrix< M, N, T >:r= end(; {/ f2turn arr2N - ;en}uuuutegefate< size_t M, size_t N, ledaname T > ledanamlamatrix< M, N, T > consreinverst_itlrar_t matrix< M, N, T >:r= begin(;bconst {/ f2turn arr2] snzate2N - ;en}uuuutegefate< size_t M, size_t N, ledaname T > ledanamlamatrix< M, N, T > consreinverst_itlrar_t matrix< M, N, T >:r= end(;bconst {/ f2turn arr2N - ;en}uuuutegefate< size_t M, size_t N, ledaname T >ategefate< ledaname it_funcraror_t ( const matrix< M, N, T_t matrix< M, N, T >: gee itial sined_matr(r ; {/ matrix< M, N, T / matr_ ) e it_funcraroror()/ matr_et ;do retur/ matr_ )/u}uuueit's ugly, bur_t allows having pr::oply itial sin = stat mbnveuuuewithx rhaving to worry abx r= stat itial sizari order.uuutegefate< size_t M, size_t N, ledaname T >aconst matrix< M, N, Ta* omatrix< M, N, T >IDENTITY( {/ t matrix< M, N, T >: : gee itial sined_matr< = se>o_identity_funcraraconst matrix< M, N, Ta* omatrix< M, N, T >ZERO( {/ t matrix< M, N, T >: : gee itial sined_matr< = se>o_::ze_funcrarfrobenius_norm(te ;bconst {dounabanormmp = 0.0 0 con_/ itlraror it = begin(), it_end = end(;d / for( ; it != it_end; ++it ) {anormmt +=++i*+=++aren ;do retursqrt(norm) ;; }uuutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O >avobTomatrix< M, N, T >khomat_rao_pr:ductix( const matrix< O, N, T >r_rig_ex, matrix<*< O, N, T >pr:d_m_ lbconst {//build pr:ducte/ foeinvy f_colu {/ for( size_t col = 0; col < N; ++c l ) {a for ( size_mol = 0mex M N; m l ) {a for( size_ool = 0oow < O; oex ) {a pr:d_lt.aO*mmt oex, cx )b= atmow, col )b* rig_lt.atoow, col )en } } } }ouutegefate< size_t M, size_t N, ledaname T >ategefate< size_t O, size_t P >avoa* omatrix< M, N, T >kronecker_pr:ductix( const matrix< OP N, T >r_rig_ex, matrix<*< O,*, P, T >& f2su_m_ lbconst {//build pr:ducte/ foeinvy f_colu {/ for( size_mol = 0mex M N; m l ) {a for ( size_nol = 0nol < N; n l ) {a for( size_ool = 0oow < O; oex ) {a for( size_t p = 0; p < P++p k ) {a f2su_lt.aO*mmt oexP*nmt px )b= atmownol )b* rig_lt.atoowpol )en } } } } }ouutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname TT >avoa* omatrix< M, N, T >c_ta_frosum( const matrix< M, N,T T >& other ; , leifdevmml::t matrix< M, N,T Tr/ matr_tse> le ; , leifde> ledanamlamatr_tse> le > const_itlrar tget_const_itlrar.0 0 / itlraror it = begin(), it_end = end();/ >get_const_itlraror other_it = other.begin()do for( ; it != it_end; ++it, ++other_it ) {/ *i)b= static_tast< T >(++other_it()do } ;; }uuutegefate< size_t M, size_t N, ledaname T ubTomatrix< M, N, T >: ge< m(_ lbconst {/ < m_& value = static_tasT>( stdnumeetrilimitssT>::t r(r).0 0 con_/ itlraroor it = begin(0 / it_end = end() / for( ; it != it_end; ++l ) / if *i< < m_& valu) {/ < m_& value =++aren } } retur< m_& val ;;}u utegefate< size_t M, size_t N, ledaname T ubTomatrix< M, N, T >: ge< r(r lbconst {/ (0).0 0 con_/ itlraroor it = begin(0 / it_end = end() / for( ; it != it_end; ++l ) / if *i> : geabse< m(_ lbconst {/ < m_& value = static_tasT>( stdnumeetrilimitssT>::t r(r).0 0 con_/ itlraroor it = begin(0 / it_end = end() / for( ; it != it_end; ++l ) / if fabs(=++e() fabs(< m_& val)u) {/ < m_& value fabs(=++earen } } retur< m_& val ;;}u utegefate< size_t M, size_t N, ledaname T ubTomatrix< M, N, T >: geabse< r(r lbconst {/ (0).0 0 con_/ itlraroor it = begin(0 / it_end = end() / for( ; it != it_end; ++l ) / if fabs(=++e(> fabs(asize_t matrix< M, N, T >nnz(r lbconst {( size_t un it p 0 )e0 con_/ itlraroor it = begin(0 / it_end = end() / for( ; it != it_end; ++l ) / if *it !0u) {/ ; ++un itaren } };do return un itar;}u utegefate< size_t M, size_t N, ledaname T >asize_t matrix< M, N, T >nnz(e( conse& ) teshold_m_ lbconst {( size_t un it p 0 )e0 con_/ itlraroor it = begin(0 / it_end = end() / for( ; it != it_end; ++l ) / if fabs(=++e(> ) teshold_m_ {/ ; ++un itaren } };do return un itar;}}u utegefate< size_t M, size_t N, ledaname T >avobTomatrix< M, N, T >) teshold(e( conse& ) teshold_, value_ ; {/ itlraroor it = begin(0 / it_end = end() / for( ; it != it_end; ++l ) / if fabs(=++e()= ) teshold_, value_ {/ *i)b= static_tasT> (0).0 } } du uuutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname T T >avobTomatrix< M, N, T >quantisizeo(st matrix< M, N,T T >quantisidsa_, consT&r< m_& vala_, consT&rgeranglue long( stdnumeetrilimitss4, TT >t r(r).0 longr< m_>geranglue long( stdnumeetrilimitss4, TT >tegin).0 longr>geranglue (geranglu-r< m_>gerangl).0 0 T geranglue le ; , leifde> ledanaml_tse> le >t_itlrar tget_itlrar.0 tn_/ itlraror _quantue quantisidser.begin() con_/ itlraror it = begin(), it_end = end(t; / for( ; it != it_end; ++it, r _quantux ) {a if stdnumeetrilimitssTT>::is_signede_ {/ *_quantue TT( stdtegi stdtax(r< m_>gerangl, long((+=++i*+>geranglu/ geranglu)mt 0.5)),rgerangluk )len} el {/ *_quantue TT( stdtegi stdtax(r< m_>gerangl, long((( *it < m_& val)u*+>geranglu/ gerangl)mt 0.5)),rgerangluk )len} }r;}}u}o}ouutegefate< size_t M, size_t N, ledaname T >ategefate, ledaname T T >avobTomatrix< M, N, T >quantisi(st matrix< M, N,T T >quantisidsa_T&r< m_& vala_T&rategefate, ledaname T T >avobTomatrix< M, N, T >dequantisi(st matrix< M, N,T T >dequantisidsa_, consTT&r< m_& vala_, consTT&reranglue long( stdnumeetrilimitss4,TT >t r(r).0 longr< m_>eranglue long( stdnumeetrilimitss4,TT >tegin).0 longr>eranglue (eranglu-r< m_>erangl).0 0 TTr>geranglue le ; , leifde> ledanaml_tse> le >t_itlrar tget_itlrar.0 tn_/ itlraror _dequantue dequantisidser.begin() con_/ itlraror it = begin(), it_end = end(t;/ for( ; it != it_end; ++it, r _dequantux ) {a if stdnumeetrilimitssT>::is_signede_ {/ *_dequantue stdtegi stdtax(r< m_& vala_TT((TT(=++e(/ gerangl)m*+>gerangl)),rgeranglu)mt < m_& val)),ravobTomatrix< M, N, T >f_coluwisect_sumt vexror< N,T >& mmidsf_colum_m_ lbconst { a for ( size_nol = 0nol < N; n l ) {/( T val p 0 )ea for ( size_mol = 0mex M N; m l ) {a T val +)b= atmownol; en} & mmidsf_colum_lt.atn 3 )b= val ; } d uuutegefate< size_t M, size_t N, ledaname T dounaba* omatrix< M, N, T >& m_elemones(te ;bconst {dounaba& mmp = 0.0 0 con_/ itlraror it = begin(), it_end = end(;d / for( ; it != it_end; ++it ) {a& mm+=+=++aren ;do retursum; } d uuutegefate< size_t M, size_t N, ledaname T uutegefate< size_RP >aledaname enable_ifR O == M &R O =NR >::leda* omatrix< M, N, T >diagte( const vexror, R, T >diag_& valsue_ l ::zero 0;/ for( size_tol = 0rol < R; rit ) {at.ar, ris) = static_tast< T >diag_& valsult.ar0 ) ;} } retur0; } d u uuutegefate< size_t M, size_t N, ledaname T >avoa* omatrix< M, N, T >= sedct(r ; {dounabawe_righp = 0f; {dounaban m_f_rohp M; {dounaba::fi_& value = 0f; {/ for( size_t row = 0; row < M; ++row ) {awe_righp (_t row=>( 0.0 ?rsqrt(1/n m_f_ro) :rsqrt(2/n m_f_ro) 0; to reiceive orthonormality {a for( size_t col = 0; col N P; ++c l ) {a ::fi_& value (2 ] t lmt 1l )b* ro* M_PI(/ (2*Ml )en ::fi_& value t s >::fi_& valul )en ::fi_& valu*=awe_rig; {/ at( row, col )b= static_tast< T >::fi_& valul ; en} }r;}}u uuutegefate< size_t M, size_t N, ledaname T >avoa* omatrix< M, N, T >= serandosumintuseede_ ; {/ if seede> !0u) {a&randf seede).0 0 dounaba::fiV value = 0f; {/ for( size_t row = 0; row < M; ++row ) {a for( size_t col = 0; col N P; ++c l ) {a ::fiV value randfl )en ::fiV valu/= RAND_MAX; {/ at( row, col )b-1 0.+s2.0 *b= static_tastdounabaT >::fiV valul ; en} }r;}u uuutegefate< size_t M, size_t N, ledaname T >avo* omatrix< M, N, T >wr/ ie>o_rawte( cons stdsmatng >dirsa_, cons stdsmatng >::fedana_m_ lbconst intudirsfedgthue dirs.snzate2N1; intul_ta_sepatlraroe dirs.find_l_ta_zeof"/"l )e stdsmatng pathue dirs; {/ ifl_ta_sepatlraro(-1)_ {/path.app= enf"."l )e/path.app= enf"raw" ) ;} } stdsmatng path_rawue path.0 0 stdofsmaeamex ::fe; 0 x ::fe.op= ( path_raw.c_smain() ){/ nfx ::fe.is_op= ()u) {/, size_fed_slice =isizeoTl )bM*N )e/x ::fe.wr/ i( (char*)& (*thi,_fed_slice ) )e/x ::fe.clepos) ;} el {/ std::ut << "nof::fe op= " << std= el ; } d uuutegefate< size_t M, size_t N, ledaname T >avo* omatrix< M, N, T >aead_fros_rawte( cons stdsmatng >dirsa_, cons stdsmatng >::fedana_m_ st intudirsfedgthue dirs.snzate2N1; intul_ta_sepatlraroe dirs.find_l_ta_zeof"/"l )e stdsmatng pathue dirs; {/ ifl_ta_sepatlraro::d(;d ){/ nfin::fe.is_op= ()x ) {a itlraroor it = begin(0 / it_end = end() /wh:fe (_fed_data >!0u) ) {a fed_aead p (fed_data %_!0u? fed_data %_!0)nd; ++itfed_aead - =isizeoTl x ) {a *i)b*T_ptrnd; T_ptrn } } )endelete[] data; {ain::fe.clepos) ;} el {/ std::ut << "nof::fe op= " << std= el ; } du u}u utegefate< size_t M, size_t N, ledaname T >avobTomatrix< M, N, T >wr/ iecsv_::fete( cons stdsmatng >dirsa_, cons stdsmatng >::fedana_m_ lbconst intudirsfedgthue dirs.snzate2N1; intul_ta_sepatlraroe dirs.find_l_ta_zeof"/"l )e stdsmatng pathue dirs; {/ ifl_ta_sepatlraro(-1)_ {/path.app= enf"."l )e/path.app= enf"csv" ) ;} }0 stdofsmaeamex ::fe; 0 x ::fe.op= ( path.c_smain() ){/ nfx ::fe.is_op= ()u) {/x ::fe << ( *thi << std= el } )enx ::fe.clepos) ;} el {/ std::ut << "nof::fe op= " << std= el ; r;}}u}ouutegefate< size_t M, size_t N, ledaname T >avo* omatrix< M, N, T >aead_csv_::fete( cons stdsmatng >dirsa_, cons stdsmatng >::fedana_m_st intudirsfedgthue dirs.snzate2N1; intul_ta_sepatlraroe dirs.find_l_ta_zeof"/"l )e stdsmatng pathue dirs; {/ ifl_ta_sepatlraro(-1)_ {/path.app= enf"."l )e/path.app= enf"csv" ) ;} }0 stdifsmaeamein::fe; in::fe.op= ( path.c_smain,s stdios >::d(;d / nfin::fe.is_op= ()u_ {///TODO: s noyet itegemoneed {///in::fe >> ( *thi >> std= el } )enin::fe.clepos) ;} el {/ std::ut << "nof::fe op= " << std= el ; } du uuutegefate< size_t M, size_t N, ledaname T >avoa* omatrix< M, N, T >= m_f_ro(st matrix& other ;bconst {, leifdev vexror< N, T_t rot le; { {t rot le)b* r0 new t rot le; {t rot le)b* r1 new t rot le; {0 x othe::zero 0; a for ( size_t row = 0; row < M; ++row ) {a: get_rowt_r++, ** r0 d(;d a if ( rex < M ) {a : get_rowt_r, ** r1 l )en ** r0 +=+=* r1 )en x othes get_rowt_r/2 , ** r0 d(ren } };ddeleteb* r0;;ddeleteb* r1; } }ouutegefate< size_t M, size_t N, ledaname T >avoa* omatrix< M, N, T >= m_f_columnet matrix< M,/2,r,T >& other ;bconst {, leifdev vexrorM N, T_t cot le; {0 t cot le] t l0 new t cot le; {t cot le] t l1 new t cot le; {0 x othe::zero 0; a for ( size_t col = 0; cl < N; ++c l ) {a: get_coluf ( l++, *t l0 d(ren if ( lol N l ) {a : get_coluf ( l, *t l1 l )en *t l0 +=+=t l1 )en x othes get_coluf ( l/2,r*t l0 d(ren } };ddeletebt l0;;ddeletebt l1; } }o } edanaspace vmml #endifvmmlib-1.3.5/include/vmmlib/lamatr_funcrars.hpp0000644000076500000240000000651311770276417020501 0ustarooe:festaff#ifnifde__, VM__MATRIX_FUNCTORS__HPP__ #ifdnlio__, VM__MATRIX_FUNCTORS__HPP__ #include #include #include danaspace vmml { >ategefate, ledaname T >tructe= se>o_::ze_funcrar ) {u inlio>avoa::oplraror()T&r le T >( 0.0 )do }p{/ ;} 0; e>tructe= se>o_::ze >ategefate, ledaname T >tructe= se>o_identity_funcrar ) {u inli, / ledaname enable_ife::ROWShp=>e::COLS 2 >::leda / ::oplraror()T&ro_::ze_funcrar le T >1 0.0 )do do }p{/ {/ f2turn 0; e/ for sfinado }p} 0; e>tructe= se>o_identityu}uuue *thifuncrar coares to / matces, and also f2tus true/equal iuuue *e / matcesrhaveto ahsanam& vals bur_someb* rs/f_colum ares, inveed >ategefate, ledaname T >tructe/ matr_equals_allow_, inveed_f_roh: stdbsfiry_funcrion<_, consT&,_, consT&,_, boo> { do , boo::oplraror(), consT&r le , tolerances) {/ const size_rue tructe/ matr_equals_allow_, inveed_f_ro >ategefate, ledaname T >tructe/ matr_equals_allow_, inveed_f_colum : stdbsfiry_funcrion<_, consT&,_, consT&,_, boo> { do , boo::oplraror(), consT&r le , tolerances) {/ const size_rue tructe/ matr_equals_allow_, inveed_f_colump p} edanaspace vmml #endifvmmlib-1.3.5/include/vmmlib/lamatr_pseudo, inver.hpp0000644000076500000240000001641611770276417021534 0ustarooe:festaff#ifnifde__, VM__MATRIX_PSEUDOINVERSE__HPP__ #ifdnlio__, VM__MATRIX_PSEUDOINVERSE__HPP__ #include #include #include #include #include #include /* )do*** ( cogeuids ,hpseudos, inverre oa non-squaramlamatro*** - s ,hpseudos, inverrth coutedaby s ,hhelpre oSVD - s ,h, toleranc/ foo ahsignificantusingularo& vals th oprionallye= s - itegemoneizari workh onlye/ fo/ matcesrwith moreb* rsoo an f_colum foquadrstat )do / matces.s/ usa > tu);epods, outmlamatro/ fo/ matcesrwith morebf_colum o an f_ro */ danaspace vmml { do eT{/ do -evmml::t matri...> ar coatiblt);/ eTin itnaldo -efloat ar dounaba* >ategefate, ledaname,t, ledanamein itnald=tdounabaT clash coute_pseudo, inver {a punaic>: , leifde> ledaname::, valu> le Tex itnal )don , leifdet matrixe::ROWS,>e::COLS,mein itnald> lamatr_mnot le; on , leifdet matrixe::COLS,me::ROWS,>ein itnald> lamatr_nmot le; on , leifdet matrixe::COLS,me::COLS,mein itnald> lamatr_nnot le; on , leifdet matrixe::ROWS,>e::ROWS,>ein itnald> lamatr_mmot le; on , leifdet matrixe::COLS,me::ROWS,>eex itnald> p, iot le; on , leifdev vexrore::COLS,mein itnald> v v_not le; on , leifdev vexrore::ROWS,>ein itnald> v v_mot le; on , leifdelapack_svdixe::ROWS,>e::COLS,mein itnald> svdot le; on , leifdeblas_dgemmore::COLS,m1,>e::ROWS,>ein itnald> blas_t le; { on , leifdelapack_svdixe::COLS,me::ROWS,>ein itnald> svdot le_, i; on , leifdeblas_dgemmore::ROWS,>1,>e::COLS,mein itnald> blas_t le_, i; on {/ =tructetmp_/ matces ) / matr_mnot le U ;{/ do v v_not le =igmas; / matr_nnot le Vt; / matr_mnot le , out ); lamatr_nmot le >& f2su )en p, iot le pseudo, inver;; lamatr_nmot le >T tmp{/ }; {/ ructetmp_/ matces_, i ) / matr_nmot le >U ;{/ do v v_mot le =igmas; / matr_mmot le Vt; / matr_nmot le >, out )en )en / matr_mnot le & f2su )en / matr_mnot le T tmp{/ }; {/); >avoa::oplraror(), consT&r, outa_T&rpseudo, inver_> tu);epodsl ) )en )en if e::ROWShixe::COLS t ) {a //f_cs T_t rs t coute_, i(r, outa_pseudo, inver_> tu);epodsl; )en } el {/ //* rsoT_t cs t coute(r, outa_pseudo, inver_> tu);epodsl; )en } } )en>avoat coute_, i(r, consT&r, outa_T&rpseudo, inver_> tu);epod, s) t, ledaname::, valu> le , tolerance stdnumeetrilimitss4, ledaname::, valu> le T::epsilo ()u_ ) {a if _work_, iow=>( t ) {/ _work_, iow new tmp_/ matces_, in0 )do do })do do / // :oplrfo an SVD one *e / matx to : goo ahsingularo& vals)do do svdot le_, i svd )do do / matr_nmot le& U = _work_, i->U ;{/ do v v_mot le& =igmas = _work_, i->=igmas; / matr_mmot le& Vt = _work_, i->Vt; / matr_nmot le&r, _data _work_, i->, out ) , _data.c_ta_frosum> tu);epo(, out) ) )do do , boosvdo:k = svd.t coute(r, _data,_U, =igmas, Vt ) )do do if !osvdo:k t ) {a , VMIB_ERROR( "/ matx coute_pseudo, inver -epronabmrwith lapack svd.", V VMIB_HERE ) )do do })en )en /* std::ut << "U: " << std= el << U << std= el)en << " =igmas: " << std= el << =igmas << std= el)en << " Vt: " << std= el << Vt << std= el */ en )en // : goo ahnumbnvre osignificantusingular, i.e.,o& vals which aresaboveto ah, toleranc& val)en , ledanamv vexrore::ROWS,>ein itnald> > const_itlrar *i)b=igmaser.begin (), it_end =igmase= end() /, size_n m_=igmas p 0 )ea / for( ; it != it_end; ++it ) {a if *i>= , tolerances) ++n m_=igmas )ea el {a f2tun } )en // coutes, inverrwith alloo ahsignificantu, inverrsingularo& vals)en / matr_mnot le >& f2su = _work_, i->& f2su )en & f2sue::zero 0do do en / matr_mnot le > mp _work_, i->T tmp )en =igmasereciprocal_safe(l )en )en v v_mot le vnst;)en v v_not le ust;)en blas_t le_, i eblas_dgemm1 )en )en if n m_=igmas >= 1e_ {/ {a *i)b=igmaser.begin )ea for( size_l p 0r( _l < n m_=igmas &&0l it != it_end; ++it, r M ) {a Vt.: get_rowl, vnstn )ea U.: get_coluf l, ustol )en blas_dgemm1.t coute_vv_:uteforvnst, ust,> mp l )en )en mp * +=++i; {a f2su +p T tmpen )en } pseudo, inver_> tu);epod.c_ta_frosum f2su l )en )en } el {/ pseudo, inver_> tu);epod.::zero o retur/ matrrwith ::zes)en } )en>avoat coute(r, consT&r, outa_T&rpseudo, inver_> tu);epod, s) , ledaname::, valu> le , tolerance stdnumeetrilimitss4, ledaname::, valu> le T::epsilo ()u_ ) {a if _workow=>( t ) {/ _workow new tmp_/ matcesn0 )do do })do do / // :oplrfo an SVD one *e / matx to : goo ahsingularo& vals)do do svdot le svd )do do / matr_mnot le >U = _work->U ;{/ do v v_not le& =igmas = _work->=igmas; / matr_nnot le& Vt = _work->Vt; / matr_mnot le >, _data _work->, out ) , _data.c_ta_frosum, outm) )do do , boosvdo:k = svd.t coute(r, _data,_U, =igmas, Vt ) )do do if !osvdo:k t ) {a , VMIB_ERROR( "/ matx coute_pseudo, inver -epronabmrwith lapack svd.", V VMIB_HERE ) )do do })en )en /* std::ut << "U: " << std= el << U << std= el)en << " =igmas: " << std= el << =igmas << std= el)en << " Vt: " << std= el << Vt << std= el */ en )en // : goo ahnumbnvre osignificantusingular, i.e.,o& vals which aresaboveto ah, toleranc& val)en , ledanaev vexrore::COLS,mein itnald> > const_itlrar *i)b=igmaser.begin (), it_end =igmase= end() /, size_n m_=igmas p 0 )ea / for( ; it != it_end; ++it ) {a if *i>= , tolerances) ++n m_=igmas )ea el {a f2tun } )en // coutes, inverrwith alloo ahsignificantu, inverrsingularo& vals)en / matr_nmot le&r& f2su = _work->& f2su )en & f2sue::zero 0do do en p, iot le&rpseudo, inver = _work->pseudo, inver;; lamatr_nmot le > mp _work->T tmp )en =igmasereciprocal_safe(l )en //dounaba&igma_, iow 0 )en )en v v_not le vnst;)en v v_mot le ust;)en blas_t le eblas_dgemm1 )en )en if n m_=igmas >= 1e_ {/ {a *i)b=igmaser.begin )ea for( size_l p 0r( _l < n m_=igmas &&0l it != it_end; ++it, r M ) {a Vt.: get_rowl, vnstn )ea U.: get_coluf l, ustol )en blas_dgemm1.t coute_vv_:uteforvnst, ust,> mp l )en )en mp * +=++i; {a f2su +p T tmpen )en } pseudo, inver.c_ta_frosum f2su l )en pseudo, inver.> tu);epozeo(spseudo, inver_> tu);epodsl;)en )en } el {/ pseudo, inver_> tu);epod.::zero o retur/ matrrwith ::zes)en } {/); coute_pseudo, inver(t ) : _work(>( t, _work_, i(>( t ) {}p{/ {/ )do do coute_pseudo, inver(r, cons coute_pseudo, inver& cp t ) : _work(>( t, _work_, i(>( t ) {}p ) ~ coute_pseudo, inver(t ) {/ deleteb_work;)en deleteb_work_, i; on }p pprot veed: )do do tmp_/ matces* b_work;)do do tmp_/ matces_, i* b_work_, i; } 0; t_en coute_pseudo, inver clashn}uu }// t_envmmledanaspace #endifvmmlib-1.3.5/include/vmmlib/lamatr_> tits.hpp0000644000076500000240000000254511770276417020145 0ustarooe:festaff//Copy* rig (c) 2010 Daniel Pfeifer #ifnifde__, VM_MATRIX_TRAITS_HPP__ #ifdnlio__, VM_MATRIX_TRAITS_HPP__ #include #include <, bst/la/lamatr_> tits.hpp> danaspace , bst { danaspace la { >ategefat< size_t M, size_t N, ledanameT >tructe/ matr_> titso> { , leifdevmml::t matri< M, N,>o/ matr_> le; = stat , cons/ntuf_rohp M; {= stat , cons/ntuf_cs = * l , leifde T= scar_> le; >ategefat/ntuR_r, /ntuCol> {= stat = scar_> le r(( const matrot le >ml ) {aBOOST_STATIC_ASSERT(R_re> !0l;)enBOOST_STATIC_ASSERT(R_re< f_ro) )enBOOST_STATIC_ASSERT(Cboo> !0l;)enBOOST_STATIC_ASSERT(C lol f_csl;)eno retur/lt.aC l, R_r) ;} >ategefat/ntuR_r, /ntuCol> {= stat = scar_> le& w(t matrot le >ml ) {aBOOST_STATIC_ASSERT(R_re> !0l;)enBOOST_STATIC_ASSERT(R_re< f_ro) )enBOOST_STATIC_ASSERT(Cboo> !0l;)enBOOST_STATIC_ASSERT(C lol f_csl;)eno retur/lt.aC l, R_r) ;} = stat = scar_> le ir(/ntuf_r,s/ntuf_c,), const matrot le >ml ) {aBOOST_ASSERT(r_re> !0l;)enBOOST_ASSERT(r_re< f_ro) )enBOOST_ASSERT(cboo> !0l;)enBOOST_ASSERT(cbool f_csl;)eno retur/lt.af_c,)r_r) ;} = stat = scar_> le&0lw(/ntuf_r,s/ntuf_c,)t matrot le >ml ) {aBOOST_ASSERT(r_re> !0l;)enBOOST_ASSERT(r_re< f_ro) )enBOOST_ASSERT(cboo> !0l;)enBOOST_ASSERT(cbool f_csl;)eno retur/lt.af_c,)r_r) ;} }; p} edanaspace la } edanaspace , bst #end /* , VM_MATRIX_TRAITS_HPP */ vmmlib-1.3.5/include/vmmlib/qr_de coosizari.hpp0000644000076500000240000000354611770276417020633 0ustarooe:festaff#ifnifde__, VM__QR_DECOMPOSITION__HPP__ #ifdnlio__, VM__QR_DECOMPOSITION__HPP__ #include #include #include #include #include /* * QR de coosizari using = sbil sin gram-schmidt * A -> / matx to be favexr sin * Q -> orthonormal * Rn -> upper matangularo */ danaspace vmml { ouutegefate< size_t M, size_t N, ledaname T >avoaqr_de coose_gram_schmidtf {/ >aconst matrix< M, N, T& A_12, / t matrix< MM N, T& Q12, / t matrixN M, N, T& R )/ 0 { do Q = 0. )/ R = 0. );/ ecreefa a >apyre oA_rsincbawerwill changluins/noo ahalgxr thm, / t matrix< M< N, T_A(oA_r). );/ v vexrorM N, T_aet_colu, qet_colu;)do )do #if 0);/ e/ foeach f_colu ;/ for( size_kex = 0kol N P; kces) {/ ec coutesnormme oA's f_colu k {/ A.: get_coluf k,_aet_colu ) )do do constTa_normmp aet_colu.fedgth(); on Rlt.atk,_kex ) a_norm 0do do )do do if a_normmp)b= static_tast< T >( 0.0 t ) breek; on Qes get_coluf k,_aet_colu / a_normm);)do )do ;/ for( size_j ) k+1;_j l N P; jex ) Q.: get_coluf k,_qet_colu ) )do do A.: get_coluf j,_aet_colu ) )do do do )do ;/ Rlt.atk,_jex ) a_t_colu.do.atqet_colu ) )do do )do do for( size_l p 0;_l < < M; i t ) {/ Af l, jex ) Af l, jex - Ratk,_jex * Qf l, k ) )do do })do })do })do # el);/ v vexrorM N, T_ v()do for/ntuj p 0;_j l N P; jex ) { {/ A.: get_coluf j,_v ); on for/ntul p 0;_l < j M; i t ) Q.: get_coluf i,_qet_colu ) )do do A.: get_coluf j,_aet_colu ) ))do ;/ Rf l, jex ) do.atqet_colu,_aet_colu ) )do do do v - qet_colu * R(i,j0 )do do }p{/ {/ R(j,j0 )b=.fedgth(); Q.s get_coluf j,_v / R(j,j0 0 )do }p{/ ;{/ ;{/ #endif}p p} edanaspace vmml #endifvmmlib-1.3.5/include/vmmlib/qtucker3_tensxr.hpp0000644000076500000240000004244011770276417020404 0ustarooe:festaff/* )d* , VMib - Tensxr Clashls)d* )d* @author SusanlioSutef)d*)d* Quantisid inveari of Tucker3 tensxr)d* - 16binsinliarofavexro/ matcesrquantisizari)d* - 8binsiogar thmat , re tensxrrquantisizari)d*)d* referencb:)d* - Sutef, Iglesias, Martou,_Agus, E elnef, Zollikofef, Gopi, Gobbetti, and Pajarola:)d* "In itaveive Multi= sce Tensxr Re conructari / foMultires_cotari V_cole Visual sizari", )d* IEEE T tu)actarih on Visual sizari and C couter Graphics. 2011.)d* */ #ifnifde__, VM__QTUCKER3_TENSOR__HPP__ #ifdnlio__, VM__QTUCKER3_TENSOR__HPP__ #ifdnlioCORE_RANGE 127 #include danaspace vmml { >ategefate< size_R1 M, size_R2 M, size_R3 M, size_I1 M, size_I2 M, size_I3 N, ledaname_& value float N, ledaname_coeffd=tdounabaT clash qtucker3_tensxr ) {punaic>{/ ; , leifdefloat T_in itnal; )en; , leifdeqtucker3_tensxr<_R1 MR2 MR3 MI1 MI2 MI3 NT_& vala_T_coeffd> tucker3_t le; { , leifdetensxr3 t3_t le; { , leifdetensxr3 t3_coeff_t le; { , leifdetensxr3 t3_core_t le; { , leifdet matrixI1 MR1 MT_coeffd> u1_t le; { , leifdet matrixI2 MR2 MT_coeffd> u2_t le; { , leifdet matrixI3 MR3 MT_coeffd> u3_t le; { , leifdetensxr3 t3_comp_> le; , leifdetensxr3 t3_core_comp_> le; , leifdet matrixI1 MR1 MT_in itnald> u1_comp_> le; , leifdet matrixI2 MR2 MT_in itnald> u2_comp_> le; , leifdet matrixI3 MR3 MT_in itnald> u3_comp_> le; , leifdetensxr3 t3_core_signs_> le; = stat , cons, size_SIZEd=tR1*R2*R3 +xI1*R1 +xI2*R2 +xI3*R3; qtucker3_tensxrin )eaqtucker3_tensxri t3_core_t le& , re n )eaqtucker3_tensxri t3_core_t le& , re, u1_t le& U1 Mu2_t le& U2 Mu3_t le& U3 n )eaqtucker3_tensxri , const3_t le& data_, u1_t le& U1 Mu2_t le& U2 Mu3_t le& U3 n )eaqtucker3_tensxri , constucker3_t le >& other )ea~qtucker3_tensxrin )ea)en>avoae enablquantify_ho.a) { _islquantify_ho. = true _islquantify_iog = false _islquantify_inliaro= false }; {/>avoadisenablquantify_ho.a) { _islquantify_ho. = false } ;)en>avoae enablquantify_inliara) { _islquantify_inliaro= true _islquantify_ho. = false }; {/>avoadisenablquantify_inliara) { _islquantify_inliaro= false } ;)en>avoae enablquantify_ioga) { _islquantify_iog = true _islquantify_ho. = false }; {/>avoadisenablquantify_ioga) { _islquantify_iog = false } ;)en {/>avoa: get_re_signs( t3_core_signs_> le& =igum_m_ { =igum_m= _signs; }; {/>avoas get_re_signs( , const3_core_signs_> le =igum_m_ { _signsi)b=igum_ } ;)en {/T_in itnald: geho.test_& vala) { o retureho.test_core_= val }; {/>avoas geho.test_& vala const_in itnald, value_ reho.test_core_= val )b= val_ } ;)en {/>avoas get_rei t3_core_t le& , re n re, re = t3_core_t le( , re n _core_comp.c_ta_frosum( re n } ;)en>avoas geu1( u1_t le& U1e_ r*eu1 = U1 _u1_comp->c_ta_frosumU1e_ } ;)en>avoas geu2(Mu2_t le& U2e_ r*eu2 = U2 _u2_comp->c_ta_frosumU2e_ } ;)en>avoas geu3(Mu3_t le& U3 n r*eu3 = U3 _u3_comp->c_ta_frosumU3e_ } ;)en {/>avoa: get_rei t3_core_t le& data_et ;bcon rdata_e= _core } ;)en>avoag geu1( u1_t le& U1e_ ;bcon rU1 = *eu1 } ;)en>avoag geu2(Mu2_t le& U2e_ ;bcon rU2 = *eu2 } ;)en>avoag geu3(Mu3_t le& U3 n ;bcon rU3 = *eu3 } ;)en {/>avoas get_re_comp( t3_core_comp_> le& , re n re, re_comp = t3_core_comp_> le( , re n _core.c_ta_frosume, re_comp n } ;)en>avoas geu1_comp( u1_comp_> le& U1e_ r*eu1_comp = U1 _u1->c_ta_frosumU1e_ } ;)en>avoas geu2_comp( u2_comp_> le& U2e_ r*eu2_comp = U2 _u2->c_ta_frosumU2e_ } ;)en>avoas geu3_comp( u3_comp_> le& U3 n r*eu3_comp = U3 _u3->c_ta_frosumU3e_ } ;)en {/>avoa: get_re_comp( t3_core_comp_> le& data_et ;bcon rdata_e= _core_comp } ;)en>avoag geu1_comp( u1_comp_> le& U1e_ ;bcon rU1 = *eu1_comp } ;)en>avoag geu2_comp( u2_comp_> le& U2e_ ;bcon rU2 = *eu2_comp } ;)en>avoag geu3_comp( u3_comp_> le& U3 n ;bcon rU3 = *eu3_comp } ;)en n //: gonumbnvre onon::zesc/ fooensxr de coosizari /, size_nnz(r lbcon; /, size_nnz( const_= val& ) teshold n ;bcon; )en, size_nnzet_reir lbcon; /, size_, sizt_reir lbcon; /, size_, si(n ;bcon ro returSIZE } ;)en {/>avoa) teshold_t_rei , cons, size&_nnzet_re_,s, size&_nnzet_re_im_m_(;d a>avoa) teshold_t_rei , consT_coeff& ) teshold_, valu,s, size&_nnzet_re_m_(;d a>avoare conruct(st3_t le& data_,pen const_in itnal& ue< msa_, consT_in itnal& ueavoare conruct(st3_t le& data_, pen const_in itnal& u1e< msa_, consT_in itnal& u1e {/>avoade coosei , const3_t le& data_, pen / t_in itnal& u1e< msa_T_in itnal& u1e {/>avoade coosei , const3_t le& data_, pen / t_in itnal& ue< msa_T_in itnal& ue {/>avoatucker_als( , const3_t le& data_, t_inins/n++isl; )en )enfrit_en stdosmaeam&a::oplrar << (n stdosmaeam&a:sa_, constucker3_t le >t3u_ ) {a t3_core_t le core t3.: get_rei , re n )ea u1_t le* u1 new u1_t le; t3.: geu1( *u1 l )en u2_t le* u2 new u2_t le; t3.: geu2( *u2 l )en u3_t le* u3 new u3_t le; t3.: geu3( *u3 l )en )en os << "U1: " << std= el << *u1 << std= el)en << "U2: " << std= el << *u2 << std= el)en << "U3: " << std= el << *u3 << std= el)en << ", re: " << std= el << , re << std= el ; n )en deletebu1;)en deletebu2 )en deletebu3 )en & f2turos )ea {/)do do vavoat_ta_membnvsn0 )do do vavoat_ta_comp_membnvsn0 )do do vavoaquantisizbasim_/ matcesn t_in itnal& ue< msa_T_in itnal& ue& other ro retur (*thi }; {/d a,ategefate, ledaname_init> {/>avoade coosei , const3_t le& data_, t_inins/n++it(d a>avoare conruct(st3_t le& data_it(;d ad privefa: n //t3_core_t le*re, re )do do u1_t le* eu1 )do do u2_t le* eu2 )do do u3_t le* eu3 ;)ent3_core_t le e, re )en n //upodsonlyein itnallye/ foc coutatarih torhaveta higotheprecisari)ddddddddt3_core_comp_> leme, re_comp )do do u1_comp_> le* _u1_comp )do do u2_comp_> le* _u2_comp )do do u3_comp_> le* _u3_comp )en {/T_in itnaldeho.test_core_= val )ent3_core_signs_> le _signs;)en {/, boo_islquantify_ho.(;d a, boo_islquantify_log(;d a, boo_islquantify_lnliar(;d ad } 0; eclash qtucker3_tensxr ) ) #ifdnlio, VM_TEMPLATE_STRINGddddddddtategefate< size_R1 M, size_R2 M, size_R3 M, size_I1 M, size_I2 M, size_I3 N, ledaname_& val N, ledaname_coeffd> #ifdnlio, VM_TEMPLATE_CLASSNAMEdddddqtucker3_tensxr<_R1 MR2 MR3 MI1 MI2 MI3 NT_& vala_T_coeffd> ) ) , VM_TEMPLATE_STRING , VM_TEMPLATE_CLASSNAME::qtucker3_tensxri t ) :deho.test_core_= val(>( t ) ,o_islquantify_ho.( false t ) ,o_islquantify_ioga false t ) ,o_islquantify_inliara false t {_core.::zero 0;_u1 new u1_t lero _u1->::zero 0;_u2 new u2_t lero _u2->::zero 0;_u3 new u3_t lero _u3->::zero {_core_comp.::zero 0;_u1_comp = new u1_comp_> le() _u1_comp->::zero 0;_u2_comp = new u2_comp_> le() _u2_comp->::zero 0;_u3_comp = new u3_comp_> le() _u3_comp->::zero d u _signs.::zero 0} , VM_TEMPLATE_STRING , VM_TEMPLATE_CLASSNAME::qtucker3_tensxri t3_core_t le& , re n ) :deho.test_core_= val(>( t ) ,o_islquantify_ho.( false t ) ,o_islquantify_ioga false t ) ,o_islquantify_inliara false t {_core = core 0;_u1 new u1_t lero _u1->::zero 0;_u2 new u2_t lero _u2->::zero 0;_u3 new u3_t lero _u3->::zero 0;_u1_comp = new u1_comp_> le() _u1_comp->::zero 0;_u2_comp = new u2_comp_> le() _u2_comp->::zero 0;_u3_comp = new u3_comp_> le() _u3_comp->::zero d _core_comp.c_ta_frosum( re n d u _signs.::zero 0} , VM_TEMPLATE_STRING , VM_TEMPLATE_CLASSNAME::qtucker3_tensxri t3_core_t le& , re, u1_t le& U1 Mu2_t le& U2 Mu3_t le& U3 n ) :deho.test_core_= val(>( t ) ,o_islquantify_ho.( false t ) ,o_islquantify_ioga false t ) ,o_islquantify_inliara false t {_core = core 0;_u1 new u1_t lermU1e_ 0;_u2 new u2_t lermU2e_ 0;_u3 new u3_t ler U3 n )e_u1_comp = new u1_comp_> le() 0;_u2_comp = new u2_comp_> le() 0;_u3_comp = new u3_comp_> le() {0 t_ta_comp_membnvsn0 ) u _signs.::zero 0} , VM_TEMPLATE_STRING , VM_TEMPLATE_CLASSNAME::qtucker3_tensxri , const3_t le& data_, u1_t le& U1 Mu2_t le& U2 Mu3_t le& U3 n ) :deho.test_core_= val(>( t ) ,o_islquantify_ho.( false t ) ,o_islquantify_ioga false t ) ,o_islquantify_inliara false t {_u1 new u1_t lermU1e_ 0;_u2 new u2_t lermU2e_ 0;_u3 new u3_t ler U3 n )e_u1_comp = new u1_comp_> le() 0;_u2_comp = new u2_comp_> le() 0;_u3_comp = new u3_comp_> le() {0 nt3_hooi<_R1 MR2 MR3 MI1 MI2 MI3 NT_coeffd>::derivizt_rei data_, *eu1, *eu2, *eu3 N_( re n d u t_ta_comp_membnvsn0 ) u _signs.::zero 0} , VM_TEMPLATE_STRING , VM_TEMPLATE_CLASSNAME::qtucker3_tensxri , constucker3_t le >& other ) :deho.test_core_= val(>( t ) ,o_islquantify_ho.( false t ) ,o_islquantify_ioga false t ) ,o_islquantify_inliara false t {_u1 new u1_t lero 0;_u2 new u2_t lero 0;_u3 new u3_t lero )e_u1_comp = new u1_comp_> le() 0;_u2_comp = new u2_comp_> le() 0;_u3_comp = new u3_comp_> le() {0 nx othe: get_rei _( re n d x othe: geu1( *_u1 l )ex othe: geu2(r*eu2 l )ex othe: geu3(r*eu3 n d u t_ta_comp_membnvsn0 ) u _signs.::zero 0} , VM_TEMPLATE_STRING >avo*, VM_TEMPLATE_CLASSNAME::t_ta_membnvsn0 {_u1->c_ta_frosum*eu1_comp o 0;_u2->c_ta_frosum*eu2_comp o 0;_u3->c_ta_frosum*eu3_comp o d _core.c_ta_frosume, re_compo 0} , VM_TEMPLATE_STRING >avo*, VM_TEMPLATE_CLASSNAME::t_ta_comp_membnvsn0 {_u1_comp->c_ta_frosum*_u1 l )e_u2_comp->c_ta_frosum*eu2 l )e_u3_comp->c_ta_frosum*eu3 n d _core_comp.c_ta_frosum_coreo 0} , VM_TEMPLATE_STRING , size*, VM_TEMPLATE_CLASSNAME::nnzet_reir lbconst o returecore_comp.nnz(r 0} , VM_TEMPLATE_STRING , size*, VM_TEMPLATE_CLASSNAME::, sizt_reir lbconst o returecore_comp.snzate(;} , VM_TEMPLATE_STRING >avo*, VM_TEMPLATE_CLASSNAME::quantisizbasim_/ matcesnt_in itnal& u1e< msa_T_in itnal& u1equantisi( *eu1, u1e< msa_u1equantisi( *eu2, u2e< msa_u2equantisi( *eu3, u3e< msa_u3eavo*, VM_TEMPLATE_CLASSNAME::quantisizbasim_/ matcesnt_in itnal& ue< msa_T_in itnal& ue: gemegin )eT_in itnaldu2e< me= _u2_comp->: gemegin )eT_in itnaldu3e< me= _u3_comp->: gemegin )e {/ ifdu2e< me< ue< ms_ {/ue< msee= u2e< m ;} {/ ifdu3e< me< ue< ms_ {/ue< msee= u3e< m ;} { {ue: gemaxin )eT_in itnaldu2e: gemaxin )eT_in itnaldu3e: gemaxin )e {/ ifdu2e ue uequantisizeo(s*eu1, ue< msa_uequantisizeo(s*eu2, ue< msa_uequantisizeo(s*eu3, ue< msa_ueavo*, VM_TEMPLATE_CLASSNAME::quantisizt_rei t_in itnal& t_re_< msa_T_in itnal& t_re_avo*, VM_TEMPLATE_CLASSNAME::dequantisizbasim_/ matcesn const_in itnal& u1e< msa_, consT_in itnal& u1edequantisium*eu1_comp, u1e< msa_u1edequantisium*eu2_comp, u2e< msa_u2edequantisium*eu3_comp, u3e< msa_u3eavo*, VM_TEMPLATE_CLASSNAME::dequantisizt_rei , consT_in itnal& t_re_< msa_, consT_in itnal& t_re_avo , VM_TEMPLATE_CLASSNAME::re conruct(st3_t le& data_, pen const_in itnal& ue< msa_, consT_in itnal& ueavo , VM_TEMPLATE_CLASSNAME::re conruct(st3_t le& data_, pen const_in itnal& u1e< msa_, consT_in itnal& u1eavo , VM_TEMPLATE_CLASSNAME::re conruct(st3_t le& data_m_ {t3_comp_> le data )edata.c_ta_frosumdata_it(0{t3_ttm::full_tensxr3_/ matr_multiplicatarium_, re_comp, *eu1_comp, *eu2_comp, *eu3_comp, data ) ){ // inveare conructid data,_which iss/noo le T_in itnald(dounab,efloat) torT_& vald(uin 8 ar uin 16) { ( (snzaof(T_& val)mp)b1) || (snzaof(T_& val)mp)b2n() {/data_.float_se>o_uin _t(sdata t(d } el {/data_.c_ta_frosumdata ) ;} }du , VM_TEMPLATE_STRING ,ategefate, ledaname_init> >avo , VM_TEMPLATE_CLASSNAME::de coosei , const3_t le& data_, t_inins/n++it {tucker_als( data_, /n++it(d} , VM_TEMPLATE_STRING ,ategefate, ledaname_init> >avo , VM_TEMPLATE_CLASSNAME::de coosei , const3_t le& data_, pen / t_in itnal& u1e< msa_T_in itnal& u1e >avo , VM_TEMPLATE_CLASSNAME::de coosei , const3_t le& data_, pen / t_in itnal& ue< msa_T_in itnal& ue >avo , VM_TEMPLATE_CLASSNAME::tucker_als( , const3_t le& data_, t_inins/n++i_ {t3_comp_> le data )edata.c_ta_frosumdata_it(0{ , leifdet3_hooi<_R1 MR2 MR3 MI1 MI2 MI3 NT_in itnald> hooi_> le; hooi_> le::als( data, *eu1_comp, *eu2_comp, *eu3_comp, _, re_comp, /n++it(;d u t_ta_membnvsn0 )} , VM_TEMPLATE_STRING , size*, VM_TEMPLATE_CLASSNAME::nnzir lbconst /, size_::un itow 0 )eu t:un ito+= _u1_comp->nnz(r 0 t:un ito+= _u2_comp->nnz(r 0 t:un ito+= _u3_comp->nnz(r 0 t:un ito+= _core_comp.nnz(r 0 o returt:un it 0} , VM_TEMPLATE_STRING , size*, VM_TEMPLATE_CLASSNAME::nnz( const_= val& ) teshold n ;bconst /, size_::un itow 0 )eu t:un ito+= _u1_comp->nnz( ) teshold n 0 t:un ito+= _u2_comp->nnz( ) teshold n 0 t:un ito+= _u3_comp->nnz( ) teshold n 0 t:un ito+= _core_comp.nnz( ) teshold n 0 o returt:un it 0} ) ) #unifde, VM_TEMPLATE_STRING #unifde, VM_TEMPLATE_CLASSNAME ) } edanaspace vmml #endifvmmlib-1.3.5/include/vmmlib/qua itnari.hpp0000644000076500000240000005013311770276417017434 0ustarooe:festaff/* * , VMib - V vexr & M matx M mh Mib * * @author Philip Schlegel * @author Jonas Boesch * @author Julius N maup * */ #ifnifde__, VM__QUATERNION__HPP__ #ifdnlio__, VM__QUATERNION__HPP__ #include #include #include #include #include #include #include #include #include #include #include #include #include e-ade larizari - #ifdnlioQUATERNION_TRACE_EPSILON 1e-5 danaspace vmml { ouutegefa : , leifdev vexror4 N, T supit 0: using =upit::::oplraror;);/ using =upit::::oplrar=;: using =upit::at;: using =upit::x;: using =upit::y;: using =upit::z;: using =upit::w;: using =upit::array;: using =upit::dnlde< m ; using =upit::dnlde::> le* =>( t 0 do vavoa::zero 0do vavoaidentity(); on tategefate< size_DIM T dddd>avoas grN const matrixDIM,xDIM,x, T& roeizari_/ matr_ );)do ) >avoas grN, ww,x, xx N, yy N, zzo 0do vavoas grNv vexror3 N, T& xyz N, w ) ))on tategefatet ledanam, outst_itlrar_t T dddd>avoas grN, outst_itlrar_t r.beg_, /noutst_itlrar_t #e_ );)do ) , boo::oplrar==i , consT& a r lbcon; , boo::oplrar!=i , consT& a r lbcon; ) , boo::oplrar==i , consqua itnari& a r lbcon; , boo::oplrar!=i , consqua itnari& a r lbcon; ) , boo::oplrar==i , consv vexror4 N, T& a r lbcon; , boo::oplrar!=i , consv vexror4 N, T& a r lbcon; , booim_akini , consqua itnari& a, pen , consT& delta stdnumeetrilimitss4T T::epsilo ()u_;pen n>avoat njuga i(l )equa itnari : get_njuga i(l lbcon; T absir lbcon; T squared_absir lbcon; T normalnzate(;equa itnari : genormalnzad(l lbcon; qua itnari nega i(l lbcon; qua itnari ::oplrar-(l lbcon; do )do , consqua itnari& ::oplrar=i, consqua itnari& : oth);)do , consv vexror4 N, T& ::oplrar=i , consv vexror4 N, T& : other ))do ; //squa itnari/qua itnari ::oplrarih; // ddddqua itnari ::oplrar+i , consqua itnariavoa::oplrar+=i , consqua itnariavoa::oplrar-=i , consqua itnariavoa::oplrar*=i , consqua itnariavoa::oplrar*=i T a r; >avoa::oplrar/=i T a r; )do ; //qua itnari/v vexr ::oplrarih; // ddddqua itnari ::oplrar+i , consv vexror3 N, T& a r lbcon; qua itnari ::oplrar-( , consv vexror3 N, T& a r lbcon; qua itnari ::oplrar*( , consv vexror3 N, T& a r lbcon; >avoa::oplrar+=i , consv vexror3 N, T& a r; >avoa::oplrar-=i , consv vexror3 N, T& a r; >avoa::oplrar*=i , consv vexror3 N, T& a r; )do v v3 (*th x b v vexror3 N, T crossi , consqua itnariavoanormali , consqua itnari& aa, , consqua itnari& bb, , consqua itnari& cc, , consqua itnari& dd e(;equa itnari normali , consqua itnari& aa, , consqua itnari& bb, , consqua itnari& cc l ){ //rto c cbnliotwo roeizaris, multiplyoo ahrespectavesqua itnaris r.f re using roeizl { /nsteadre oroeizang twice / foincaeapods:oplrfoeran, but r. awarese onon-c cmutatavity! >avoaroeizli T o ata, , consv vexror3 N, T& a r; qua itnari roeizli T o ata, v vexror3 N, T& axis, , consv vexror3 N, T& a r; qua itnari roeizl_xi T o ata, , consv vexror3 N, T& a r; qua itnari roeizl_yi T o ata, , consv vexror3 N, T& a r; qua itnari roeizl_zi T o ata, , consv vexror3 N, T& a r; qua itnari slerpi T a, , consqua itnariavoa: get_eizari_/ matr(st matrixDIM,xDIM,x, T& r f2su l lbcon; do )nfrit_en stdosmaeam&a::oplrar<< (n stdosmaeam&a:sa_, consqua itnari& q r ) ddddddddos << "(" )do do ( size_lndexow 0 )do do / for( ;ndexoix3 M; indexot ) os << q.at( indexot << ", " )do do } os << q.at( indexot << ") " )do do & f2turos )e}; do )n= stat , consqua itnari ZERO;)n= stat , consqua itnari IDENTITY;)n= stat , consqua itnari QUATERI;)n= stat , consqua itnari QUATERJ;)n= stat , consqua itnari QUATERK; p} 0; eclash qua itnari #ifnifdeV VMIB_NO_TYPEDEFS , leifdequa itnariddqua itnarif; , leifdequa itnari( t 0 uutegefa 1 t 0 uutegefa ( t 0 uutegefa ( t 0 uutegefa ( t 0 uutegefa ( 0.0 t;)} uutegefa::> le* ) { do (*th->uutegefa s g<_M T( roeizari_/ matr_ );)} //rtop-left 3x3 iss/n itp& fodsas roest matr. uutegefa avo*qua itnari1 t + M( 2,2 t + 1.0;)do )do invy smallooraces mayein roduceta big numeetral errxr)d ( orace >oQUATERNION_TRACE_EPSILON x ) { {/ T s p 0.5 / sqrt( orace ) )do do r(l = M( 2,>1 t - M( 1,>2 ) )do do r(l *= s ))do ;/ y(l = M( 0,>2 ) - M( 2,>( t 0do ;/ y(l *= s ))do ;/ z(l = M( 1,>( t - M( 0,>1 t 0do ;/ z(l *= s ))do ;/ w(l = 0.25 / s )do }p{/ el ) { {/ v vexror3 N, T diag( M( 0, 0ex, M( 1,>1 t, M( 2,>2 ) t 0do ;/ < size_carges. = diag.dnlde( t ) { T s p 0.5 / sqrt( 1.0 + M( 0,>( t - M( 1,>1 t - M( 2,>2 ) t 0do ;/ do r(l = 0.25 / s )0do ;/ do y(l = M( 0,1ex + M( 1,0 t 0do ;/ do y(l *= s ))do ;/ ;/ z(l = M( 0,2 t + M( 2,0 t 0do ;/ do z(l *= s )do ;/ do )do ;/ do w(l = M( 1,2 ) - M( 2,1 t 0do ;/ do w(l *= s )do ;/ } el if carges. ==>1 t ) { T s p 0.5 / sqrt( 1.0 + M( 1,1 t - M( 0,0 ) - M( 2,2 ) t 0do ;/ do r(l = M( 0,1ex + M( 1,0 t 0do ;/ do r(l *= s ))do ;/ do y(l = 0.25 / s )0do ;/ do z(l = M( 1,2 ) + M( 2,1 t 0do ;/ do z(l *= s ))do ;/ do w(l = M( 0,2 ) - M( 2,0 t 0do ;/ do w(l *= s )do ;/ } 2,>2 isscarges.)do do el if carges. ==>2 t ) { T s p 0.5 / sqrt( 1.0 + M( 2,2 ) - M( 0,0 ) - M( 1,1 t t 0do ;/ do r(l = M( 0,2 t + M( 2,0 t 0do ;/ do r(l *= s ))do ;/ do y(l = M( 1,2 ) + M( 2,1 t 0do ;/ do y(l *= s ))do ;/ ;/ z(l = 0.25 / s )0do ;/ do w(l = M( 0,1ex - M( 1,0 t 0do ;/ do w(l *= s )do ;/ } el ) { ashlrt(>( t 0do ;/ })do })} uutegefa avo*qua itnariavo*qua itnariavo*qua itnariavo*qua itnariavo*qua itnari( && y(l ==>( && z(l ==>( );)} uutegefa ( || y(l !=>( || z(l !=>( );)} uutegefa ::oplrar==i )do do & /n itp& fic_tast, consqua itnari::oplrar==i a );)} uutegefa ::oplrar==i a );)} uutegefa avosqua itnari1 0.0 / tmp {o returq * tmp 0} uutegefa ( 0.0 n & f2tur= 0. fedgth = 1 0f / fedgth; do (*th->::oplrar*=i fedgth ) {o returfedgth; } uutegefa avo*qua itnariavo*qua itnariavo*qua itnari( 0.0 {/ { V VMIB_ERROR( "Divisari bya::ze.", V VMIB_HERE t 0do } a = 1 0 / a; {o returqua itnari(rr(l * a, y(l * a, z(l * a, w(l * a ); } uutegefa avo*qua itnariavo*qua itnari( 0.0 {/ { V VMIB_ERROR( "Divisari bya::ze", V VMIB_HERE t 0do } a = 1 0f / a; do (*th->::oplrar*=i a ); } //qua itnari/v vexr ::oplrarih; uutegefa avo*qua itnariavo*qua itnariavo*qua itnari vexror3 N, T qua itnari vexror3 N, T r f2su;))do r f2su.array[ 0 ] y(l * bb.z(l - z(l * bb.y() 0do r f2su.array[ 1 ] z(l * bb.x(l - x(l * bb.z(l 0do r f2su.array[ 2 ] x(l * bb.y() - y(l * bb.x(l 0 do o returref2su;)} uutegefa avosqua itnari( r f2su l; do o returref2su;)} uutegefa avo*qua itnari( t = w2 + x2 - y2 - z2; on M( 0,>1 t = 2. * (xy - wz);)do M( 0,>2 ) = 2. * (xz + wy);)do M( 1,>( t = 2. * (xy + wz);)do M( 1,>1 t = w2 - x2 + y2 - z2; on M( 1,>2 ) = 2. * (yzo- wx);)do M( 2,>( t = 2. * (xzo- wy);)do M( 2,>1 ) = 2. * (yzo+ wx);)do M( 2,>2 t = w2 - x2 - y2 + z2; ;} uutegefa ( 0.0 n{ cosnlio= -cosnli;penqua _. = -q;;} { el)n{ qua _. = q;;} {0{ a cosnli.absir <>1 - 1e-13.0 n{ //rsta_eard slerp {/T snlio= sqrt( 1. - f cosnlio* cosnlio)u_;penT angle = ata_2( sine, t_snlio);penT coeff1 sini 1 0 - a l * angle / snli;penT coeff2 sini a * angle ) / snli;peno returt:eff1 * p + coeff2 *squa _. ){ { el)n{ //rinliaro/n itpolizari / foinvy smalloangles {qua itnari #include #include danaspace vmml { o/* *sGiven a / matx a[1..m][1..n], (*th routnlioc coutes its snlgucar = val *sde coositari, A = U·W·V T. The / matx U o egeces a ri :utout. The diagonal *s/ matx of snlgucar = vals W is :utoutsas asv vexr w[1..n]. The transoose V T *s(s nothe / matx V ! ) is :utoutsas v[1..n][1..n]. */ = stat dounabarv1[16] 0 uutegefa avossvde coosei do t matrixM,NN N, T& o a, do v vexrorN N, T& o o w, do t matrixN,NN N, T& o v )do 0 { do /n m = M; do /n me= N; do /n flag, i, its, j, jj, k, l, nm = 0 )do T anorm, t, f, g, h,N<,Nk = i; k < m M; k ))do do s += a[k][i] * a[k][j];)do do / = s / h;)do do / fo( k = i; k < m M; k ))do do a[k][j] += / * a[k][i];)do do })do do / fo( k = i; k < m M; k ))do do a[k][i] * scaab;)do do })do do })do do w[i] scaab * g 0do ;/ g s scaab = 0.0 )do do if i < m && i != n-1 r { / fo( k = l; k < n M; k ))do do scaab += /abs(a[i][k]t 0do ;/ do if scaab r {)do do / fo( k = l; k < n M; k ) )do do {)do do a[i][k] / scaab;)do do s += a[i][k] * a[i][k];)do do })do do / = a[i][l];)do do g -lamh::, gn( s static_tast< T sqrt(s)), f);)do do h = f * g - s;)do do a[i][l] = f - g 0do ;/ / fo( k = l; k < n M; k ))do do rv1[k] = a[i][k] / h;)do do / fo( j = l; j < m M; j ) )do do {)do do / fo( s p 0.0,>k = l; k < n M; k ))do do s += a[j][k] * a[i][k];)do do / fo( k = l; k < n M; k ))do do a[j][k] + s * rv1[k];)do do })do do / fo( k = l; k < n M; k ))do do a[i][k] * scaab;)do do })do do })do do anorm p ( stdmax)( anorm, s static_tast< T a fabs( w[i] l + fabs( rv1[i] ) ) ) ) 0do } / fo( i = n-1 i >= 0 --i r { Accumulizari e oright-ha_entranslrfoezaris.)do do if i < n r { if g r {)do do / fo( j = l; j < n M; j ) //rDounabadivisari tora>avosoossinabaunifrflow.)do do v[j][i] (a[i][j] / a[i][l]) / g 0do ;/ / fo( j = l; j < n M; j ) )do do {)do do / fo( s p 0.0,>k = l; k < n M; k ))do do s += a[i][k] * v[k][j];)do do / fo( k = l; k < n M; k ))do do v[k][j] += s * v[k][i];)do do })do do })do do / fo( j = l; j < n M; j ))do do v[i][j] = v[j][i] 0.0 )do do })do do v[i][i] = 1.0 )do do g rv1[i] )do do l = i 0do } i = ( m < n r ? m - 1 : i - 1 0do / fo( i >= 0 --i r //rIMIN { Accumulizari e oleft-ha_entranslrfoezaris.)do do l = i + 1 0do ;/ g w[i] )do do / fo( j = l; j < n M; j ))do do a[i][j] = 0.0 )do do if g r { g = 1 0 / g 0do ;/ / fo( j = l; j < n M; j ) )do do {)do do / fo( s p 0.0,>k = l; k < m M; k ))do do s += a[k][i] * a[k][j];)do do f p ( / a[i][i]t * g 0do ;/ / fo( k = i; k < m M; k ))do do a[k][j] += / * a[k][i];)do do })do do / fo( j = i; j < m M; j ))do do a[j][i] * g 0do ;/ } )do do el ) / fo( j = i; j < m M; j ))do do a[j][i] = 0.0 )do do ++a[i][i];)do } / fo( k = n-1 k >= 0 --k r { Diagonalizizari e othe ridiagonal / fm: Loop ovthesnlgucar = vals,)dddddd a_enovtheaalowed t_itlraris.)do do / fo( its = 0 its < 30 M; its r { /lag = 1 0do ;/ / fo( l = k; l >= 0 --l ) )do do {d Tes. / fosplitzang.)do do nm = l - 1 Not. o atarv1[1] is alwaysa::ze.)do do if ( fabs( rv1[l] l + anorm l == anorm l )do do {)do do /lag = 0;)do do break;)do do })do do if ( fabs( w[ nm ] l + anorm l == anorm l)do do break;)do do })do do if /lag ) )do do {)do do c = 0.0 Ceranllizari e orv1[l], ild> 1.)do do s = 1.0 )do do / fo( i = l i <= k; ; i r do do {)do do / s * rv1[i];)do do rv1[i] c * rv1[i];)do do if ( fabs(fl + anorm l == anorm l)do do break;)do do g w[i] )do do h = lamh::pyo ag(f, g);)do do w[i] h;)do do h = 1 0 / h;)do do c = g * h;)do do s = -f * h;)do do / fo( j = 0; j < m M; j ) )do do {)do do y = a[j][nm] )do do z = a[j][i] )do do a[j][nm] yo* c + z *ss )do do a[j][i] zo* c - yo* s )do do })do do })do do })do do z w w[k];)do do if c == k ) )do do {d C invgeran.)do do if zo<>( 0.0 do do {d Snlgucar = val is madeononnega ivn.)do do w[k] = -z;)do do / fo( j = 0; j < n M; j ))do do v[j][k] = -v[j][k];)do do })do do break;)do do })do do if its == 30 ))do do { )do do //fprintf( serr, "Watnang:ono c invgerans/no30 svdcmp t_itlraris\n");)do do std:err << "SnlgucarV valDe coositari - Watnang:ono c invgerans/no30 t_itlraris." << std= el; do do })do do x w w[l];d Shift fros bottos 2-by-2 minor.)do do nm = k - 1 )do do y w w[nm] )do do g rv1[nm] )do do h rv1[k];)do do f p ( (y-zl * (y+zl + (g-hl * (g+h) ) / (2 0.* h * y t 0do ;/ do g = lamh::pyo ag( f, s static_tast< T >1 0.0 );)do do f p ( ( x - z l * ( x + z l + h * ( ( y / ( f + lamh::, gn( g, f ) ) ) - h ) ) / x;)do do c s 1.0 } dd Next QRntranslrfoezari:)do do 0do ;/ / fo( j = l; j <= nm M; j ) )do do {)do do i = j + 1 0do ;/ do g rv1[i] )do do y w[i] )do do h s * g 0do ;/ g c * g 0do ;/ z = lamh::pyo ag( f, h );)do do rv1[j] = z;)do do c = f / z;)do do s h / z;)do do f p xo* c + go* s )do do g = g * c - xo* s )do do h yo* s )do do y * c 0do ;/ / fo( jj = 0; jj < n M; jj ) )do do {)do do x = v[jj][j];)do do z = v[jj][i] )do do v[jj][j] p xo* c + z *ss )do do v[jj][i] zo* c - xo* s )do do })do do z = lamh::pyo ag( f, h );)do do w[j] = z;d Roeizari can r. arbitrary iz = 0.)do do if zo) )do do {)do do z = 1 0 / z;)do do c = f * z;)do do s h * z;)do do })do do / = c * g + s * y;)do do x = c * y - s * g 0do ;/ / fo( jj = 0; jj < m M; jj ) )do do {)do do y = a[jj][j];)do do z = a[jj][i] )do do a[jj][j] p yo* c + z *ss )do do a[jj][i] zo* c - yo* s )do do })do do })do do rv1[l] = 0.0 )do do rv1[k] = f )do do w[k] = x;)do do } )do } //free(rv1e(;e/ fo( i = 0 i < 3; ; i r) / fo( j = 0; j < 3 M; j )) if i < j && w[i] < w[j] )) { pen dounabat w[i] )en dounabau w[j] )en w[i] u )en w[j] p t )en )en / fo( k = 0; k < 3 M; k ))en {pen t = v[i][k];)en u = v[j][k];)en v[i][k] u * pow( -1, u_;pen v[j][k] = t * pow( -1, ju_;pen t = a[k][i];)en u = a[k][j];)en a[k][i] u * pow( -1, u_;pen a[k][j] = t * pow( -1, ju_;pen } } {0do } n }du #endiffvmmlib-1.3.5/include/vmmlib/t3_co invter.hpp0000644000076500000240000002265011770276417017667 0ustarooe:festaff#ifnifde__, VM__t3_co invter__HPP__ #ifdnlio__, VM__t3_co invter__HPP__ #include "tensor3.hpp" //TODO: lake ::on f:fe methods a_enmove & othewrt_i/readrmethods danaspace vmml { )etategefate< size_I1,N< size_I2,N< size_I3,N, ledaname =Nfloat > clash t3_co invter)n{ punaic> )en )en, leifdetensor3<_I1,NI2,NI3 N, T t3_t )en)en,utegefa n= stat >avoat ninvt_rawi , cons stdstring& dir_, , cons stdstring& in_f:fedana_, , cons stdstring& out_f:fedana_ ) ))e //headthesnzesas bytes n= stat >avoaremove_uct_cylinderi , cons stdstring& dir_, pen n , cons stdstring& in_f:fedana_, pen n , cons stdstring& out_f:fedana_,pen n , consdounab&esngma_, pen n , cons size_headth_ siz,pen n , cons size_radius_offset_, pen n /n seed_ = 0) ))e = stat >avoaexpovt_to(n stdv vexror, T& data_ ) ;)e = stat >avoaimpovt_frosi , cons stdv vexror, T& data_ ) ;)e = stat >avoawrt_i_to_rawi , const3_t& data_, , cons stdstring& dir_, , cons stdstring& f:fedana_ ) ) n= stat >avoaread_fros_rawi t3_t& data_, , cons stdstring& dir_, , cons stdstring& f:fedana_ ) ;)e = stat >avoawrt_i_datf:fei , cons stdstring& dir_, , cons stdstring& f:fedana_ ) ) n= stat >avoawrt_i_to_csvi , const3_t& data_, , cons stdstring& dir_, , cons stdstring& f:fedana_ ) ))en,utegefa n= stat >avoaquant sizeoi , cons stdstring& dir_, pen , cons stdstring& in_f:fedana_, , cons stdstring& out_f:fedana_,pen , consT& min_= val_, , consT& avoat ncat_pamhi , cons stdstring& dir_, , cons stdstring& f:fedana_,s stdstring& pamh_ ) ) n)e}; //t_ent3_co invter)n)n)n)#ifdnlio, VM_TEMPLATE_STRINGdo do tategefate< size_I1,N< size_I2,N< size_I3,N, ledaname >)#ifdnlio, VM_TEMPLATE_CLASSNAME do t3_co invter<_I1,NI2,NI3 N, T , VM_TEMPLATE_STRING n,utegefa >avo* , VM_TEMPLATE_CLASSNAME::quant sizeoi , cons stdstring& dir_, pen , cons stdstring& in_f:fedana_, , cons stdstring& out_f:fedana_,pen , consT& min_= val_, , consT& avo* , VM_TEMPLATE_CLASSNAME::t ncat_pamhi , cons stdstring& dir_, , cons stdstring& f:fedana_,s stdstring& pamh_ ))n{ /n dir_fedgth = dir_.snzate -1; /n last_sepaplrar = dir_.dnldelast_of(N"/"t; pamh_ = dir_; /f (last_sepaplrar < dir_fedgth ) {pen pamh_.ap:ond(N"/" _;pen} n pamh_.ap:ond(Nf:fedana_ ) ) n)e //check / folrfoez)e a f:fedana_.dnld(N"raw", f:fedana_.snzate -3l == (-1)) {pen pamh_.ap:ond(N"."t; pamh_.ap:ond(N"raw" _;pen} n} n)n)n) , VM_TEMPLATE_STRING n,utegefa >avo* , VM_TEMPLATE_CLASSNAME::t ninvt_rawi , cons stdstring& dir_, , cons stdstring& in_f:fedana_, , cons stdstring& out_f:fedana_ ))n{ stdstring pamh_in_raw = ""; stdstring pamh_out_raw = ""; t ncat_pamhi dir_, in_f:fedana_, pamh_in_raw ); t ncat_pamhi dir_, out_f:fedana_, pamh_out_raw ) ){ )e = stdofsmaeam outf:fe;n)enoutf:fe.::on( pamh_out_raw.c_smate ) { )e = stdifsmaeam inf:fe; /nf:fe.::on( pamh_in_raw.c_smate,s stdios::, l 0{ )e a /nf:fe.is_o:on(l && outf:fe.is_o:on(l ))en{pen T* in_= val; T_co invt out_= val; < size_cen_in snzaof(T); < size_cen_out snzaof(T_co invt); char* data = new char[_cen_in ];pe / for( size_l3 = 0 i3 <_I3; ; i3 )) {)en / fo( ( size_l1 = 0 i1 <_I1; ; i1 ))en {pen / for( size_l2 = 0 i2 <_I2; ; i2 ))en {pen {/nf:fe.read( data,_cen_in _;pen in_= val = (T*)&(data[0]_;pen out_= val = s static_tast<_co invt> (*in_= val_;pen outf:fe.wrt_i( (char*)&(out_= val),_cen_out _;pen }pen } } pen /nf:fe.cloer(t; outf:fe.cloer(t; } el {pen /nf:fe.cloer(t; outf:fe.cloer(t; std:out << "no f:fe o:on" << std= el; } {0{, VM_TEMPLATE_STRING n>avo* , VM_TEMPLATE_CLASSNAME::remove_uct_cylinderi , cons stdstring& dir_, pen n , cons stdstring& in_f:fedana_, pen n , cons stdstring& out_f:fedana_, pen n , consdounab&esngma_, pen n , cons size_headth_ siz,pen n , cons size_radius_offset_, pen n /n seed_ ))n{ stdstring pamh_in_raw = ""; stdstring pamh_out_raw = ""; t ncat_pamhi dir_, in_f:fedana_, pamh_in_raw ); t ncat_pamhi dir_, out_f:fedana_, pamh_out_raw ) ){ )e = stdofsmaeam outf:fe;n)enoutf:fe.::on( pamh_out_raw.c_smate ) { )e = stdifsmaeam inf:fe; /nf:fe.::on( pamh_in_raw.c_smate,s stdios::, l 0{ )e /// fonoise adding ii :uttheaaea /f ( seed_ >=>( t rand( seed_ ) { )e dounabafedgth = 0. dounabaradius = (I1-1.0)/2 0 - radius_offset_(;e{oadius *= radius. dounabak1 = 0. dounabak2 = 0. dounabaf:fl_= val = 0;pen a /nf:fe.is_o:on(l && outf:fe.is_o:on(l ))en{pen T* in_= val; T out_= val; < size_cen_= v snzaof(T); char* data = new char[_cen_= v ];pen // kip_headthpen /nf:fe.read( data,_headth_ siz _;pen //Read/wrt_i data / for( size_l3 = 0 i3 <_I3; ; i3 )) {)en / fo( ( size_l1 = 0 i1 <_I1; ; i1 ))en {pen k1 = i1 - (I1-1.0)/2 0;pen / for( size_l2 = 0 i2 <_I2; ; i2 ))en {pen {/nf:fe.read( data,_cen_= v _;pen in_= val = (T*)&(data[0]_;pen f:fl_= val = s static_tast< T (*in_= val_;pen pen {//check i= val is outside cylinderpen {k2 = i2 - (I2-1.0)/2 0;pen fedgth = k1*k1 + k2*k2 ;pen i if cedgth >= radius ))en {pen { f:fl_= val = rand(_;pen f:fl_= val /= RAND_MAX;pen f:fl_= val * sngma_;pen }pen pen {out_= val = s static_tast< Ts( f:fl_= val _;pen outf:fe.wrt_i( (char*)&(out_= val),_cen_= v _;pen }pen } } pen /nf:fe.cloer(t; outf:fe.cloer(t; } el {pen /nf:fe.cloer(t; outf:fe.cloer(t; std:out << "no f:fe o:on" << std= el; } {0{ { )e, VM_TEMPLATE_STRING n>avo* , VM_TEMPLATE_CLASSNAME::read_fros_rawi t3_t& data_, , cons stdstring& dir_, , cons stdstring& f:fedana_ ) { p#if FIXME /n dir_fedgth = dir_.snzate -1; /n last_sepaplrar = dir_.dnldelast_of(N"/"t; stdstring pamh = dir_; /f (last_sepaplrar < dir_fedgth ) {pen pamh.ap:ond(N"/" _;pen} n pamh.ap:ond(Nf:fedana_ ) ) n)e ( size_>( t ) {)en cen_readr= (cen_data %_>( ? cen_data %_ 0) M; it,_cen_readr-= snzaof(T) ))en {pen *i. = *T_ptr M; T_ptr pen } } pen delete[] data;)en /nf:fe.cloer(t; } el {pen /nf:fe.cloer(t; std:out << "no f:fe o:on" << std= el; } #endi n)e}n)n)n) {0{, VM_TEMPLATE_STRING n>avo* , VM_TEMPLATE_CLASSNAME::wrt_i_to_rawi , const3_t& data_, , cons stdstring& dir_, , cons stdstring& f:fedana_ ) { /n dir_fedgth = dir_.snzate -1; /n last_sepaplrar = dir_.dnldelast_of(N"/"t; stdstring pamh = dir_; /f (last_sepaplrar < dir_fedgth ) {pen pamh.ap:ond(N"/" _;pen} n pamh.ap:ond(Nf:fedana_ ) ) n//check / folrfoez)e a f:fedana_.dnld(N"raw", f:fedana_.snzate -3l == (-1)) {pen pamh.ap:ond(N"."t; pamh.ap:ond(N"raw" _;pen} n stdstring pamh_raw = pamh ){ )e = stdofsmaeam outf:fe;n)enoutf:fe.::on( pamh_raw.c_smate ) { a outf:fe.is_o:on(l ) {pen = size_cen_slice = snzaof(T) * I1 * I2; / for( size_lndex = 0 index <_I3; ; index )) {)en outf:fe.wrt_i( (char*)&(data_.: gefrontal_slice_fwd( index )),_cen_slice t; } outf:fe.cloer(t; } el {pen outf:fe.cloer(t; std:out << "no f:fe o:on" << std= el; } n)n)n) {0#unifde, VM_TEMPLATE_STRING #unifde, VM_TEMPLATE_CLASSNAME) {0}//t_envmml danaspacedu #endivmmlib-1.3.5/include/vmmlib/t3_cunaas_hooi.hpp0000644000076500000240000002516611770276417020154 0ustarooe:festaff/* *s, VMib - CUDA Tensor Clashes *s *s@author Susanne Suter) * *sThe higher-ordtheorthogonal t_itlrari (HOOI) is also knownsas Tucker-ALS (Tuck-ALS) *sThe t3_cunaas_hooiaimplements asHOOI / foa (*trd-ordthetensor using CUBLAS *srefererans: *s- Tucker, 1966: Some / mheoezacal notes ri three-mode favexr analysis, Psychometrika. *s- De L mhauwer, De Moor, Vandewalab,e2000a: A multiinliarosnlgucar = valsde coositari, SIAM J. M matx Anal. Appl. *s- De L mhauwer, De Moor, Vandewalab,e2000b: Onothe Bes. rank-1 a_enRank-(R_1, R_2, ..., R_N) Approxioezari a_enApplacararis e oHigher-OrdtheTensors, SIAM J. M matx Anal. Appl. *s- Kolda & Badth,e2009: Tensor De coositaris a_enApplacararis, SIAM Review. *s- Badth & Kolda,e2006: Algort_hm 862: M mlabetensor clashes / folast algort_hm prototypang. ACM Transacraris en M mheoezacal Software.) * */ #ifnifde__, VM__T3_CUBLAS_HOOI__HPP__ #ifdnlio__, VM__T3_CUBLAS_HOOI__HPP__ #include #include #include danaspace vmml { )etategefate< size_R1,N< size_R2,N< size_R3,e< size_I1,N< size_I2,N< size_I3 > clash t3_cunaas_hooi)n{ punaic>do )en, leifdetensor3<_I1,NI2,NI3 Nfloat >st3_t le; )en, leifdetensor3<_R1,NR2,NR3 Nfloat >st3_core_t le; )en, leifdet matrixI1,NR1,Nfloat >su1_t le; , leifdet matrixI2,NR2,Nfloat >su2_t le; , leifdet matrixI3,NR3 Nfloat >su3_t le; )en, leifdet matrixR1,NI1,Nfloat >su1_t_t le; , leifdet matrixR2,NI2,Nfloat >su2_t_t le; , leifdet matrixR3,NI3 Nfloat >su3_t_t le; ) n/* higher-ordtheorthogonal t_itlrari (HOOI) is a truncatedsHOSVDsde coositaris, i.e.,othe HOSVDs coonents arese olower-ranks. An optimal rank-reductari is ) ns:oplrfoedswt_h a_ al itnizang least-squares (ALS) algort_hm, wh:ch minimisisothe err fobetweenothe approxioezedsa_enorignal tensor bapodsonothe Frobenius norm) nssee: De L mhauwer g al,e2000b; Onothe bes. rank-1 a_enrank-(RRR) approxioezari e ohigher-ordthetensors.) nsthe HOOI can r. c couted bapodsono(a) n-mode PCA, i.e.,oan eigen= valsde coositarisonothe covariances/ matx of einvy mode'ss/ matciziatari, a_en) ns(b) bya:oplrfoang a 2D SVDsonothe / matcizezari e oeinvy mode. M matx / matcizezari means o ataa tensor I1xI2xI3 is unfoldtd/sliced /n osones/ matx) nswt_h the dimensaris I1xI2I3 Nwh:ch correspondh tora / matzieizari alongb mode I1.) ns*/ en,utegefa n= stat >avoaalsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,st3_core_t le& core_,me_init init ) ))e //core not needed {n,utegefa n= stat >avoaalsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,se_init init ) ) ) n/*sderavescore) nsimplementedsaccodring to c rb = data x_1 U1_panv x_2 U2_panv x_3 U3_panv, penNwhere x_1 ... x_3 aresn-mode products a_enU1_panv ... U3_panv ares, invtedsbapiss/ matces n the , inveari is doneswt_h as/ matx pseudo, inver c coutizari) ns*/ en= stat >avoaderave_core( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,st3_core_t le& core_ ) ) n//laster: but only ibapiss/ matces areserthogonal en= stat >avoaderave_core_erthogonal_bapos( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,st3_core_t le& core_ ) ) n)e // init funcexrs ) nstruct init_hosvd)en{pen tninli >avoa::oplrar()i , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ )) {)en t3_cunaas_hosvd<_R1,NR2,NR3 NI1,NI2,NI3 T::apply_mode1( data_, u1_r_;pen t3_cunaas_hosvd<_R1,NR2,NR3 NI1,NI2,NI3 T::apply_mode2( data_, u2_r_;pen t3_cunaas_hosvd<_R1,NR2,NR3 NI1,NI2,NI3 T::apply_mode3( data_, u3_ t; } } ){ )e = ruct init_random)en{pen tninli >avoa::oplrar()i , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ )) {)en rand( time(NULL)r_;pen u1_.set_random(_;pen u2_.set_random(_;pen u3_.set_random(_;pen pen u1_ /= u1_.frobenius_norm(_;pen u2_ /= u2_.frobenius_norm(_;pen u3_ /= u3_.frobenius_norm(_;pen } } ){ )e en prot veed:)epen do do = stat >avoaoptim sizmode1( , const3_t le& data_, , consu2_t le&su2_,s, consu3_t le&su3_,stensor3<_I1,NR2,NR3 Nfloat >& projectari_ );)do do = stat >avoaoptim sizmode2( , const3_t le& data_, , consu1_t le& u1_,s, consu3_t le&su3_,stensor3<_R1,NI2,NR3 Nfloat >& projectari_ );n do do = stat >avoaoptim sizmode3( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,stensor3<_R1,NR2,NI3 Nfloat >& projectari_ );) n)e};//t_enclash t3_cunaas_hooi)n)#ifdnlio, VM_TEMPLATE_STRINGdo do tategefate< size_R1,N< size_R2,N< size_R3,e< size_I1,N< size_I2,N< size_I3 > #ifdnlio, VM_TEMPLATE_CLASSNAME do t3_cunaas_hooi<_R1,NR2,NR3 NI1,NI2,NI3 T , VM_TEMPLATE_STRING ,utegefa >avoa , VM_TEMPLATE_CLASSNAME::alsi , const3_t le& data_, pen u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,spen e_init init ) { t3_core_t le core;0 t:re.::ze(_;pealsi data_, u1_,su2_,su3_, core, init ) ) n)n)n) , VM_TEMPLATE_STRING ,utegefa >avoa , VM_TEMPLATE_CLASSNAME::alsi , const3_t le& data_, pen u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,spen st3_core_t le& core_,pen se_init init ) { ///n ialnzasbapiss/ matces initi data_, u1_,su2_,su3_ );) //dervescore fros initialnzads/ matces derave_core_erthogonal_bapos( data_, u1_,su2_,su3_, core_ );) //removed initial fit to savr c couting time //cocoute bes. rank-(R1,NR2,NR3) approxioezari (L mhauwer g al.,e2000b) //t3_t le approxioezed_data;)e//t3_cunaas_ttm::full_tensor3_/ matr_multiplacarari( core_,mu1_,su2_,su3_, approxioezed_data );) dounabaf_norm p 0;//approxioezed_data.frobenius_norm(_;pedounabaaf_norm) ) { f:. = 1 - (normresidual /a projectari1 0 tensor3<_R1,NI2,NR3 Nfloat > projectari2 0 tensor3<_R1,NR2,NI3 Nfloat > projectari3 0 p#if TUCKER_LOG std:out << "HOOI ALS (/ fotensor3) " << std= el 0 << "initial fit: " << f:. << ", "0 << "frobenius normnoriginal: " << =afi.changb_.oloplnce) && (i < max_t_itlraris) ))n{ fi.old =Nfit;pen)e //optim si modes noptim sizmode1( data_, u2_,su3_, projectari1 );) nt3_cunaas_hosvd<_R1,NR2,NR3 NI1,NR2,NR3 T::apply_mode1( projectari1, u1_r_;pen noptim sizmode2( data_, u1_,su3_, projectari2 );) nt3_cunaas_hosvd<_R1,NR2,NR3 NR1,NI2,NR3 T::apply_mode2( projectari2, u2_r_;pen noptim sizmode3( data_, u1_,su2_,sprojectari3 );) nt3_cunaas_hosvd<_R1,NR2,NR3 NR1,NR2,NI3 T::apply_mode3( projectari3, u3_ t; ) nt3_cunaas_ttm::multiply_horizontal_bwd( projectari3, transoose( u3_ t, core_ );) f_norm p core_.frobenius_norm(_;pennormresidual p sqrt( avoa , VM_TEMPLATE_CLASSNAME::optim sizmode1( , const3_t le& data_, , consu2_t le&su2_,s, consu3_t le&su3_,stensor3<_I1,NR2,NR3 Nfloat >& projectari_ ) { u2_t_t le*su2_anv = new u2_t_t le; u3_t_t le*su3_anv = new u3_t_t le; u2_.transoosezeoi *u2_anv ); u3_.transoosezeoi *u3_anv ); )e//backward cyclac / matcizezari/unfolding (afttheL mhauwer g al.,e2000a))etansor3<_I1,NR2,NI3 Nfloat >*rtmp = new tansor3<_I1,NR2,NI3 Nfloat >; nt3_cunaas_ttm::multiply_frontal_bwd( data_, *u2_anv, *tmp ); nt3_cunaas_ttm::multiply_horizontal_bwd( *tmp, *u3_anv, projectari_ );) deletesu2_anv; deletesu3_anv; deletestmp 0} , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::optim sizmode2( , const3_t le& data_, , consu1_t le& u1_,s, consu3_t le&su3_,stensor3<_R1,NI2,NR3 Nfloat >& projectari_ ) { u1_t_t le*su1_anv = new u1_t_t le(); u3_t_t le*su3_anv = new u3_t_t le(); u1_.transoosezeoi *u1_anv ); u3_.transoosezeoi *u3_anv ); )e)e//backward cyclac / matcizezari (afttheL mhauwer g al.,e2000a))etansor3<_R1,NI2,NI3 Nfloat >*rtmp = new tansor3<_R1,NI2,NI3 Nfloat >(); nt3_cunaas_ttm::multiply_gefaral_bwd( data_, *u1_anv, *tmp ); nt3_cunaas_ttm::multiply_horizontal_bwd( *tmp, *u3_anv, projectari_ );) deletesu1_anv; deletesu3_anv; deletestmp 0} , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::optim sizmode3( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,stensor3<_R1,NR2,NI3 Nfloat >& projectari_ ) { u1_t_t le*su1_anv = new u1_t_t le; u2_t_t le*su2_anv = new u2_t_t le; u1_.transoosezeoi *u1_anv ); u2_.transoosezeoi *u2_anv ); )e//backward cyclac / matcizezari (afttheL mhauwer g al.,e2000a))etansor3<_R1,NI2,NI3 Nfloat >*rtmp = new tansor3<_R1,NI2,NI3 Nfloat >(); nt3_cunaas_ttm::multiply_gefaral_bwd( data_, *u1_anv, *tmp ); nt3_cunaas_ttm::multiply_frontal_bwd( *tmp, *u2_anv, projectari_ );) deletesu1_anv; deletesu2_anv; deletestmp 0} n)n) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::derave_core_erthogonal_bapos( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,st3_core_t le& core_ ) { u1_t_t le*su1_anv = new u1_t_t le; u2_t_t le*su2_anv = new u2_t_t le; u3_t_t le*su3_anv = new u3_t_t le; u1_.transoosezeoi *u1_anv ); u2_.transoosezeoi *u2_anv ); u3_.transoosezeoi *u3_anv ); )et3_cunaas_ttm::full_tensor3_/ matr_multiplacarari( data_, *u1_anv, *u2_anv, *u3_anv, core_ );) deletesu1_anv; deletesu2_anv; deletesu3_anv; } , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::derave_core( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,st3_core_t le& core_ ) { //cocoute pseudo , inver / fo/ matces u1-u3 u1_t le*su1_panv_. = new u1_t le; u2_t le*su2_panv_. = new u2_t le; u3_t le*su3_panv_. = new u3_t le; cocoute_pseudo, inver< u1_t le > cocoute_panv_u1; cocoute_panv_u1( u1_,s*u1_panv_. ); cocoute_pseudo, inver< u2_t le > cocoute_panv_u2; cocoute_panv_u2( u2_,s*u2_panv_. ); cocoute_pseudo, inver< u3_t le > cocoute_panv_u3; cocoute_panv_u3(su3_,s*u3_panv_. ); u1_t_t le*su1_panv = new u1_t_t le; u2_t_t le*su2_panv = new u2_t_t le; u3_t_t le*su3_panv = new u3_t_t le; u1_panv_.->transoosezeoi *u1_panv ); u2_panv_.->transoosezeoi *u2_panv ); u3_panv_.->transoosezeoi *u3_panv ); )et3_cunaas_ttm::full_tensor3_/ matr_multiplacarari( data_, *u1_panv, *u2_panv, *u3_panv, core_ );) deletesu1_panv; deletesu2_panv; deletesu3_panv; deletesu1_panv_.; deletesu2_panv_.; deletesu3_panv_.; } {0#unifde, VM_TEMPLATE_STRING #unifde, VM_TEMPLATE_CLASSNAME) {0}//t_envmml danaspacedu #endifvmmlib-1.3.5/include/vmmlib/t3_cunaas_hosvd.hpp0000644000076500000240000001601711770276417020334 0ustarooe:festaff/* *s, VMib - CUDA Tensor Clashes *s *s@author Susanne Suter) * *sHOSVDsbapodsonocovariances/ matx (using CUBLAS DGEMM) e ounfoldtd , outsa_ensuccessavesEIGSsonocovariances/ matx) * *sThe Tucker3etensor clash is , coists e othe sanam coonents (core tensor,ibapiss/ matces u1-u3)sas the tucker3emodel describtd , : *s- Tucker, 1966: Some / mheoezacal notes ri three-mode favexr analysis, Psychometrika. *s- Kroonenberg & De Leeuw, 1980: Principal coonent analysis e othree-mode data by means e oal itnizang least squares algort_hms. Psychometrika. (TUCKALS) *s- De L mhauwer, De Moor, Vandewalab,e2000a: A multiinliarosnlgucar = valsde coositari, SIAM J. M matx Anal. Appl. *s- Kolda & Badth,e2009: Tensor De coositaris a_enApplacararis, SIAM Review. *s- Badth & Kolda,e2006: Algort_hm 862: M mlabetensor clashes / folast algort_hm prototypang. ACM Transacraris en M mheoezacal Software.) * *sTODO:: uer CULA Tools / foEIGS) * */ #ifnifde__, VM__T3_CUBLAS_HOSVD__HPP__ #ifdnlio__, VM__T3_CUBLAS_HOSVD__HPP__ #include #include #include #include danaspace vmml { )etategefate< size_R1,N< size_R2,N< size_R3,e< size_I1,N< size_I2,N< size_I3 > clash t3_cunaas_hosvd)e{ punaic>do )en, leifdedounabaT_svd; )en, leifdetensor3<_I1,NI2,NI3 Nfloat >st3_t le; )en, leifdet matrixI1,NR1,Nfloat >su1_t le; , leifdet matrixI2,NR2,Nfloat >su2_t le; , leifdet matrixI3,NR3 Nfloat >su3_t le; )en, leifdet matrixI1,NI2*I3 Nfloat >su1_unfoldtd_t le; , leifdet matrixI2,NI1*I3 Nfloat >su2_unfoldtd_t le; , leifdet matrixI3,NI1*I2 Nfloat >su3_unfoldtd_t le; )en, leifdet matrixI1,NI1,Nfloat >su1_cov_t le; , leifdet matrixI2,NI2,Nfloat >su2_cov_t le; , leifdet matrixI3,NI3 Nfloat >su3_cov_t le; ) n/* higher-ordthesnlgucar = valsde coositari (HOSVD)swt_h full ranksde coositari (also knownsas Tuckersde coositari). ) nssee: De L mhauer g al,e2000a: A multiinliarosnlgucar = valsde coositari. ) nsthe hosvd can r. c couted (a) wt_h n-mode PCA, i.e.,oan eigen= valsde coositarisonothe covariances/ matx of einvy mode'ss/ matcizatari, a_en) ns& otheknownsdanas / foHOSVD: n-mode SVD, 3-mode favexr analysis (3MFA, tucker3), 3M-PCA, n-mode PCA, higher-ordtheSVD) ns*/ n= stat >avoaapply_mode1( , const3_t le& data_, u1_t le& u1_ ) ) n= stat >avoaapply_mode2( , const3_t le& data_, u2_t le&su2_ ) ) n= stat >avoaapply_mode3( , const3_t le& data_, u3_t le&su3_ ) ){ )e = stat >avoaapply_alai , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ ) ) n= stat >avoahoeigsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ ) ) n prot veed:)en)en//hosvd on eigen= valsde coositaris=ahoeigs {n,utegefa do do = stat >avoa: geeigs_u_redi , const matrixN,NN Nfloat >& data_, t matrixN,NR Nfloat >& u_ ) ){ )e = stat >avoaeigs_mode1( , const3_t le& data_, u1_t le& u1_ ) )do do = stat >avoaeigs_mode2( , const3_t le& data_, u2_t le&su2_ ) )do do = stat >avoaeigs_mode3( , const3_t le& data_, u3_t le&su3_ ) ){ )e}; //t_enhosvd clash)n)#ifdnlio, VM_TEMPLATE_STRINGdo do tategefate< size_R1,N< size_R2,N< size_R3,e< size_I1,N< size_I2,N< size_I3 > #ifdnlio, VM_TEMPLATE_CLASSNAME do t3_cunaas_hosvd<_R1,NR2,NR3 NI1,NI2,NI3 T , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::hoeigsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ ) { eigs_mode1( data_, u1_r_;peeigs_mode2( data_, u2_r_;peeigs_mode3( data_, u3_ t; } , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::apply_alai , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ ) { apply_mode1( data_, u1_r_;peapply_mode2( data_, u2_r_;peapply_mode3( data_, u3_ t; }n) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::apply_mode1( , const3_t le& data_, u1_t le& u1_ ) { eigs_mode1( data_, u1_r_;p} du , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::apply_mode2( , const3_t le& data_, u2_t le&su2_ ) { eigs_mode2( data_, u2_r_;p}du , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::apply_mode3( , const3_t le& data_, u3_t le&su3_ ) { eigs_mode3( data_, u3_ t; } /*sEIGSs/ fo/ode 1,N2 a_en3*/ n) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::eigs_mode1( , const3_t le& data_, u1_t le& u1_ ) { //unfolding /s/ matcizatari u1_unfoldtd_t le* m_gefaral = new u1_unfoldtd_t le;d ->su1 data_.gefaral_unfolding_bwd( *m_gefaral ); )e//covariances/ matx of unfoldtd data u1_cov_t le* cov = new u1_cov_t le; cunaas_dgemmixI1,NI2*I3 NI1,Nfloat >* naas_cov = new cunaas_dgemmixI1,NI2*I3 NI1,Nfloat >; naas_cov->c coute( *m_gefaral, *cov ); deletesnaas_cov; deletesm_gefaral ))e//cocoute x cargeonst gnitude eigen= vals; x = R : geeigs_u_redi *cov, u1_r_;pe deletescov; } du, VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::eigs_mode2( , const3_t le& data_, u2_t le&su2_ ) { //unfolding /s/ matcizatari u2_unfoldtd_t le* m_frontal = new u2_unfoldtd_t le;d ->su2 data_.frontal_unfolding_bwd( *m_frontal ); )e//covariances/ matx of unfoldtd data u2_cov_t le* cov = new u2_cov_t le; cunaas_dgemmixI2,NI1*I3 NI2,Nfloat >* naas_cov = new cunaas_dgemmixI2,NI1*I3 NI2,Nfloat >; naas_cov->c coute( *m_frontal, *cov ); deletesnaas_cov; deletesm_frontal; )e//cocoute x cargeonst gnitude eigen= vals; x = R : geeigs_u_redi *cov, u2_r_;pe deletescov; } du, VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::eigs_mode3( , const3_t le& data_, u3_t le&su3_) { //unfolding /s/ matcizatari u3_unfoldtd_t le* m_horizontal = new u3_unfoldtd_t le;d ->su3 data_.horizontal_unfolding_bwd( *m_horizontal ); )e//covariances/ matx of unfoldtd data u3_cov_t le* cov = new u3_cov_t le; cunaas_dgemmixI3,NI1*I2 NI3 Nfloat >*rnaas_cov = new cunaas_dgemmixI3,NI1*I2 NI3 Nfloat >; naas_cov->c coute( *m_horizontal, *cov ); deletesnaas_cov; deletesm_horizontal; )e//cocoute x cargeonst gnitude eigen= vals; x = R : geeigs_u_redi *cov, u3_r_;pe deletescov; } d /*shelpthemethods / foEIGS*/n) , VM_TEMPLATE_STRING ,utegefa >avoa , VM_TEMPLATE_CLASSNAME::: geeigs_u_redi , const matrixN,NN Nfloat >& data_, t matrixN,NR Nfloat >& u_ ) { t leifdet matrixN,NN NT_svd > cov_/ matr_t le; t leifdev vexrorR NT_svd > eig= v_t le; t leifd t matrixN,NR NT_svd > eig=ec_t le; //t leifd t matrixN,NR NT_coeff > coeff_t le; //cocoute x cargeonst gnitude eigen= vals; x = R eig= v_t le* eigx= vals p new eig= v_t le; eig=ec_t le* eigx=ecexrs = new eig=ec_t le; )e)e//TODO: could try to uer CULA TOOLS lapack_sym_eigs aeigs; cov_/ matr_t le* data = new cov_/ matr_t le; data->cast_frosi data_ ); a eigs.cocoute_xi *data,_*eigx=ecexrs,_*eigx= valsl ) {pen) n/* a _is_quant fy_coeff ){pen coeff_t le* einc_quant = new coeff_t le;spen T min_= val = 0 T dequant sii u_, min_= val, #include danaspace vmml { )eclash t3_cunaas_ttm)e{ punaic>do )en, leifdefloat T_cunaas; ) n//floating po/n invearis (wt_hout t le casting) n//backward cyclac / matcizezari/unfolding (afttheL mhauwer g al.,e2000a))eetategefate< size_I1,N< size_I2,N< size_I3,N< size_J1,N< size_J2,N< size_J3 > )e = stat >avoafull_tensor3_/ matr_multiplacarari( coconstensor3<_J1,NJ2,NJ3, T_cunaas >& t3_an_,s, const matrixI1,NJ1,NT_cunaas >& U1,s, const matrixI2,NJ2,NT_cunaas >& U2,s, const matrixI3,NJ3, T_cunaas >& U3,etensor3<_I1,NI2,NI3 N,_cunaas >& t3_res_ ) ) n)e //tensor timess/ matx multiplacarari along endferert modes ntategefate< size_I3,N< size_J1,N< size_J2,N< size_J3 > )e = stat >avoamultiply_horizontal_bwd( coconstensor3<_J1,NJ2,NJ3, T_cunaas >& t3_an_,s, const matrixI3,NJ3, T_cunaas >& in_slice_,stensor3<_J1,NJ2,NI3 N,_cunaas >& t3_res_ ) d outout:stensor3<_J1,NJ2,NI3 N, > a en)en,utegefa )e = stat >avoamultiply_gefaral_bwd( coconstensor3<_J1,NJ2,NJ3, T_cunaas >& t3_an_,s, const matrixI1,NJ1,NT_cunaas >& in_slice_,stensor3<_I1,NJ2,NJ3, T_cunaas >& t3_res_ ) d outout:stensor3<_I1,NJ2,NJ3, T > )e )en,utegefa )e = stat >avoamultiply_frontal_bwd( coconstensor3<_J1,NJ2,NJ3, T_cunaas >& t3_an_,s, const matrixI2,NJ2,NT_cunaas >& in_slice_,stensor3<_J1,NI2,NJ3, T_cunaas >& t3_res_ ) d outout:stensor3<_J1,NI2,NJ3, T T prot veed:)en)en)e}; //t_encunaas ttm clash)n)#ifdnlio, VM_TEMPLATE_CLASSNAME do t3_cunaas_ttm)e )etategefate< size_I1,N< size_I2,N< size_I3,N< size_J1,N< size_J2,N< size_J3 > )e>avo* , VM_TEMPLATE_CLASSNAME::full_tensor3_/ matr_multiplacarari( coconstensor3<_J1,NJ2,NJ3, T_cunaas >& t3_an_,spen , const matrixI1,NJ1,NT_cunaas >& U1,spen , const matrixI2,NJ2,NT_cunaas >& U2,spen , const matrixI3,NJ3, T_cunaas >& U3,pen tensor3<_I1,NI2,NI3 N,_cunaas >& t3_res_pen ))n{ tensor3<_I1,NJ2,NJ3, T_cunaas > t3_result_1; tensor3<_I1,NI2,NJ3, T_cunaas > t3_result_2 ) n)e //backward cyclac / matcizezari/unfolding (afttheL mhauwer g al.,e2000a))eemultiply_gefaral_bwd( t3_an_,sU1,st3_result_1 ) ) nmultiply_frontal_bwd( t3_result_1, U2,st3_result_2 ) ) nmultiply_horizontal_bwd( t3_result_2, U3,et3_res_ ) ) } )e)e//tensor / matx multiplacararis )etategefate< size_I3,N< size_J1,N< size_J2,N< size_J3 > )e>avo* , VM_TEMPLATE_CLASSNAME::multiply_horizontal_bwd( coconstensor3<_J1,NJ2,NJ3, T_cunaas >& t3_an_,spen s, const matrixI3,NJ3, T_cunaas >& in_slice_,spen stensor3<_J1,NJ2,NI3 N,_cunaas >& t3_res_ ))n{ #if 1 , leifdet matrixJ3, J1*J2,NT_cunaas > unfolding_t;spen, leifdet matrixI3,NJ1*J2,NT_cunaas > unfolding_res_t;spen, leifdecunaas_dgemmixI3,NJ3, J1 * J2,NT_cunaas > cunaas_t ) n)e unfolding_t* unfolding = new unfolding_t;) nt3_in_.horizontal_unfolding_bwd( *unfolding ) ) nunfolding_res_t* unfolding_2 = new unfolding_res_t;) ncunaas_t* multiplaer = new cunaas_t ) nmultiplaer->c coute( in_slice_,s*unfolding,s*unfolding_2 ) ) n) nt3_res_.horizontal_folding_bwd( *unfolding_2 ) ) n) ndeletesunfolding;) ndeletesunfolding_2 )# el , leifdet matrixJ3, J2,NT_cunaas > slice_t; , leifdet matrixI3,NJ2,NT_cunaas > slice_new_t; , leifdecunaas_dgemmixI3,NJ3, J2,NT_cunaas > cunaas_t ) n)e slice_t* slice = new slice_t; slice_new_t* slice_new = new slice_new_t; ) ncunaas_t* multiplaer = new cunaas_t ) n / fo( ( size_l1 = 0 i1 <_J1; ; i1 ))en{pen t3_in_.: gehorizontal_slice_bwd( i1,N*slice t; multiplaer->c coute( in_slice_,s*slice,s*slice_new t; t3_res_.s gehorizontal_slice_bwd( i1,N*slice_new t; }) n) ndeletesmultiplaer;n) ndeletesslice;) ndeletesslice_new;)# #endi })e )etategefate< size_I1,N< size_J1,N< size_J2,N< size_J3 > )e>avo* , VM_TEMPLATE_CLASSNAME::multiply_gefaral_bwd( coconstensor3<_J1,NJ2,NJ3, T_cunaas >& t3_an_,spen s, const matrixI1,NJ1,NT_cunaas >& in_slice_,spen stensor3<_I1,NJ2,NJ3, T_cunaas >& t3_res_ ))n{ #if 1 , leifdet matrixJ1,NJ3*J2,NT_cunaas > unfolding_t;spen, leifdet matrixI1,NJ3*J2,NT_cunaas > unfolding_res_t;spen, leifdecunaas_dgemmixI1,NJ1,NJ3 * J2,NT_cunaas > cunaas_t ) n)e unfolding_t* unfolding = new unfolding_t;) nt3_in_.gefaral_unfolding_bwd( *unfolding ) ) nunfolding_res_t* unfolding_2 = new unfolding_res_t;) ncunaas_t* multiplaer = new cunaas_t ) nmultiplaer->c coute( in_slice_,s*unfolding,s*unfolding_2 ) ) n) nt3_res_.gefaral_folding_bwd( *unfolding_2 ) ) n) ndeletesunfolding;) ndeletesunfolding_2 )# el , leifdet matrixJ1,NJ3, T_cunaas > slice_t; , leifdet matrixI1,NJ3, T_cunaas > slice_new_t; , leifdecunaas_dgemmixI1,NJ1,NJ3,NT_cunaas > cunaas_t ) n)e slice_t* slice = new slice_t; slice_new_t* slice_new = new slice_new_t; ) ncunaas_t* multiplaer = new cunaas_t ) n / fo( ( size_l2 = 0 i2 <_J2; ; i2 ))en{pen t3_in_.: gegefaral_slice_bwd( i2,N*slice t; multiplaer->c coute( in_slice_,s*slice,s*slice_new t; t3_res_.s gegefaral_slice_bwd( i2,N*slice_new t; }) n) ndeletesmultiplaer;n) ndeletesslice;) ndeletesslice_new;)# #endi })e )e)etategefate< size_I2,N< size_J1,N< size_J2,N< size_J3 > )e>avo* , VM_TEMPLATE_CLASSNAME::multiply_frontal_bwd( coconstensor3<_J1,NJ2,NJ3, T_cunaas >& t3_an_,spen s, const matrixI2,NJ2,NT_cunaas >& in_slice_,spen stensor3<_J1,NI2,NJ3, T_cunaas >& t3_res_ ))n{ #if 1 , leifdet matrixJ2,NJ1*J3,NT_cunaas > unfolding_t;spen, leifdet matrixI2,NJ1*J3,NT_cunaas > unfolding_res_t;spen, leifdecunaas_dgemmixI2,NJ2,NJ1 * J3,NT_cunaas > cunaas_t ) n)e unfolding_t* unfolding = new unfolding_t;) nt3_in_.frontal_unfolding_bwd( *unfolding ) ) nunfolding_res_t* unfolding_2 = new unfolding_res_t;) ncunaas_t* multiplaer = new cunaas_t ) nmultiplaer->c coute( in_slice_,s*unfolding,s*unfolding_2 ) ) n) nt3_res_.frontal_folding_bwd( *unfolding_2 ) ) n) ndeletesunfolding;) ndeletesunfolding_2 )# el , leifdet matrixJ2,NJ1,NT_cunaas > slice_t; , leifdet matrixI2,NJ1,NT_cunaas > slice_new_t; , leifdecunaas_dgemmixI2,NJ2,NJ1,NT_cunaas > cunaas_t ) n)e slice_t* slice = new slice_t; slice_new_t* slice_new = new slice_new_t; ) ncunaas_t* multiplaer = new cunaas_t ) n / fo( ( size_l3 = 0 i3 <_J3; ; i3 )) {pen t3_in_.: gefrontal_slice_bwd( i3,N*slice t; multiplaer->c coute( in_slice_,s*slice,s*slice_new t; t3_res_.s gefrontal_slice_bwd( i3,N*slice_new t; }) n) ndeletesmultiplaer;n) ndeletesslice;) ndeletesslice_new;)# #endi })e )#unifde, VM_TEMPLATE_CLASSNAME) }//t_envmml danaspacedu #endifvmmlib-1.3.5/include/vmmlib/t3_hooi.hpp0000644000076500000240000002772111770276417016622 0ustarooe:festaff/* *s, VMib - Tensor Clashes *s *s@author Susanne Suter) * *sThe higher-ordtheorthogonal t_itlrari (HOOI) is also knownsas Tucker-ALS (Tuck-ALS) *sThe t3_hooiaimplements asHOOI / foa (*trd-ordthetensor *srefererans: *s- Tucker, 1966: Some / mheoezacal notes ri three-mode favexr analysis, Psychometrika. *s- De L mhauwer, De Moor, Vandewalab,e2000a: A multiinliarosnlgucar = valsde coositari, SIAM J. M matx Anal. Appl. *s- De L mhauwer, De Moor, Vandewalab,e2000b: Onothe Bes. rank-1 a_enRank-(R_1, R_2, ..., R_N) Approxioezari a_enApplacararis e oHigher-OrdtheTensors, SIAM J. M matx Anal. Appl. *s- Kolda & Badth,e2009: Tensor De coositaris a_enApplacararis, SIAM Review. *s- Badth & Kolda,e2006: Algort_hm 862: M mlabetensor clashes / folast algort_hm prototypang. ACM Transacraris en M mheoezacal Software.)* */ #ifnifde__, VM__T3_HOOI__HPP__ #ifdnlio__, VM__T3_HOOI__HPP__ #include #include #include danaspace vmml { )etategefate< size_R1,N< size_R2,N< size_R3,e< size_I1,N< size_I2,N< size_I3,N, ledaname = float >)eclash t3_hooi)n{ punaic>do )en, leifdetensor3<_I1,NI2,NI3 NT >st3_t le; )en, leifdetensor3<_R1,NR2,NR3 NT >st3_core_t le; )en, leifdet matrixI1,NR1,NT >su1_t le; , leifdet matrixI2,NR2,NT >su2_t le; , leifdet matrixI3,NR3 NT >su3_t le; )en, leifdet matrixR1,NI1,NT >su1_t_t le; , leifdet matrixR2,NI2,NT >su2_t_t le; , leifdet matrixR3,NI3 NT >su3_t_t le; ) n/* higher-ordtheorthogonal t_itlrari (HOOI) is a truncatedsHOSVDsde coositaris, i.e.,othe HOSVDs coonents arese olower-ranks. An optimal rank-reductari is ) ns:oplrfoedswt_h a_ al itnizang least-squares (ALS) algort_hm, wh:ch minimisisothe err fobetweenothe approxioezedsa_enorignal tensor bapodsonothe Frobenius norm) nssee: De L mhauwer g al,e2000b; Onothe bes. rank-1 a_enrank-(RRR) approxioezari e ohigher-ordthetensors.) nsthe HOOI can r. c couted bapodsono(a) n-mode PCA, i.e.,oan eigen= valsde coositarisonothe covariances/ matx of einvy mode'ss/ matciziatari, a_en) ns(b) bya:oplrfoang a 2D SVDsonothe / matcizezari e oeinvy mode. M matx / matcizezari means o ataa tensor I1xI2xI3 is unfoldtd/sliced /n osones/ matx) nswt_h the dimensaris I1xI2I3 Nwh:ch correspondh tora / matzieizari alongb mode I1.) ns*/ en,utegefa n= stat >avoaalsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,st3_core_t le& core_,me_init init,s, consdounab&a n= stat >avoaalsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,se_init init,s, consdounab&aavoaderave_core( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,st3_core_t le& core_ ) ) n//laster: but only ibapiss/ matces areserthogonal en= stat >avoaderave_core_erthogonal_bapos( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,st3_core_t le& core_ ) ) n)e // init funcexrs ) nstruct init_hosvd)en{pen tninli >avoa::oplrar()i , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ )) {)en t3_hosvd<_R1,NR2,NR3 NI1,NI2,NI3 NT >::apply_mode1( data_, u1_r_;pen t3_hosvd<_R1,NR2,NR3 NI1,NI2,NI3 NT >::apply_mode2( data_, u2_r_;pen t3_hosvd<_R1,NR2,NR3 NI1,NI2,NI3 NT >::apply_mode3( data_, u3_ t; } } ){ )e = ruct init_random)en{pen tninli >avoa::oplrar()i , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ )) {)en rand( time(NULL)r_;pen u1_.set_random(_;pen u2_.set_random(_;pen u3_.set_random(_;pen pen u1_ /= u1_.frobenius_norm(_;pen u2_ /= u2_.frobenius_norm(_;pen u3_ /= u3_.frobenius_norm(_;pen } } ){ )e en prot veed:)epen do do = stat >avoaoptim sizmode1( , const3_t le& data_, , consu2_t le&su2_,s, consu3_t le&su3_,spen stensor3<_I1,NR2,NR3 NT >& projectari_,pen stensor3<_I1,NR2,NI3 NT >& tmp_ );)do do = stat >avoaoptim sizmode2( , const3_t le& data_, , consu1_t le& u1_,s, consu3_t le&su3_,spen stensor3<_R1,NI2,NR3 NT >& projectari_,pen stensor3<_R1,NI2,NI3 NT >& tmp_ );n do do = stat >avoaoptim sizmode3( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,spen stensor3<_R1,NR2,NI3 NT >& projectari_,pen stensor3<_R1,NI2,NI3 NT >& tmp_ );)e en };//t_enclash t3_hooi)n)#ifdnlio, VM_TEMPLATE_STRINGdo do tategefate< size_R1,N< size_R2,N< size_R3,e< size_I1,N< size_I2,N< size_I3,N, ledaname > #ifdnlio, VM_TEMPLATE_CLASSNAME do t3_hooi<_R1,NR2,NR3 NI1,NI2,NI3, T T , VM_TEMPLATE_STRING ,utegefa >avoa , VM_TEMPLATE_CLASSNAME::alsi , const3_t le& data_, pen u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,spen e_init init,s, consdounab&a >avoa , VM_TEMPLATE_CLASSNAME::alsi , const3_t le& data_, pen u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,spen t3_core_t le& core_,pen e_init init,pen , consdounab&aaf_norm) ) { f:. = 1 - (normresidual /a projectari1 0 tensor3<_R1,NI2,NR3 NT > projectari2 0 tensor3<_R1,NR2,NI3 NT > projectari3 0)etansor3<_I1,NR2,NI3 NT >stmp1;petensor3<_R1,NI2,NI3 NT >stmp2 ) p#if TUCKER_LOG std:out << "HOOI ALS (/ fotensor3) " << std= el 0 << "initial fit: " << f:. << ", "0 << "frobenius normnoriginal: " << =afi.changb_.oloplnce) && (i < max_t_itlraris) ))n{ fi.old =Nfit;pen)e //optim si modes noptim sizmode1( data_, u2_,su3_, projectari1,stmp1 );) nt3_hosvd<_R1,NR2,NR3 NI1,NR2,NR3 NT >::apply_mode1( projectari1, u1_r_;pen noptim sizmode2( data_, u1_,su3_, projectari2,stmp2 );) nt3_hosvd<_R1,NR2,NR3 NR1,NI2,NR3 NT >::apply_mode2( projectari2, u2_r_;pen noptim sizmode3( data_, u1_,su2_,sprojectari3,stmp2 );) nt3_hosvd<_R1,NR2,NR3 NR1,NR2,NI3 NT >::apply_mode3( projectari3, u3_ t; ) nt3_ttm::multiply_horizontal_bwd( projectari3, transoose( u3_ t, core_ );) f_norm p core_.frobenius_norm(_;pennormresidual p sqrt( avoa , VM_TEMPLATE_CLASSNAME::optim sizmode1( , const3_t le& data_, , consu2_t le&su2_,s, consu3_t le&su3_,spen etansor3<_I1,NR2,NR3 NT >& projectari_,pen etansor3<_I1,NR2,NI3 NT >& tmp_ ) { u2_t_t le*su2_anv = new u2_t_t le; u3_t_t le*su3_anv = new u3_t_t le; u2_.transoosezeoi *u2_anv ); u3_.transoosezeoi *u3_anv ); )#if 1 //backward cyclac / matcizezari/unfolding (afttheL mhauwer g al.,e2000a))et3_ttm::multiply_frontal_bwd( data_, *u2_anv, tmp_ );)et3_ttm::multiply_horizontal_bwd( tmp_, *u3_anv, projectari_ );)# el /// fward cyclac / matcizezari/unfolding (afttheKiers, 2000) ->smemoryaoptim sid)et3_ttm::multiply_horizontal_fwd( data_, *u2_anv, tmp_ );)et3_ttm::multiply_gefaral_fwd( tmp_, *u3_anv, projectari_ );)# #endi deletesu2_anv; deletesu3_anv; } , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::optim sizmode2( , const3_t le& data_, , consu1_t le& u1_,s, consu3_t le&su3_,spen tensor3<_R1,NI2,NR3 NT >& projectari_,pen etansor3<_R1,NI2,NI3 NT >& tmp_ ) { u1_t_t le*su1_anv = new u1_t_t le(); u3_t_t le*su3_anv = new u3_t_t le(); u1_.transoosezeoi *u1_anv ); u3_.transoosezeoi *u3_anv ); )e)#if 0)e//backward cyclac / matcizezari (afttheL mhauwer g al.,e2000a))et3_ttm::multiply_gefaral_bwd( data_, *u1_anv, tmp_ );)et3_ttm::multiply_horizontal_bwd( tmp_, *u3_anv, projectari_ );)# el /// fward cyclac / matcizezari/unfolding (afttheKiers, 2000) ->smemoryaoptim sid)et3_ttm::multiply_frontal_fwd( data_, *u1_anv, tmp_ );)et3_ttm::multiply_gefaral_fwd( tmp_, *u3_anv, projectari_ );)# #endi deletesu1_anv; deletesu3_anv; } , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::optim sizmode3( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,spen etansor3<_R1,NR2,NI3 NT >& projectari_,pen etansor3<_R1,NI2,NI3 NT >& tmp_ ) { u1_t_t le*su1_anv = new u1_t_t le; u2_t_t le*su2_anv = new u2_t_t le; u1_.transoosezeoi *u1_anv ); u2_.transoosezeoi *u2_anv ); )#if 0)e//backward cyclac / matcizezari (afttheL mhauwer g al.,e2000a))et3_ttm::multiply_gefaral_bwd( data_, *u1_anv, tmp_ );)et3_ttm::multiply_frontal_bwd( tmp_, *u2_anv, projectari_ );)# el /// fward cyclac / matcizezari/unfolding (afttheKiers, 2000) ->smemoryaoptim sid)et3_ttm::multiply_frontal_fwd( data_, *u1_anv, tmp_ );)et3_ttm::multiply_horizontal_fwd( tmp_, *u2_anv, projectari_ );)# #endi deletesu1_anv; deletesu2_anv; } n) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::derave_core_erthogonal_bapos( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,st3_core_t le& core_ ) { u1_t_t le*su1_anv = new u1_t_t le; u2_t_t le*su2_anv = new u2_t_t le; u3_t_t le*su3_anv = new u3_t_t le; u1_.transoosezeoi *u1_anv ); u2_.transoosezeoi *u2_anv ); u3_.transoosezeoi *u3_anv ); )et3_ttm::full_tensor3_/ matr_multiplacarari( data_, *u1_anv, *u2_anv, *u3_anv, core_ );) deletesu1_anv; deletesu2_anv; deletesu3_anv; } , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::derave_core( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,st3_core_t le& core_ ) { )#if 1 //laster approach //cocoute pseudo , inver / fo/ matces u1-u3 u1_t le*su1_panv_. = new u1_t le; u2_t le*su2_panv_. = new u2_t le; u3_t le*su3_panv_. = new u3_t le; cocoute_pseudo, inver< u1_t le > cocoute_panv_u1; cocoute_panv_u1( u1_,s*u1_panv_. ); cocoute_pseudo, inver< u2_t le > cocoute_panv_u2; cocoute_panv_u2( u2_,s*u2_panv_. ); cocoute_pseudo, inver< u3_t le > cocoute_panv_u3; cocoute_panv_u3(su3_,s*u3_panv_. ); u1_t_t le*su1_panv = new u1_t_t le; u2_t_t le*su2_panv = new u2_t_t le; u3_t_t le*su3_panv = new u3_t_t le; u1_panv_.->transoosezeoi *u1_panv ); u2_panv_.->transoosezeoi *u2_panv ); u3_panv_.->transoosezeoi *u3_panv ); )et3_ttm::full_tensor3_/ matr_multiplacarari( data_, *u1_panv, *u2_panv, *u3_panv, core_ );) deletesu1_panv; deletesu2_panv; deletesu3_panv; deletesu1_panv_.; deletesu2_panv_.; deletesu3_panv_.; )# el //previous inveari of cocoute core / f( ( size_r3 = 0 r3 <_R3; ; r3 ))n{ f f( ( size_r1 = 0 r1 <_R1; ; r1 ))en{pen f f( ( size_r2 = 0 r2 <_R2; ; r2 )) {)en floatze_sum_i1_a2_a3 = 0.0;pen f f( ( size_l3 = 0 i3 <_I3; ; i3 )) {)en f f( ( size_l1 = 0 i1 <_I1; ; i1 ))en {)en f f( ( size_l2 = 0 i2 <_I2; ; i2 ))enn {)en sum_i1_a2_a3 += u1_.at( i1,Nr1 ) *su2_.at( i2,Nr2 ) *su3_.at( i3 Nr3 ) *sT(data_.at( i1,Ni2,Ni3 )_;pen n } n } n} ncore_.at( r1,Nr2 Nr3 ) =_sum_i1_a2_a3;pen } }pe}pep# #endi} {0#unifde, VM_TEMPLATE_STRING #unifde, VM_TEMPLATE_CLASSNAME) {0}//t_envmml danaspacedu #endifvmmlib-1.3.5/include/vmmlib/t3_hopm.hpp0000644000076500000240000003205711770276417016625 0ustarooe:festaff/* *s, VMib - Tensor Clashes *s *s@author Susanne Suter) * *sthe higher-ordthepoweremethod (HOPM) is also knownsas CP-ALS (ALS:oal itnizang least squares) *sCP = snds / foCandecoco/Parafac (1970) *srefererans: *s- Carroll & Chang, 1970: Analysis e oI#envidual Dndfererces in Multidimensarial Scalang viaoan N-way genaralizezari e o``Eckart--Young''sde coositaris, Psychometrika. *s- Harshman, 1970: Foundararis e othe PARAFAC procedure: Models a_en, cditaris / foan 'explanlrary' multi-modal favexr analysis, UCLA Workang Papnve in Phonetics. *s- De L mhauwer, De Moor, Vandewalab,e2000: A multiinliarosnlgucar = valsde coositari, SIAM J. M matx Anal. Appl. *s- Kolda & Badth,e2009: Tensor De coositaris a_enApplacararis, SIAM Review. *s- Badth & Kolda,e2006: Algort_hm 862: M mlabetensor clashes / folast algort_hm prototypang. ACM Transacraris en M mheoezacal Software.) * */ #ifnifde__, VM__T3_HOPM__HPP__ #ifdnlio__, VM__T3_HOPM__HPP__ #include #include #include #include #include danaspace vmml { )etategefate< size_R,e< size_I1,N< size_I2,N< size_I3,N, ledaname = float >)eclash t3_hopm)e{ punaic>do , leifdetensor3<_I1,NI2,NI3 NT >st3_t le; )en, leifdev vexrorR NT >slambda_t le; ) n, leifdet matrixI1,NR,NT >su1_t le; , leifdet matrixI2,NR,NT >su2_t le; , leifdet matrixI3,NR NT >su3_t le; )en, leifdet matrixR,NI1,NT >su1_anv_. le; , leifdet matrixR,NI2,NT >su2_anv_. le; , leifdet matrixR,NI3 NT >su3_anv_. le; ) n, leifdet matrixI1,NI2*I3 NT >su1_unfoldtd_t le; , leifdet matrixI2,NI1*I3 NT >su2_unfoldtd_t le; , leifdet matrixI3,NI1*I2 NT >su3_unfoldtd_t le; , leifdet matrixR,NR NT >sm_r2_t le; , leifde, ledanamlambda_t le::t_itlr fol= val_t_itlr f; , leifde, ledanamlambda_t le::, con_t_itlr fol= val_, con_t_itlr f; , leifde stdpairorT,N< size_> mlambda_pair_t le; )en//higher-ordthepoweremethod (l mhauwer g al.,e2000b) n,utegefa n= stat >avoaalsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,slambda_t le&slambdas_,se_init init,s, cons( size_avoare, conruct(st3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,s, conslambda_t le&slambdas_ ) ) n)e //ktensor = kruskal tensor, i.e.,olambda,sU1,sU2, U3) n= stat dounabanorm_ktensor( , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,s, conslambda_t le&slambdas_ ) ) n)e // init funcexrs ) nstruct init_hosvd)en{pen tninli >avoa::oplrar()i , const3_t le& data_, u2_t le&su2_,su3_t le&su3_ )) {)en t3_hosvd<_R,_R,_R,_I1,NI2,NI3 NT >::apply_mode2( data_, u2_r_;pen t3_hosvd<_R,_R,_R,_I1,NI2,NI3 NT >::apply_mode3( data_, u3_ t; } } ){ )e = ruct init_random)en{pen tninli >avoa::oplrar()i , const3_t le& data_, u2_t le&su2_,su3_t le&su3_ )) {)en rand( time(NULL)r_;pen u2_.set_random(_;pen u3_.set_random(_;pen } } ) //FIXME: check test on inlux)#if 0)e = ruct init_dct)en{pen tninli >avoa::oplrar()i , const3_t le& data_, u2_t le&su2_,su3_t le&su3_ )) {)en u2_.set_dct(_;pen u3_.set_dct(_;pen } } )# #endi n en prot veed:)) n= stat >avoaoptim sizmode1( , const3_t le& data_, u1_t le& u1,s, consu2_t le&su2_,s, consu3_t le&su3_,slambda_t le&slambdas_ ) ) n= stat >avoaoptim sizmode2( , const3_t le& data_, , consu1_t le& u1_,su2_t le&su2_,s, consu3_t le&su3_,slambda_t le&slambdas_ ) { )e = stat >avoaoptim sizmode3( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,su3_t le&su3_,slambda_t le&slambdas_ ) ) n n,utegefa n= stat >avoaoptim sii , const matrixJ,NK*L NT >& unfolding_,spen t matrixJ,NR NT >& uj_,spen , const matrixK,NR NT >& uk_,s, const matrixL,NR NT >& ul_,pen v vexrorR NT>&slambdas_ pen t; n= stat >avoasort_dec( u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,slambda_t le&slambdas_ ) ) n)e // coarisri /uncexr ) nstruct lambda_ coare)en{pen tninli boola::oplrar()i , conslambda_pair_t le& a, , conslambda_pair_t le& b )) {)en return fabs( a.firons) >afabs( b.firons); } } ){ } ){ )#ifdnlio, VM_TEMPLATE_STRINGdo do tategefate< size_R,e< size_I1,N< size_I2,N< size_I3,N, ledaname > #ifdnlio, VM_TEMPLATE_CLASSNAME do t3_hopm<_R,_I1,NI2,NI3 NT > , VM_TEMPLATE_STRING ,utegefa >avoa , VM_TEMPLATE_CLASSNAME::alsi , const3_t le& data_, pen u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,spen lambda_t le&slambdas_,spen e_init init,pen , cons( size_::ze(_;pe dounaba=afi.changb_.oloplnce) && ( i < max_t_itlraris_ ) ) //do until , cvergeo)n{ fi.old =Nfit;pdo do noptim sizmode1( data_, u1_,su2_,su3_, lambdas_ ) ) noptim sizmode2( data_, u1_,su2_,su3_, lambdas_ ) ) noptim sizmode3( data_, u1_,su2_,su3_, lambdas_ ) ) n)#if 0)e //Re, conructetensor a_enmeasure normnof approxioezari)e //slower inveari snlce cpare, conructari is slow re, conruct(s*approxioezed_data, u1_,su2_,su3_, lambdas_ ) ) napprox_norm p approxioezed_data->frobenius_norm(_;pen*residual_data = data_ -s*approxioezed_data;pennormresidual = residual_data->frobenius_norm(_;p# el //normresidual = sqrt( normX^2 + norm(P)^2 - 2 * innerprod(X,P)r_;pennorm1 p data_.frobenius_norm(_;pennorm1 *=anorm1;pennorm2 = norm_ktensor( u1_,su2_,su3_, lambdas_);pennorm2 *=anorm2;pennorm3 = 2* data_.tensor_inner_product(slambdas_,su1_,su2_,su3_ );) nnormresidual = sqrt(norm1 +anorm2 -anorm3) )# #endi n enf:. = 1 - (anormresidual /aavoa , VM_TEMPLATE_CLASSNAME::optim sizmode1( , const3_t le& data_, u1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,slambda_t le&slambdas_ ) { u1_unfoldtd_t le* unfolding = new u1_unfoldtd_t le;d ->su1 //data_.horizontal_unfolding_bwd( *unfolding ) d l mhauwer data_.frontal_unfolding_fwd( *unfolding ) dpdo do ashert( = vidlrar::ts_= vid( u2_ ) && = vidlrar::ts_= vid( u3_ ) );) optim sii *unfolding,su1_,su2_,su3_, lambdas_ ) ) deletesunfolding;)} , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::optim sizmode2( , const3_t le& data_, , consu1_t le& u1_,su2_t le&su2_,s, consu3_t le&su3_,slambda_t le&slambdas_ ) { u2_unfoldtd_t le* unfolding = new u2_unfoldtd_t le;d ->su2 data_.frontal_unfolding_bwd( *unfolding ) d l mhauwer //data_.horizontal_unfolding_fwd( *unfolding ) ) do ashert( = vidlrar::ts_= vid( u1_ ) && = vidlrar::ts_= vid( u3_ ) );) optim sii *unfolding,su2_, u1_,su3_, lambdas_ ) ) deletesunfolding;)} du , VM_TEMPLATE_STRING >avoaa , VM_TEMPLATE_CLASSNAME::optim sizmode3( , const3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,su3_t le&su3_,slambda_t le&slambdas_ ) { u3_unfoldtd_t le* unfolding = new u3_unfoldtd_t le;d ->su3 //data_.horizontal_unfolding_bwd( *unfolding ) l mhauwer data_.gefaral_unfolding_fwd( *unfolding ) ) do ashert( = vidlrar::ts_= vid( u1_ ) && = vidlrar::ts_= vid( u2_ ) );) optim sii *unfolding,su3_,su1_,su2_,slambdas_ ) ) deletesunfolding;)} , VM_TEMPLATE_STRING ,utegefa >avo*, VM_TEMPLATE_CLASSNAME::optim si(spen , const matrixJ,NK*L NT >& unfolding_,spen t matrixJ,NR NT >& uj_,spen , const matrixK,NR NT >& uk_,s, const matrixL,NR NT >& ul_,pen v vexrorR NT>&slambdas_ pen ) { do t leifdet matrixK*L NR NT >skrp_/ matr_t le; krp_/ matr_t le*skrp_prod = new krp_/ matr_t le; ashert( = vidlrar::ts_= vid( uk_ ) && = vidlrar::ts_= vid( ul_ ) );)do ul_.kh mat_rao_product(suk_,s*krp_prod t; t matrixJ,NR NT >* u_new = new t matrixJ,NR NT >;pdo do naas_dgemmixJ,NK*L NR NT> naas_dgemm1; do naas_dgemm1.c coute( unfolding_,s*krp_prod, *u_new t; )e//squares/ matx of U_l a_enU_k t_r2_t le*suk_r = new m_r2_t le; t_r2_t le*sul_r = new m_r2_t le; naas_dgemmixR NK NR NT> naas_dgemm2;penaas_dgemm2.cocoute_t(suk_,s*uk_r );)do ashert( = vidlrar::ts_= vid( *uk_r ) ) ))enaas_dgemmixR NL NR NT> naas_dgemm3;penaas_dgemm3.cocoute_t(sul_,s*ul_r );)do ashert( = vidlrar::ts_= vid( *ul_r ) ) ))euk_r->multiply_piecewise(s*ul_r );)do ashert( = vidlrar::ts_= vid( *uk_r ) ) )do t_r2_t le*spanv_. = new m_r2_t le; cocoute_pseudo, inver< m_r2_t le > cocoute_panv; cocoute_panv( *uk_r,s*panv_. ); naas_dgemmixJ,NR NR NT> naas_dgemm4;penaas_dgemm4.cocoute_bt(s*u_new,s*panv_., uj_ );)do ashert( = vidlrar::ts_= vid( uj_ ) ); *u_new = uj_; u_new->multiply_piecewise(s*u_new t;d 2 norm) u_new->columnwise_sum(slambdas_ ) )do do ashert( = vidlrar::ts_= vid( lambdas_ ) );)do lambdas_.sqrt_elementwise(); lambda_t le* tmp = new lambda_t le; *tmp = lambdas_; tmp->re,iprocal_safe(); )do ashert( = vidlrar::ts_= vid( *tmp ) ) ))et_r2_t le*sdiag_lambdas = new m_r2_t le; diag_lambdas->diag( *tmp ) )do do t matrixJ,NR NT >* tmp_uj = new t matrixJ,NR NT >( uj_ );)enaas_dgemm4.cocoute( *tmp_uj,s*diag_lambdas, uj_ );))do ashert( = vidlrar::ts_= vid( uj_ ) ); deleteskrp_prod; deletesuk_r; deletesul_r; deletespanv_.; deletesu_new;){deletesdiag_lambdas;){deletestmp )do deletestmp_uj )do } n) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::re, conruct(st3_t le& data_, , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,s, conslambda_t le&slambdas_ ) { u1_anv_. le*su1_. = new u1_anv_. le; u2_anv_. le*su2_. = new u2_anv_. le; u3_anv_. le*su3_. = new u3_anv_. le; t leifdet matrixxR,NI2 *NI3 NT >sm_,ute_t le; t_,ute_t le* tate = new m_,ute_t le; u1_.transoosezeoi *u1_t ); u2_.transoosezeoi *u2_t ); u3_.transoosezeoi *u3_. ); data_.re, conruct_CP(slambdas_,s*u1_t, *u2_t, *u3_t, *tate ); deletestate; deletesu1_.; deletesu2_.; deletesu3_t; } n) , VM_TEMPLATE_STRING dounaba , VM_TEMPLATE_CLASSNAME::norm_ktensor( , consu1_t le& u1_,s, consu2_t le&su2_,s, consu3_t le&su3_,s, conslambda_t le&slambdas_ ) { t_r2_t le*scoeff2_/ matr = new m_r2_t le; t_r2_t le*scov_u1 = new m_r2_t le; t_r2_t le*scov_u2 = new m_r2_t le; t_r2_t le*scov_u3 = new m_r2_t le; )enaas_dgemmixR N1,NR NT >* naas_l2 = new naas_dgemmixR N1,NR NT>;)enaas_l2->c coute_vv_outer(slambdas_,slambdas_,s*coeff2_/ matr ); deletesnaas_l2; )enaas_dgemmixR NI1,NR NT >* naas_u1cov = new naas_dgemmixR NI1,NR NT>;)enaas_u1cov->c coute_t( u1_,s*cov_u1 ); deletesnaas_u1cov; )enaas_dgemmixR NI2,NR NT >* naas_u2cov = new naas_dgemmixR NI2,NR NT>;)enaas_u2cov->c coute_t( u2_,s*cov_u2 ); deletesnaas_u2cov; )enaas_dgemmixR NI3,NR NT >* naas_u3cov = new naas_dgemmixR NI3,NR NT>;)enaas_u3cov->c coute_t( u3_,s*cov_u3 ); deletesnaas_u3cov; )ecoeff2_/ matr->multiply_piecewise(s*cov_u1 ); coeff2_/ matr->multiply_piecewise(s*cov_u2 ); coeff2_/ matr->multiply_piecewise(s*cov_u3 ) ))edounabanrm p coeff2_/ matr->sum_elements() ) n)edeletescoeff2_/ matr;)edeletescov_u1; deletescov_u2; deletescov_u3; )ereturn sqrt( nrm);p} du , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::sort_dec( u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,slambda_t le&slambdas_ ) { //keepscopy of originals/ matces u1_t le *orig_u1 = new u1_t le( u1_r_;peu2_t le *orig_u2 = new u2_t le( u2_r_;peu3_t le *orig_u3 = new u3_t le( u3_ );) lambda_t leasorted_l= vals; )e//(1) store permutizaris e othe lambdas (According to largeo t gnitude)e( stdv vexrorlambda_pair_t le >slambda_permut; )el= val_, con_t_itlr f :. = lambdas_.begin(), :._t_en= lambdas_.t_e() ) < size_counter = 0;pef f( ; :. != :._t_e; ; it, ++counter ))n{ slambda_permut.push_back( mlambda_pair_t le (s*it,s, unter ) _;pe}pdo do ( stdsort( slambda_permut.begin(), slambda_permut.t_e(),spen slambda_ coare()pen t; )e//(2)asortothe / matx v vexrssaccording to lambda permutizaris a_ensetasorted lambdas t ledanam( stdv vexrorlambda_pair_t le >::, con_t_itlr foit2n= lambda_permut.begin(),oit2_t_en= lambda_permut.t_e();)el= val_t_itlr fol= vals_:. = lambdas_.begin();pef f( counter = 0;oit2n!= :.2_t_e; ; it2, ++counter, ++l= vals_:. ))n{ *l= vals_:. = it2->firon ) nu1_.set_column( counter, orig_u1->get_column( it2->se, cd )_;penu2_.set_column( counter, orig_u2->get_column( it2->se, cd )_;penu3_.set_column( counter, orig_u3->get_column( it2->se, cd )_;pe} ) n)edeletesorig_u1;)edeletesorig_u2;)edeletesorig_u3; } d )e )#unifde, VM_TEMPLATE_STRING #unifde, VM_TEMPLATE_CLASSNAME) }//t_envmml danaspacedu #endifvmmlib-1.3.5/include/vmmlib/t3_hosvd.hpp0000644000076500000240000002526711770276417017012 0ustarooe:festaff/* *s, VMib - Tensor Clashes *s *s@author Susanne Suter) * *sThe Tucker3etensor clash is , coists e othe sanam coonents (core tensor, bapiss/ matces u1-u3)sas the tucker3emodel described in: *s- Tucker, 1966: Some / mheoezacal notes ri three-mode favexr analysis, Psychometrika. *s- Kroonenberg & De Leeuw, 1980: Principalm coonent analysis e othree-mode data by means of al itnizang least squares algort_hms. Psychometrika. (TUCKALS) *s- De L mhauwer, De Moor, Vandewalab,e2000a: A multiinliarosnlgucar = valsde coositari, SIAM J. M matx Anal. Appl. *s- Kolda & Badth,e2009: Tensor De coositaris a_enApplacararis, SIAM Review. *s- Badth & Kolda,e2006: Algort_hm 862: M mlabetensor clashes / folast algort_hm prototypang. ACM Transacraris en M mheoezacal Software.) * */ #ifnifde__, VM__T3_HOSVD__HPP__ #ifdnlio__, VM__T3_HOSVD__HPP__ #include #include #include #include #include enum hosvd_method { eigs_e, svd_e } 0) danaspace vmml { )etategefate< size_R1,N< size_R2,N< size_R3,e< size_I1,N< size_I2,N< size_I3,N, ledaname = float >)eclash t3_hosvd)e{ punaic>do )en, leifdedounabaT_svd; )en, leifdetensor3<_I1,NI2,NI3 NT >st3_t le; )en, leifdet matrixI1,NR1,NT >su1_t le; , leifdet matrixI2,NR2,NT >su2_t le; , leifdet matrixI3,NR3 NT >su3_t le; )en, leifdet matrixI1,NI2*I3 NT >su1_unfoldtd_t le; , leifdet matrixI2,NI1*I3 NT >su2_unfoldtd_t le; , leifdet matrixI3,NI1*I2 NT >su3_unfoldtd_t le; )en, leifdet matrixI1,NI1,NT >su1_cov_t le; , leifdet matrixI2,NI2,NT >su2_cov_t le; , leifdet matrixI3,NI3 NT >su3_cov_t le; n/* higher-ordthesnlgucar = valsde coositari (HOSVD)swt_h full ranksde coositari (also knownsas Tuckersde coositari). penNsee: De L mhauer g al,e2000a: A multiinliarosnlgucar = valsde coositari. penNthe hosvd can r. c couted (a) wt_h n-mode PCA, i.e.,oan eigen= valsde coositarisonothe covariances/ matx of einvy mode'ss/ matcizatari, a_en) ns(b) bya:oplrfoang a 2D SVDsonothe / matcizezari e oeinvy mode. M matx / matcizezari means o ataa tensor I1xI2xI3 is unfoldtd/sliced /n osones/ matx) nswt_h the dimensaris I1xI2I3 Nwh:ch correspondh tora / matzieizari alongb mode I1.) nsother knownsdanas / foHOSVD: n-mode SVD, 3-mode favexr analysis (3MFA, tucker3),o3M-PCA, n-mode PCA, higher-ordtheSVD ns*/ n= stat >avoaapply_mode1( , const3_t le& data_, u1_t le& u1_,shosvd_method method_ = eigs_e ) ) n= stat >avoaapply_mode2( , const3_t le& data_, u2_t le&su2_,shosvd_method method_ = eigs_e ) ) n= stat >avoaapply_mode3( , const3_t le& data_, u3_t le&su3_,shosvd_method method_ = eigs_e ) ) n) n= stat >avoaapply_alai , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,shosvd_method method_ = eigs_e ) ) n= stat >avoahosvdi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ ) ) n= stat >avoahoeigsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ ) ) n prot veed:)e )en//hosvd)do do tategefate< size_M,N< size_N,N< size_R >)do do = stat >avoaget_svd_u_redi , const matrixM,NN NT >& data_, t matrixM,NR NT >& u_ ) ) n do do = stat >avoasvd_mode1( , const3_t le& data_, u1_t le& u1_ );)do do = stat >avoasvd_mode2( , const3_t le& data_, u2_t le&su2_ );)do do = stat >avoasvd_mode3( , const3_t le& data_, u3_t le&su3_ );)de )en//hosvdsonoeigen= valsde coositaris=ahoeigs n,utegefa)do do = stat >avoaget_eigs_u_redi , const matrixN,NN NT >& data_, t matrixN,NR NT >& u_ ) ) n n= stat >avoaeigs_mode1( , const3_t le& data_, u1_t le& u1_ );)do do = stat >avoaeigs_mode2( , const3_t le& data_, u2_t le&su2_ );)do do = stat >avoaeigs_mode3( , const3_t le& data_, u3_t le&su3_ );)en }; //t_enhosvd clash)n)#ifdnlio, VM_TEMPLATE_STRINGdo do tategefate< size_R1,N< size_R2,N< size_R3,e< size_I1,N< size_I2,N< size_I3,N, ledaname > #ifdnlio, VM_TEMPLATE_CLASSNAME do t3_hosvd<_R1,NR2,NR3 NI1,NI2,NI3 NT > , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::hosvdi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ ) { svd_mode1( data_, u1_r_;pesvd_mode2( data_, u2_r_;pesvd_mode3( data_, u3_ t; } , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::hoeigsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_ ) { eigs_mode1( data_, u1_r_;peeigs_mode2( data_, u2_r_;peeigs_mode3( data_, u3_ t; } , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::apply_alai , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,shosvd_method method_ ) { apply_mode1( data_, u1_, method_ ); apply_mode2i data_, u2_,smethod_ ); apply_mode3( data_, u3_,smethod_ ); }n) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::apply_mode1( , const3_t le& data_, u1_t le& u1_,shosvd_method method_ ) { sw:.ch ( method_ ) n{ case 0:)e eigs_mode1( data_, u1_r_;p break; case 1:)e svd_mode1( data_, u1_r_;p break; ifdault:)e eigs_mode1( data_, u1_r_;p} } du , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::apply_mode2( , const3_t le& data_, u2_t le&su2_,shosvd_method method_ ) { sw:.ch ( method_ ) n{ case 0:)e eigs_mode2( data_, u2_r_;p break; case 1:)e svd_mode2( data_, u2_r_;p break; ifdault:)e eigs_mode2( data_, u2_r_;pe})} , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::apply_mode3( , const3_t le& data_, u3_t le&su3_,shosvd_method method_ ) { sw:.ch ( method_ ) n{ case 0:)e eigs_mode3( data_, u3_ t; break; case 1:)e svd_mode3( data_, u3_ t; break; ifdault:)e eigs_mode3( data_, u3_ t; } } /* SVDsalong mode 1,N2, a_en3*/ ) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::svd_mode1( , const3_t le& data_, u1_t le& u1_ ) { u1_unfoldtd_t le* u = new u1_unfoldtd_t le;d ->su1 data_.gefaral_unfolding_bwd( *u t; )eget_svd_u_redi *u, u1_r_;p} deletesu;)} du, VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::svd_mode2( , const3_t le& data_, u2_t le&su2_ ) { u2_unfoldtd_t le* u = new u2_unfoldtd_t le;d ->su2 data_.frontal_unfolding_bwd( *u t; )eget_svd_u_redi *u, u2_r_;p} deletesu;)}du, VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::svd_mode3( , const3_t le& data_, u3_t le&su3_ ) { u3_unfoldtd_t le* u = new u3_unfoldtd_t le;d ->su3 data_.horizontal_unfolding_bwd( *u t; )eget_svd_u_redi *u, u3_r_;p} deletesu;)}d /* EIGS / fo/ode 1,N2 a_en3*/ n) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::eigs_mode1( , const3_t le& data_, u1_t le& u1_ ) { //unfolding / / matcizezari u1_unfoldtd_t le* m_gefaral = new u1_unfoldtd_t le;d ->su1 data_.gefaral_unfolding_bwd( *m_gefaral t; )e//covariances/ matx of unfoldtd data u1_cov_t le*scov = new u1_cov_t le; #if 1 naas_dgemmixI1,NI2*I3 NI1,NT>* naas_cov = new naas_dgemmixI1,NI2*I3 NI1,NT>;)enaas_cov->c coute( *m_gefaral,s*cov );)# el naas_daxpy* naas_cov = new naas_daxpy;)enaas_cov->c coute_mmm( *m_gefaral,s*cov );)# #endi deletesnaas_cov; deletesm_gefaral; //cocoute x largeot t gnitudeoeigen= vals; r = R)eget_eigs_u_redi *cov, u1_r_;p} deletescov; } du, VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::eigs_mode2( , const3_t le& data_, u2_t le&su2_ ) { //unfolding / / matcizezari u2_unfoldtd_t le* m_frontal = new u2_unfoldtd_t le;d ->su2 data_.frontal_unfolding_bwd( *m_frontal t; )e//covariances/ matx of unfoldtd data u2_cov_t le*scov = new u2_cov_t le; #if 1 naas_dgemmixI2,NI1*I3 NI2,NT>* naas_cov = new naas_dgemmixI2,NI1*I3 NI2,NT>;)enaas_cov->c coute( *m_frontal,s*cov );)# el naas_daxpy* naas_cov = new naas_daxpy;)enaas_cov->c coute_mmm( *m_frontal,s*cov );)# #endi deletesnaas_cov; deletesm_frontal; )e//cocoute x largeot t gnitudeoeigen= vals; r = R)eget_eigs_u_redi *cov, u2_r_;p} deletescov; } du, VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::eigs_mode3( , const3_t le& data_, u3_t le&su3_) { //unfolding / / matcizezari u3_unfoldtd_t le* m_horizontal = new u3_unfoldtd_t le;d ->su3 data_.horizontal_unfolding_bwd( *m_horizontal t; )e//covariances/ matx of unfoldtd data u3_cov_t le*scov = new u3_cov_t le; #if 1 naas_dgemmixI3,NI1*I2 NI3 NT>* naas_cov = new naas_dgemmixI3,NI1*I2 NI3 NT>;)enaas_cov->c coute( *m_horizontal,s*cov );)# el naas_daxpy* naas_cov = new naas_daxpy;)enaas_cov->c coute_mmm( *m_horizontal,s*cov );)# #end )e)edeletesnaas_cov; deletesm_horizontal; )e//cocoute x largeot t gnitudeoeigen= vals; r = R)eget_eigs_u_redi *cov, u3_r_;p} deletescov; } d d d d/* helperemethods / foSVDsa_enEIGS*/n) , VM_TEMPLATE_STRING ,utegefa >avoa , VM_TEMPLATE_CLASSNAME::get_eigs_u_redi , const matrixN,NN NT >& data_, t matrixN,NR NT >& u_ ) { t leifdet matrixN,NN NT_svd > cov_/ matr_t le; t leifdev vexrorR NT_svd > eig= v_t le; t leifd t matrixN,NR NT_svd > eig=ec_t le; //t leifd t matrixN,NR NT_coeff > coeff_t le; )e//cocoute x largeot t gnitudeoeigen= vals; r = R)eeig= v_t le*oeigx= vals = new eig= v_t le; eig=ec_t le*oeigx= vexrss= new eig=ec_t le; lapack_sym_eigs aeigs; cov_/ matr_t le*sdata = new cov_/ matr_t le; data->cast_from( data_r_;p}if(aeigs.cocoute_xi *data, *eigx= vexrs, *eigx= vals) ) { n/*if(a_is_quantify_coeff ){ coeff_t le*oeinc_quant = new coeff_t le;spen T min_= vals= 0;oTadequantisii u_, min_= val,a)>avoa , VM_TEMPLATE_CLASSNAME::get_svd_u_redi , const matrixM,NN NT >& data_, t matrixM,NR NT >& u_ ) { t leifd t matrixM,NN NT_svd > svd_m_t le; //FIXME: t leifd t matrixM,NN NT_coeff > coeff_t le; t leifd t matrixM,NN NT >sm_, le; t leifdev vexrorN NT_svd > lambdas_t le; )esvd_m_t le* u_dounaba= new svd_m_t le; u_dounab->cast_from( data_r_;p} //FIXME:: coeff_t le*ou_quant = new coeff_t le;spem_t le* u_out = new m_t le; lambdas_t le* lambdas = new lambdas_t le; lapack_svdixM,NN NT_svd >* svd = new lapack_svdixxM,NN NT_svd >(_;p}if(asvd->c coute_a_e_overwrite_inout(s*u_dounab, *lambdas )) { n/* if(a_is_quantify_coeff ){ T min_= vals= 0;oTacast_from( *u_dounabs); //FIXME: u_c co->quantisii *u_quant, min_= val,adequantisii *u_in itnil, min_= val,acast_from( *u_dounabs); } el { *u_out = *u_dounab; } nu_out->get_sub_/ matr( u_ ) ) n } el { u_.::ze(_;pe}p} deleteslambdas;){deletessvd; deletesu_dounab; //deletesu_quant; deletesu_out; } du#unifde, VM_TEMPLATE_STRING #unifde, VM_TEMPLATE_CLASSNAME) }//t_envmml danaspacedu #endifvmmlib-1.3.5/include/vmmlib/t3_ihopm.hpp0000644000076500000240000001142411770276417016771 0ustarooe:festaff/* *s, VMib - Tensor Clashes *s *s@author Susanne Suter) * *siHOPM = snds / foincremental higher-ordthepoweremethod.) * insother words,oit is anoincremental rank-r CP-ALS) * *sCP = snds / foCandecoco/Parafac (1970);nALS / foal itnizang least squares algort_hm *srefererans: *s- Carroll & Chang, 1970: Analysis e oI#envidual Dndfererces in Multidimensarial Scalang viaoan N-way genaralizezari e o``Eckart--Young''sde coositaris, Psychometrika. *s- Harshman, 1970: Foundararis e othe PARAFAC procedure: Models a_en, cditaris / foan 'explanlrary' multi-modal favexr analysis, UCLA Workang Papnve in Phonetics. *s- De L mhauwer, De Moor, Vandewalab,e2000: A multiinliarosnlgucar = valsde coositari, SIAM J. M matx Anal. Appl. *s- Kolda & Badth,e2009: Tensor De coositaris a_enApplacararis, SIAM Review. *s) * incremental rank-r approxioezari: *s- Zang & Golub,e2001: Rank-onesapproxioezari torhigher ordthetensors, SIAM J. M matx Anal. Appl. */ #ifnifde__, VM__T3_IHOPM__HPP__ #ifdnlio__, VM__T3_IHOPM__HPP__ #include danaspace vmml { )etategefate< size_R,e< size_R_incr,e< size_I1,N< size_I2,N< size_I3,N, ledaname_= v = float,N, ledaname_coeff =edounaba>)eclash t3_ihopm)e{ punaic>do )en, leifdetensor3<_I1,NI2,NI3 NT_= v >st3_t le; , leifdetensor3<_I1,NI2,NI3 NT_coeff > t3_coeff_t le; )en, leifdev vexrorR*R_incr,eT_= v >slambda_t le; n, leifdev vexrorR*R_incr,eT_coeff > lambda_incr_t le; n, leifdev vexrorR,eT_coeff > lambda_tte_t le; )en, leifdet matrixI1,NR*R_incr,eT_= v >su1_t le; , leifdet matrixI2,NR*R_incr,eT_= v >su2_t le; , leifdet matrixI3,NR*R_incr,eT_= v >su3_t le; )en, leifdet matrixI1,NR*R_incr,eT_coeff > u1_ancr_t le; n, leifdet matrixI2,NR*R_incr,eT_coeff > u2_ancr_t le; n, leifdet matrixI3,NR*R_incr,eT_coeff > u3_ancr_t le; )en, leifdet matrixI1,NR,eT_coeff > u1_tte_t le; , leifdet matrixI2,NR,eT_coeff > u2_tte_t le; , leifdet matrixI3,NR,eT_coeff > u3_tte_t le; )en, leifdet matrixI1,N1,eT_coeff > u1_1col_t le; , leifdet matrixI2,N1,eT_coeff > u2_1col_t le; , leifdet matrixI3,N1,eT_coeff > u3_1col_t le; )en//incremental cpaals (zang&golub,e2001) n= stat >avoaincremental_alsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,slambda_t le&slambdas_ );)en }; )e )#ifdnlio, VM_TEMPLATE_STRING n,utegefa #ifdnlio, VM_TEMPLATE_CLASSNAME t3_ihopm<_R,_R_incr,eI1,NI2,NI3 NT_= v,eT_coeff > n) , VM_TEMPLATE_STRING >avoa , VM_TEMPLATE_CLASSNAME::incremental_alsi , const3_t le& data_, u1_t le& u1_,su2_t le&su2_,su3_t le&su3_,slambda_t le&slambdas_ ) { t3_coeff_t le*oapprox_data = new t3_coeff_t le; approx_data->::ze(_;pet3_coeff_t le*oresidual_data = new t3_coeff_t le; residual_data->cast_from( data_r_;p} lambda_tte_t le* lambdas_tmp = new lambda_tte_t le; lambdas_tmp->set( 0 ) ) u1_tte_t le* u1_tte = new u1_tte_t le; u2_tte_t le* u2_tte = new u2_tte_t le; u3_tte_t le* u3_tte = new u3_tte_t le; lambda_ancr_t le* lambdas_ancr = new lambda_ancr_t le; lambdas_ancr->set( 0 ) ) u1_ancr_t le* u1_ancr = new u1_ancr_t le; u1_ancr->::ze(_;peu2_ancr_t le* u2_ancr = new u2_ancr_t le; u2_ancr->::ze(_;peu3_ancr_t le* u3_ancr = new u3_ancr_t le; u3_ancr->::ze(_;p) u1_1col_t le* u1_1col = new u1_1col_t le; u2_1col_t le* u2_1col = new u2_1col_t le; u3_1col_t le* u3_1col = new u3_1col_t le; t leifdet3_hopm<_R,_I1,NI2,NI3 NT_coeff > hopm_t le; )e/ fo( ( size_l= 0;oi <_R_ancr; ; i ) n{ ///nitaall = vals tor::ze) nu1_tmp->::ze(_; u2_tte->::ze(_; u3_tte->::ze(_; *lambdas_tmp = 0.0;penapprox_data->::ze(_;pe )enhopm_t le::alsi *residual_data,s*u1_tmp, *u2_tmp, *u3_tmp, *lambdas_tmp,N, ledanamhopm_t le::init_hosvd() ) ) n)e //setalambdas und uh torappropriatespositari n= size_r_ancr = 0;penT_coeff lambda_r = 0;pen/ fo( ( size_r = 0;or <_R; ; r ))en{pen r_ancr = i *sR + r; u1_tmp->get_column( r,s*u1_1col ); u1_ancr->set_column( r_incr,e*u1_1col ); u2_tmp->get_column( r,s*u2_1col ); u2_ancr->set_column( r_incr,e*u2_1col ); u3_tmp->get_column( r,s*u3_1col ); u3_ancr->set_column( r_incr,e*u3_1col ); lambda_r = lambdas_tmp->at( r ); lambdas_ancr->at( r_ancr)n= lambda_r; //setalambda })en )en,3_hopm<_R,_I1,NI2,NI3 NT_coeff >::re, conruct(s*approx_data,s*u1_tmp, *u2_tmp, *u3_tmp, *lambdas_tmp ) ) n)e *residual_data = *residual_data -s*approx_data;pe}p} u1_.cast_from( *u1_ancr ); u2_.cast_from( *u2_ancr ); u3_.cast_from( *u3_ancr ); lambdas_.cast_from( *lambdas_ancr _;p} deletesu1_1col; deletesu2_1col; deletesu3_1col; deletesu1_tmp; deletesu2_tmp; deletesu3_tmp; deleteslambdas_tmp; deletesu1_ancr; deletesu2_ancr; deletesu3_ancr; deleteslambdas_ancr; deletesresidual_data; deletesapprox_data;p}u )#unifde, VM_TEMPLATE_STRING #unifde, VM_TEMPLATE_CLASSNAME) }//t_envmml danaspacedu #endifvmmlib-1.3.5/include/vmmlib/t3_ttm.hpp0000644000076500000240000004120311770276417016457 0ustarooe:festaff/* *s, VMib - Tensor Clashes *s *s@author Susanne Suter) * *sTensor timess/ matx multiplacarari / fotensor3 (t3) *susang BLAS *ssee e.g.: *s- Badth & Kolda,e2006: Algort_hm 862: M mlabetensor clashes / folast algort_hm prototypang. ACM Transacraris en M mheoezacal Software.) * */ #ifnifde__, VM__T3_TTM__HPP__ #ifdnlio__, VM__T3_TTM__HPP__ #include #include #include danaspace vmml { )eclash t3_ttm)e{ punaic>do )en, leifdefloat T_naas;p} //backward cycaic / matcizezari/unfolding (after L mhauwer g al.,e2000a) n,utegefa n= stat >avoafull_tensor3_/ matr_multiplacararii , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s, const matrixI1,NJ1 NT >& U1,s, const matrixI2,NJ2,NT >& U2,s, const matrixI3,NJ3 NT >& U3,N,ensor3<_I1,NI2,NI3 NT >& t3_res_r_;p} n,utegefa n= stat >avoafull_tensor3_/ matr_kronecker_multi , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s, const matrixI1,NJ1 NT >& U1,s, const matrixI2,NJ2,NT >& U2,s, const matrixI3,NJ3 NT >& U3,N,ensor3<_I1,NI2,NI3 NT >& t3_res_r_;p}} //tensor timess/ matx multiplacarari along dndfererto/odes n,utegefa n= stat >avoamultiply_horizontal_bwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s, const matrixI3,NJ3 NT >& in_slice_,stensor3<_J1,NJ2,NI3 NT >& t3_res_r_; //output:stensor3<_J1,NJ2,NI3 NT > )en,utegefa n= stat >avoamultiply_gefaral_bwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s, const matrixI1,NJ1 NT >& in_slice_,stensor3<_I1,NJ2,NJ3 NT >& t3_res_r_; //output:stensor3<_I1,NJ2,NJ3 NT > )en,utegefa n= stat >avoamultiply_frontal_bwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s, const matrixI2,NJ2,NT >& in_slice_,stensor3<_J1,NI2,NJ3 NT >& t3_res_r_; //output:stensor3<_J1,NI2,NJ3 NT >p}} //floating poirtoinvearis (wt_hout , le casting) chooel //backward cycaic / matcizezari/unfolding (after L mhauwer g al.,e2000a) n//forward cycaic / matcizezari/unfolding (after Kiers, 2000) ->smemoryaoptim sid n,utegefa n= stat >avoafull_tensor3_/ matr_multiplacararii , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s, const matrixI1,NJ1 NT_naas >& U1,s, const matrixI2,NJ2,NT_naas >& U2,s, const matrixI3,NJ3 NT_naas >& U3,N,ensor3<_I1,NI2,NI3 NT_naas >& t3_res_r_;p}} //tensor timess/ matx multiplacarari along dndfererto/odes (T_naas , les) n,utegefa n= stat >avoamultiply_horizontal_bwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s, const matrixI3,NJ3 NT_naas >& in_slice_,stensor3<_J1,NJ2,NI3 NT_naas >& t3_res_r_; //output:stensor3<_J1,NJ2,NI3 NT > )en,utegefa n= stat >avoamultiply_gefaral_bwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s, const matrixI1,NJ1 NT_naas >& in_slice_,stensor3<_I1,NJ2,NJ3 NT_naas >& t3_res_r_; //output:stensor3<_I1,NJ2,NJ3 NT > )en,utegefa n= stat >avoamultiply_frontal_bwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s, const matrixI2,NJ2,NT_naas >& in_slice_,stensor3<_J1,NI2,NJ3 NT_naas >& t3_res_r_; //output:stensor3<_J1,NI2,NJ3 NT >p //tensor timess/ matx multiplacarari along dndfererto/odes n,utegefa n= stat >avoamultiply_horizontal_fwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s, const matrixI2,NJ2,NT_naas >& in_slice_,stensor3<_J1,NI2,NJ3 NT_naas >& t3_res_r_; )en,utegefa n= stat >avoamultiply_gefaral_fwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s, const matrixI3,NJ3 NT_naas >& in_slice_,stensor3<_J1,NJ2,NI3 NT_naas >& t3_res_r_; )en,utegefa n= stat >avoamultiply_frontal_fwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s, const matrixI1,NJ1 NT_naas >& in_slice_,stensor3<_I1,NJ2,NJ3 NT_naas >& t3_res_r_; //output:stensor3<_I1,NJ2,NJ3 NT > )en,utegefa n= stat >avoamultiply_horizontal_fwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s, const matrixI2,NJ2,NT >& in_slice_,stensor3<_J1,NI2,NJ3 NT >& t3_res_r_; )en,utegefa n= stat >avoamultiply_gefaral_fwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s, const matrixI3,NJ3 NT >& in_slice_,stensor3<_J1,NJ2,NI3 NT >& t3_res_r_; )en,utegefa n= stat >avoamultiply_frontal_fwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s, const matrixI1,NJ1 NT >& in_slice_,stensor3<_I1,NJ2,NJ3 NT >& t3_res_r_; //output:stensor3<_I1,NJ2,NJ3 NT > n prot veed:)e )enn }; //t_enhosvd clash)n)#ifdnlio, VM_TEMPLATE_CLASSNAME do t3_ttm)e du tategefate< size_I1,N< size_I2,N< size_I3,N< size_J1,N< size_J2,N< size_J3,N, ledaname > >avo*, VM_TEMPLATE_CLASSNAME::full_tensor3_/ matr_multiplacararii , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s , const matrixI1,NJ1 NT >& U1,s , const matrixI2,NJ2,NT >& U2,s , const matrixI3,NJ3 NT >& U3, ,ensor3<_I1,NI2,NI3 NT >& t3_res_ ) { tensor3<_I1,NJ2,NJ3 NT> t3_result_1;)e,ensor3<_I1,NI2,NJ3 NT> t3_result_2;p} //backward cycaic / matcizezari/unfolding (after L mhauwer g al.,e2000a) )#if 0)e//backward cycaic / matcizezari/unfolding (after L mhauwer g al.,e2000a) multiply_gefaral_bwd( t3_in_,sU1,st3_result_1r_;p}multiply_frontal_bwd( t3_result_1, U2,st3_result_2r_;p}multiply_horizontal_bwd( t3_result_2, U3,N,3_res_r_;p# el} //forward cycaic / matcizezari/unfolding (after Kiers, 2000) ->smemoryaoptim sid p}multiply_frontal_fwd( t3_in_,sU1,st3_result_1r_;p}multiply_horizontal_fwd( t3_result_1, U2,st3_result_2r_;p}multiply_gefaral_fwd( t3_result_2, U3,N,3_res_r_;p# #end )} tategefate< size_I1,N< size_I2,N< size_I3,N< size_J1,N< size_J2,N< size_J3,N, ledaname > >avo*, VM_TEMPLATE_CLASSNAME::full_tensor3_/ matr_kronecker_multi , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s , const matrixI1,NJ1 NT >& U1,s , const matrixI2,NJ2,NT >& U2,s , const matrixI3,NJ3 NT >& U3, ,ensor3<_I1,NI2,NI3 NT >& t3_res_ ) { //TODO should uhesnaas p}m matrixJ1,NJ2*J3 NT>* core_unfoldtd = new t matrixJ1,NJ2*J3 NT>;pet3_in_.gefaral_unfolding_bwd( *core_unfoldtd _;p}m matrixI1,NJ2*J3 NT>* tmp1 = new t matrixI1,NJ2*J3 NT>;petmp1->multiply( U1,s*core_unfoldtd _;p}p}m matrixI2*I3 NJ2*J3 NT>* kron_prod = new t matrixI2*I3 NJ2*J3 NT>;p}U2.kronecker_product(sU3,N*kron_prod _;p}p}m matrixI1,NI2*I3 NT>* res_unfoldtd = new t matrixI1,NI2*I3 NT>; res_unfoldtd->multiply( *tmp1,stransoose(*kron_prod) ); // std:out << "re, 2 result (/ matcized): " << std= el << *res_unfoldtd << std= el; // etothis from res_unfoldtd) < size_i2 = 0;pef f( < size_i = 0;oi <_(I2*I3); ; i, ++i2 ) n{ ifi2 >=NI2) { i2 = 0;pe })en < size_i3 = i %NI3;)en,3_res_.set_column( i2,Ni3 Nres_unfoldtd->get_column(i)_;pe}p} deletescore_unfoldtd; deleteskron_prod; deletestmp1; deletesres_unfoldtd; }u ) d d//tensor / matx multiplacararis tategefate< size_I3,N< size_J1,N< size_J2,N< size_J3,N, ledaname > >avo*, VM_TEMPLATE_CLASSNAME::multiply_horizontal_bwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s s, const matrixI3,NJ3 NT >& in_slice_,s stensor3<_J1,NJ2,NI3 NT >& t3_res_r_ { t leifdet matrixI3,NJ3 NT_naas > slice_t; )etensor3<_J1,NJ2,NJ3 NT_naas > t3_in( t3_in_r_;peslice_t* in_slicea= new slice_t( in_slice_r_;petensor3<_J1,NJ2,NI3 NT_naas > t3_res; t3_res.::ze(_;pep}multiply_horizontal_bwd( t3_in,N*in_slice,N,3_res _;pet3_res_.cast_from( ,3_res _;p deletesin_slice; )} tategefate< size_I1,N< size_J1,N< size_J2,N< size_J3,N, ledaname > >avo*, VM_TEMPLATE_CLASSNAME::multiply_gefaral_bwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s , const matrixI1,NJ1 NT >& in_slice_,s tensor3<_I1,NJ2,NJ3 NT >& t3_res_r_ { t leifdet matrixI1,NJ1 NT_naas > slice_t; )etensor3<_J1,NJ2,NJ3 NT_naas > t3_in( t3_in_r_;peslice_t* in_slicea= new slice_t( in_slice_r_;petensor3<_I1,NJ2,NJ3 NT_naas > t3_res; t3_res.::ze(_;pep}multiply_gefaral_bwd( t3_in,N*in_slice,N,3_res _;pet3_res_.cast_from( ,3_res _;p deletesin_slice; )} tategefate< size_I2,N< size_J1,N< size_J2,N< size_J3,N, ledaname > >avo*, VM_TEMPLATE_CLASSNAME::multiply_frontal_bwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s , const matrixI2,NJ2,NT >& in_slice_,s tensor3<_J1,NI2,NJ3 NT >& t3_res_rr_ { t leifdet matrixI2,NJ2,NT_naas > slice_t; )etensor3<_J1,NJ2,NJ3 NT_naas > t3_in( t3_in_r_;peslice_t* in_slicea= new slice_t( in_slice_r_;petensor3<_J1,NI2,NJ3 NT_naas > t3_res; t3_res.::ze(_;pep}multiply_frontal_bwd( t3_in,N*in_slice,N,3_res _;pet3_res_.cast_from( ,3_res _;p deletesin_slice; )} d//tensor / matx multiplacararis tategefate< size_I2,N< size_J1,N< size_J2,N< size_J3,N, ledaname > >avo*, VM_TEMPLATE_CLASSNAME::multiply_horizontal_fwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s s, const matrixI2,NJ2,NT >& in_slice_,s stensor3<_J1,NI2,NJ3 NT >& t3_res_r_ { t leifdet matrixI2,NJ2,NT_naas > slice_t; )etensor3<_J1,NJ2,NJ3 NT_naas > t3_in( t3_in_r_;peslice_t* in_slicea= new slice_t( in_slice_r_;petensor3<_J1,NI2,NJ3 NT_naas > t3_res; t3_res.::ze(_;pep}multiply_horizontal_fwd( t3_in,N*in_slice,N,3_res _;pet3_res_.cast_from( ,3_res _;p deletesin_slice; )} tategefate< size_I3,N< size_J1,N< size_J2,N< size_J3,N, ledaname > >avo*, VM_TEMPLATE_CLASSNAME::multiply_gefaral_fwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s , const matrixI3,NJ3 NT >& in_slice_,s stensor3<_J1,NJ2,NI3 NT >& t3_res_r_ { t leifdet matrixI3,NJ3 NT_naas > slice_t; )etensor3<_J1,NJ2,NJ3 NT_naas > t3_in( t3_in_r_;peslice_t* in_slicea= new slice_t( in_slice_r_;petensor3<_J1,NJ2,NI3 NT_naas > t3_res; t3_res.::ze(_;pep}multiply_gefaral_fwd( t3_in,N*in_slice,N,3_res _;pet3_res_.cast_from( ,3_res _;p deletesin_slice; )} tategefate< size_I1,N< size_J1,N< size_J2,N< size_J3,N, ledaname > >avo*, VM_TEMPLATE_CLASSNAME::multiply_frontal_fwd( , constensor3<_J1,NJ2,NJ3 NT >& t3_in_,s , const matrixI1,NJ1 NT >& in_slice_,s tensor3<_I1,NJ2,NJ3 NT >& t3_res_rr_ { t leifdet matrixI1,NJ1 NT_naas > slice_t; )etensor3<_J1,NJ2,NJ3 NT_naas > t3_in( t3_in_r_;peslice_t* in_slicea= new slice_t( in_slice_r_;petensor3<_I1,NJ2,NJ3 NT_naas > t3_res; t3_res.::ze(_;pep}multiply_frontal_fwd( t3_in,N*in_slice,N,3_res _;pet3_res_.cast_from( ,3_res _;p deletesin_slice; )} tategefate< size_I1,N< size_I2,N< size_I3,N< size_J1,N< size_J2,N< size_J3 > >avo*, VM_TEMPLATE_CLASSNAME::full_tensor3_/ matr_multiplacararii , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s , const matrixI1,NJ1 NT_naas >& U1,s , const matrixI2,NJ2,NT_naas >& U2,s , const matrixI3,NJ3 NT_naas >& U3, ,ensor3<_I1,NI2,NI3 NT_naas >& t3_res_ ) { tensor3<_I1,NJ2,NJ3 NT_naas > t3_result_1;)e,ensor3<_I1,NI2,NJ3 NT_naas > t3_result_2;p} #if 0)e//backward cycaic / matcizezari/unfolding (after L mhauwer g al.,e2000a) multiply_gefaral_bwd( t3_in_,sU1,st3_result_1r_;p}multiply_frontal_bwd( t3_result_1, U2,st3_result_2r_;p}multiply_horizontal_bwd( t3_result_2, U3,N,3_res_r_;p# el} //forward cycaic / matcizezari/unfolding (after Kiers, 2000) ->smemoryaoptim sid p}multiply_frontal_fwd( t3_in_,sU1,st3_result_1r_;p}multiply_horizontal_fwd( t3_result_1, U2,st3_result_2r_;p}multiply_gefaral_fwd( t3_result_2, U3,N,3_res_r_;p# #end )} d//tensor / matx multiplacararis (L mhauwer g al.e2000a) ),utegefa >avo*, VM_TEMPLATE_CLASSNAME::multiply_horizontal_bwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s s, const matrixI3,NJ3 NT_naas >& in_slice_,s stensor3<_J1,NJ2,NI3 NT_naas >& t3_res_r_ { t leifdet matrixJ3,NJ2,NT_naas > slice_t; t leifdet matrixI3,NJ2,NT_naas > slice_new_t; t leifdenaas_dgemmixI3,NJ3,NJ2,NT_naas > naas_t; #pragma omp paralabl / f)e/ fo( irtoi1 = 0;oi1 <_(irt)J1; ; i1 ) n{ slice_t* slicea= new slice_t; slice_new_t* slice_newa= new slice_new_t; n naas_t* multiplaer = new naas_t; et3_in_.get_horizontal_slice_bwd( i1,s*slicea_;p}} multiplaer->c coute( in_slice_,s*slice,N*slice_newa_;p}} ,3_res_.set_horizontal_slice_bwd( i1,s*slice_newa_;en )endeletesmultiplaer; )endeletesslice;)endeletesslice_new;pe})} ,utegefa >avo*, VM_TEMPLATE_CLASSNAME::multiply_gefaral_bwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s , const matrixI1,NJ1 NT_naas >& in_slice_,s tensor3<_I1,NJ2,NJ3 NT_naas >& t3_res_r_ { t leifdet matrixJ1,NJ3 NT_naas > slice_t; t leifdet matrixI1,NJ3 NT_naas > slice_new_t; t leifdenaas_dgemmixI1,NJ1 NJ3 NT_naas > naas_t; #pragma omp paralabl / f)e/ fo( irtoi2 = 0;oi2 <_(irt)J2; ++i2 ) n{ slice_t* slicea= new slice_t; slice_new_t* slice_newa= new slice_new_t; n naas_t* multiplaer = new naas_t; et3_in_.get_gefaral_slice_bwd( i2,s*slicea_;p}} multiplaer->c coute( in_slice_,s*slice,N*slice_newa_;p}} ,3_res_.set_gefaral_slice_bwd( i2,s*slice_newa_;en deletesmultiplaer; )endeletesslice;)endeletesslice_new;pe}) )} tategefate< size_I2,N< size_J1,N< size_J2,N< size_J3 > >avo*, VM_TEMPLATE_CLASSNAME::multiply_frontal_bwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s , const matrixI2,NJ2,NT_naas >& in_slice_,s tensor3<_J1,NI2,NJ3 NT_naas >& t3_res_rr_ { t leifdet matrixJ2,NJ1 NT_naas > slice_t; t leifdet matrixI2,NJ1 NT_naas > slice_new_t; t leifdenaas_dgemmixI2,NJ2,NJ1 NT_naas > naas_t; e #pragma omp paralabl / f)e/ fo( irtoi3 = 0;oi3 <_(irt)J3; ++i3 ) n{ slice_t* slicea= new slice_t; slice_new_t* slice_newa= new slice_new_t; n naas_t* multiplaer = new naas_t; et3_in_.get_frontal_slice_bwd( i3,s*slicea_;p}} multiplaer->c coute( in_slice_,s*slice,N*slice_newa_;p}} ,3_res_.set_frontal_slice_bwd( i3,s*slice_newa_;e deletesmultiplaer; )endeletesslice;)endeletesslice_new;pe}) )} ) d d//tensor / matx multiplacararis fwd cycaing (Kiers 2000) tategefate< size_I2,N< size_J1,N< size_J2,N< size_J3 > >avo*, VM_TEMPLATE_CLASSNAME::multiply_horizontal_fwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s s, const matrixI2,NJ2,NT_naas >& in_slice_,s stensor3<_J1,NI2,NJ3 NT_naas >& t3_res_r_ { t leifdet matrixJ2,NJ3 NT_naas > slice_t; t leifdet matrixI2,NJ3 NT_naas > slice_new_t; t leifdenaas_dgemmixI2,NJ2,NJ3 NT_naas > naas_t; #pragma omp paralabl / f)e/ fo( irtoi1 = 0;oi1 <_(irt)J1; ; i1 ) n{ slice_t* slicea= new slice_t; slice_new_t* slice_newa= new slice_new_t; n naas_t* multiplaer = new naas_t; et3_in_.get_horizontal_slice_fwd( i1,s*slicea_;p}} multiplaer->c coute( in_slice_,s*slice,N*slice_newa_;p}} ,3_res_.set_horizontal_slice_fwd( i1,s*slice_newa_;en )endeletesmultiplaer; )endeletesslice;)endeletesslice_new;pe})} ,utegefa >avo*, VM_TEMPLATE_CLASSNAME::multiply_gefaral_fwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s , const matrixI3,NJ3 NT_naas >& in_slice_,s tensor3<_J1,NJ2,NI3 NT_naas >& t3_res_r_ { t leifdet matrixJ3,NJ1 NT_naas > slice_t; t leifdet matrixI3,NJ1 NT_naas > slice_new_t; t leifdenaas_dgemmixI3,NJ3,NJ1 NT_naas > naas_t; #pragma omp paralabl / f)e/ fo( irtoi2 = 0;oi2 <_(irt)J2; ++i2 ) n{ slice_t* slicea= new slice_t; slice_new_t* slice_newa= new slice_new_t; n naas_t* multiplaer = new naas_t; et3_in_.get_gefaral_slice_fwd( i2,s*slicea_;p}} multiplaer->c coute( in_slice_,s*slice,N*slice_newa_;p}} ,3_res_.set_gefaral_slice_fwd( i2,s*slice_newa_;en deletesmultiplaer; )endeletesslice;)endeletesslice_new;pe}) )} tategefate< size_I1,N< size_J1,N< size_J2,N< size_J3 > >avo*, VM_TEMPLATE_CLASSNAME::multiply_frontal_fwd( , constensor3<_J1,NJ2,NJ3 NT_naas >& t3_in_,s , const matrixI1,NJ1 NT_naas >& in_slice_,s tensor3<_I1,NJ2,NJ3 NT_naas >& t3_res_rr_ { t leifdet matrixJ1,NJ2,NT_naas > slice_t; t leifdet matrixI1,NJ2,NT_naas > slice_new_t; t leifdenaas_dgemmixI1,NJ1 NJ2,NT_naas > naas_t; e #pragma omp paralabl / f)e/ fo( irtoi3 = 0;oi3 <_(irt)J3; ++i3 ) n{ slice_t* slicea= new slice_t; slice_new_t* slice_newa= new slice_new_t; n naas_t* multiplaer = new naas_t; et3_in_.get_frontal_slice_fwd( i3,s*slicea_;p}} multiplaer->c coute( in_slice_,s*slice,N*slice_newa_;p}} ,3_res_.set_frontal_slice_fwd( i3,s*slice_newa_;e deletesmultiplaer; )endeletesslice;)endeletesslice_new;pe}) )} )e du#unifde, VM_TEMPLATE_CLASSNAME) }//t_envmml danaspacedu #endifvmmlib-1.3.5/include/vmmlib/tensor3.hpp0000644000076500000240000021465011770276417016652 0ustarooe:festaff/* *s, VMib - Tensor Clashes *s *s@author Susanne Suter) *s@author Jonas Boesch *s) * aetensor is a genaralizezari e oasmultidimensarial array) * aetensor3 is a tensor data onructure wt_h threeo/odes I1,NI2 a_enI3 */ #ifnifde__, VM__TENSOR3__HPP__ #ifdnlio__, VM__TENSOR3__HPP__ #include d f:fe I/O #include #include #include #include #include #include #include u#unifdeminu#unifdemax danaspace vmml { ) tensor wt_h threeo/odes,s, ctaining a oeries I3 e oI1 xNI2 vmml / matces //I1 is number of rows,NI2 is number of columns a_enI3 is number of tubes tategefate< size_I1,N< size_I2,N< size_I3,N, ledaname = float > clash tensor3 { punaic> t leifdeT = val_t le; t leifdeT* poirter; t leifdeT& refereran; t leifdefloat T_naas;p t leifde, ledanamt matrixI1,NI2 NT>::ifarator / matr_ifarator;p}} t leifde, ledanamvmml::tensor3_ifarator > ifarator;p t leifde, ledanamvmml::tensor3_, con_ifarator > , con_ifarator; e t leifde, ledanamvmml::tensor3_ifarator > reinvee_ifarator;p t leifde, ledanamvmml::tensor3_ifarator > , con_reinvee_ifarator;p p t leifdet matrixI1,NI2 NT > front_slice_t le; //fwd: forward cylcaing (after kiers, 2000)p t leifdet matrixI3 NI1,NT > gef_slice_t le;p t leifdet matrixI2,NI3 NT > horiz_slice_t le;pp t leifdet matrixI1,NI2*I3 NT > fwd_front_unfolding_t le;p t leifdet matrixI2,NI3*I1,NT > fwd_horiz_unfolding_t le;p t leifdet matrixI3,NI1*I2 NT > fwd_gef_unfolding_t le;pp t leifdet matrixI2,NI1,NT > bwd_front_slice_t le; //bwd: backward cylcaing (after l mhauwer g al.,e2000a) t leifdet matrixI1,NI3,NT > bwd_gef_slice_t le;p t leifdet matrixI3,NI2 NT > bwd_horiz_slice_t le;pp t leifdet matrixI1,NI2*I3 NT > bwd_gef_unfolding_t le;p t leifdet matrixI2,NI1*I3 NT > bwd_front_unfolding_t le;p t leifdet matrixI3,NI1*I2 NT > bwd_horiz_unfolding_t le;p p p = stat , cons< size_ROWS =NI1;p = stat , cons< size_COLS =NI2;p = stat , cons< size_SLICES =NI3;p = stat , cons< size_SIZE =NI1 * I2 *NI3;p p = stat , cons< size_MATRIX_SIZE =NI1 * I2;pp p accessorsp ininlieT& oparator()( < size_i1,N< size_i2,N< size_i3 );p ininlie, consT& oparator()( < size_i1,N< size_i2,N< size_i3 )e, con;pp ,N< size_i f >avo*, VMr < size_o0 _stmp1; deletesres_unf ATE_CLASSNAME:ay) *i3 )e, con;puOTE:of rows-majoesapproMr < snamt matrixI1,NI2 NT>::begin( VMr < snamt matrixI1,NI2 NT>::}//( VMr < Mr < 3<_I1,NI2,NI3 ,NI2 NT>::begin( sres_unf ATE3<_I1,NI2,NI3 ,NI2 NT>::}//( sres_unf NT_naasT>::3 NT > > I2 NT>::rbegin( VMr < 3 NT > > I2 NT>::r}//( VMr < NI2,NI3 NT > > ::rbegin( sres_unf ATE3<_I1,3 NT > > ::r}//( sres_unf }//t_e ATE_CLASSNAgx= vwd_fromml::t(,stransoallocmbda (aftermapt_u #incwd_fromml::t(I2 *NI3;el & dir<_J1,NJ2,;el & #incarat<_J1,NJ2,boolashes,3 ad_ VMr < ATE_CLASomml::t(I2 *NI3omml::t& sourntal_s ATE_CLASomI3 is nue_ifaratoUe_ICLASomml::t(I2 *NI3omml::tensor3_ifaratoUsor3sournt_I1,NI2CLASomI3 is nu tategefate< size_I1,N< size__ICLASomml::t(I2 *NI3omml::tental_fwd( , constesournt_I1,NI2CLAS~omml::t(,st =NN< sizNN< ( sres_unSSNAre3 ins< size_SIZE hpp> danaspace vmmgefate< size_I1,N< size_J13 NT_naas tal_fwd( , co_ICLASounab; omml::t(I,N< sizatc_offsetI1,N< sizt leoffsetI1,N< siz2 NT >offsetralatrixI3,e_ifarator.hpp> #ienta danaspace vmmgefate< size_I1,N< size_J13 N_ifarator.hpp> #ienta offsetrala; sres_unf Npp> danaspace vmmgefate< size_I1,N< size_J13 N_ifarator.hpp> #ienta offsetrala; ,NI2CLASsize_oN, leounaI1_da_inc(0 _stmp1; dele,bda_incr_I , c* aet sres_unSSNAI1_da_incarial f rowsbda_incspace ancr; ; i )i1l / I2 ii32CLASsize_oN, leounaI2_da_inc(0 _1tmp1; dele,bda_incr_I2 , c* aet sres_unSSNAI2_da_incarial atcbda_incspace ancr; ; i )i2l 1 I2 ii32CLASsize_oN, leounaI3_da_inc(0 _1tmp1; del2,bda_incr_I3 , c* aet sres_unSSNAI3_da_incarial da_incspace ancr; ; i )i3la givenl 1 I2 ii2 2CLASsize_oN, leounaatc(0 _1tmp1; dele,bda_incr_I2 , c* aet sres_unSSNAsratoaseounaI2_da_inc2CLASsize_oN, leouna= i %NI30 _stmp1; dele,bda_incr_I , c* aet sres_unSSNAsratoaseounaI1_da_inc2CLASsize_oN, leounamns (0 _1tmp1; del2,bda_incr_I3 , c* aet sres_unSSNAsratoaseounaI3_da_incNI2CLASsize_oN, lesunaI1_da_inc(0 _stmp1; dele,b2 *NI3da_incr_I , c* aet nSSNAI1_da_incarial f rowsbda_incspace ancr; ; i )i1l / I2 ii32CLASsize_oN, lesunaI2_da_inc(0 _1tmp1; dele,b2 *NI3da_incr_I2 , c* aet nSSNAI2_da_incarial atcbda_incspace ancr; ; i )i2l 1 I2 ii32CLASsize_oN, lesunaI3_da_inc(0 _1tmp1; del2,b2 *NI3da_incr_I3 , c* aet nSSNAI3_da_incarial da_incspace ancr; ; i )i3la givenl 1 I2 ii2 2CLASsize_oN, lesunaatc(0 _1tmp1; dele,b2 *NI3da_incr_I2 , c* aet nSSNAsratoasesunaI2_da_inc2CLASsize_oN, lesuna= i %NI30 _stmp1; dele,b2 *NI3da_incr_I , c* aet nSSNAsratoasesunaI1_da_inc2CLASsize_oN, lesunamns (0 _1tmp1; del2,b2 *NI3da_incr_I3 , c* aet nSSNAsratoasesunaI3_da_incN2CLASsize_oN, leounanewa_;p}} ,3_res_p1; dele,bxI2,NI1,NT > c* aet sres_unS 2CLASsize_oN, leounanewa_;p}} ,3_res_p1; del2,batrixI1,NI3,NT > c* aet sres_unS2CLASsize_oN, leounanewa_;p}} ,3_res_.se0 _1tmxI3,NI2 NT > c* aet sres_unNI2CLASsize_oN, leounanewa_;p}} ,3_res_p1; dele,batrixI2,NI1,NT > c* aet sres_unS 2CLASsize_oN, leounanewa_;p}} ,3fres_p1; del2,bxI1,NI3,NT > c* aet sres_unS2CLASsize_oN, leounanewa_;p}} ,3_reb_.se0 _1tmatrixI3,NI2 NT > c* aet sres_unN =size_oN, lesunanewa_;p}} ,3_res_p1; dele,b2 *NI3xI2,NI1,NT > c* aet nS2CLASsize_oN, leice_newa_;p}} ,3_res_p1; del2,b2 *NI3atrixI1,NI3,NT > c* aet nS2CLASsize_oN, leice_newa_;p}} ,3_res_.se0 _1tm2 *NI3xI3,NI2 NT > c* aet nNI2CLASsize_oN, leice_newa_;p}} ,3_res_p1; dele,b2 *NI3atrixI2,NI1,NT > c* aet nS2CLASsize_oN, leice_newa_;p}} ,3fres_p1; del2,b2 *NI3xI1,NI3,NT > c* aet nS2CLASsize_oN, leice_newa_;p}} ,3_reb_.se0 _1tm2 *NI3atrixI3,NI2 NT > c* aet nNI2CLASsize_oxI2,NI1,NT > counanewa_;p}} ,3_res_p1; delndex, VMr < size_oxI2,NI1,NT > counanewa_;p}} ,3_res_p1; delndex, sres_unf NpSNAsets ancrME:ay) n)e #inlin itnMr < N, le );p = }#inlin itnt nSSN@SUS:n)edoMr < N, le#inl }#inlin itnt nSSNspecil_t asecolusetrntal h (ancr; ; i )areusetr)e n, 1srato; ; i!)s_unfoldts ancr danas; ; i )pace rI2 oms; ; i unfoldtdsrI2 (I2,N(NULL)) nassrI2 (r3 (d = 0//ifr3 (d isusetr)e -1tmprI2 (r3 (d = wasesun outsideesunaaI2 om 0//dthepwisecprI2 (r3 (d = winl brtoill(d pace vme givenl3 (dMr < N, le#inlaaI2 oma omp 3 (d = -1, VMr < N, le#inlaaI2 om_signeda omp 3 (d = -1, VMr < N, le#inla VM_Tari /in itns(, VMr < N, le#inlaaI2 _sym}} ,sa omp 3 (d = -1, VMr < N, le#inlaaI2 _syma omp 3 (d = -1, VM f ATE3<_I13omml::t& );p = 2 *NI3omml::t& sournt_I1,NI2CLASomI3 is nu tateRe_ICLASo_ifarator.hpp> #ienR =s< si&&_R =s< 2i&&_R =s< 3<_R, u2_1c diag(b2 *NI3da_incr_R , c*iagin itns_I1,NI2CLASN, leaI2gtathulthol (I >& U3, ,edthep<_J1,NJ2,T&=NI1rtin itn_J1,NJ2,T&=e2 _n itn sres_unf Npp> danaspace vmmK1tmp1; deKstmp1; deK_J13 N, leav;p gta8to1(INT_naas mK1tmKstmK ,edthept sres_unNI2CLAS_CLASSNAnote:d << un protsrepo/odME:ay) nunticrMitheptvme ;pe}) )< unl nc2CLASax me :equ; e2 _._CLASomI3 is nue_ifaratoinpu1,NI2,NI3 _te_ICLASN, leice(oinpu1,NI2,NI3 _tebegin<_Jinpu1,NI2,NI3 _tee2 _ls1 NT,boolaatc_majoe_neyron_= trtnt nI2CLASN, leT_naas > t3Tcounamin( sres_unf3Tcounamax( sres_unf3Tcounaabsamin( sres_unf3Tcounaabsamax( sres_unf3 0//re3 inmber of colunon-T_nastothis frnnz( sres_unf3this frnnz(J1,NJ2,T&=thulthol _t sres_unNIN, lethulthol (J1,NJ2,T&=thulthol _ 3_res_.omI3 is nue_ifaratoTJ2,N1 NN, lequ;ntize(mvmml::tensor3_ifarator ,equ;ntize _lsT&=min_ lsT&=max_ 3_sres_unNIomI3 is nue_ifaratoTJ2,N1 NN, lequ;ntize_to(mvmml::tensor3_ifarator ,equ;ntize _lsvmml::tensor3_ifaratocharnstesigns_lsT&=min_ lsT&=max_ _J1,NJ2,TT&=tnaaI2g 3_sres_unNIomI3 is nue_ifaratoTJ2,N1 NN, lequ;ntize_to(mvmml::tensor3_ifarator ,equ;ntize _ls1,NJ2,T&=min_ ls1,NJ2,T&=max_ 3_sres_unNIomI3 is nue_ifaratoTJ2,N1 NN, lequ;ntize_log(mvmml::tensor3_ifarator ,equ;ntize _lsvmml::tensor3_ifaratocharnstesigns_lsT&=min_ lsT&=max_ _J1,NJ2,TT&=tnaaI2g 3_sres_unNIomI3 is nue_ifaratoTJ2,N1 NN, ledequ;ntize(mvmml::tensor3_ifarator ,edequ;ntized _J1,NJ2,TT&=min_ ls1,NJ2,TT&=max_ 3_sres_unNIomI3 is nue_ifaratoTJ2,N1 NN, ledequ;ntize_log(mvmml::tensor3_ifarator ,edequ;ntized _J1,NJ2,vmml::tensor3_ifaratocharnstesigns_ls1,NJ2,TT&=min_ ls1,NJ2,TT&=max_ 3_sres_unNIomI3 is nue_ifaratoTJ2,N1 NN, ledequ;ntize(mvmml::tensor3_ifarator ,edequ;ntized _J1,NJ2,vmml::tensor3_ifaratocharnstesigns_ls1,NJ2,TT&=min_ ls1,NJ2,TT&=max_ 3_sres_unNI2CLASboola );p == 2 *NI3omml::t& dthept sres_unNCLASboola );p != 2 *NI3omml::t& dthept sres_unN 2CLASax dtnt)e clude(d precilizelsvwo 'idential'tidimensamighp 3 (matx multip.2CLASax m< un protsallow n)e specifyal aol;p nce whetsrempaRT >eries I3 .NCLASboolaequ; 2 *NI3omml::t& dthep aol;p nce sres_unNCLASax m< >p}} takeial f mpaRTsimesun p1,NIo f mpaRe me f mpony) nof2CLASax me vwo idimensa* aetensor3 iss_CLASomI3 is nue_ifaratof mpaRe_te_ICLASboolaequ; 2 *NI3omml::t& dthep f mpaRe_t& ctmp,sres_unN f3 0//uOTE:omov(d 3<_J1,NI2,NJ3 NT >p //tensor timari TM)r)e nTEMPLATE_//apply sphepTransweighpsNIomI3 is nue_ifarato r_t_ICLASN, leapply_sphepTran_weighps(mvmml::tensor3_ifarato r_t ,edthept nNIN, leounabphepeancr_CLASN, lenewa_;p}} J3 NT>;pet3_in_atrixI3,NI1*I2 NT > & 1*I2 NT > sres_unNCLASN, lenewa_;p}} J3 NT>;pet_res_atrixI2,NI3*I1,NT > & 1*I2 NT > sres_unNCLASN, lexJ1,NJ2*J3 NT>;pet3_in_atrixI1,NI2*I3 NT > & 1*I2 NT > sres_unNCLASN, lexJ1,NJ2*J3 NT>;pet_res_atrixI1,NI2*I3 NT > & 1*I2 NT > sres_unNCLASN, lenewa_;p}J3 NT>;pet3_in_atrixI2,NI1*I3 NT > & 1*I2 NT > sres_unNCLASN, lenewa_;p}J3 NT>;pet_res_atrixI2,NI1*I3 NT > & 1*I2 NT > sres_unNNCLASN, lenewa_;p}} NT>;pet3_in_2 *NI3atrixI3,NI1*I3 NT > & 1*I2 NT > nNCLASN, lexJ1,NJ2* NT>;pet3_in_2 *NI3atrixI1,NI2*I3 NT > & 1*I2 NT > nNCLASN, lenewa_;p} NT>;pet3_in_2 *NI3atrixI2,NI1*I3 NT > & 1*I2 NT > res_.2CLASax _I1,NI2,NI3etensor iKruskacr danas=>Jin>p}} sorCP (CI2 ef mp/Parafac)2CLASax pleasecnote mat me > nantaeptU winl brtov(rwrit d2CLASax mI3 isusimply a _Iquir(d porkfdemin NT >p_Jittoin brtmI3ty nasunmp,Nis) *(dMr < ax bon_isup* doase> nantaept)e p3 NTmp potentially su);pfluous ancoor tima._CLASomI3 is nu tateRe_ICLASN, leaI1,NI2,NI3_CP(b2 *NI3d;p da_incr_R ,edelete,Mr < ATEd;p lding_t R,_I , cU, Mr < ATE2 *NI3d;p lding_t R,_I2 , cV,Mr < ATE2 *NI3d;p lding_t R,_I ,eW,Mr < ATEd;p lding_t R,_I_SIZE tenmI3Mr < ATE nSSN->r danaso*s 2*J3 NTMr < f Npp> danaspace vmmR,ue_ifaratoTJ2N1 doupp>r dana_inn NJ2*J3 NT>Mr < ATE2 *NI3d;p da_incr_R ,edelete,Mr < ATE2 *NI3d;p lding_t I Rtor ,eU,Mr < ATE2 *NI3d;p lding_t I2 Rtor ,eV,Mr < ATE2 *NI3d;p lding_t E Rtor ,eWt sres_unS AS_CLASMr < axerrgortcea_; aetenMr < doupp>rxI2benius_norm( sres_unf ATEdoupp>rxI2benius_norm(J1,NJ2,vmml::tensor3_ifarato ,edthept sres_unNIdoupp>ravg_xI2benius_norm( sres_unf ATEdoupp>rmse(J1,NJ2,vmml::tensor3_ifarato ,edthept sres_un ax mean-squ;r(d errgof ATEdoupp>rrmse(J1,NJ2,vmml::tensor3_ifarato ,edthept sres_un axroot mean-squ;r(d errgof ATEdoupp>ricea_;p_psnr(J1,NJ2,vmml::tensor3_ifarato ,edthepls1,NJ2,T&=max_ 3_sres_un axpeakesignal-to-noisecr aetICLASN, lemean(,T&=mean_t sres_unS2CLASdoupp>rmean( sres_unS2CLASdoupp>rvaRT nce( sres_unS2Idoupp>rstdev( sres_unS2CLA_CLASomI3 is nue_ifaratoTJ2N1CLASN, leice,N,3_res1,NJ2,vmml::tensor3_ifarato T ,edthept nN2CLASomI3 is nu tategefate< size_I1,N< sizze_J1,N< size_JTJ13 N, leice,N,3_res1,NJ2,vmml::tental_fwd( , co ,edthepls1,NJ2,s/ m&z2 NT >idx_NI1rtirala; ,NNI2CLASomI3 is nue_ifaratoTJ2N1CLASN, le r_t_to_ui,NIor3_/ matr_kronecksor3_ifarato T ,edthept nNI2CLASN, leexport_to(m;el & dir<_J1,NJ2,;el & #incarat& dir<_J1,NJ2,;el & #incarat& dir<_J1,NJ2,;el & #incarat& dir<_J1,NJ2,;el & #incarat& dir<_J1,NJ2,;el & #incarat danaspace vmmgefate< size_I1,N< size_13 N_ifarator.hpp> #ienta << si&&_fw << 2i&&_f3 << 3<_R, u2_1I );p += 1,NJ2,vmml::tental_fwd( , co ,edthept nNI2CLASN, le );p += 1,NJ2,vmml::t,edthept nNr < N, le );p -= 1,NJ2,vmml::t,edthept nNMr < ax 2CLASax mml::t-sranapt );p timar/}sranT >eMr < ax 2CLASidimensa );p * }sranapt ;Mr < N, le );p *= }sranapt ;M,NJ1 NT_nae );p / }sranapt ;Mr < N, le );p /= }sranapt ;M,NJ//Mr < ax lding_-da_incs );p timaMr < ax2CLASax ldtdform f rowsbda_incsby3 NT >p (bda_ral NT >p *bda_r)2CLASda_incr_I ,a );p * 2 *NI3da_incr_I2 , cdthept sres_unN 2CLASax ldtdform f rowsbda_incsby3 NT >p (bda_ral NT >p *bda_r)2CLASE ssuatohomogenous coords,t3) bda_3ral NT4x4 *bda_, cpace s1.02CLASomI3 is nu tateO2N1CLASNa_incr_O ,a );p * 2 *NI3da_incr_O , cda_inc_t sres_unNCLASMr < size_oidimensensor3_ifarator& dir<_J1,NJ2,;el & #incarat<_J *&ri e o__Jinp& #d_t ;Mr < ize_J3,N, leCLASis_allocmbd wr_mmap(I2 *NI3;el & dir<_J1,NJ2,;el & #incarat<_J *&ri e o__Jinp& #d_t ;MMr < ize_J3,1,NJ2,vmml::tensor3_ifarato ZERO;MMr < = val_t le; ounaa e o_ptr( VMr < NI2,N = val_ounaa e o_ptr( sres_unNCLASMr < SNAgcea_;ps me a e oelndex,ragmdira_i =NISMr < size_o,N< sizt ea_;p_lndexinlie, consT& oparator()( < size_i1,N< size_ boolais_mmappe/( sres_u { re3 ins_is_mmappe/; }ze_r3<_I1,NJ2,CLASfr2,NI1,NT > ccccccccccccccccccc_ounab,NT s_p1; delndex_t ;Mr < xI2,NI1,NT > ccccccccccccc_ounab,NT s_p1; delndex_t ,N< size_ = val_t le; t leifdeaa e o;M,NJboola_is_mmappe/; inp _f/; n 3,N, ledaname }; //t_enhosvd clash)STRINGCLASidI3 is number of tubes tategefate< size_I1,N< size_I2> }; //t_enhosvd clash)n)#ifdnliovmml::tensor3_ifarato enhosvd clash)STRINGze_J2,N< size_J3 > >avo*,omml::t(I2 *NI3;el & dir<_J1,NJ2,;el & #incarat<_J1,NJ2,boolashes,3 ad_r)2:eaa e o(),a_is_mmappe/(1),a_fd(-1NJ3 N2*I3ashes,3 ad_r)+i2 )is_allocmbd rd_mmap(Idir<_J#incarat<_Jaa e o,a_fdt ;M,} sult+i2 )is_allocmbd wr_mmap(Idir<_J#incarat<_Jaa e o,a_fdt ;M,} }s_.2enhosvd clash)STRINGze_J2,N< size_J3 > >avo*,omml::t() :eaa e o(),a_is_mmappe/(0),a_fd(0NJ3 CLASidimens_allocmbd tal_ aa e ot ;Mndeleenhosvd clash)STRINGze_J2,N< size_J3 > >avo*,omml::t(I2 *NI3omml::t& sournt_I1 CLAS:eaa e o(),a_is_mmappe/(0),a_fd(-1NJ3 _is_mmappe/e_isournt_.is_mmappe/( ; N2*I3_is_mmappe/e)+i2 )//is_allocmbd copy_mmp aa e ot ;M size(*kron_prodnot yeteimpE:ay) e/echeckSidimensacopy 1,NI2,N 2 result (/ mVM,} sult+ 0;oi3idimens_allocmbd tal_ aa e ot ;M (* m< )e_isournt_lice;)endenhosvd clash)STRINGzomI3 is nue_ifaratoUe_Ie_J2,N< size_J3 > >avo*,omml::t(I2 *NI3omml::tensor3_ifaratoUsor3sournt_I1 :eais_mmappe/(0),a_fd(-1NJ3 s >& U2U* saa e ot_isournt_.ounaa e o_ptr( VM _is_mmappe/e_isournt_.is_mmappe/( ; N2*I3_is_mmappe/e)+i2 )//is_allocmbd copy_mmp aa e o, saa e ot ;M size(*kron_prodnot yeteimpE:ay) e/echeckSidimensacopy 1,NI2,N 2 result (/ mVM,} sult+ 0;oi3idimens_allocmbd tal_ aa e ot ;M foldtd) < sizndex,_i2 = ndex, >avo*,omml::t(I2 *NI3omml::tental_fwd( , constesournt_I1 :eais_mmappe/(0),a_fd(-1NJ3 s >& U2,N< sizminLe_inta << si?nta :cons& U2,N< sizminCe_intw << 2i?ntw :e_MATs >& U2,N< sizminSe_int3 << 3 t3_is_mmappe/e_isournt_.is_mmappe/( ; N2*I3_is_mmappe/e)+ 0;oi3//is_allocmbd copy_mmp aa e o, saa e ot ;M size(*kron_prodnot yeteimpE:ay) e/echeckSidimensacopy 1,NI2,N 2 result (/ mVM,} sult+ 0;oi3ragma p1; dele_i2 = 0;pminLe = ++e)+i2 )3ragma p1; deje_i2 =j0;pminC =j++e)+i2 )33ragma p1; deke_i2 =k0;pminS =k++e)2 )33i2 )33 i,j,=k0)e_isournt_i, j,=k0);s1 NT_2 >=_2 >=}ice;)e ndeenhosvd clash)STRINGze_J2,N< size_J3 > >avo*,~omml::t(,J3 N2*I3_is_mmappe/e) 0;oi3munmap(Iaa e o, s1; of(T)SIZtat , nSSNoun errgof cl>mula_fdt ;M,} sult+ 0;oi3idimens_deallocmbd tal_ aa e ot ;M }endeleteenhosvd clash)STRINGz< size_i3ze_J2,N< size_J3 > >avo*,0 _stmp1; deleteJ3 CLAS#ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai1 ; i,1 || ); ; i, || )3 ; i,sr)2CLASSSSSew;pIB_ERROR( "i;)en,30)e-= ndex,ron_of,bounds",Sew;pIB_HEREt ;Mr < }//t_e ATE//t le ndex,* M +aatc_ ndex re3 insaa e o[= 3,* M = stat ,+ ); *p ,+ )1 ]nNCLASaxre3 insa e o[= 3,].i;)t ;Mndedeenhosvd clash)STRINGz >& U2< size_i3ze_J2,N< size_J3 > >avo*,0 _stmp1; delete 1,NI2J3 CLAS#ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai1 ; i,1 || ); ; i, || )3 ; i,sr)2CLASSSSSew;pIB_ERROR( "i;)en,30)e-= 3= ndex,ron_of,bounds",Sew;pIB_HEREt ;Mr < }//t_e ATEre3 insaa e o[= 3,* M = stat ,+ ); *p ,+ )1 ]nNCLASaxre3 insa e o[= 3,].i;)t ;Mndedeenhosvd clash)STRINGz< size_i3ze_J2,N< size_J3 > >avo*, );p ininlie, consT& oparator()( < size_i1J3 CLASre3 insai;)en,30);Mndedeenhosvd clash)STRINGz >& U2< size_i3ze_J2,N< size_J3 > >avo*, );p inin0 _stmp1; delete 1,NI2J3 CLASre3 insai;)en,30);Mndedenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounaI2_da_inc(0 _1tmp1; dele,bda_incr_I2 , c* aet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSM Mr < s*I3ai3 ; i,sr)2CLASSSSSew;pIB_ERROR( "ounaI1_da_inc()e-= 3= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M f }//t_e AT _ounab,NT s_,30).ounaatc(_1tm* aet n Mndedeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounaI1_da_inc(0 _stmp1; dele,bda_incr_I , c* aet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSM Mr < s*I3ai3 ; i,sr)2CLASSSSSew;pIB_ERROR( "ounaI2_da_inc()e-= 3= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M f }//t_e AT+ 0_ounab,NT s_,30).ouna= i %NI3;)en* aet n M Mndedeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounaI3_da_inc(0 _1tmp1; del2,bda_incr_I3 , c* aet sres_uJ3 Nragmap1; deletalabl / f)E toi3) 0;oi3* ae[= 3,]tal_ounab,NT s_,30).i;)t ;,s*sndendedenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounaatc(0 _1tmp1; dele,bda_incr_I2 , c* aet sres_uJ3 CLASounaI2_da_inc(i;3en* aet nendeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ouna= i %NI30 _stmp1; dele,bda_incr_I , c* aet sres_uJ3 CLASounaI1_da_inc(;)en,3_r* aet nendeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounamns (0 _1tmp1; del2,bda_incr_I3 , c* aet sres_uJ3 NounaI3_da_inc(i;)en* aet nendeeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, sunaI2_da_inc(0 _1tmp1; dele,b2 *NI3da_incr_I2 , c* aet J3 #ifce_new;pIB_SAFE_ACCESSORSM Mr < s*I3ai3 ; i,sr)2CLASSSSSew;pIB_ERROR( "sunaI1_da_inc()e-= 3= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M f }//t_e AT+ 0_ounab,NT s_,30).sunaatc(_1tm* aet n SN@SUS:nbug fixendeeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, sunaI1_da_inc(0 _stmp1; dele,b2 *NI3da_incr_I , c* aet J3 #ifce_new;pIB_SAFE_ACCESSORSM Mr < s*I3ai3 ; i,sr)2CLASSSSSew;pIB_ERROR( "sunaI2_da_inc()e-= 3= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M f }//t_e AT+ 0_ounab,NT s_,30)._i3 = i %NI3;)en* aet n M Mndeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, sunaI3_da_inc(0 _1tmp1; del2,b2 *NI3da_incr_I3 , c* aet J3 CLASragmap1; deletalabl / f)E toi3) CLAS{Mr < ATECLAS_ounab,NT s_,30).i;)t tal* ae[= 3,]n; t }es_ndeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, sunaatc(0 _1tmp1; dele,b2 *NI3da_incr_I2 , c* aet J3 NsunaI2_da_inc(i;3en* aet nendeeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, suna= i %NI30 _stmp1; dele,b2 *NI3da_incr_I , c* aet J3 NsunaI1_da_inc(;)en,3_r* aet nendeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, sunamns (0 _1tmp1; del2,b2 *NI3da_incr_I3 , c* aet J3 NsunaI3_da_inc(i;)en* aet nendeenhosvd clash)STRINGz< size_e_ifaratoe_J2,N< size_J3 > >avo*, I2,NI1,NT > cze_J2,N< size_J3 > >avo*, ounanewa_;p}} ,3_res_p1; delet J3 #ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai3 ; i,sr)2CLASSSSSew;pIB_ERROR( "ounanewa_;p}} ,3_res)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e re3 insaounab,NT s_,30)nendeeenhosvd clash)STRINGz< size_2 *NI3o_ifaratoe_J2,N< size_J3 > >avo*, I2,NI1,NT > cze_J2,N< size_J3 > >avo*, ounanewa_;p}} ,3_res_p1; delet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai3 ; i,sr)2CLASSSSSew;pIB_ERROR( "ounanewa_;p}} ,3_res)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e re3 insaounab,NT s_,30)nendeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounanewa_;p}} ,3_res_p1; dele,bxI2,NI1,NT > c* aet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai3 ; i,sr)2CLASSSSSew;pIB_ERROR( "ounanewa_;p}} ,3_res)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e 3* aetal_ounab,NT s_,30); ;Mndedenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounanewa_;p}} ,3_res_p1; del2,batrixI1,NI3,NT > c* aet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai; ; i, )2CLASSSSSew;pIB_ERROR( "ounanewa_;p}} ,3_res)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e AT+ 0foldtd) < sizetalabl / f)E toi3 ) 0;oi3* ae._i3 = i %NI3;e,b_ounab,NT s_,30).ouna= i %NI3;) ) ;M }endeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounanewa_;p}} ,3_res_.se0 _1tmxI3,NI2 NT > c* aet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai1 ; i,1 )2CLASSSSSew;pIB_ERROR( "ounanewa_;p}} ,3_res_.s)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e foldtd) < sizetalabl / f)E toi3 ) 0;oi3* ae._i3 = i %NI3;e,b_ounab,NT s_,30).ounaatc(_1 ) ;SE orSragm NT y3;) ounoldtd= i %NM }endeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounanewa_;p}} ,3_res_p1; dele,batrixI2,NI1,NT > c* aet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSM s*I3ai3 ; i,sr)2 ew;pIB_ERROR( "ounanewa_;p}} ,3_res)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e 3xI2,NI1,NT > *c* ae_t n nxI2,NI1,NT > ( ; N** ae_t n_ounab,NT s_,30); * ae_t-> ldtdpose_to(m* aet nNIaer; )e* ae_t;Mndedenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounanewa_;p}} ,3fres_p1; del2,bxI1,NI3,NT > c* aet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSM s*I3ai; ; i, )2 ew;pIB_ERROR( "ounanewa_;p}} ,3fres)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e atrixI1,NI3,NT > *c* ae_t n natrixI1,NI3,NT > ( ; Nfoldtd) < sizetalabl / f)E toi3 ) 0;oi3* ae_t->_i3 = i %NI3;e,b_ounab,NT s_,30).ouna= i %NI3;) ) ;M }e * ae_t-> ldtdpose_to(m* aet nNIaer; )e* ae_t;Mndeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ounanewa_;p}} ,3_reb_.se0 _1tmatrixI3,NI2 NT > c* aet sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSM s*I3ai1 ; i,1 )2 ew;pIB_ERROR( "ounanewa_;p}} ,3_res_.s)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e xI3,NI2 NT > *c* ae_t n nxI3,NI2 NT > ( ; Nfoldtd) < sizetalabl / f)E toi3 ) 0;oi3* ae_t->_i3 = i %NI3;e,b_ounab,NT s_,30).ounaatc(_1 ) ;SE orSragm NT y3;) ounoldtd= i %NM }e * ae_t-> ldtdpose_to(m* aet nNIaer; )e* ae_t;Mndeletesslldts enhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, sunanewa_;p}} ,3_res_p1; dele,b2 *NI3xI2,NI1,NT > c* aet J3 #ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai3 ; i,sr)2CLASSSSSew;pIB_ERROR( "sunanewa_;p}} ,3_res)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e 3_ounab,NT s_,30)tal* ae;Mndedeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, sunanewa_;p}} ,3_res_p1; del2,b2 *NI3atrixI1,NI3,NT > c* aet J3 #ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai; ; i, )2CLASSSSSew;pIB_ERROR( "sunanewa_;p}} ,3_res)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e 3xoldtd) < sizetalabl / f)E toi3 ) 0;oi3_ounab,NT s_,30)._i3 = i %NI;)en* ae.ouna= i %NI3;3 ) ;M }endeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ice_newa_;p}} ,3_res_.se0 _1tm2 *NI3xI3,NI2 NT > c* aet J3 #ifce_new;pIB_SAFE_ACCESSORSMr < s*I3ai1 ; i,1 )2CLASSSSSew;pIB_ERROR( "ice_newa_;p}} ,3_res_.s)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e 3xoldtd) < sizetalabl / f)E toi3 ) 0;oi3_ounab,NT s_,30)._i3 atc(_1tm* ae.ouna= i %NI3;3 ) ;M }e)endelenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, sunanewa_;p}} ,3_res_p1; dele,b2 *NI3atrixI2,NI1,NT > c* aet J3 #ifce_new;pIB_SAFE_ACCESSORSM s*I3ai3 ; i,sr)2 ew;pIB_ERROR( "sunanewa_;p}} ,3_res)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e fI2,NI1,NT > *c* ae_t n nxI2,NI1,NT > ( ; N* ae. ldtdpose_to(m** ae_t ; N_ounab,NT s_,30)tal** ae_t;MIaer; )e* ae_t;Mndeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ice_newa_;p}} ,3fres_p1; del2,b2 *NI3xI1,NI3,NT > c* aet J3 #ifce_new;pIB_SAFE_ACCESSORSM s*I3ai; ; i, )2 ew;pIB_ERROR( "ice_newa_;p}} ,3fres)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e atrixI1,NI3,NT > *c* ae_t n natrixI1,NI3,NT > ( ; N* ae. ldtdpose_to(m** ae_t ; Nxoldtd) < sizetalabl / f)E toi3 ) 0;oi3_ounab,NT s_,30)._i3 = i %NI;)en* ae_t->ouna= i %NI3;3 ) ;M }e)eIaer; )e* ae_t;Mndeenhosvd clash)STRINGz< size_N, leze_J2,N< size_J3 > >avo*, ice_newa_;p}} ,3_reb_.se0 _1tm2 *NI3atrixI3,NI2 NT > c* aet J3 #ifce_new;pIB_SAFE_ACCESSORSM s*I3ai1 ; i,1 )2 ew;pIB_ERROR( "ice_newa_;p}} ,3_reb_.s)e-= ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e xI3,NI2 NT > *c* ae_t n nxI3,NI2 NT > ( ; N* ae. ldtdpose_to(m** ae_t ; N 3xoldtd) < sizetalabl / f)E toi3 ) 0;oi3_ounab,NT s_,30)._i3 atc(_1tm* ae_t->ouna= i %NI3;3 ) ;M }e)aer; )e* ae_t;Mndedessl#inleenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, #inl }#inlV itnt J3 Nragdtd) < sizetalabl / f)E toi3 ) 0;oi3_ounab,NT s_,30).#inl #inlV itnt lice;)endenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, #inlaaI2 oma omp 3 (d NJ3 N2*I3a3 (d >ala; M sirI2 (r3 (d =; N 3doupp>rxinlV itntala.0f; CLASragdtd) < sizndex,_i2 = ndex,=_2 >=}ice; }//t_endeenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, #inlaaI2 om_signeda omp 3 (d NJ3 N2*I3a3 (d >ala; M sirI2 (r3 (d =; 3doupp>rxinlV itntala.0f; Nragdtd) < sizetalabl / f)E toi3 ) 0;oi3ragdtd) < sizaralabl / f)I irtoi1 = 0 i2 )3rags_p1; del2ralabl / f)I irtoi2 = 033i2 )33xinlV itntalrI2 ( VM )33xinlV itnt/= RAND_MAXVM )33xinlV itnt*=esult numepTr_clude r_ , ldx( VM)33 }#inlV itn2e_isze_J3_ice,r_ ,(#inlV itn) %esult numepTr_clude r_ , ldx( VM)33 #inlV itn2e-=esult numepTr_clude r_ , ldx( /2VM)33 i;)en,30)e_i#inlV itn2e n;>=_2 >=}ice;ndeenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, #inlaaI2 _syma omp 3 (d NJ3 N2*I3a3 (d >ala; M sirI2 (r3 (d =; N* rt(< s=s< 2=; N* rt(< s=s< 3=; N 3doupp>rxinlV itntala.0f; }naninlin itntalab Nragdtd) < sizetalabl / f)E toi3 ) 0;oi3ragdtd) < sizarali3bl / f)I irtoi1 = 0 i2 )3rags_p1; del2rali1bl / f)I irtoi2 = 033i2 )33xinlV itntalrI2 ( VM )33xinlV itnt/= RAND_MAXVM )33xinlV itnt*=esult numepTr_clude r_ , ldx( V //addrxinlV itnt+ala.5;SragmroundingM )33naninlin itntalsze_J3_ice,r_ ,( #inlV itnt VM )33M)33 i;)en,30)e_inaninlin itnVM )33M)33 s*I3ai1 !=l / || )1 !=l 3 || ); !=l 3 )2 )33i2 )33 s*I3ai1 !=l / )1 NT_nai)en,1en,30)e_inaninlin itnVM )33 s*I3); !=l 3 )2 )333 i;3;)t talnaninlin itnVM )33 s*I3 )1 !=l 3 )2 )333 i3;)en,1t talnaninlin itnVM )33 2 )33 s*I3ai1 !=l / && )1 !=l 3 && ); !=l 3 )2 )333{1 NT_nai)en,3en,1t talnaninlin itnVM )33 i3;1;)t talnaninlin itnVM )33 }1 NT_2 >=_2 >=}ice }s_.2enhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, #inlaaI2 _sym}} ,sa omp 3 (d NJ3 N2*I3a3 (d >ala; M sirI2 (r3 (d =; N* rt(< s=s< 2=; N 3doupp>rxinlV itntala.0f; Nragdtd) < sizetalabl / f)E toi3 ) 0;oi3ragdtd) < sizaralabl / f)I irtoi1 = 0 i2 )3rags_p1; del2rali1bl / f)I irtoi2 = 033i2 )33xinlV itntalrI2 ( VM )33xinlV itnt/= RAND_MAXVM )33xinlV itnt*=esult numepTr_clude r_ , ldx( VM)33 i;)en,30)e_isze_J3_ice,r_ ,( #inlV itnt VM)33 i)en,1en,30)e_isze_J3_ice,r_ ,( #inlV itnt VM)332 >=}ice }s_.2 ndenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, #inla VM_Tari /in itns(, J3 Ndoupp>rxinlV itntala.0f; Nragdtd) < sizetalabl / f)E toi3 ) 0;oi3ragdtd) < sizaralabl / f)I irtoi1 = 0 i2 )3rags_p1; del2ralabl / f)I irtoi2 = 033i2 )33i;)en,30)e_isze_J3_ice,r_ ,( #inlV itnt VM)33 #inlV itn++n;>=_2 >=}ice;ndeenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,aI2gtathulthol (I >& U3,sor3_ifarato ,edthep<_J1,NJ2,T&=NI1rtin itn_J1,NJ2,T&=e2 _n itn sres_uifdemNragdtd) < sizetalabl / f)E toi3 ) 0;oi3ragdtd) < sizaralabl / f)I irtoi1 = 0 i2 )3rags_p1; del2ralabl / f)I irtoi2 = 033i2 )33T n itntalai;)en,30);M)33 s*I3n itnt>==NI1rtin itn && n itn <==e2 _n itn M )33 dthep<.i;)en,30)e_isze_J3_ice,r_ ,( v itnt VM)332 >=}iceMndeleenhosvd clash)STRINGzp> danaspace vmmR> o_ifarator.hpp> #ienR =s< si&&_R =s< 2i&&_R =s< 3_R, u2_1c e_J2,N< size_J3 > >avo*,diag(b2 *NI3da_incr_R , c*iagin itns_I1ifdeT_naas > rags_p1; derralablr f)Rirtor ) 0;oi3r, r, r)e_isze_J3_ice,r_ ,( *iagin itns_.r)e ;M }e)eIre3 ins0;Mndeleteseenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,T_naasJ3 CLASrinl sze_J3_ice,r_ ,( a.0 )0)nendeeenhosvd clash)STRINGzboolze_J2,N< size_J3 > >avo*, );p == 2 *NI3omml::tensor3_ifarato ,edthept sres_uJ3 CLASboola k_= trtn; CLASragdtd) < sizndex,_i2 = ndex,::ragdtd) < sizetalabl k_&& )/ f)E toi3 ) 0;o ATECLAS k_= a e o[= 3,] =s >avo*, );p != 2 *NI3omml::tensor3_ifarato ,edthept sres_uJ3 CLASre3 ins!a );p == dthept nNndeeenhosvd clash)STRINGzboolaequ; 2 *NI3omml::tensor3_ifarato tens_0_J1,NJ2,vmml::tensor3_ifarato tens_1 aol;p nce J3 CLASre3 insns_0.equ; ns_1 aol;p nce ;Mndeenhosvd clash)STRINGzboolze_J2,N< size_J3 > >avo*,equ; 2 *NI3omml::tensor3_ifarato tedthep aol;p nce sres_uJ3 CLASboola k_= trtn; Nragmap1; deletalabl k_&& )/ f)E toi3 )+ 0;oi3 k_= _ounab,NT s_,30).equ; dthep. = new naas_t; et3_in_.30) aol;p nce ;M }e AT+re3 insokn Mndededeenhosvd clash)STRINGzp1; dze_J2,N< size_J3 > >avo*,p1; ( sres_uJ3 CLASre3 ins< size_SIZE ndeenhosvd clash)STRINGzomI3 is nuace vmmgefate< size_I1,N< size_J13NT_naas tal_fwd( , co_Ie_J2,N< size_J3 > >avo*, ounab; omml::t(I,N< sizatc_offsetI1,N< sizt leoffsetI1,N< siz2 NT >offsettrixI3e_ifarator.hpp> #ienta offsetr ;M re3 insultipl; )endenhosvd clash)STRINGzomI3 is nuace vmmgefate< size_I1,N< size_J13N_ifarator.hpp> #ienta >avo*, ounab; omml::t(INT_naas tal_fwd( , consteultiplNJs1 NT_,N< sizatc_offsetI1,N< sizt leoffsetI1,N< siz2 NT >offsett sres_uJ3 #ifce_new;pIB_SAFE_ACCESSORSM s*I3ata +zatc_offsetr>i,1 || fw +zt leoffsetr>i,/ || f3 +z2 NT >offsett>i,sr)2 ew;pIB_ERROR( " ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e 3xoldtd) < si2 NT talabl2 NT tent to2 NT t) 0;oi3ragdtd) < siatcbalablrtcbentairtortcb= 0 i2 )3rags_p1; det lbalablt lbent irtot lb= 033i2 )33ultipl.rtcI1t lI1, NT )+ 0000alaatc_offsetr+rtcI1t l_offsetr+t lI1, NT _offsetr+, NT )VM)332 >=}iceMIre3 ins0;Mndelenhosvd clash)STRINGzomI3 is nuace vmmgefate< size_I1,N< size_J13N_ifarator.hpp> #ienta >avo*, sunab; omml::t(I2 *NI3omml::tetal_fwd( , constes; tal_alss1 NT_,N< sizatc_offsetI1,N< sizt leoffsetI1,N< siz2 NT >offsett J3 #ifce_new;pIB_SAFE_ACCESSORSM s*I3ata +zatc_offsetr>i,1 || fw +zt leoffsetr>i,/ || f3 +z2 NT >offsett>i,sr)2 ew;pIB_ERROR( " ndex,ron_of,bounds.",Sew;pIB_HEREt ;M }//t_e 3xoldtd) < si2 NT talabl2 NT tent to2 NT t) 0;oi3ragdtd) < siatcbalablrtcbentairtortcb= 0 i2 )3rags_p1; det lbalablt lbent irtot lb= 033i2 )33aatc_offsetr+rtcI1t l_offsetr+t lI1, NT _offsetr+, NT )e_is; tal_a.rtcI1t lI1, NT )+VM)332 >=}iceMIre3 ins0;Mndlenhosvd clash)STRINGzo_ifaratoe_J2,N< size_J3 > >avo*,NI2,NI3 Ie_J2,N< size_J3 > >avo*,begin( J3 CLASre3 insNI2,NI3 ( * m< , trtnt nMndededenhosvd clash)STRINGzo_ifaratoe_J2,N< size_J3 > >avo*,NI2,NI3 Ie_J2,N< size_J3 > >avo*,}//( J3 CLASre3 insNI2,NI3 ( * m< , false0);Mndedeenhosvd clash)STRINGzo_ifaratoe_J2,N< size_J3 > >avo*,2 *NI_NI2,NI3 Ie_J2,N< size_J3 > >avo*,begin( sres_uJ3 CLASre3 ins2 *NI_NI2,NI3 ( * m< , trtnt nMndedeenhosvd clash)STRINGzo_ifaratoe_J2,N< size_J3 > >avo*,2 *NI_NI2,NI3 Ie_J2,N< size_J3 > >avo*,}//( sres_uJ3 CLASre3 ins2 *NI_NI2,NI3 ( * m< , false0);Mndedenhosvd clash)STRINGzomI3 is nue_ifaratoinpu1,NI2,NI3 _te_I< sieze_J2,N< size_J3 > >avo*,ice(oinpu1,NI2,NI3 _tebegin<_Jinpu1,NI2,NI3 _tee2 _lsboolaatc_majoe_neyron_NJ3 N2npu1,NI2,NI3 _teie(obegin<, VMr < sf(aatc_majoe_neyron_NJCLAS{Mr < ATExagma p1; deletalabl / f)E toi3 ) 0 i2 )3rags_p1; delaralabl / f)I irtoi1 = 0 3i2 )33xags_p1; del2ralabl / f)I irtoi2,rtoit )2 )33i2 )33 s*I3ait =s=_2 >=}i t }e AT+sultJCLAS{Mr < ATEize(*krpy3ait_Jitt+I3a< size_SIZE 0) begin( s)n; t }endededeenhosvd clash)STRINGz< size_e_J2,N< size_J3 > >avoeze_J2,N< size_J3 > >avo*, );p + 2 *NI3omml::tensor3_ifarato ,edthept sres_uJ3 omml::tensor3_ifarato eultipl( * m< r ;M retiplt+aldthep;M re3 insultipl; )endlenhosvd clash)STRINGzomI3 is nuace vmmgefate< size_I1,N< size_13N_ifarator.hpp> #ienta << si&&_fw << 2i&&_f3 << 3<_R, u2_1Ie_J2,N< size_J3 > >avo*, );p += 1,NJ2,vmml::tental_fwd( , co ,edthept J3 Nragdtd) < sizetalabl / f)J toi3 ) 0;oi3ragdtd) < sizaralabl / f)J irtoi1 = 0 i2 )3rags_p1; del2ralabl / f)J irtoi2 = 033i2 )33i;)en,30)e+s >avo*, );p += 1,NJ2,vmml::tensor3_ifarato ,edthept J3 CLAS :it = begin( _Jit_TEMPs >avoeze_J2,N< size_J3 > >avo*, );p - 2 *NI3omml::tensor3_ifarato ,edthept sres_uJ3 omml::tensor3_ifarato eultipl( * m< r ;M retiplt-aldthep;M re3 insultipl; )endlenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, );p -= 1,NJ2,vmml::tensor3_ifarato ,edthept J3 CLAS :it = begin( _Jit_TEMPs >avoeze_J2,N< size_J3 > >avo*, );p + }sranapt sres_uJ3 omml::tensor3_ifarato eultipl( * m< r ;M retiplt+alsranap;M re3 insultipl; )endlenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, );p += }sranapt J3 CLAS :it = begin( _Jit_TEMPs >avoeze_J2,N< size_J3 > >avo*, );p - }sranapt sres_uJ3 omml::tensor3_ifarato eultipl( * m< r ;M retiplt-alsranap;M re3 insultipl; )endlenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, );p -= }sranapt J3 CLAS :it = begin( _Jit_TEMPs >avo*,newa_;p}} J3 NT>;pet3_in_atrixI3,NI1*I2 NT > & 1*I2 NT > sres_uJ3 atrixI3,NI2 NT > * newa_;p}} ,3_r n natrixI3,NI2 NT > ( ; Nfoldtd) < size_i2 = 0;pI irtoi ) 0;oi3ounanewa_;p}} ,3_reb_.si, *newa_;p}} ,3_r ;M foldtd) < sit lbalablt lbenI irtot lb= 03i2 )31*I2 NT >._i3 = i %NI3;*I2+t lI1 newa_;p}} ,3_r->ouna= i %NI= i) ;M } M }e)aer; )enewa_;p}} ,3_r;Mndelenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,newa_;p}} J3 NT>;pet_res_atrixI2,NI3*I1,NT > & 1*I2 NT > sres_uJ3 xI3,NI2 NT > * newa_;p}} ,3_r n nxI3,NI2 NT > ( ; Nfoldtd) < size_i2 = 0;pI irtoi ) 0;oi3ounanewa_;p}} ,3_ref_.si, *newa_;p}} ,3_r ;M foldtd) < sit lbalablt lbenI3irtot lb= 03i2 )31*I2 NT >._i3 = i %NI3;*I3+t lI1 newa_;p}} ,3_r->ouna= i %NI= i) ;M } M }e)aer; )enewa_;p}} ,3_r;Mneseenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,xJ1,NJ2*J3 NT>;pet3_in_atrixI1,NI2*I3 NT > & 1*I2 NT > sres_uJ3 atrixI1,NI3,NT > *cnewa_;p}} , n natrixI1,NI3,NT > ( ; Nfoldtd) < size_i2 = 0;pI2irtoi ) 0;oi3ounanewa_;p}} ,3_resi, *newa_;p}} , ;M foldtd) < sit lbalablt lbenI3irtot lb= 03i2 )31*I2 NT >._i3 = i %NI3;*I3+t lI1 newa_;p}} ,->ouna= i %NI= i) ;M } M }e)aer; )enewa_;p}} ,;Mndlenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,xJ1,NJ2*J3 NT>;pet_res_atrixI1,NI2*I3 NT > & 1*I2 NT > sres_uJ3 xI1,NI3,NT > *cnewa_;p}} , n nxI1,NI3,NT > ( ; Nfoldtd) < size_i2 = 0;pI2irtoi ) 0;oi3ounanewa_;p}} ,3fresi, *newa_;p}} , ;M foldtd) < sit lbalablt lbenI1irtot lb= 03i2 )31*I2 NT >._i3 = i %NI3;*I1+t lI1 newa_;p}} ,->ouna= i %NI= i) ;M } M }e)aer; )enewa_;p}} ,;Mndelenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,newa_;p}J3 NT>;pet3_in_atrixI2,NI1*I3 NT > & 1*I2 NT > sres_uJ3 atrifI2,NI1,NT > *cew naas_t; e n natrixI2,NI1,NT > ( ; Nfoldtd) < size_i2 = 0;pI3irtoi ) 0;oi3ounanewa_;p}} ,3_resi, *ew naas_t; e ;M foldtd) < sit lbalablt lbenI1irtot lb= 03i2 )31*I2 NT >._i3 = i %NI3;*I1+t lI1ew naas_t; e->ouna= i %NI= i) ;M } M }e)aer; )eew naas_t; e;Mndlenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,newa_;p}J3 NT>;pet_res_atrixI2,NI1*I3 NT > & 1*I2 NT > sres_uJ3 NrI2,NI1,NT > *cew naas_t; e n nxI2,NI1,NT > ( ; Nfoldtd) < size_i2 = 0;pI3irtoi ) 0;oi3ounanewa_;p}} ,3fresi, *ew naas_t; e ;M foldtd) < sit lbalablt lbenI irtot lb= 03i2 )31*I2 NT >._i3 = i %NI3;*I2+t lI1ew naas_t; e->ouna= i %NI= i) ;M } M }e)aer; )eew naas_t; e;Mndlenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,newa_;p}} NT>;pet3_in_2 *NI3atrixI3,NI1*I3 NT > & 1*I2 NT > J3 atrixI3,NI2 NT > * newa_;p}} ,3_r n natrixI3,NI2 NT > ; Nfoldtd) < size_i2 = 0;pI irtoi ) 0;oi3foldtd) < sit lbalablt lbenI irtot lb= 03i2 )3newa_;p}} ,3_r->suna= i %NI= i, 1*I2 NT >.ouna= i %NI3;*I2+t l ) ;M } M ice_newa_;p}} ,3_reb_.si, *newa_;p}} ,3_r ;M }e)aer; )enewa_;p}} ,3_r;Mndelelenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,newa_;p} NT>;pet3_in_2 *NI3atrixI2,NI1*I3 NT > & 1*I2 NT > J3 atrifI2,NI1,NT > *cew naas_t; e n natrixI2,NI1,NT > ( ; Nfoldtd) < size_i2 = 0;pI3irtoi ) 0;oi3foldtd) < sit lbalablt lbenI1irtot lb= 03i2 )3ew naas_t; e->suna= i %NI= i, 1*I2 NT >.ouna= i %NI3;*I1+t l) ;M } M ice_newa_;p}} ,3_resi, *ew naas_t; e ;M }e)aer; )eew naas_t; e;Mndlelenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,xJ1,NJ2* NT>;pet3_in_2 *NI3atrixI1,NI2*I3 NT > & 1*I2 NT > J3 atrixI1,NI3,NT > *cnewa_;p}} , n natrixI1,NI3,NT > ( ; Nfoldtd) < size_i2 = 0;pI2irtoi ) 0;oi3foldtd) < sit lbalablt lbenI3irtot lb= 03i2 )3newa_;p}} ,->suna= i %NI= i, 1*I2 NT >.ouna= i %NI3;*I3+t l ) ;M } M ice_newa_;p}} ,3_resi, *newa_;p}} , ;M }e)aer; )enewa_;p}} ,;Mndllenhosvd clash)STRINGzomml::tensor3_ifarato e_J2,N< size_J3 > >avo*, );p * }sranapt J3 CLASomml::tensor3_ifarato eultiplnS2CLASragdtd) < sizndex,_i2 = ndex,::omml::tensor3_ifarato *Eultiple_i(* m< )nNCLASNpragdtd) < sizetalabl / f)E toi3 ) 0;oi3ultipl. e o[= 3,] = a e o[= 3,] * >avo*, );p *= }sranapt J3 CLASragdtd) < sizndex,_i2 = ndex, >avo*, );p / }sranapt J3 omml::tensor3_ifarato eultipl;e 3xoldtd) < si2 NT >idxtalabl2 NT >idxtf)E tol2 NT >idxt) 0;oi3ragdtd) < siatc_zndex,_i2 =atc_zndex,enI1irtoatc_zndex,= 0 i2 )3rags_p1; det l_zndex,_i2 =t l_zndex,enI irtot l_zndex,= 0 3i2 )33ultipl.rtc_zndex,=t l_zndex,l2 NT >idxt) alaatc_zndex,=t l_zndex,l2 NT >idxt) /=}iceMIre3 insultipl; )endlenhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*, );p /= }sranapt J3 3xoldtd) < si2 NT >idxtalabl2 NT >idxtf)E tol2 NT >idxt) 0;oi3ragdtd) < siatc_zndex,_i2 =atc_zndex,enI1irtoatc_zndex,= 0 i2 )3rags_p1; det l_zndex,_i2 =t l_zndex,enI irtot l_zndex,= 0 3i2 )33aatc_zndex,=t l_zndex,l2 NT >idxt) /==}iceM)e ndenhosvd clash)STRINGzsize_oidimensensor3_ifarator >avo*, );p - sres_uJ3 CLASre3 insnegis ( ;Mndllenhosvd clash)STRINGzomml::tensor3_ifarato e_J2,N< size_J3 > >avo*,negis ( sres_uJ3 CLASomml::tensor3_ifarato eultipln ATEultipl *=<-1.0; CLASre3 insultipl; )enenhosvd clash)STRINGzdoupp>rze_J2,N< size_J3 > >avo*,newbenius_norm(J1,NJ2,vmml::tensor3_ifarato ,edtheprx_normtala.0; }abs_/t_ftalab N2 *NI_NI2,NI3 eit = begin( _Jit_TEMPsrze_J2,N< size_J3 > >avo*,newbenius_norm(J sres_uJ3 CLASdoupp>rx_normtala.0; T_naaLASNp2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs=}iceMI }//t_e CLASre3 inssqrt(r_norm ;Mndeenhosvd clash)STRINGzdoupp>rze_J2,N< size_J3 > >avo*,avg_newbenius_norm(J sres_uJ3 CLASdoupp>rax_normtala.0; CLAS2 *NI_NI2,NI3 eit = begin( _Jit_TEMPsrze_J2,N< size_J3 > >avo*,mse 2 *NI3omml::tensor3_ifarato ,edthept sres_uJ3 doupp>rmsein itala.0; doupp>r/t_ftala.ab N2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs)s1; ( ; )eIre3 insmsein i; }s_.2 nenhosvd clash)STRINGzdoupp>rze_J2,N< size_J3 > >avo*,rmse 2 *NI3omml::tensor3_ifarato ,edthept sres_uJ3 re3 inssqrt(mse dthept ); }s_.2enhosvd clash)STRINGzdoupp>ze_J2,N< size_J3 > >avo*,mean( sres_uJ3 doupp>rn italab N2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs(abs( *it0) ;M }e)eIre3 ins( v i/s1; ( ); }s_.2 nenhosvd clash)STRINGz< sieze_J2,N< size_J3 > >avo*,mean(,T&=meanze_J2,N< size_J3 > >avo*,vari nce( sres_uJ3 doupp>rn itala.0; doupp>rsumin itala.0; doupp>rmean(*it) -lmean(sumin i/(s1; ( -1 ); }s_2enhosvd clash)STRINGzdoupp>ze_J2,N< size_J3 > >avo*,stdev( sres_uJ3 re3 inssqrt(vari nce( ); }ss_2enhosvd clash)STRINGzdoupp>eze_J2,N< size_J3 > >avo*,t ea_;p_psnr 2 *NI3omml::tensor3_ifarato tedthep 1,NJ2,T&=maxin itnrrmsein italrmse dthept ; doupp>rpsnrin itallog(=maxin itn >avo*,tce,_newm(J1,NJ2,vmml::tensor3_ifarato ,edthept J3 T_naasT>:,N< ce_nvmml::tensor3_ifarato ns_ttT > n; t ,N< ce_nvN< size_ns_ttT > *,2 *NI_NI2,NI3 tna= *NI_NI2,NI3 nNCLASMr < sI2,NI3 eit = begin( _Jit_TEMPsidxtalabl2 NT >idxtf)(s/ m)E tol2 NT >idxt) 0;o#pragma ea parallelSragJppragdts/ miatc_zndex,_i2 =atc_zndex,en(s/ m)E1irtoatc_zndex,= 0 i2#pragma ea parallelSragJpppragdts/ mit l_zndex,_i2 =t l_zndex,en(s/ m)E irtot l_zndex,= 0 3i2 )33aatc_zndex,=t l_zndex,l2 NT >idxt) = isze_J3_ice,r_ ,(dthep.aatc_zndex,=t l_zndex,l2 NT >idxt));Ms332 >=}iceM }//t_endelenhosvd clash)STRINGzomI3 is nuace vmmgefate< size_I1,N< siz( , c,N< size_ITe_I< size_J2,N< size_J3 > >avo*,tce,_newm(J1,NJ2,vmml::tental_fwd( , co tedthep 1,NJ2,s/ m&l2 NT >idx_NI1rtit J3 Tpragma ea parallelSragJpragdts/ mi2 NT >idxtal2 NT >idx_NI1rtibl2 NT >idxtf)(s/ m)J tol2 NT >idxt) 0;o#pragma ea parallelSragJppragdts/ miatc_zndex,_i2 =atc_zndex,en(s/ m)J1irtoatc_zndex,= 0 i2#pragma ea parallelSragJpppragdts/ mit l_zndex,_i2 =t l_zndex,en(s/ m)J irtot l_zndex,= 0 3i2 )33aatc_zndex,=t l_zndex,l2 NT >idxt) = isze_J3_ice,r_ ,(dthep.aatc_zndex,=t l_zndex,l2 NT >idxt));Ms332 >=}iceM}leteseenhosvd clash)STRINGzomI3 is nu,N< size_ITe_I< size_J2,N< size_J3 > >avo*,floatT _to_uin _t(J1,NJ2,vmml::tensor3_ifarato ,edthept J3 ,N< ce_nvmml::tensor3_ifarato ns_ttT > n; ,N< ce_nvN< size_ns_ttT > *,2 *NI_NI2,NI3 tna= *NI_NI2,NI3 nN M s*s_p1; of(T)S== 1 || p1; of(T)S== 2)+i2 )sI2,NI3 eit = begin( _Jit_TEMPstce,_newm(Jdthept nN)3re3 inVM }Mneseenhosvd clash)STRINGz< siIe_J2,N< size_J3 > >avo*,}xport_to(msult da_incr_ , c* ae >avo*,import_newm(J1,NJ2,sult da_incr_ , c* ae==znpu1,d) <) Mr < ATECLAS ATE*it0_isze_J3_ice,rT> (0)VMr < ATEsult+ r < ATECLAS ATE*it0_ital_a.i0);M t }en dlelenhosvd clash)STRINGzTIe_J2,N< size_J3 > >avo*,ounamin( sres_uJ3 }ndimens_min0_isze_J3_ice,rT>(sult numepTr_clude rT, ldx( )nN M = *NI_NI2,NI3 eeit = begin( _M it_TEMPs >avo*,ounamdx( sres_uJ3 }ndimens_max0_isze_J3_ice,rT>(0)nN M = *NI_NI2,NI3 eeit = begin( _M it_TEMPs}ndimens_max0)+i2 )3ndimens_max0_i*it; )=}iceMIre3 insndimens_max;Mndeenhosvd clash)STRINGzTIe_J2,N< size_J3 > >avo*,ounaabs_min( sres_uJ3 }ndimens_min0_isze_J3_ice,rT>(sult numepTr_clude rT, ldx( )nN M = *NI_NI2,NI3 eeit = begin( _M it_TEMPs >avo*,ounaabs_mdx( sres_uJ3 }ndimens_max0_isze_J3_ice,rT>(0)nN M = *NI_NI2,NI3 eeit = begin( _M it_TEMPsafabs(ndimens_max)0)+i2 )3ndimens_max0_ifabs(*it); )=}iceMIre3 insndimens_max;Mnds_.2enhosvd clash)STRINGzp1; dze_J2,N< size_J3 > >avo*,nnz( sres_uJ3 p1; det unterralab M = *NI_NI2,NI3 eeit = begin( _M it_TEMPs >avo*,nnz( 1,NJ2,T&=thulthol athulthol >avo*,thulthol ( 1,NJ2,T&=thulthol (0)VM>=}iceM}s_elenhosvd clash)STRINGzomI3 is nu,N< size_ITee_I< size_J2,N< size_J3 > >avo*,quant1; do(,vmml::tensor3_ifarato ,equant1; _ls 1,NJ2,T&=minrmaxi,naaI2gtt=}/oupp>(sult numepTr_clude r_ , ldx( ); doupp>rmin<,naaI2gtt=}/oupp>(sult numepTr_clude r_ , lin( ); doupp>r,naaI2gtt=}maxi,naaI2gtt-rmin<,naaI2gt; doupp>r,aaI2gtt=}maxin itn n; ,N< ce_nvN< size_ns_ttT > *,NI2,NI3 tnaNI2,NI3 nN tI_NI2,NI3 eit_quantt=}quant1; _.begin( ; 2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs((}*it0*},naaI2gtt/enaaI2gtt) +la.5)),amaxi,naaI2gtt) ;M } sult+i2 )3*it_quantt=}TT(Eize(*min(Eize(*max(emin<,naaI2gt,}/oupp>(((*it0-emin(*it) prod, 1,Nvertedtv itn= 2 re/oupp>(*it_quantt)tprosult (/ mVM,}Mnds_.2enhosvd clash)STRINGzomI3 is nu,N< size_ITee_I< size_J2,N< size_J3 > >avo*,quant1; (,vmml::tensor3_ifarato ,equant1; _lsT&=min >avo*,quant1; log(=vmml::tensor3_ifarato ,equant1; _lsvmml::tensor3_ifaratocharnstesigns_lsT&=minrmaxi,naaI2gtt=}/oupp>(tnaaI2gt<); doupp>rmin<,naaI2gtt=}ab M minr,aaI2gtt=}maxin itn n; ,N< ce_nvN< size_ns_ttT > *,NI2,NI3 tnaNI2,NI3 nN tI_NI2,NI3 eit_quantt=}quant1; _.begin( ; 2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs n; ,N< ce_nvN< size_ns_signT > *,NI2,NI3 signTNI2,NI3 nN signTNI2,NI3 Jit_sign0_isigns_.begin( ; 3xoldt;:it !=l t_TEMirtoit,rtoit_quant,rtoit_sign0) 0;oi3T n itntalfabs(*it); )=*it_sign0e_i((*it) (quantin itnt+la.5)),amaxi,naaI2gtt) ;M } sult+i2 )3quantin itntallog2( a +z3n itnt-emin(quantin itnt+la.5)),amaxi,naaI2gtt) ;M }iceM}seseenhosvd clash)STRINGzomI3 is nu,N< size_ITee_I< size_J2,N< size_J3 > >avo*,quant1; do(,vmml::tensor3_ifarato ,equant1; _ls ASomml::tensor3_ifaratocharnstesigns_ls AST&=minrmaxi,naaI2gtt=}/oupp>(tnaaI2gt<); doupp>rmin<,naaI2gtt=}ab M minr,aaI2gtt=}maxin itn n; ,N< ce_nvN< size_ns_ttT > *,NI2,NI3 tnaNI2,NI3 nN tI_NI2,NI3 eit_quantt=}quant1; _.begin( ; 2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs n; ,N< ce_nvN< size_ns_signT > *,NI2,NI3 signTNI2,NI3 nN signTNI2,NI3 Jit_sign0_isigns_.begin( ; 3xoldt;:it !=l t_TEMirtoit,rtoit_quant,rtoit_sign0) 0;oi3T n itntalfabs(*it); )=*it_sign0e_i((*it) ((}n itnt*},naaI2gt_t/enaaI2gtt) +la.5)),amaxi,naaI2gtt) ;M } sult+i2 )3*it_quantt=}TT(Eize(*min(Eize(*max(emin<,naaI2gt,}/oupp>((( n itnt-emin >avo*,dequant1; (,vmml::tensor3_ifarato ,edequant1; _ls 1,NJ2,vmml::tensor3_ifaratocharnstesigns_ls 1,NJ2,TT&=min n; ,N< ce_nvN< size_ns_ttT > *,NI2,NI3 tnaNI2,NI3 nN tI_NI2,NI3 eit_dequantt=}/equant1; _.begin( ; 2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs n; ,N< ce_nvN< size_ns_signT > *,2 *NI_NI2,NI3 esignTNI2,NI3 nN signTNI2,NI3 Jit_sign0_isigns_.begin( ; 3xloat sign0_iab Nragdt;:it !=l t_TEMirtoit,rtoit_/equant,rtoit_sign0) 0;oi3sign0e_i((*it_sign)S== 0) ?l-1;: 1;oi32*I3sult numepTr_clude rT, is_signedt si2 )3*it_dequantt=}sign0*Eize(*min(Eize(*max(emin >avo*,dequant1; log(=vmml::tensor3_ifarato ,edequant1; _ls 1,NJ2,vmml::tensor3_ifaratocharnstesigns_ls 1,NJ2,TT&=min n; ,N< ce_nvN< size_ns_ttT > *,NI2,NI3 tnaNI2,NI3 nN tI_NI2,NI3 eit_dequantt=}/equant1; _.begin( ; 2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs n; ,N< ce_nvN< size_ns_signT > *,2 *NI_NI2,NI3 esignTNI2,NI3 nN signTNI2,NI3 Jit_sign0_isigns_.begin( ; 3xloat sign0_iab Nragdt;:it !=l t_TEMirtoit,rtoit_/equant,rtoit_sign0) 0;oi3TT n itntalTT(*it);oi3TT /equantin itntalab N3sign0e_i((*it_sign)S== 0) ?l-1;: 1;oi32*I3sult numepTr_clude rT, is_signedt si2 )3/equantin itntalexp2( 3n itnt/enaaI2gt) *}log2(a +znnaaI2gt))0- 1;oi33*it_dequantt=}sign0*E(ize(*min(Eize(*max(emin >avo*,dequant1; (,vmml::tensor3_ifarato ,edequant1; _ls1,NJ2,TT&=min n; ,N< ce_nvN< size_ns_ttT > *,NI2,NI3 tnaNI2,NI3 nN tI_NI2,NI3 eit_dequantt=}/equant1; _.begin( ; 2 *NI_NI2,NI3 eit = begin( _Jit_TEMPs >avo&ze_J2,N< size_J3 > >avo*, );p = 1,NJ2,e_J2,N< size_J3 > >avo& source >avo*,wrNI2_to_raw(J1,NJ2,sult stri m c*ip<_J1,NJ2,sult stri m cfil size >avo*,wrNI2_to_csv(J1,NJ2,sult stri m c*ip<_J1,NJ2,sult stri m cfil size >avo*,wrNI2_danfil (J1,NJ2,sult stri m c*ip<_J1,NJ2,sult stri m cfil size *\tTEXTURE_VOLUME_OBJECT\nObjectModel*\tI\nGridT> *\tEQUIDISTANT\n")neIfpri tf(danfil , "Modality*\tunknown\nTimeStep:\t0\n")neIfclos (danfil ); }s_2.2enhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*,rearixI2m_raw(J1,NJ2,sult stri m c*ip<_J1,NJ2,sult stri m cfil sizela; +M0 i2r < ATECLASl s}reartal(l s}tal_ %emaxifil la;? l s}tal_ %emaxifil la)irtoit,rl s}reart- np1; of(T)S= 0 3i2 )33*it0_i*T_pt irtoT_pt iMs332 >=}ic3Ms3aer; )[] tal_;oi32nfil .clos ( ; )} sult+i2 )ize(*kron_prodno_fil a );n 2 result (/ mVM,}M M}s_el.2el.2enhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*,remove_normalsixI2m_raw(J1,NJ2,sult stri m c*ip<_J1,NJ2,sult stri m cfil sizela; +M0 i2r < ATECLASl s}reartal(l s}tal_ %emaxifil la;? l s}tal_ %emaxifil la)irtoit,rl s}reart- nl s}n itnt= 0 3i2 )33toT_pt iMs333toT_pt iMs333toT_pt iMs333*it0_i*T_pt iMs333toT_pt iMs333tot unter; )=32 >=}ic3Ms3aer; )[] tal_;oi32nfil .clos ( ; )} sult+i2 )ize(*kron_prodno_fil a );n 2 result (/ mVM,}M M)ize(*kron_prod1,Nvertedtnormals 2 result (/ mVM,eIize(*stri mifil sizet=}""; Nfil sizet=}fil size<.substr(0,_fil size<.s1; ( l-6 ; 3 wrNI2_danfil (J".",_fil sizet);MswrNI2_to_raw(J".",_fil sizet);M}s_2.22enhosvd clash)STRINGz >avo*, _ounab,NT s_d) < sizndex ; CLASre3 ins*ulinterpruna=ce,r_matrix> * ,( _i e o + < size_SIZzndex >avo*, _ounab,NT s_d) < sizndex ; CLASre3 ins*ulinterpruna=ce,r_1,NJ2,matrix> * ,( _i e o + < size_SIZzndex >avo*,zomml::t_allocaI2_dana( T*& a e o >avo*,zot_allocaI2_rd_mmap( J1,NJ2,sult stri m c*ip<_J1,NJ2,sult stri m cfil size<_JT*& a e o<,ain cfd_t J3 //< sie* mmap(< sie*addrI1,N< sizl s,ain prot,ain flags,ain fd, off_n_offset ;M 2nt}/ip >avo*,zot_allocaI2_wr_mmap( J1,NJ2,sult stri m c*ip<_J1,NJ2,sult stri m cfil size<_JT*& a e o<,ain cfd_t J3 //< sie* mmap(< sie*addrI1,N< sizl s,ain prot,ain flags,ain fd, off_n_offset ;M 2nt}/ip >avo*,zomml::t_deallocaI2_dana( T*& a e o >avo*,ounaa e o >avo*,ounaa e o >avo*, reres_uruct_CP( CLA1,NJ2,lui; da_incr_Rto t>l,mpi; blce_dotr_Rto t>lbdot;Mr < xagmad) < sike_i2 =k0;pI3irk++NJCLAS{Mr < ATExagmad) < sije_i2 =j,enI irj++NJCLAS AT{ r < ATECLASxagmad) < size_i2 = 0;pI iri++NJCLASCLAS AT{ r < ATECLASSSSST& n itntaliI1jI1k );JCLAS AT ATTTTTn itntalpze_J3_ice,r_ ,( 0.0t);Ms33 lT_naasNNNNuze_iU.ouna= i %NI3;t);Ms33 ,mpie_iomI3.ouna= i %NI3j + ksis_S);Ms33 bdot.t ea_;p(lui,l,mpi,Tn itnt);Ms33 lT}ultJp i3ragdtd) < siaralab e<}Rb ++rt= 0 3 )n itnt+=SU(rI1i) * omI3(rI1j + ksize_);Ms33 lT}//t_eCLAS AT AT} AT AT} AT} )endenhosvd clash)STRINGzomI3 is nuvN< size_floatT _I< size_J2,N< size_J3 > >avo*, apply_sphepTral_weights(,vmml::tensor3_ifaratofloatT ,edthept J3 //piecewise multip,NTationsof every,ew naasl2 NT cpace the weightsmadphepTral)sNragdtd) < sizetalabl / f)E toi3 ) 0; )oi3p1; deketali3 -)E /_;oi3rag dtd) < sizaralabl / f)I irtoi1 si2 )3p1; dekaral / -)E1/_;oi33rag dtd) < siz2ralabl / f)I2irtoi2t si2 )33p1; dek2rali2t-)E2/_;oi33 floatT weighte_i(pqrt*s_k1*ka +zk2*k2r+zk3*k3) +la.0000001);Ms33 weighte_iexp( - weighte =//3 try,exp(- weighte* fa_inc)oi33 floatT n itntalpze_J3_ice,rfloatT _(}ai;)en,3));Ms33 //< itntal3n itnt> 35)+? 3n itnt-e35)+:lab Ni3 dthep.ai;)en,30)ealpze_J3_ice,rfloatT _ dtweighte* n itn ; )=32 >=}ic}endedenhosvd clash)STRINGz< siIe_J2,N< size_J3 > >avo*, ounabphepe( J3 3xoldtd) < sizetalabl / f)E toi3 ) 0; )oi3p1; deketali3 -)E /_;oi3rag dtd) < sizaralabl / f)I irtoi1 si2 )3p1; dekaral / -)E1/_;oi33rag dtd) < siz2ralabl / f)I2irtoi2t si2 )33p1; dek2rali2t-)E2/_;oi33 floatT radius =_pqrt*sk1*ka +zk2*k2r+zk3*k3);Ms33 //FIXME(choolt+appropriis IMs33 2*I3radius >al3E1/_)= 0 3 )ai;)en,30)ealab Ni32 >=}ic}endeddenhosvd clash)STRINGzomI3 is nuace vmmR c,N< size_ITe_Idoupp>ze_J2,N< size_J3 > >avo*,vmml::_inner_product( 1,NJ2,=}ic}eIre3 insinner_prod; }s_.2 nenhosvd clash)STRINGzomI3 is nuace vmmKefate< sizK_I1,N< sizK3e_I< sirze_J2,N< size_J3 > >avo*,average_8to1(,vmml::tenKefaK_I1Kato ,edthept sres_uJ3 assert3E1/_ >alK1);Msassert3E2/_ >alK2);Msassert3E3/_ >alK3); e 3,N< ce_nmatrixenKefaK_I1 t>ldthep<2 NT > ; N,N< ce_nmatrixenKefaK_I1xloat >ldthep<2 NT >floatT ; N,N< ce_nmatrixenKefasifa > sub_atc_2 NT > ; N NrI2,NI1,NT > *c1,NT 0 n nxI2,NI1,NT > ; NrI2,NI1,NT > *c1,NT 1 n nxI2,NI1,NT > ; Nsub_atc_2 NT > * sub_atc_2 NT n nsub_atc_2 NT > ; Ndthep<2 NT > *c1,NT _dthept= ndthep<2 NT > ; Ndthep<2 NT >floatT *c1,NT _floatTdthept= ndthep<2 NT >floatT ; N Ndthep.zero( n; 3rag dtd) < sizetala,eketalabl / f)E toi3,rtok3 ) 0;oi3 = new naas_t; et3_in_.3++, *1,NT 0 );Ms32*I3ai/ f)E ) 03i2 )3 = new naas_t; et3_in_.3, *1,NT 1t);Ms33Ms33*1,NT 0 +=}*1,NT 1;Ms33i,NT 0->sumiatcs( *sub_atc_2 NT );Ms33iub_atc_2 NT ->sumi= i %Ns( *s,NT _dthept);Ms33Ms33*1,NT _floatTdthept= *s,NT _dthep;Ms33*1,NT _floatTdthept/= 8.0;Ms33*1,NT _floatTdthept+ala.5;Ms33Ms33s,NT _dthep->tce,_newm(J*1,NT _floatTdthept);Ms33Ms33dthep.ice_newa_;p}} ,33_in_k3, *1,NT Tdthept);Ms3}M }e) eIaer; )ei,NT 0;eIaer; )ei,NT 1;eIaer; )ei,NT _dthep;Msaer; )eiub_atc_2 NT ;M)e e #unce_nenhosvd clash)STRINGz#unce_nenhosvd clash)3 > >avo }=// sizespaT sizespaT S AT ATTTTTn itnT ; N,N< ce_nvN< size_I*,pointerCLAS AT ATTTTT pointer; N,N< ce_nvN< size_I*,referenc S AT ATTTTT referenc n; t ,N< ce_nvN< size_sult ragward_2I2,NI3 _tag< sI2,NI3 _caI2goryn; t ,N< ce_n,N< siz(((((((((((((((((((((((((((((/t_ferenT > ; (((( N,N< ce_nvN< size_matrixenI*,ROWS,nI*,COLS,nvN< size_I*,vaitn< > >*,NI2,NI3 matrix>NI2,NI3 nNCLASMr < ,N< ce_nvN< size_I*,xI2,NI1,NT > 2 NT > ; N Nomml::t_2I2,NI3 ()+:l_omml::t(la; , _matrix>Nndex(la; +i}; N Nomml::t_2I2,NI3 (,T&=t_, bool beginNndex(la; JCLAS{Mr < ATE2*I3abeginNndexATECLASalab 2 NT > &l2 NT >ASal_omml::t-> = new naas_t; et3_in__matrix>NndexA);JCLAS AT AT r < ATECLAS_matrix>Niz(((((((((al2 NT >.begin( ; CLAS ATECLAS_matrix>Ni_TEMP(((((al2 NT >.e2 ( n; t } AT AT}ultJCLAS AT{ r < ATECLAS_matrix>NndexATECLASalI*,SLICES0- 1;o 2 NT > &l2 NT >ASal_omml::t-> = new naas_t; et3_in__matrix>NndexA);J r < ATECLAS_matrix>Niz(((((((((al2 NT >.e2 ( n; t CLAS_matrix>Ni_TEMP(((((al2 NT >.begin( ; CLAS ATE} AT} N Nvaitn< > & );p * ) 0;oi3ul3 ins*_matrix>NiVM,}M M)1,NJ2, & );p * )sres_uJ0;oi3ul3 ins*_matrix>NiVM,}M AT r < bool );p ==(J1,NJ2,vmml::t_2I2,NI3 &l t_t sres_uJ AT{ r < ATEre3 insit_._omml::tt = _omml::t; t CLAS// &&sit_._matrix>NndexA = _matrix>NndexA; t CLAS&&sit_._matrix>NtA = _matrix>Nt; CLAS ATE AT} CLASMr < bool );p !=(J1,NJ2,vmml::t_2I2,NI3 &l t_t sres_uJ AT{ r < ATEre3 ins! );p ==( t_);M t }eCLASNN Nv sir );p ++( +M0{Mr < ATE2*I3a_omml::tt = 0t JCLAS AT{ r < ATECLASenhoIB_ERROR( "atomI3, to _ncrease_singunapt2I2,NI3 ",SenhoIB_HERE n; t } AT ATMr < ATE2*I3a_matrix>NtA!=S_matrix>Ni_TEMPNJCLASCLAS AT++_matrix>Nt; Ms32*I3a_matrix>NtA = _matrix>Nt_TEMP&&s_matrix>NndexANndex;; t CLAS//2 NT > &l2 NT >ASal_omml::t-> = new naas_t; en__matrix>NndexA);J r < ATECLAS_matrix>Nizal_omml::t-> = new naas_t; et3_in__matrix>NndexA).begin( ; CLAS ATECLAS_matrix>Ni_TEM al_omml::t-> = new naas_t; et3_in__matrix>NndexA).e2 ( n; )}iceMIMI protected: matrix>NI2,NI3 _matrix>NiVM,matrix>NI2,NI3 _matrix>Ni_TEMi T* )33 _omml::t; )p1; d)33 _matrix>Nndex;; } =//TEMPvmml::t_2I2,NI3 classdedddomI3 is nu,N< size_Ie_Iclass omml::t_2 *NI_NI2,NI3 M{epuppic:e 3,N< ce_nvN< size_I*,vaitn< > S AT ATTTTTn itnT ; N,N< ce_nvN< size_I*,pointerCLAS AT ATTTTT pointer; N,N< ce_nvN< size_I*,referenc S AT ATTTTT referenc n; t ,N< ce_nvN< size_sult ragward_2I2,NI3 _tag< sI2,NI3 _caI2goryn; t ,N< ce_n,N< siz(((((((((((((((((((((((((((((/t_ferenT > ; (((( N,N< ce_nvN< size_matrixenI*,ROWS,nI*,COLS,nvN< size_I*,vaitn< > >*,2 *NI_NI2,NI3 ematrix>NI2,NI3 nNCLASMr < ,N< ce_nvN< size_I*,xI2,NI1,NT > 2 NT > ; N Nomml::t_2 *NI_NI2,NI3 ()+:l_omml::t(la; , _matrix>Nndex(la; +i}; N Nomml::t_2 *NI_NI2,NI3 ( 1,NJ2,T&=t_, bool beginNndex(la; JCLAS{Mr < ATE2*I3abeginNndexATECLASalab 1,NJ2,s NT > &l2 NT >ASal_omml::t-> = new naas_t; et3_in__matrix>NndexA);JCLAS AT AT r < ATECLAS_matrix>Niz(((((((((al2 NT >.begin( ; CLAS ATECLAS_matrix>Ni_TEMP(((((al2 NT >.e2 ( n; t } AT AT}ultJCLAS AT{ r < ATECLAS_matrix>NndexATECLASalI*,SLICES0- 1;o 1,NJ2,s NT > &l2 NT >ASal_omml::t-> = new naas_t; et3_in__matrix>NndexA);J r < ATECLAS_matrix>Niz(((((((((al2 NT >.e2 ( n; t CLAS_matrix>Ni_TEMP(((((al2 NT >.begin( ; CLAS ATE} AT} N N1,NJ2, & );p * )sres_uJ0;oi3ul3 ins*_matrix>NiVM,}M AT r < bool );p ==(J1,NJ2,vmml::t_2 *NI_NI2,NI3 &l t_t sres_uJ AT{ r < ATEre3 insit_._matrix>NtA = _matrix>Nt; CLAS ATE AT} CLASMr < bool );p !=(J1,NJ2,vmml::t_2 *NI_NI2,NI3 &l t_t sres_uJ AT{ r < ATEre3 insit_._matrix>NtA!= _matrix>Nt; CLAS}eCLASNN Nv sir );p ++( +M0{Mr < ATE2*I3a_omml::tt = 0t JCLAS AT{ r < ATECLASenhoIB_ERROR( "atomI3, to _ncrease_singunapt2I2,NI3 ",SenhoIB_HERE n; t } AT ATMr < ATE2*I3a_matrix>NtA!=S_matrix>Ni_TEMPNJCLASCLAS AT++_matrix>Nt; Ms32*I3a_matrix>NtA = _matrix>Nt_TEMP&&s_matrix>NndexANndex;; t CLAS//1,NJ2,s NT > &l2 NT >ASal_omml::t-> = new naas_t; en__matrix>NndexA);J r < ATECLAS_matrix>Nizal_omml::t-> = new naas_t; et3_in__matrix>NndexA).begin( ; CLAS ATECLAS_matrix>Ni_TEM al_omml::t-> = new naas_t; et3_in__matrix>NndexA).e2 ( n; )}iceMIMI protected: matrix>NI2,NI3 _matrix>NiVM,matrix>NI2,NI3 _matrix>Ni_TEMi 1,NJ2,T1CLAS ATECLAS_omml::t; )p1; d)33 _matrix>Nndex;; } =//TEMPvmml::t_2 *NI_NI2,NI3 eclassdeddd }// TEMP /* FIXME: * *<-)T_internal *<-)1,NJ2,znpu1 argumenI3rag oucke:t tal_ */dlsizespaT noucke:t_v ; NN,N< ce_nqoucke:t_vmml::nqoucke:t_v ; NNM N,N< ce_nomml::tenRefaR_I1R3I1I}coefft>not_2 re_v ; NN,N< ce_nvN< size_ns_2 re_v *,NI2,NI3 ts_2 re_NI2,NI3 nN N,N< ce_nvN< size_ns_2 re_v *,2 *NI_NI2,NI3 ts_2 re_= *NI_NI2,NI3 nN NNM N,N< ce_nmatrixensor3R1I1I}coefft>nu1_v ; NN,N< ce_nvN< size_u1_v *,NI2,NI3 u1_NI2,NI3 nN N,N< ce_nvN< size_u1_v *,2 *NI_NI2,NI3 u1_= *NI_NI2,NI3 nN M N,N< ce_nmatrixens2faR_I1I}coefft>nu2_v ; NN,N< ce_nvN< size_u2_v *,NI2,NI3 u2_NI2,NI3 nN N,N< ce_nvN< size_u2_v *,2 *NI_NI2,NI3 u2_= *NI_NI2,NI3 nN M N,N< ce_nmatrixens3I1R3I1I}coefft>nut_v ; NN,N< ce_nvN< size_u3_v *,NI2,NI3 u3_NI2,NI3 nN N,N< ce_nvN< size_u3_v *,2 *NI_NI2,NI3 ut_2 *NI_NI2,NI3 ; NNM N,N< ce_nomml::tenRefaR_I1R3I1charns_ns_2 re_signs_v ; NNM N,mI3 is nu,N< size_Ie_Ii3sze_J3 < si }xport_to(msult da_incr_ , c* ae<,noucke:t_v &nouck3_* ae #ce_e_oenhosvd clash)3 > >avoECLASoucke:t_}xporte _2.2enhosvd clash)STRINGz,mI3 is nu,N< size_Ie_I< siIe_J2,N< size_J3 > >avo*,}xport_to(msult da_incr_ , c* ae<,noucke:t_v &nouck3_* aebegin( _M it_TEMPse2 ( ne ragdt;:it !=l t_TEMirtoit ) 0;oi3tal_a.push_back( pze_J3_ice,r_ ,( *it) ;M }e)eIu2_= *NI_NI2,NI3 u2_NIPsbegin( _M u2_NI_TEMPse2 ( ne ragdt;:u2_NIP!= u2_NI_TEMirtou2_NIP) 0;oi3tal_a.push_back(pze_J3_ice,r_ ,(*u2_NI) ;M }e)eIut_2 *NI_NI2,NI3 e u3_NIPsbegin( _M u3_NI_TEMPse2 ( ne ragdt;:u3_NIP!= u3_NI_TEMirtou3_NIP) 0;oi3tal_a.push_back(pze_J3_ice,r_ ,( *u3_NI) ;M }e)eIts_2 re_NI2,NI3 < sI_2 ren= 2 re.begin( _M it_2 re_TEMPs<2 re.e2 ( ne ragdt;:it_2 ren!=l t_2 re_TEMirtoit_2 ren) 0;oi3tal_a.push_back(pze_J3_ice,r_ ,( *it_2 re) ;M }e)eIaer; )eu1;eIaer; )eu2;eIaer; )eu3;Mnds_.2el.2enhosvd clash)STRINGz< size_J2,N< size_J3 > >avo*,}xport_quant1; _to(msult da_incrunsignedtchar, c* ae >avo*,}xport_hot_quant1; _to(msult da_incrunsignedtchar, c* ae=}ic} e)eIa ae >avo*,}xport_ttm_quant1; _to(msult da_incrunsignedtchar, c* ae=}ic} e)eIa ae >avo }=// sizespaT /* FIXME: * *<-)T_internal */dllsizespaT noucke:t_v ; NN,N< ce_nqoucke:t_vmml::nqoucke:t_v ; NNM N,N< ce_nomml::tenRefaR_I1R3I1I}coefft>not_2 re_v ; NN,N< ce_nvN< size_ns_2 re_v *,NI2,NI3 ts_2 re_NI2,NI3 nN N,N< ce_nvN< size_ns_2 re_v *,2 *NI_NI2,NI3 ts_2 re_= *NI_NI2,NI3 nN M N,N< ce_nmatrixensor3R1I1I}coefft>nu1_v ; NN,N< ce_nvN< size_u1_v *,NI2,NI3 u1_NI2,NI3 nN N,N< ce_nvN< size_u1_v *,2 *NI_NI2,NI3 u1_= *NI_NI2,NI3 nN M N,N< ce_nmatrixens2faR_I1I}coefft>nu2_v ; NN,N< ce_nvN< size_u2_v *,NI2,NI3 u2_NI2,NI3 nN N,N< ce_nvN< size_u2_v *,2 *NI_NI2,NI3 u2_= *NI_NI2,NI3 nN M N,N< ce_nmatrixens3I1R3I1I}coefft>nut_v ; NN,N< ce_nvN< size_u3_v *,NI2,NI3 u3_NI2,NI3 nN N,N< ce_nvN< size_u3_v *,2 *NI_NI2,NI3 ut_2 *NI_NI2,NI3 ; NNM N,N< ce_nmatrixenR1faR_I1I}coefft>nxI2,NI2 re_s NT _v ;=//fwd: ragward cylcli mi(afte ekierseet al., 2000) M N,N< ce_nomml::tenRefaR_I1R3I1charns_ns_2 re_signs_v ; NNM N,mI3 is nu,N< size_Ie_Ii3sze_J3 < si import_newm(J1,NJ2,sult da_incr_ , c* ae<,noucke:t_v &nouck3_* ae #ce_e_oenhosvd clash)3 > >avoECLASoucke:t_importe _.2 nenhosvd clash)STRINGzomI3 is nu,N< size_Ie_I< siIe_J2,N< size_J3 > >avo*,import_newm(J1,NJ2,sult da_incr_ , c* ae<,noucke:t_v &nouck3_* aebegin( _M it_TEMPse2 ( ne ragdt;:it !=l t_TEMirtoi3,ritnt) 0;o33*it0k(pze_J3_ice,r_ ,3_* ae=}a)] ;M }e) _M u2_NI2,NI3 u2_NIPsbegin( _M u2_NI_TEMPse2 ( ne ragdt;:u2_NIP!= u2_NI_TEMirtou2_i3,ritnt) 0;o3 u2_NIPk(pze_J3_ice,r_ ,3_* ae=}a)] ;M }e) u3_NI2,NI3 e u3_NIPsbegin( _M u3_NI_TEMPse2 ( ne ragdt;:u3_NIP!= u3_NI_TEMirtou3_i3,ritnt) 0;o3 3u2_NIPk(pze_J3_ice,r_ ,3_* ae=}a)] ;M }e)eIts_2 re_NI2,NI3 < sI_2 ren= 2 re.begin( _M it_2 re_TEMPs<2 re.e2 ( ne ragdt;:it_2 ren!=l t_2 re_TEMirtoit_2 i3,ritnt) 0;o33*sI_2 renk(pze_J3_ice,r_ ,3_* ae=}a)] ;M }e)esouck3_* aes.ounau1( *u1t);Msouck3_* aes.ounau2( *u2t);Msouck3_* aes.ounau3( *u3t);Msouck3_* aes.ouna2 re( 2 ren); N Nouck3_* ae<.tcet_2 e,_members( ; oiaer; )eu1;eIaer; )eu2;eIaer; )eu3;Mndl.2enhosvd clash)STRINGz< size_J2,N< size_J3 > >avoi import_quant1; _newm(J1,NJ2,sult da_incrunsignedtchar, c* ae >avoi import_hot_quant1; _newm(J1,NJ2,sult da_incrunsignedtchar, c* ae=}ic} e)esouck3_* aes.ounau1( *u1t);Msouck3_* aes.ounau2( *u2t);Msouck3_* aes.ounau3( *u3t);Msouck3_* aes.ouna2 re( 2 ren);Msouck3_* aes.ouna2 re_signs(isignsn); de//quant1; Pvucke:tPt eaonenIs (u1-u3taEMP2 re)Msouck3_* aede//quant1; bas< _matrices( uamin, uam,s( uamin, uam,s( uamin, uam u3t);Msouck3_* aede//quant1; 2 re( 2 re_min, 2 re_maxn) ;e)aer; )[] tal_;oiaer; )eu1;eIaer; )eu2;eIaer; )eu3;Mnds_.2enhosvd clash)STRINGz< size_J2,N< size_J3 > >avoi import_ttm_quant1; _newm(J1,NJ2,sult da_incrunsignedtchar, c* ae=}ic} ///*sze(*kron_pr(_d)ggn: 2 re_sig))2 result (/ } ///*sze(*kron_pr_ (2 re: 2 r( 2 r)2 result (/ } }e)aer; )[] tal_;oiesouck3_* aes.ounau1( *u1t);Msouck3_* aes.ounau2( *u2t);Msouck3_* aes.ounau3( *u3t);Msouck3_* aes.ouna2 re( 2 ren);Msouck3_* aes.ouna2 re_signs(isignsn); de//quant1; Pvucke:tPt eaonenIs (u1-u3taEMP2 re)Msouck3_* aede//quant1; bas< _matrices( uamin, uam,s( uamin, uam,s( uamin, uam u3t);Msouck3_* aede//quant1; 2 re( 2 re_min, 2 re_maxn) ;e)aer; )eu1;eIaer; )eu2;eIaer; )eu 3;Mnds_#unce_nenhosvd clash)STRINGz#unce_nenhosvd clash)3 > >avo }=// sizespaT sizespaT noucke:t_v ; 3,N< ce_Nnhooi::nohooiT > ; N N,N< ce_nomml::tI1sor3_ifarato }n ifft>not_v ; 3,N< ce_nomml::tenRefaR_I1R3I1I}coefft>not_2 re_v ; N,N< ce_nmatrixensor3R1I1I}coefft>nu1_v ; N,N< ce_nmatrixens2faR_I1I}coefft>nu2_v ; N,N< ce_nmatrixens3I1R3I1I}coefft>nut_v ; N N,N< ce_nomml::tI1sor3_ifaratoT_internaft>not_mpot_v ; 3,N< ce_nomml::tenRefaR_I1R3I1T_internaft>not_2 re_mpot_v ; 3,N< ce_nmatrixensor3R1I1T_internaft u1_mpot_v ; 3,N< ce_nmatrixens2faR_I1T_internaft 2u1_mpot_v ; 3,N< ce_nmatrixe3R_I1R3I1T_internaftunot_mpot_v ;; Ni3sze_J(J1,NJ21,N< s<.SIZ_ nR1*R2*R30InR1*Ia I*R2*I2rI3R2* ;; N_noucke:t_vmml(3t);Msoucke:t_vmml(t>not_2 re_v &e( 2 ren);Msoucke:t_vmml(t>not_2 re_v &e( 2 ,t>nu1_v & U1,t>nu2_v & U2,t>nut_v & U3ren);Msoucke:t_vmml(t(J1,NJ2nut_v & 3_* a,t>nu1_v & U1,t>nu2_v & U2,t>nut_v & U3ren);Msoucke:t_vmml(t(J1,NJ2qoucke:t_v _dthren);~_noucke:t_vmml(3t); NN Nv ss.ouna2 re>not_2 re_v &e( 2 re { sI_2 ren>not_2 re_v re( 2 ren ot_2 re_mpe<.tce _newm(J2 ren } ;); Nv ss.ounau1>nu1_v & U1r/ * s}u1tU)R _ u1_mp-><.tce _newmU1ren } ;); Nv ss.ounau2>nu2_v & U2r/ * sir2rU2R _ 2u1_mp-><.tce _newmU2ren } ;); Nv ss.ounau3>nut_v & U3re * siretU3R _ 3u1_mp-><.tce _newmU3ren } ;); ; Nns_2 re_v <.ouna2 r_t sres TEre3 iuna2 n } ; }=biztareful: _ncrterk//1,!); Nv sg.ouna2 re>not_2 re_v &e3_* ae_t sres 3_* ae=iuna2 n } ;); Nv sg.ounau1>nu1_v & U1r/ sres U}u1t* s}n } ;); Nv sg.ounau2>nu2_v & U2r/ sres U2u1t* s2n } ;); Nv sg.ounau3>nut_v & U3re sres U3u1t* s3n } ;); NN Nv ss.ouna2 u1_mp(t>not_2 re_mpot_v &e( 2 re { sI_2 }t_2 mp >not_2 re_mpot_v re( 2 ren ot_2 e<.tce _newmsI_2 }t_2 men } ;); Nv ss.ounau1_mp(t u1_mpot_v & U1r/ * s}}t_2 mp U)R _ -><.tce _newmU1ren } ;); Nv ss.ounau1_mp(t 2u1_mpot_v & U2r/ * si}t_2 mp U2R _ 2-><.tce _newmU2ren } ;); Nv ss.ounau1_mp(t 3u1_mpot_v & U3re * si}t_2 mp U3R _ 3-><.tce _newmU3ren } ;)); Nv sg.ouna2 u1_mp(t>not_2 re_mpot_v &e3_* ae_t sres 3_* ae=iuna2 }t_2 m } ;); Nv sg.ounau1_mp(t u1_mpot_v & U1r/ sres U}u1t* s}}t_2 m } ;); Nv sg.ounau1_mp(t 2u1_mpot_v & U2r/ sres U2u1t* s2}t_2 m } ;); Nv sg.ounau1_mp(t 3u1_mpot_v & U3re sres U3u1t* s3}t_2 m } ;);sd Iig.o numembIofanons zeson3ragPvmml detPt esitrsireM p1; nnzr_t sres;reM p1; nnzr sres to }n i&ag resholdre sresa c:M p1; nnzuna2 r_t sres;reM p1; snt1; 2 r_t sres;reM p1; snt1r_t sres TEre3 i<.SIn } ;); ; Nv sg reshold; 2 re( 1,NJ21,N< & nnzuna2 _,J21,N< & nnzuna2 _isae ; Nv sdetPt ese(t(J1,NJ2nut_v & 3_* a,te_init init 3t); Nc: S Nv st s_rand(t(J1,NJ2nut_v & 3_* aaxn) ; n omI3 is c,N< size_init> ; Nv s_nouck_t s(t(J1,NJ2nut_v & 3_* a,te_init init axn) ;n omI3 is c,N< size_init> ; Nv so _n_block_diag_t s(t(J1,NJ2nut_v & 3_* a,te_init init axn) ; ;{e n omI3 is M p1; KzIefate< sKzI_I1,N< sK3> ; Nv se duce_ranks(t(J1,NJ2qoucke:t_vmml::KzIeKzI_K1R3I1sor3_ifarato }n itn,_I}coeff _dthren1 =/all TuckJI.e duce_ranks( TuckKI):Kz ->or3R1K2 ->orzI_K1 ->or3 e n omI3 is M p1; KzIefate< sKzI_I1,N< sK3> ; Nv ssubsaomI_si(t(J1,NJ2qoucke:t_vmml::enRefaR_I1R3KzIeKzI_K1R3to }n itn,_I}coeff _dth,e( 1,NJ21,N< & fada_iunsn); n omI3 is M p1; KzIefate< sKzI_I1,N< sK3> ; Nv ssubsaomI_si_on_average(t(J1,NJ2qoucke:t_vmml::enRefaR_I1R3KzIeKzI_K1R3to }n itn,_I}coeff _dth,e( 1,NJ21,N< & fada_iunsn); n omI3 is M p1; KzIefate< sKzI_I1,N< sK3> ; Nv sregrsi_of1T_intest(t(J1,NJ2qoucke:t_vmml::enRefaR_I1R3KzIeKzI_K1R3to }n itn,_I}coeff _dth,e ; CLAS ATECLLLLLLLLLLLLLLLLLLLLLL( 1,NJ21,N< & uNItix>Nnd1,e( 1,NJ21,N< & ++TEx>Nnd1,e ; CLAS ATECLLLLLLLLLLLLLLLLLLLLLL( 1,NJ21,N< & uNItix>Nnd2,e( 1,NJ21,N< & ++TEx>Nnd2,e ; CLAS ATECLLLLLLLLLLLLLLLLLLLLLL( 1,NJ21,N< & uNItix>Nnd3,e( 1,NJ21,N< & ++TEx>Nnd3sn); frie_TEresuloes_eam & );p r)2 (Eresuloes_eam &s,t(J1,NJ2qoucke:t_v &3tnt) 0;o Nns_2 re_v 2 r &3e<.ouna2 re( 2 ren);N u1_v * u1t= nu1_v &3e<.ounau1( *u1t);; Nu2_v * u2t= nu2_v &3e<.ounau2( *u2t);; Nu3_v * u3t= nut_v &3e<.ounau3( *u3t); ;{og))2 "U1re: 2 result (/ 2 ( *u 2 result (/ ;{)2 "U2re: 2 result (/ 2 ( 2u 2 result (/ ;{)2 "U3re: 2 result (/ 2 ( 3u 2 result (/ ;{)2 " (2 re: 2 result (/ 2 ( 2 r)2 result (/ } ;{e)aer; )eu1;;eIaer; )eu2;;eIaer; )eu3;oi3ul3 ios ;M } ); Nc: Sc: S Nv s<.tce,_members( c: Sc: S Nv s<.tcet_2 e,_members( IMI protected: 2qoucke:t_v ol );p (t(J1,NJ2qoucke:t_v _dthre TEre3 i(*t+ men } } priv3 i: c: Sc: // Nns_2 re_v * sI_2 r( c: Sc: S u1_v s}u( c: Sc: S 2u1_v s2u( c: Sc: S 3u1_v s3 ;);s Nns_2 re_v sI_2 r( ;M 3Ms3//udks onlT_internonl_ f3 mputr;atinIto haveaaIe hithrpe riersi c: Sc: S>not_2 re_mpot_v msI_2 }t_2 m( c: Sc: S ue_mpot_v * _ u1_mpu( c: Sc: S 2ue_mpot_v * _ 2u1_mpu( c: Sc: S 3ue_mpot_v * _ 3u1_mpu( ;M ice = I class oucke:tPvmml: d #ce_e_oenhosvd clash)STRING ATECLASomI3 is nuace vmmRefate< sizR_I1,N< sizR3I1,N< sizIefate< sizI_I1,N< sizI, c,N< size_I}n itn c,N< size_I}coefft> #ce_e_oenhosvd clash)3 > >avoECLASoucke:t_vmml:: >avoMsoucke:t_vmml(tt J3ot_2 es ze(3t);_* u1t= nu1_v ()R _ ->s ze(3t);_* u2t= nu2_v ()R _ 2->s ze(3t);_* u3t= nut_v ()R _ 3->s ze(3t J3ot_2 re_mpes ze(3t);_* }t_2 mp = nue_mpot_v r)R _ u1_mp->s ze(3t);_* }t_2 mp = 2ue_mpot_v r)R _ 2u1_mp->s ze(3t);_*3}t_2 mp = 3ue_mpot_v r)R _ 3u1_mp->s ze(3t 3;Mnd.2enhosvd clash)STRINize_J2,N< size_J3 > >avoMsoucke:t_vmml(t>not_2 re_v &e( 2 re J3ot_2 0)es}2 t);_* u1t= nu1_v ()R _ ->s ze(3t);_* u2t= nu2_v ()R _ 2->s ze(3t);_* u3t= nut_v ()R _ 3->s ze(3t );_* }t_2 mp = nue_mpot_v r)R _ u1_mp->s ze(3t);_* }t_2 mp = 2ue_mpot_v r)R _ 2u1_mp->s ze(3t);_*3}t_2 mp = 3ue_mpot_v r)R _ 3u1_mp->s ze(3t 33ot_2 re_mpe<.tce _newm(J2 ren3;Md.2enhosvd clash)STRINize_J2,N< size_J3 > >avoMsoucke:t_vmml(t>not_2 re_v &e( 2 ,t>nu1_v & U1,t>nu2_v & U2,t>nut_v & U3re J3ot_2 0)es}2 t);_* u1t= nu1_v (mU1ren);_* u2t= nu2_v (mU2ren);_* u3t= nut_v ( U3ren);_* }t_2 mp = nue_mpot_v r)R );_* }t_2 mp = 2ue_mpot_v r)R );_*3}t_2 mp = 3ue_mpot_v r)R 33<.tcet_2 e,_members( ;Md.2enhosvd clash)STRINize_J2,N< size_J3 > >avoMsoucke:t_vmml(t(J1,NJ2nut_v & 3_* a,t>nu1_v & U1,t>nu2_v & U2,t>nut_v & U3re J3o* u1t= nu1_v (mU1ren);_* u2t= nu2_v (mU2ren);_* u3t= nut_v ( U3ren);_* }t_2 mp = nue_mpot_v r)R );_* }t_2 mp = 2ue_mpot_v r)R );_*3}t_2 mp = 3ue_mpot_v r)R 33 ; NnhooiT > ::deriv1; 2 _orthogoern; bices 3_* a,t* s},t* s2,t* sara_( 2 ren); N<.tcet_2 e,_members( ;Mnd.2enhosvd clash)STRINize_J2,N< size_J3 > >avoMsoucke:t_vmml(t(J1,NJ2qoucke:t_v _dthre J3o* u1t= nu1_v (3t);_* u2t= nu2_v ()R);_* u3t= nut_v ()R);_* }t_2 mp = nue_mpot_v r)R );_* }t_2 mp = 2ue_mpot_v r)R );_*3}t_2 mp = 3ue_mpot_v r)R 33 ; _dthe<.ouna2 re_( 2 ren); _dthe<.ounau1(_ *u1t); _dthe<.oun2( * sir1t); _dthe<.oun3( * siren); N<.tcet_2 e,_members( ;Mndnds_.2enhosvd clash)STRINGz< size_J2,N< size_J3 > >avo<.tce,_members J3o* -><.tce _newm* s}}t_2 m3t);_* -><.tce _newm* s2}t_2 m3t);_*3-><.tce _newm* s3}t_2 m3t 33ot_2 e<.tce _newmsI_2 }t_2 s( ;Mnd.2enhosvd clash)STRINGz< size_J2,N< size_J3 > >avo<.tcet_2 e,_members J3o* _1_mp-><.tce _newm(_ *u1t);_ 2u1_mp-><.tce _newm* sir1t);_ 3u1_mp-><.tce _newm* siren 33ot_2 re_mpe<.tce _newmot_2 s( ;Mdnd.2enhosvd clash)STRINI1,N< size_J2,N< size_J3 > >avonnzuna2 r_t sres { 33TEre3 iuna2 re_mpennzr_( ;Md.2enhosvd clash)STRINI1,N< size_J2,N< size_J3 > >avosnt1; 2 r_t sres { 33TEre3 iuna2 re_mpe<.s1; ( ;Mnds_.2enhosvd clash)STRINize_J2,N< size_J3 > >avo~_noucke:t_vmml(re J3eIaer; _)eu1;eIaer; _)eu2;eIaer; s}u3;eIaer; _)e_t_2 mp;eIaer; _)e_t_2 mp;eIaer; _)3}t_2 m3;Mnds_.2enhosvd clash)STRINGz< Nize_J2,N< size_J3 > >avoe reres_uru(J2nut_v & 3_* ae< J3 3ue_mpot_v [] tal_;o tae<.tce _newm3_* aaxnJ3 3uttm::full:t_vmml3< _matx_multiple_r;atiwmsI_2 }t_2 ,m* s}}t_2 ,m* s2}t_2 ,m* s3}t_2 el3atalsn);eI //nvertse reres_uruudkM_tal_whichsis_inn c,N3I1T_interna(doutab,e_nflo)Ito to }n if(uT_i8 NI3 T_i16)2NM (agmad); of( }n i) == 1) ||agmad); of( }n i) == 2) ){0;oi3tal__nflo_ort__ T_i_t(l3atalsn);} else {0;oi3tal_<.tce _newm3_* lsn);}3;Mndl.2enhosvd clash)STRINGz< Nize_J2,N< size_J3 > >avog reshold; 2 re( 1,NJ21,N< & nnzuna2 _,J21,N< & nnzuna2 _isae< J3nnzuna2 _isae=iuna2 re_mpennzr_( ,_I}coefg resholdo }n irara.0000eu1;whil rennzuna2 _isae> nnzuna2 _e< {0;ouna2 re_mpeg reshold(fg resholdo }n ir3t); nnzuna2 _isae=iuna2 re_mpennzr_( M 3Ms3g resholdr }n irschem ieMM (ag resholdo }n ir=r5000 / si2 g resholdo }n ir+ar5 nab;} ;M }ot_2 e<.tce _newmsI_2 }t_2 s( ;M _l.2enhosvd clash)STRINGz< Nize_J2,N< size_J3 > >avog reshold; 2 re( 1,NJI1I}coe&ag resholdo }n i_,J21,N< & nnzuna2 _e< J3ot_2 re_mpeg reshold(fg resholdo }n iaaxnJ3nnzuna2 _e=iuna2 re_mpennzr_( ot_2 e<.tce _newmsI_2 }t_2 s( ;Mnd.2enhosvd clash)STRINGz< Nize_J2,N< size_J3 > >avot s_rand(t(J1,NJ2nut_v & 3_* aax J3 3,N< ce_Nnhooi:: ;_nouck_t s(t3_* a,t c,N< sizhooiT > ::init_randnew) s( ;Mnd.2enhosvd clash)STRINn omI3 is c,N< size_init> Gz< Nize_J2,N< size_J3 > >avodetPt ese(t(J1,NJ2nut_v & 3_* a,te_init init 3 J3 nouck_t s(t3_* a,tinit 3t);Mndl.2enhosvd clash)STRINn omI3 is c,N< size_init > Gz< Nize_J2,N< size_J3 > >avo_nouck_t s(t(J1,NJ2nut_v & 3_* a,te_init init < J3 3ue_mpot_v [] tal_;o tae<.tce _newm3_* aaxnJJ3 3,N< ce_Nnhooi:: ;hooiT > ::t s(t3_* ,m* s}}t_2 ,m* s2}t_2 ,m* s3}t_2 elsI_2 }t_2 ,minit 3t <.tce,_members( ;Mnd.2enhosvd clash)STRINn omI3 is c,N< size_init > Gz< Nize_J2,N< size_J3 > >avoo _n_block_diag_t s(t(J1,NJ2nut_v & 3_* a,te_init init < J3 3ue_mpot_v [] tal_;o tae<.tce _newm3_* aaxnJ3eI _ f3numembIofao _nem ntsel3oce alockIofagnouckks pace ;hooiT > ::t s(t3_* ,m* s}}t_2 ,m* s2}t_2 ,m* s3}t_2 elsI_2 }t_2 ,minit 3t <.tce,_members( ;Mdl.2enhosvd clash)STRINn omI3 is M p1; KzIefate< sKzI_I1,N< sK3> Gz< Nize_J2,N< size_J3 > >avoe duce_ranks(t(J1,NJ2qoucke:t_vmml::KzIeKzI_K1R3I1sor3_ifarato }n itn,_I}coeff _dthre // TuckJI.eank_e ruructi( TuckKI):Kz ->or3R1K2 ->orzI_K1 ->or3;3I1sor3_ifa uNyag ohe si JvoECLClasrt(R1 <=:Kzs( c: ScClasrt(R2 <=:K2s( c: ScClasrt(R3 <=:K3en 3LLLLLLLLLLLLL Sc: //e duce; Pbas< matric Sc: _nmatrixensoK3R1I1I}coeff * u1t= _nmatrixensoK3R1I1I}coeffrs( c: Sc _dthe<.ounau1(uzs( c: Sc xoldtd) < siraralablr/ f)R irtor/ c: Sc{3LLLLLLLLLLLLLo* ->s.ounalumnar1* ->g.ounalumna80 ))LLLLL} LLLLL Sc: _nmatrixens2K2R1I1I}coeff *2u1t= _nmatrixens2K2R1I1I}coeffrs( c: Sc _dthe<.ounau2( *u2t)c: Sc xoldtd) < sir2ralablr/ f)R ir++/ c: Sc{3LLLLLLLLLLLLLo*2->s.ounalumna2,t>2->g.ounalumna280 ))LLLLL} LLLLL Sc: _nmatrixe3I_K1R3toI}coeff *3u1t= _nmatrixe3I_K1R3toI}coeffrs( c: Sc _dthe<.ounau3( *u3t)c: Sc xoldtd) < siretalablr/ f)R to/ c: Sc{3LLLLLLLLLLLLLo*3->s.ounalumna3,Ps Gz< Nize_J2,N< size_J3 > >avosubsaomI_si(t(J1,NJ2qoucke:t_vmml::enRefaR_I1R3KzIeKzI_K1R3to }n itn,_I}coeff _dth,e( 1,NJ21,N< & fada_iu) JvoECLClasrt(I1 <=:Kzs( c: ScClasrt(I1 <=:K2s( c: ScClasrt(I1 <=:K3en 3LLLLL Sc: //subsaomIe; Pbas< matric Sc: _nmatrixKnsor3R1I1I}coeff * u1t= _nmatrixKnsor3R1I1I}coeffrs( c: Sc _dthe<.ounau1(uzu3t)c: Sc xoldtd) < iirara, size_i2ilr/ K1i2ilr+arfada_ii3,ritn c: Sc{3LLLLLLLLLLLLLo* ->s.ourow( ir1* ->g.ourow( i80 ))LLLLL} LLLLL Sc: _nmatrixKns2faR_I1I}coeff *2u1t= _nmatrixKns2faR_I1I}coeffrs( c: Sc _dthe<.ounau2( *u2t)c: Sc xoldtd) < i2rara, size_i2ilr/ K2i2ilr+arfada_ii3,ri/ c: Sc{3LLLLLLLLLLLLLo*2->s.ourow( ir1*2->g.ourow( i280 ))LLLLL} LLLLL Sc: _nmatrixKns3I1R3I1I}coeff *3u1t= _nmatrixKns3I1R3I1I}coeffw) ( c: Sc _dthe<.ounau3( *u3t)c: Sc xoldtd) < i3rara, size_i2ilr/ K3i2ilr+arfada_ii3,ri/ c: Sc{3LLLLLLLLLLLLLo*3->s.ourow( ir1*3->g.ourow( i380 ))LLLLL} LLLLL Sc: _dthe<.ouna2 re_( 2 ren);dN<.tcet_2 e,_members( ;oiaer; )eu1;eIaer; )eu2;eIaer; )eu3;MMd.2enhosvd clash)STRINn omI3 is M p1; KzIefate< sKzI_I1,N< sK3> Gz< Nize_J2,N< size_J3 > >avosubsaomI_si_on_average(t(J1,NJ2qoucke:t_vmml::enRefaR_I1R3KzIeKzI_K1R3to }n itn,_I}coeff _dth,e( 1,NJ21,N< & fada_iu) JvoECClasrt(I1 <=:Kzs( c: SClasrt(I1 <=:K2s( c: SClasrt(I1 <=:K3en 3LLLL3LLLL3LLLL//subsaomIe; Pbas< matric Sc:_nmatrixKnsor3R1I1I}coeff * u1t= _nmatrixKnsor3R1I1I}coeffrs( c: S _dthe<.ounau1(uzu3t)c: S xoldtd) < iirara, size_i2ilr/ K1i2ilr+arfada_ii3,ritn : Sc{3LLLLLLLLLLLLt da_incr3R1I1T_internaftt2 erow =1* ->g.ourow( i80;3LLLLLLLLLLLLI1T_internanumre_Nms_averagedelt= 3LLLLLLLLLLLL xoldtd) < jelti1+1i2(jr/ (fada_i+i1)) &2(jr/ Kzs(3,rji3,rnumre_Nms_averagede)3LLLLLLLLLLLLLcLLLLLLt2 erow +=1* ->g.ourow( jaxnJJc: SccLLLLLLt2 erow /=anumre_Nms_averaged 3LLLLLLLLLLLLo* ->s.ourow( ir1t2 erow0;3LLLL}3LLLL3LLLL_nmatrixKns2faR_I1I}coeff *2u1t= _nmatrixKns2faR_I1I}coeffrs( c: S _dthe<.ounau2( *u2t)c: S xoldtd) < i2rara, size_i2ilr/ K2i2ilr+arfada_ii3,ri/ c: S{3LLLLLLLLLLLLt da_incraR_I1T_internaftt2 erow =1*2->g.ourow( i280;3LLLLLLLLLLLLI1T_internanumre_Nms_averagedelt= 3LLLLLLLLLLLL xoldtd) < jelti2+1i2(jr/ (fada_i+i2)) &2(jr/ K2s(3,rji3,rnumre_Nms_averagede)3LLLLLLLLLLLLLcLLLLLLt2 erow +=1*2->g.ourow( jaxnJJc: SccLLLLLLt2 erow /=anumre_Nms_averaged 3LLLLLLLLLLLLo*2->s.ourow( ir1*2->g.ourow( i280 ))LLLL}3LLLL3LLLL_nmatrixKns3I1R3I1I}coeff *3uu1t= _nmatrixKns3I1R3I1I}coeffw)( c: S _dthe<.ounau3( *u3t)c: S xoldtd) < i3rara, size_i2ilr/ K3i2ilr+arfada_ii3,ri/ c: S{3LLLLLLLLLLLLt da_incr1R3I1T_internaft>2 erow =1*3->g.ourow( i380;3LLLLLLLLLLLLI1T_internanumre_Nms_averagedelt= 3LLLLLLLLLLLL xoldtd) < jelti3+1i2(jr/ (fada_i+i3)) &2(jr/ K3s(3,rji3,rnumre_Nms_averagede)3LLLLLLLLLLLLLcLLLLLLt2 erow +=1*3->g.ourow( jaxnJLLLLLcLLLLLLJc: SccLLLLLLt2 erow /=anumre_Nms_averaged 3LLLLLLLLLLLLo*3->s.ourow( ir1*3->g.ourow( i380 ))LLLL}3LLLL3; _dthe<.ouna2 re_( 2 ren);<.tcet_2 e,_members( ;oiaer; )eu1;eIaer; )eu2;eIaer; )eu3;MMddl.2enhosvd clash)STRINn omI3 is M p1; KzIefate< sKzI_I1,N< sK3> Gz< Nize_J2,N< size_J3 > >avoe grsi_of1T_intest(t(J1,NJ2qoucke:t_vmml::enRefaR_I1R3KzIeKzI_K1R3to }n itn,_I}coeff _dth,e ; CLAS ATECLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL( 1,NJ21,N< & uNItix>Nnd1,e( 1,NJ21,N< & ++TEx>Nnd1,e ; CLAS ATECLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL( 1,NJ21,N< & uNItix>Nnd2,e( 1,NJ21,N< & ++TEx>Nnd2,e ; CLAS ATECLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL( 1,NJ21,N< & uNItix>Nnd3,e( 1,NJ21,N< & ++TEx>Nnd3s JvoECClasrt(I1 <=:Kzs( c: SClasrt(I1 <=:K2s( c: SClasrt(I1 <=:K3en c: SClasrt(uNItix>Nnd1r/ ++TEx>Nnd1en c: SClasrt(uNItix>Nnd2r/ ++TEx>Nnd2en c: SClasrt(uNItix>Nnd3r/ ++TEx>Nnd3en c: SClasrt(++TEx>Nnd1r/ Kzs( c: SClasrt(++TEx>Nnd2r/ K2s( c: SClasrt(++TEx>Nnd3r/ K3s(3LLLL3LLLL//e grsi_of1T_intesIofa Pbas< matric Sc:_nmatrixKnsor3R1I1T_internaf * u1t= _nmatrixKnsor3R1I1T_internafrs( c: S _dthe<.ouna_1_mp(t(uzu3t)c: S xoldtd) < iiraruNItix>Nnd1,e size_i2ilr/ ++TEx>Nnd1EMirt1i3,ritn c: S{3LLLLLLLLLLLLo* _1_mp->s.ourow( ir1* ->g.ourow( i80 ))LLLL}3LLLL3LLLL_nmatrixKns2faR_I1T_internf *2u1t= _nmatrixKns2faR_I1T_internfrs( c: S _dthe<.ouna_1_mp(t(u*u2t)c: S xoldtd) < i2raruNItix>Nnd2,e size_i2ilr/ ++TEx>Nnd2EMirt2i3,ri/ c: S{3LLLLLLLLLLLL_ 2u1_mp->s.ourow( ir1*2->g.ourow( i280 ))LLLL}3 3LLLL_nmatrixKns3I1R3I1T_internaf *3uu1t= _nmatrixKns3I1R3I1T_internfrs( c: S _dthe<.oun3_1_mp(t(u*u3t)c: S xoldtd) < i3raruNItix>Nnd3,e size_i2ilr/ ++TEx>Nnd3EMirt3i3,ri/ c: S{3LLLLLLLLLLLL_ 3u1_mp->s.ourow( ir1*3->g.ourow( i380 ))LLLL}3LLLL3c: S _dthe<.ouna2 u1_mp(tuna2 u1_mplsn);eI /.tcet_2 e,_members( ;oiaer; )eu1;eIaer; )eu2;eIaer; )eu3;Mnds_.2enhosvd clash)STRINI1,N< size_J2,N< size_J3 > >avonnzr_t sres {reM p1; cou_inta_ nab);nnzr_( nnzr_( nnzr_( >avonnzr sres to }n i&ag resholdre sres {reM p1; cou_inta_ nab);nnzrag resholdre( nnzrag resholdre( nnzrag resholdre( >av }=// sizespaT > sizespaT >avoECL }nid;p e p>> N,mI3 is M p1; M, M p1; N, M p1; L, nu,N< size_Ieb toNize_J2,N< size_J3 > >avoos_ }nidr sres _nomml::tM, N, L, r_ , c* are JvoEC N,N< ce_u,N< siz_nomml::tM, N, L, r> *,2 *NI_NI2,NI *,2 *Nt u3_NI2,NI3 nb too }nidmp >ruet)c: S xol*,2 *Nt u3_NI2,NI eeit i3tal_e.begin;o }nidm&&t;:it !3_* ae<.e2 (Mirtotn : Sc{3LLLLLLLLM s* resulisnan(t(it 3 )3LLLLLLLLLLLL }nidmp false;3LLLLLLLLM s* resulisinf(t(it 3 )3LLLLLLLLLLLL }nidmp false;3LLLL;Mndsifunce_nenIB_THROW_EXCEPTIONS LLLLM s* !L }nidm)3LLLLLLLLASenhoIB_ERROR(t da_il*,2tains// n NI3inf.3 ",SenhoIB_HERE }//t 3LLLLTEre3 i }nidnab);3;Mnds_ N,mI3 is M p1; M, M p1; N, nu,N< size_Ieb toNize_J2,N< size_J3 > >avoos_ }nidr sres _nmatrixM, N, r_ , c* are JvoEC N,N< ce_u,N< siz_nmatrixM, N, r> *,2 *NI_NI2,NI *,2 *Nmu3_NI2,NI3 nJvoECb too }nidmp >ruet)c: S xol*,2 *Nmu3_NI2,NI eeit i3tal_e.begin;o }nidm&&t;:it !3_* ae<.e2 (Mirtotn : Sc{3LLLLLLLLM s* resulisnan(t(it 3 )3LLLLLLLLLLLL }nidmp false;3LLLLLLLLM s* resulisinf(t(it 3 )3LLLLLLLLLLLL }nidmp false;3LLLL;Mndsifunce_nenIB_THROW_EXCEPTIONS LLLLM s* !L }nidm)3LLLLLLLLASenhoIB_ERROR(_nmatr *,2tains// n NI3inf.3 ",SenhoIB_HERE }//t 3LLLLTEre3 i }nidnab)}>> N,mI3 is M p1; M, nu,N< size_Ieb toNize_J2,N< size_J3 > >avoos_ }nidr sres t da_incM, r_ , c* are JvoEC N,N< ce_u,N< sizt da_incM, r> *,2 *NI_NI2,NI *,2 *Nvu3_NI2,NI3 nb too }nidmp >ruet)c: S xol*,2 *Nvu3_NI2,NI eeit i3tal_e.begin;o }nidm&&t;:it !3_* ae<.e2 (Mirtotn : Sc{3LLLLLLLLM s* resulisnan(t(it 3 )3LLLLLLLLLLLL }nidmp false;3LLLLLLLLM s* resulisinf(t(it 3 )3LLLLLLLLLLLL }nidmp false;3LLLL;Mndsifunce_nenIB_THROW_EXCEPTIONS LLLLM s* !L }nidm)3LLLLLLLLASenhoIB_ERROR(t da_il*,2tains// n NI3inf.3 ",SenhoIB_HERE }//t 3LLLLTEre3 i }nidnab)}>>Gz#unce_nenhosvd clash)3 > >av }=// sizespaT lT_ncludeioes_eam>> lT_ncludeiomanihpp lT_nclude da_ipp lT_ncludees_ingpp lT_ncludeces_ingpp lT_ncludelimitspp lT_ncludealgorithmpp> sizespaT N,mI3 is M p1; M, nu,N< size_ntalflo_IeI clas da_i M{epuppiJvoEC N,N< ceT }n ia > ;_N,N< ceT* poi_int( ;_N,N< ceT& reference;3LLLL_N,N< ceT* 3_NI2,NI3 LLLL_N,N< ce sres t* *,2 *NI_NI2,NI3 LLLL_N,N< ceresulrevers re_NI2,NI< 3_NI2,NI > revers re_NI2,NI3 LLLL_N,N< ceresulrevers re_NI2,NI< *,2 *NI_NI2,NI > *,2 *Nrevers re_NI2,NI3 LLLL LLLLi3sze_J(J1,NJ21,N< sDIMENSION_ntMnJJc: S}=/e_NI2,NIc Sc:inline 3_NI2,NI e.begin; Sc:inline 3_NI2,NI e.e2 ( Sc:inline *,2 *NI_NI2,NI e.begint sres;r Sc:inline *,2 *NI_NI2,NI e.e2 t sres;r Sc:inline revers re_NI2,NI re.begin; Sc:inline revers re_NI2,NI re.e2 ( Sc:inline *,2 *Nrevers re_NI2,NI re.begint sres;r Sc:inline *,2 *Nrevers re_NI2,NI re.e2 t sres;r Sc:r Sc:dlT_nnce,SenhoINO_CONVERSION_OPERATNSSJc: S}=///nverersiol );p c Sc:inline & );p rT*2 ( Sc:inline & );p r sres t*2 t sres;r Sc:#else Sc:inline T & );p []oldtd) < i>Nnd ( Sc:inline *,2 * T & );p []oldtd) < i>Nnd t sres;r Sc:#e }//t Sc:r Sc:}=/accesmmls Sc:inline T & );p ()oldtd) < i>Nnd ( Sc:inline *,2 * T & );p ()oldtd) < i>Nnd t sres;r Sc:#M s0 Sc:inline T & );p []oldtd) < i>Nnd ( Sc:inline *,2 * T & );p []oldtd) < i>Nnd t sres;r Sc:#e }//t Sc:r Sc:inline T s.adtd) < i>Nnd ( Sc:inline *,2 * T s.adtd) < i>Nnd t sres;rr Sc:}=/elem nt/accesmmls _ f3M <=:4;r Sc:inline T x2 ( Sc:inline T y2 ( Sc:inline T z2 ( Sc:inline T w2 ( Sc:inline *,2 * T x2 t sres;r Sc:inline *,2 * T y2 t sres;r Sc:inline *,2 * T z2 t sres;r Sc:inline *,2 * T w( t sres;rr Sc:}=/pixena, lNI elem nt/accesmmls _ f3M<=:4 Sc:inline T r2 ( Sc:inline T g2 ( Sc:inline T b2 ( Sc:inline T a2 ( Sc:inline *,2 * T r2 t sres;r Sc:inline *,2 * T g2 t sres;r Sc:inline *,2 * T b2 t sres;r Sc:inline *,2 * T a( t sres;rr Sc:b tool );p =r sres t da_i _dthre sres;r Sc:b tool );p !=r sres t da_i _dthre sres;r Sc:b tooe//q s(t(J1,NJt da_i _dth,e ; CLAS ATECLLLLLLT tol );n,N 1 resulnumeric_limits< r_ ::epsiloginte sres;r Sc:b tool );p s pachomogeneousocoordinrterk<->/ dncM-1r>///nverersiocp r Sc:}=/to-homogenous-coordinrterkcp r Sc:_ omI3 is M p1; N_IeLLLLt da_i( *,2 * t da_incN, r_ ,sourcia, ; CLAS A c,N< siz<. siblif< N_=ntM - 1_ ::t_v *a_ e);rr Sc:}=/ _ne-homogenous-coordinrterkcp r Sc:_ omI3 is M p1; N_IeLLLLt da_i( *,2 * t da_incN, r_ ,sourcia, ; CLAS A c,N< siz<. siblif< N_=ntM + 1_ ::t_v *a_ ee);rr Sc:_ omI3 is c,N< sizU_IeLLLL da_i( *,2 * t da_incM, Uff sourciaaxnJ; CLeLLLL Nv ss.o(tT aren1 =EMPts all tPt eaonenIto a; Sc:tNv ss.o(t*,2 * t da_incM-1, r_ ,t,tT arenrr Sc:}=/MPts g ohylfirJfew tPt eaonenIto a certain en ieLLLL Nv ss.o(tT x,tT yre;r Sc: Nv ss.o(tT x,tT y,tT zre;;eLLLL Nv ss.o(tT x,tT y,tT z,tT wrent Sc:r Sc:_ omI3 is c,N< sizinpu*NI_NI2,NI_t_IeLLLL Nv sI_NI_s.o(tinpu*NI_NI2,NI_t_e.bega,tinpu*NI_NI2,NI_t_++TE );rr Sc:}=/rempute g ohcrossIproduruIofagwo t da_isr Sc:}=/note: g ore'set soEa/ _eohyunructi:r Sc:}=/ da_in>hcross(t*,2 * t da_in>,t*,2 * t da_in> )rr Sc:}=/resuleit t d1.cross(tt d+r/ =>/ner en/resuleit t d1 xtt d+r Sc:_ omI3 is c,N< sizTT_IeLLLLinline t da_il*ross(t*,2 * t da_incM, rr_ ,rhs,e ; CLAS A c,N< siz<. siblif< M_=nt3, rr_ ::t_v *a_ e)t sres;rr Sc:}=/resule.cross(tt d1, t d+r/ =>/(t+ meit t d1 xtt d+r Sc:_ omI3 is c,N< sizTT_IeLLLL Nv s,t*,2 * t da_in> )( Sc:inline Thdot(t*,2 * t da_i _dthre sres;rer Sc:}=/normal p1 g oh da_i Sc:}=/note: g ore'set soEa/ _eohyunructi:r Sc:}=/ da_in>hnormal p1(t*,2 * t da_in> )( Sc:inline Thnormal p1(sn);eI MPts all _nmatr en ites pacrandne3 en itns//e m membIto MPtmsrand(tseedre( //iftseedris MPtmto -1, srand(tseedre was MPtmoutsidess.ourandne // _dthwisitsrand(tseedre will biztalltdes pacg ohgiveneseed); Nv ss.ourandnewlT_itseedr= -1re;; Ct 3LLLLinline Thl ngth2 t sres;r Sc:inline T squar d_l ngth2 t sres;r Sc: Sc:inline Thdist;n,N(t*,2 * t da_i _dth_t da_ia t sres;r Sc:inline T squar d_dist;n,N(t*,2 * t da_i _dth_t da_ia t sres;r Sc:r Sc:_ omI3 is c,N< sizTT_IeLLLL da_inc3, r_ rot3 i(t(J1,NJT _dt* ,mt da_incM, rr_ axis, ; CLAS AAAAAAAAAAAAAAAAAAAA c,N< siz<. siblif< M_=nt3, rr_ ::t_v *a_ e)t sres;rr Sc:}=/right hn3aEMys_ o, CCW matangler Sc:}=/(*t+ meu1t=ormalIofav0,v1,v2eLLLL Nv s= N_I::t_v *a_ e)nt r Sc:_ omI3 is M p1; N_IeLLLLt da_incN, r_ ,<.ousub_ da_i( 21,N< IoffMPtmara, )AAAAAAAA c,N< siz<. siblif< M_>= N_I::t_v *a_ e)ntr Sc:_ omI3 is M p1; N_IeLLLL*,2 * t da_incN, r_ ,<.ousub_ da_i( 21,N< IoffMPtmara, )AAAAAAAA c,N< siz<. siblif< M_>= N_I::t_v *a_ e)t sres;r Sc:r }=/Mp orehyunructis - Mp orehlayout: ce_intaxyz,tradiusowr Sc:_ omI3 is c,N< sizTT_Ie inline t da_inc3, r_ proj da_poi_i_onto_Mp ore( )AAAAAAAA*,2 * t da_inc3, rr_ ,poi_i,e ; CLAS A c,N< siz<. siblif< M_=nt4, rr_ ::t_v *a_ e)t sres;r; CLAS Ar }=/nere3 sSa neg3 ivehdist;n,NLM sg ohpoi_i lies_inn ohep orer Sc:_ omI3 is c,N< sizTT_Ie inline Thdist;n,N_to_Mp ore( *,2 * t da_inc3, rr_ ,poi_i,e ; CLAS A c,N< siz<. siblif< M_=nt4, rr_ ::t_v *a_ e)t sres;rr }=/mI3nehyunructis - mI3nehlayout;t=ormalIxyz,tdist;n,NLwr Sc:_ omI3 is c,N< sizTT_Ie inline Thdist;n,N_to_mI3ne( *,2 * t da_inc3, rr_ ,poi_i,e ; CLAS A c,N< siz<. siblif< M_=nt4, rr_ ::t_v *a_ e)t sres;r Sc:r Sc:_ omI3 is c,N< sizTT_IeLLLLinline t da_inc3, r_ proj da_poi_i_onto_mI3ne( )AAAAAAAA*,2 * t da_inc3, rr_ ,poi_i,e ; CLAS A c,N< siz<. siblif< M_=nt4, rr_ ::t_v *a_ e)t sres;r; CLr Sc:}=/nere3 sS ohi>Nnd ofag ohminimen/resp. _nximen/ }n irinn oh da_i Sc:21,N< IIIIIIfi>Nre_mEx>Nnd2 t sres;r Sc:21,N< IIIIIIfi>NreaxEx>Nnd2 t sres;rr Sc:}=/nere3 sS ohi>Nnd ofag ohminimen/resp. _nximen/ }n irinn oh da_i Sc:21,N< IIIIIIfi>Nrabsre_mEx>Nnd2 t sres;r Sc:21,N< IIIIIIfi>NrabsreaxEx>Nnd2 t sres;rr Sc:}=/nere3 sSminimen/resp. _nximen/ }n irinn oh da_i Sc:T& fi>Nre_m2 ( Sc:T& fi>Nreax2 ( Sc:*,2 * T fi>Nre_m2 t sres;r Sc:*,2 * T fi>Nreax2 t sres;r Sc: Sc: Nv s move sto I clas }nid;p e Sc: Sc:frie_TEresuloes_eam & );p )2 (Eresuloes_eam &s,t(J1,NJt da_i v da_ia Sc:{dsifunceEQFABRIC_API_H)AAAAAAAA*,2 * resulios::fmtflags flags = &s.flagsrs( c: Sc: S*,2 * i_i pe r = &s.pe riersi();rr Sc:::::&s.MPtf( resulios::right, resulios::adjustfieldre( Sc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "( Sc::::: xoldtd) < i>Nnd ze_i2i>Nnd ncM(Mirt>Nnd ; CLAS AAAAA&s))2 resulMPtw(10)))2 v da_ians.ai>Nnd t)2 " "( Sc:::::&s))2 "]"( Sc:::::&s.pe riersi( pe r e( Sc:::::&s.MPtf( flags E lse Sc:::::&s))2 "("( Sc:::::dtd) < i>Nnd ze_i Sc::::: xoli2i>Nnd ncM - 1(Mirt>Nnd ; CLAS A{ ; CLAS AAAAA&s))2 v da_ians.ai>Nnd t)2 ", "( Sc:::::} AS AAAAA&s))2 v da_ians.ai>Nnd t)2 ") "( #e }//t Sc:::::i3ul3 ios ::::} AS AAAAA rr }=/sa_iage ,SenhoIALIGN(tT array[cM ] );rr Sc:}=/Veda_i3 uncaulesr Sc:i3sze_J(J1,NJ da_ilFORWARD;r Sc:i3sze_J(J1,NJ da_ilBACKWARD;r Sc:i3sze_J(J1,NJ da_ilUP;r Sc:i3sze_J(J1,NJ da_ilDOWN;r Sc:i3sze_J(J1,NJ da_ilLEFT;r Sc:i3sze_J(J1,NJ da_ilRIGHT;rr Sc:i3sze_J(J1,NJ da_ilONE;r Sc:i3sze_J(J1,NJ da_ilZERO;r; CLr Sc:}=/Unit t da_isr Sc:i3sze_J(J1,NJ da_ilUNIT_X;r Sc:i3sze_J(J1,NJ da_ilUNIT_Y;r Sc:i3sze_J(J1,NJ da_ilUNIT_Z;rrice = I clas da_i // }=/tN,N< cson3aEi3sze_s // dlT_nnce,SenhoINO_TYPEDEFS _N,N< cet da_inc2,talflo_ILLt d2f; _N,N< cet da_inc2,tooutabl>/ d2d; _N,N< cet da_inc3,talflo_ILLt d3f; _N,N< cet da_inc3,tooutabl>/ d3d; _N,N< cet da_inc4,talflo_ILLt d4f; _N,N< cet da_inc4,tooutabl>/ d4d( #e }//t> N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::FORWARD(30, 0, -1re;> N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::BACKWARD(30, 0, 1re;> N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::UP(30, 1, e)nt N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::DOWN( 0, -1, e)nt N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::LEFT( -1, , e)nt N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::RIGHT( 1, , e)nt N,mI3 is M p1; M, nu,N< size_Iee(J2 * t da_incM, rl>/ da_incM, rl>::ONE(Ei3sze__<.tc< r_ ( 80 )) N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::ZERO(Ei3sze__<.tc< r_ ( 080 )) N,mI3 is M p1; M, nu,N< size_Iee(J2 * t da_incM, rl>/ da_incM, rl>::UNIT_X( 1, , e)nt N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::UNIT_Y(30, 1, e)nt N,mI3 is M p1; M, nu,N< size_Ie(J2 * t da_incM, rl>/ da_incM, rl>::UNIT_Z(30, 0, 1re;> // }=/ sosiz _eohyunructisl_ f3 nvenience // N,mI3 is M p1; M, nu,N< size_Ieb tooe//q s(t(J1,NJt da_incM, r_ ,a,t*,2 * t da_incM, r_ ,bre JvoECi3ul3 ia.e//q s(tbren3;Md }=/allowstalflo_* veda_ii3notrs onl da_il*talflo_ N,mI3 is M p1; M, nu,N< size_Iei3sze_Jt da_incM, r_ );p * (tT fada_ii3*,2 * t da_incM, r_ ,v da_ia JvoECi3ul3 iv da_ia * fada_in3;Md N,mI3 is M p1; M, nu,N< size_Ieinline T dot(t*,2 * t da_incM, r_ ,ylfiri3*,2 * t da_incM, r_ ,s rerdre JvoECi3ul3 iylfir.dot(ts rerdren3;Md N,mI3 is M p1; M, nu,N< size_Ieinline t da_incM, r_ / (,v da_ia ;r Sc: .normal p1(sn)voECi3ul3 ivn3;Md N,mI3 is M p1; M, nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _a JvoEC xol3_NI2,NI eeit e.begin, ee_e_TE= e.e2 (t;:it !ee_e_T(Mirtotn : Sc{3LLLLLLLL*eeit _a ::::} ;MMdd N,mI3 is M p1; M, nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _x, *,2 * T _yu) JvoECCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3;Md N,mI3 is M p1; M, nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _x, *,2 * T _y, *,2 * T _zu) JvoECCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] t _z; ;MMdd N,mI3 is M p1; M, nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _x, *,2 * T _y, *,2 * T _z, *,2 * T _wu) JvoECCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] t _z; Sc:Crray[c3 ] t _R ] tt_Ie da_incM JvoECda_i( *memcpy(y[c0 ],ncM Jvo, io* to }n i3 ])r_ ,a,t*,2 * t da_inc3, r_ ,bre JvoEC,2 * T x, *,2 * T y, *,2 * T z, *,2 * T wrent Sc:r Sc:}=/initial pSc:Crray[c3 ] t _R ] tt_Ie daSc:Crray[e:t da_ia,t ohlairJ _ne:la,N< size_J3os_ }nidr sree:t da_da_incM, r_ , cI eeit e.i_in> )r2 v dincM, rl>:: da_i( )r2 v de rever CLAS size_Iemy_ da_incM, rer CLAS lse Sc _a JvoEC xoxoldmy_ d3_NI2,NI eeit e.(*my_ res;begs))2 v da_ia(*my_ res; _ne:CCrray[omogeneousocoordinrterk<->/ dncM-t*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA c,N< siz<.Sc:Crray[c3 ] t _R ] tt_Ie daSc:Crrayrkcp r Sc:_ omI1; N_IeLLLLt da_i( *,2 * t da_incN, r_ a,N< siz e)t sres;Sc:_ omn);<.tceCLAS A c,N< siz<. siblif< N_=ntM - 1t*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA c,N< siz<.Sc:Crray[c3 ] t _R ] tt_Ie daSc:Crrayrkcp r Sc:_ omI1; N_IeLLLLt da_i( *,2 * t da_incN, r_ a,N< siz e)t sres;Sc:_ omn);<.tt*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA siz<. siblifSc:Crray[c3 ] t _R ] tt_Ie daSc:Crray[);rr Sc:_ omI3 i,N< siz e)t sres;Sc:_ omn);<.tcc1 ] t _yn3 Sc:Crray[c2 ] t _z; S33otSc:Crray[c3 ] t s.o(tT s M p1; M, nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _a JvoEC xol3_NI2,NI eeit e.begin, ee_e_TE= e.e2 (t;:it !ee_e_T(Mirtotn : Sc{3LLLLL33otSc:Crray[c3 ] t s.o(tv ss.o(tT aren1 =EMPts all tPs M p1; M,memcpy(y[c0 ],nc.[c0 ],nto }n i3 ])o* (1 =) t da_ina_ia2 * )in, ee_;<.tcec1 ] t _yn3 Sc:Crray[c2 ] t _z; S33otSc:Crray[c3 ] t s.o(tT sx,tT u,N< size_Ie da_incM, rl>:: da_i( *,2 * T _x, *,2 * T _yu) JvoECCrray[c0 ] t _x;r 33otSc:Crray[c3 ] t s.o(tT sx,tT u,,tT uda_incM, rl>:: da_i( *,2 * T _x, *,2 * T _y, *,2 * T _zu) JvoECCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t s.o(tT sx,tT u,,tT ud,tT u: da_i( *,2 * T _x, *,2 * T _y, *,2 * T _z, *,2 * T _wu) JvoECCrray[c0 ] t _x;r Sc:C t da_incM, r_ ,v da_ia JvoECi3ul3 iv da_&tSc:Crray[c3 ] t inline T & );p ()oldtd)TNSEt*,2 * t_ians.ai>CCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 * T g2 tSc:Crray[c3 ] t inline T & );p ()oldtd) * T TNSEt*,2 * t_ians.ai>CCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 2 tSc:Crray[c3 ] t Sc:r Sc:inline T da_i( *s* resulisinf(SAFE_ACCESSre.e2 t }nidine T >* t 3_NI2,NI eeit e.sifunce_nenIB_TSc:) dac:21,N* t 3_NI2,NI eeit e.sifunce_nenIB_TSc:) dac:21,NCCrraIe(J2 * t da_incM, rl>/ da_incM, rl>::2 tSc:Crray[c3 ] t inline T & );p []oldtd)c Sc: < :i3sze_t*,2 * t_ians.ai>CCrraa_inc4,ta Sc:ina_incM, r_ ,v da_ia JvoECi3ul3 iv da_&tSc:Crray[c3 ] t inline T & );p []oldtd) {3sze_t*,2 * t_ians.ai>CCrraa[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 * T g2 tSc:Crray[c3 ] t inline T & );p []oldtd)c Sc: <3sze_t*,2 * t_ians.ai>CCrr_inc4,ta c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline T* is M p1; M, nu,N< sizeda_in>,t*,2 * t da_incM, r_ normal/ }n i;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< sizN= t_ians.ai>o* L_ 3u1t_ians.ai>CC)2 v da_iat*,2 * / }n i;;rray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline T/ is M p1; M, nu,N< sizeda_in>,t*,2 * t da_incM, r_ normal/ }n i;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< sizN= t_ians.ai>o/ L_ 3u1t_ians.ai>CC)2 v da_iat*,2 * / }n i;;rray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline T+ is M p1; M, nu,N< sizeda_in>,t*,2 * t da_incM, r_ normal/ }n i;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< sizN= t_ians.ai>o+ L_ 3u1t_ians.ai>CC)2 v da_iat*,2 * / }n i;;rray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline T- is M p1; M, nu,N< sizeda_in>,t*,2 * t da_incM, r_ normal/ }n i;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< sizN= t_ians.ai>o- L_ 3u1t_ians.ai>CC)2 v da_iat*,2 * / }n i;;rray[[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t L da_il );p -r sresnu,N< sizeda_in>,p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o*= L_ 3u1t_ians.ai>CC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t es;reLLLL Nv s );p * nu,N< sizeda_in>,p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o/= L_ 3u1t_ians.ai>CC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t es;reLLL s );p / (t(Jnu,N< sizeda_in>,p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o+= L_ 3u1t_ians.ai>CC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t es;reLLL Nv s );p + (nu,N< sizeda_in>,p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o-= L_ 3u1t_ians.ai>CC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline T* is M p1Teda_in>,t*,2 * t da_incM, r_ normal/ }n i;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< sizN= t_ians.ai>o* L_ 3uCC)2 v da_iat*,2 * / }n i;;rray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline T/ is M p1Teda_in>,t*,2 * t da_incM, r_ normal/ }n i;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< sizN= t_ians.ai>o/ L_ 3uCC)2 v da_iat*,2 * / }n i;;rray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline Tl );p /r sres T _dt t da_incM, r_ normal/ }n i;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< sizN= t_ians.ai>o+ L_ 3uCC)2 v da_iat*,2 * / }n i;;rray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline T- is M p1/r sres T _dt t da_incM, r_ normal/ }n i;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< sizN= t_ians.ai>o- L_ 3uCC)2 v da_iat*,2 * / }n i;;rray[[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t L da_il );p -rTeda_in>,p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o*= L_ 3uCC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t es;reLLLL Nv s )Teda_in>,p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o/= L_ 3uCC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t es;reLLLSc: Nv s );p / (p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o+= L_ 3uCC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t es;reLLL Nv s ); );p / (p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o-= L_ 3uCC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 Sc:Crray[c2 ] tSc:Crray[c3 ] t inline T- T _dt t da_incM, r_ normalv( e)t s a_ia JvoECt ._dthre;reLrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 s );p + (nu,N< siztSc:Crray[c3 ] t _dthre;rp1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.tc0 ] tc:21,N]N_totc0 ] tc:21,N]CC)2 v da_iat*,2 * e)t sCCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 2 tSc:Crray[c3 ] t xER hcross(t*,2 * t da_in>,t da_in> )rr Sc:}=/rt*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA siz<. siTyn3 ne *,2 Sc:Crray[c2 ] tSc:Crray[c3 ] t t d1 xtt d+r Sc:_ omI3 is c,N< sizTT_IeT _dt* ,mt da_incM, rr_ axis, ; CLAS AA T _dt t da_incM, r_ normal/ }n i;; M,N< siz<. siblie)t s,N< s a_ia JvoECt/ }n i;;rray[ c,N< siz<. siblif< M_=nt3, rr_ ::t_v *a_ e)t sres;rrt*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA siz<. siTyn3 S33otSc:Crray[c3 ] t ;Md N,mI3 is M p1; M3 is c,Na3 is c,N< sizTT_IeLLLL Nv bizTT_IeT _dt* ,mt da_incM, rr_ axis, ; CLAS AA {zTT_Ie,2 * T _x, *aa.y c*v b.z:) daaa.z c*v b.y(n ieLLLL_y, *,2 * T aa.z c*v b.x:) daaa.x c*v b.z:) ieLLLL_y, *,22* T aa.x c*v b.y(n daaa.y c*v b.x:) ierray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 2tSc:Crray[c3 ] t a * fada_in3;Md N,mI3 is M sres T _dt t da_iTLLLL ohper;; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.LLL += t_ians.ai>o* L_ 3u1t_ians.ai>CC)2 v da_iat*,2 * LLL * t da_incM, r_ ,v da_ia JvoECi3ul3 iv da_iSc:Crray[c3 ] t _ r_ ,v da t da_iTLleg ohe;; Ct 3er CLAS }nidleg o ,poiI eeit e.N<,2 * 0er CLASTLLLL ohstal/dlegCC)2 v e)t sre*= LLL *t e.N<,2 * legCCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 2tSc:Crray[c3 ] t e;; Ct 3LLLLin CCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 2tSc:Crray[c3 ] t sdr= -1re;; Ct 3LLLLin t da_iTL_sdr= -1re;; Ct ohper;; M, nu,N_incM, r_ , ce da_incM, rl>:: da_i( *,2 * T _a JvoEC xol3_NI2,NI eeit e._sdr= -1re;; Ct += (* re* (* rCC)2 v da_iat*,2 * _sdr= -1re;; CtCCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 2tSc:Crray[c3 ] t *,2 * t da_i _dth_t N,mI3 is M sret sres;r Sc:inli CCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 2tSc:Crray[c3 ] t sdr= -1r*,2 * t da_i _dth_t N,mI3 is M sret sres;r Sc:inli / da_incM, )AAAAAAAA siz<. siTyn3 ScM, r_ sres;r Sc:Crray[c3 ] t rres;r Sc:r Sc:_ omI3 is c,N< sizTT_IeLLLL T _dt* ,mt da_incM, rr_ axis, ; CLAS AA T _dt t da_iLLLLM, r_ ,v da_iTT_Ie(J1,NJTe(Js omI3da_cos(_ omI3 a_ia (J1,NJTesin omI3da_sin(_ omI3 a_iia JvoECt cM, r_ sres;r(I eeit e.((Js omI3d+nidstaf da(Js omI3dre* LLLLMx c*vLLLLMx c c*vx cccc+I eeit e.((J2 da(Js omI3dre* LLLLMx c*vLLLLMy(n daaLLLMz c*vsin omI3d c*vy(n +I eeit e.((J2 da(Js omI3dre* LLLLMx c*vLLLLMz c+vLLLLMy(n *vsin omI3d c*vz , I eeit e.((J2 da(Js omI3dre* LLLLMx c*vLLLLMy(n +aaLLLMz c*vsin omI3d c*vx(n +I eeit e.( (Js omI3d+nids da(Js omI3dre* LLLLMy c*vLLLLMy(n c*vy(n +I eeit e.((J2 da(Js omI3dre* LLLLMy c*vLLLLMz c- LLLLMx c*vsin omI3d c*vz , I eeit e.((J2 da(Js omI3dre* LLLLMx c*vLLLLMz c- LLLLMy(n *vsin omI3d c*vx(n +I eeit e.((J2 da(Js omI3dre* LLLLMy c*vLLLLMz c+ LLLLMx c*vsin omI3d c*vy(n +I eeit e.( (Js omI3d+nids da(Js omI3dre* LLLLMz c*vLLLLMz c c*vz c>CCr ay[ c, M_>= N_I::t_v *a_ e)t sres;r Sc:r t*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA siz<. siTyn3 ne *,2 Sc:Crray3c2 ] tSc:Crray[c3 ] t diusowr Sc:_ omI3 is c,N< e_Ieinline t da_inTr_ proj da_poi_to_mI3ne( )AAAAAAAA*,2 * t da_inc3, rr_ T _dt t da_ie_Ieinline t da_incM, _*a_ e)=_ e)ntr Sc:_ o dae(J2 * + (t(J1,NJT t sres;r Sc:r Sc-1rproj ( e)t sra_ia Sc:r Sc-1rproj -= _*a_ e_ia Sc:r Sc-1rproj M, r_ ,v da_ia Sc:r Sc-1rproj *= wda_ia JvoECt_*a_ e)+ Sc:r Sc-1rproj ;;rray[ c, M_>= N_I::t_v *a_ e)t sres;r Sc:r t*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA siz<. siTyn3 ne *,2 2tSc:Crray[c3 ] t lies_inn ohep orer Sc:_ omI3 is c,N< sizTT_Ie inlineto_mI3ne( )AAAAAAAA*,2 * t da_inc3, rr_ T _dt t da_ie_Ieinline t da_incM, *a_ e_)=_ e)ntr Sc:_ o dae(J2 * + Et*,2 * ( e)t sr- *a_ e_)).e;; Ct 3L- wda_irraIe(J2 * t da_incM, rl>/ da_incM, )AAAAAAAA c,N< siz<.S33otSc:Crray[c3 ] t *,2 * t da_i v2ret sres;rrM N,mI3 isM p1; N_IeLLLLs<.ousub_ ineto_mI3ne( )AAAAAAAA*,2 da_i( 21,N< da_i( *,sseuI(ep1; N_<* t daNra_ia I3 is)=_rea > prmp->size_ret sres;rrM N,m(J2*(egin; Sc+ep1; N_Sc>CCrrp e eclassd #ce_e_oenl>/ da_incM, )AAAAAAAA c,N< siz<.ne *,2 Sc:CrrayNN< siztSc:Crray[c3 ] t e)ntr Sc:_ omI3 is M p1; N inlineto_mI3ne( )AAAAAAAA*,2 da_i( 21,N< da_i( *,sseuI(ep1; N_<* t daNra_ia JvoECt/ a > prmp->size_ret sres;rrM N,m(J2*(egin; Sc+ep1; N_Sc>CCrr e eclassd #ce_e_oenl>/ da_incM, )AAAAAAAA c,N< siz<.ne *,2 Ie daSc:Crrayrkcp rtSc:Crray[c3 ] t e)ntr Sc:_ omI3 is M p1; N inlineto_mI3ne( )AAAAAAAA*,2 da_i( 21,N< T _dt t da_iLsseuI(ep1; N_<* t daNra_ia JvoECt/ a > prmp->size_Ie daSc:Crrayrkcp r (J2*(egin; Sc+ep1; N_Sc>CCrr eS A c,N<: ::t_v *a_ e)t sres;rr t*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA siz<. siTyn3 ne *,2 2tSc:Crray[c3 ] t malIxyz,tdist;n,NLwr Sc:_ omI3 is c,N< sizTT_Ie inlinto_mI3ne( )AAAAAAAA*,2 * t da_inc3, rr_ T _dt t da_ie_Ieinline t da_incM, ::t_v *=_ e)ntr Sc:_ o dae(J2 * + a JvoECt::t_v ,ylfire)t srac+ew(>CCrr eS A c,N<: ::t_v *a_ e)t sres;rr t*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA siz<. siTyn3 Sc:Crray3c2 ] tSc:Crray[c3 ] t Sc:r Sc:_ omI3 is c,N< sir Sc:_ omI3 is c,N< sizTT_Ie inlinto_mI3ne( )AAAAAAAA*,2 * t da_inc3, rr_ T _dt t da_ie_Ieinline t da_incM, ::t_v *=_ e)ntr Sc:_ o dae(J2 * + a JvoECte)t sr- ( ::t_v **rmalIxyz,tdist;n,NLwe)t srac>CCrr e eclassd #ce_e_oenl>/ da_incM, 3LLLSc:Crray[c3 ] t inline T t sres;r Sc:inlN,mI3 is M sres T _dt t da_i );n,Nk da_incM, r> *,2 c:::::&s.pe riersiNk >rue 5re( Sc:::::&s))2 "[ "NI eeit e.Nk daa_ians.ai>N== L_ 3u1t_ians.ai>CC)2 v da JvoECtok * t da_incM, r_ ,v da_ia JvoECi3ul 3LLLSc:Crray[c3 ] t inline Tl );p =r sreN,mI3 is M sres T _dt t da_i JvoECt! )t s->inline T t s is c,N< t da_incM, r_ ,v da_ia JvoECi3ul 3LLLSc:Crray[c3 ] t _ f3 nvenience // N,mI3 is res t d;r Sc:b tooe T _dt t da_i );n,Nk da_incM, r> *,2 c:::::&s.pe riersiNk >rue 5re( Sc:::::&s))2 "[ "NI eeit e.Nk dafab nvt_ians.ai>o- L_ 3uians.ai>o)( Sc:b tooCC)2 v da JvoECtok ** t da_incM, r_ ,v da_ia JvoECi3ul 3LLLSc:Crray[c3 ] t inline T< );p =r sreN,mI3 is M sres T _dt t da_i *,2c:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e. }nia_ians.ai>Nn L_ 3u1t_ians.ai>)at*,2 * LincM, r> t e. }niL_ 3u1t_ians.ai>Nn t_ians.ai>)at*,2 * lse;3LLLLLLLLa JvoECtlse;3LL,a,t*,2Nv s );p (t(J1,NJt da_incM, Uff _dthrentSc:}=/ _ne-homogenous-coordinrterkc eclassd #ce_e_oenl>/ da_incM, )AAAAAAAA c,N< siz<.; N_IeLLLLt da_i( *,2 * t da_incN, r_ LSc:Crray[c3 ] t N_IeLLLL c,N< siz<. siblif< N_=ntM + 1_ t da_ildtd)copy(yntM + 1dincM, rl>ntM + 1d *,2 ,egin; Sct da_ina_ia2 da_ires;S nu,N< size_Iee(J2. * + a JvoECt0LL,a,a eCLAS A c,N< siz<. siblif< N_=ntincM, Uff _dthrentSc:}=/ _ne-homogenous-coordinrterkc eclassd #ce_e_oenl>/ da_incM, )AAAAAAAA c,N< siz<.; N_IeLLLLt da_i( *,2 * t +a_incN, r_ LSc:Crray[c3 ] t N_IeLLLL c,N< siz<. siblif< N_=ntM + 1_ t da_i(J1,NJTew_ da_es;S nu,N< size_Iee(J2. * /=ntM + 1ia2 / _eohyur_ , ce da_incM, rl>:: da_i( *,2 *; M, nu,Nc:::::&s.pe riersi( _a JvoEC xoxold::&s))2 "[ "NI eeit e.begin,ntM + 1ians.ai>o* w_ da_LLLLLLLLa JvoECt0N< t da_incM, r_ ,v da_ia JvoECi3uls );p + (nu,N< siztSc:Crray[c3 ] t Ikids: c_arrays ar [] ngerous t da_int Sc:r Sc] ngero,[] ngerou+a2 / _eohyt*,2 * e)t sCCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 2tSc:Crray[c3 ] t l!r Sc: sres t da_iM, rr_ (p1; M, nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.t_ians.ai>o= t da_iM, rr_LLLLLLLLa JvoECtl da_iM, rr_LLrray[[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 s );p + (nu,N< siztSc:Crray[c3 ] t Ikids: c_arrays ar sreN,mI3 is M sres p1; M,memcpy(y[c0 ],nL_ 3u1tc0 ],nio* to }n i3 ]) / _eohyt*,2 * e)t sCCrray[:r Sc: sres t da_i );p (t(J1,NJt da_i _dthre;r Sc:}=/nere3t*,2 * t da_inc3, r_ ,bre JvoEC )AAAAAAAA siz<. siblifS33otSc:Crray[c3 ] t es;reLLLwhenedtcining LLLL_ omI3 ntM + 1_ t da_i siz:inle_J3os_ }nidr sre_ omIda_incM, r_ , c u_c, r_ _eohyu_c, r_ egin,ntM + 1dincM, rl>:: da_i(ntM + 1d *,2 *; M, nu,N size_Iemy_ da_incM, reSc _a JvoEC xoxoldmy_ d3_NI2,NI eeit e.*my_ da_S nu,N< size_Iee(Jbegi>CC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 )AAAAAAAA siz<. siv ss.o(tT x,tT y,tTS33otSc:Crray[c3 ] t nt Sc:r Sc:_ omI3 is c,N< sizinpu*NI_NI2,NI_t_IeLLLL Nv s t da_inI_NI2,NI_t_IeLLLsp. da_incM,_ _eohyur_ , ce da_incM, rl>:: da_i( *,2 *; M, nu,NeSc _a Jvo >rue _c _a L NvEC xoxold::_ d3_NI2,NI eeit e.(* res;S nu,N< size_Iee(Jbe:_ d3CC)2 v dirraIe(J2 * t da_incM, rl>/ da_incM, );Sc:Crray[c3 ] t v t sres;r Sc:*,2 * fi>Nreax2 t sr(p1; M, nu,Nc:::::&sriersi(( Sc::::)2 "[ "NI eeit e. }(y[c0 ][i]( 2 * 2 "[ "( Sc:::[c0 ][i](= 2 *;I eeit e. }(y[c0 ][i](> t sr(p"[ "( Sc:::[c0 ][i](= 2axCC)2 v drray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 )AAAAAAAA siz<. siTyn3 S33otSc:Crray[c3 ] t 2 * T e_ma= 1. e)ntr Sc:_ N< siz_e inlinLL Nv sstalc3 ]incM, rr_ 3LLLLin t da_iTLri Sc:::=]incM, rr_- Nv sstal; da_iTLhalf_ri =Lri * 0.5; da_iTL2 * T Sc:::=](hstal/dri c*vs nu,N< size_Iee(Jq s(t(J1,NJt da_i _d ] t ( Sc ss.o(tT x,t nu,Nc:::::&s.pe riersi( 5re( Sc:::::&s))2 "[ "NI eeit e.N< siz da_ians.ai>Np"[ "( Sc:::s;S nu,N< size_IIee(J( t_ians.ai>o+ half_ri c*vs * T >CC)2 v da Crray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 r Sc:CtSc:Crray[c3 ] t 2,v da t da_it*,2 * MCCrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 r Sc:CtSc:Crray[c3 ] t minimen/resp. _nximen/ NI2,NI>o- incM, rerrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 r Sc:CtSc:Crray[c3 ] t minimeIIIIfi>Nrabsre_m NI2,NI>o- incM, rerrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 r Sc:CtSc:Crray[c3 ] t minimen/resp. _nximen/ }n NI2,N, vmml(teIth::en/rles _dth,NI>o- incM, rerrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 r Sc:CtSc:Crray[c3 ] t minimen/reIIIIfi>Nrabsre_m NI2,N, vmml(teIth::en/rgret _r _dth,NI>o- incM, rerrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 2 tSc:Crray[c3 ] t fi>Nre_m NI2,NI>eLrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 s );2 tSc:Crray[c3 ] t fi>Nre_mbsre_m NI2,NI>eLrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 2 tSc:Crray[c3 ] t fi>NaxER NI2,NI>eLrray[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 s );2 tSc:Crray[c3 ] t fi>NaNrabsre_m NI2,NI>eLrrayc0 ] t _x;r Sc:Crray[c1 ] t _yn3 ne *,2 e_J3os_ }nidr sre_ ] t nt ShrentSc:Crray[c3 ] t bncM, r :: da_i( *,2 * da_i );n,Nne dafae;3LLLLLL lse Sc _a JvoEC xo)2 "[ "NI eeit e. }ni.begin ,stalNI eeit e.{p"[ "( Sc::: }ni.Nne (p"[ "( Sc:::oss(t*,2 * fae;3LLLLLLLLLLLLLLNne daLincM, r> t e. da_ians.a Sc. }ni.begi!ohperlNI eeit e.{p"[ "( Sc:::t*,2 * fae;3LLLLLLLLLL}C)2 v da JvoECton_LLrray[[c0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t ne bycrandnely + _il- g p1; M, nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _a JvoEC xol3_NI2,NI eeit e.(* re+= (is_un_JM& 1uI>o?nely + _il- g : -ely + _il- gCC)2 v da Crrac0 ] t _x;r Sc:Crray[c1 ] t _yn3 S33otSc:Crray[c3 ] t sSuI2,LLL Nv sperrTNSE nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _a JvoEC xol3_ NSE (* res;SSuI(* rCC }Crrp e eclassd #ce_e_oenl>/ da_incM,S33otSc:Crray[c3 ] t :}=/WARNING:TNSE nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _a JvoEC xol3_ NSE (* res;S nu,N< size_Iee(J2. * /=(* rCC }Crr e eclassd #ce_e_oenl>/ da_incM,S33otSc:Crray[c3 ] t :}=/WARNIN _ f30,TNSE nu,N< size_Ie da_incM, rl>:: da_i( *,2 * T _a JvoEC xol3_ NS eeit e.T&avda_begs)I eeit e. }ni.vin ,, nu,N< size_Ie(J2 * (p"[ "( Sc:::ves;S s(t(J1,NJt da_i _d] t ( S;da_ians.a Scp"[ "( Sc:::ves;S nu,N< size_Iee(J2. * /=vCC }Crr e eclassd #ce_e_oenl>/ da_incM, )AAAAAAAA siz<. siTyn3 S33o tSc:Crray[c3 ] t vNv se riprocen_saf r)R ); ;n omI3 is c,TNSE siz:inlvmml(ts c,N< sizTT_Ie sres;rtt_ siz CCE siz:inle_J3os_ }nidr rtt_ sizda_incM, r_ , c tt__incM, r_ , cN< si r_ , ce da_incM, rl>:: da_i( *,2 * da_itt__incM, r_ , c L_ 3ut da_L_ 3u1incM, rer M, nu,NeSc _a JvoEC xoxoldL_ 3ut d2 "[ "NI eeit e.begin,n nu,N< size_Iee(JbL_ 3ut d2CC)2 v Crrp c0 ] t _x;r Sc:Crray[c1 ] t _yn3 r Sc:CtSc:Crray[c3 ] t Nv s<.tce TNSEr Sc:Crcou_ e)=_0N< si_incM, r_ , c e da_incM, rlsi r da_i( *,2 * nu,NeSc _a JvoEC xo3_ N si }ni.begi!ohp* NSE ++cou_ e* }C }C Et*,2 * cou_ e* rr p c0 ] t _x;r Sc:Crray[c1 ] t _yn3 3d; _N,iSc:Crray[c3 ] t _ r_(d) * T TNSE(tT perre3bis)=_per;; si_incM, r_ , c da_incM, rl>:: da_i( *,2 * nu,NeSc _a JvoEC xol3_ NSE re3bis)+a_beg *_begs) }C Et*,2 * SSuI(re3bis>eLr raIe(J2 * t da_incM, rl>/ da_incM, );tSc:Crray[c3 ] t s.osrand(tseedre will,TNSE }ni. will> ,poiI s all _nmatr enSE(tT perl daV rr_ ,perf* nu,Nc:::::&sriersi(( Sc::::)2 NSE l daV rr_ ,s_un_J;SE l daV rr_ /= RAND_MAX;SE t_iani>o= o( tu+a2 tu*vs nu,N< size_3d; _N,N(rl daV rr_ ) CC }Cr enS}* t dda_spacelvmmlaa_inc4,tavmmlibo( 3.5/include/vmmlib/nidr rtrai .hpp0000644000076500000240000rre376511770276417020146 0us nc eeiles nff t CopyN< siz(c) 2010 Daniel Pfeiferayr Sc:inl__ine _VECTOR_TRAITS_HPP__ #:in*,2 __ine _VECTOR_TRAITS_HPP__ yr nclude yr nclude < );st/la/nidr rtrai .hpp> dda_spacel );stTNSdda_spacellaTNSaIe(J2 * tda_incM, rl>/ da_ini3noruct nidr rtrai cM,NSE siz:inlvmml(ts c,N<[c3 >cnidr rtsiz CLAJ(J1,NJ da_iedredimo= M*,mpusiz:inlTL2 * a rtsiz CLAIe(J2 * tedreI>LAJ(J1,NJ2 * a rtsiz r(ocen_saf r)Rrtsiz&av2 NSE BOOST_STATuloeSSERT(Il> ,pJ;SE BOOST_STATuloeSSERT(IlLAJ(J1,NJ2 * a rtsiz& w(af r)Rrtsiz&av2 NSE BOOST_STATuloeSSERT(Il> ,pJ;SE BOOST_STATuloeSSERT(Il ,pJ;SE BOOST_eSSERT(il ,pJ;SE BOOST_eSSERT(il= Ninspiratrby Dav );Eberly's * Wild Mag,NJ. siAndrew.Willmoti's VL. * */ ay[r Sc:inl__ine __Vne *,2_HPP__ #:in*,2 __ine __Vne *,2_HPP__ yr nclude yr nclude yr nclude yr nclude yr nclude _inc4,tavmmlibo( 3.5/include/vmmlib/nmmlib__infig.hpp0000644000076500000240000rre204111770276417020055 0us nc eeiles nffr Sc:inl__ine __Vne *,2CONFIG2_HPP__ #:in*,2 __ine __Vne *,2CONFIG2_HPP__ [:r #:in*,2 ine *,2 *NSFINAE ray[:r LLt ding )t s switch will have * T o* t ing effidr:[:r NVERSION_OP will Jvob is mpiled, but_incMnidr sizT:r NVERSION[] will insteadob iusat. Tt s means you can T:r -coonid[2] as beince, but_)t ngs like glVertex3f p1(t*J)a:r will JvoworkJ. ymnce.a:r#:in*,2 ine *,2 *Nrevers re_NI2,NI re.e:r#:in*,2 ine *,2DONT_FORCE//t ScMENTayr Sc:inline *,2CUSTOM2CONFIG #e. }c:inlNDEBUG #e. :in*,2 ine *,2SAFE_ACCESSre.e#e.inc4,t# :in*,2 ine *,2THROW_EXCEPTre_S #e. }:inline *,2DONT_FORCE//t ScMENTa#e. :in*,2 ine *,2/t Sc::vaes Tvaee#e.i Scp#t e. }:inl__GNUC__ #eit e.:in*,2 ine *,2/t Sc::vaes Tvael__attrib;r S_((aligned(16))) #eit el4, :in*,2d WIN32 #eit e.:in*,2 ine *,2/t Sc::vaes T__declspt*J(align (16))Tvaee#e.e.i Scp#t e.e.irrncM"AlM, Uff macro un:in*,2d"e#e.e.inc4,t# inc4,t# Sc.ia c,we.:in*,2 ine *,2/t Sc in caSc. i's Jvo:in*,2d in * T cus om _infige#e.e Sc:inline *,2/t Scp#t e.e. :in*,2 ine *,2/t Sc::vaes Tvaee#e. inc4,t# nc4,ta_inc4,tavmmlibo( 3.5/tests/0000755000076500000240000rre000011770276420012757 5us nc eeiles nffvmmlibo( 3.5/tests/Makin*le0000644000076500000240000rre043011770276420014414 0us nc eeiles nff .PHONY: tests TESTFILES = $(wildcard *.cpp) OBJECTS e.Ie$(TESTFILES:%.cpp=%.o) CXXFLAGS)+a_-I../includeSaIests:lvmmlIest @echo "----- Runnere Tests -----" @./vmmlIest vmmlIest:e$(OBJECTS) $(CXX) -o $@e$(OBJECTS) clean: rm -rfe$(OBJECTS)lvmmlIest $(OBJECTS): ../includeSavmmlibo( 3.5/tests/blas_daxpy_test.cpp0000644000076500000240000rre411011770276420016644 0us nc eeiles nffr nclude "blas_daxpy_test.hpp" yr nclude dda_spacelvmmlaNS 3LLL blas_daxpy_test::ru, r NSE );n,Nk dafae;3LL si 3d; _N,ae.IeL.8147LL Sc:Crray2,_3d; _N,N BLL Sc:Crray2,_3d; _N,N CLL Sc:Crray2,_3d; _N,N C_S ohLL si 3d; _N,BData[](= { eL.9649,eL.1576 };SE B(= BData;si 3d; _N,CData[](= { eL.786104,eL.128397 };SE C_S oh(= CData;si si si blas_daxpyay2,_3d; _N,N blas_daxpy1;si blas_daxpy1.v2re;r ( a, B, Cr en si Nk daC._ f3 nvC_S oh,eL.rre3r en si log( "v2re;r vsing_N,daxpy",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "daxpy Sc:duct of \n":<< a:<< "\n"SE << ". si\n":<< B:<< "\n"SE << "shouldob \n":<< C_S oh(<< "\n"S"[ "( Sc:::<< "is\n":<< C(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C si si //-coomultip_N,daxpys_incMrterl si si matrix da_3, floatmal/< si_m;si matrix d2_3, floatmal/es_m;si matrix d2_3, floatmal/es_m_S ohLL matrix d2_3, floatmallefi_m;si matrix d2_2, floatmal/es2_m;si matrix d2_2, floatmal/es2_m_S ohLL si floatmlData[](= { eL.9649 , eL.9706 , eeL.4854,eL.1576 , eL.9572 , eeL.8003 };SE lefi_m oheData;si floatmrData[](= { eL.8147, eeeL.9134 , eeL.2785,eL.9058 , eeL.6324 , eL.5469,eL.1270 , eeL.0975 , eL.9575 };SE /< si_m ,sData;si floatmres_data[](= { e1.7269,1.5425,1.2643, 1.0971,L.8273,1.3337 };SE /es_m_S oh)=_res_data;si si blas_daxpyay2,_floatmalblas_daxpy2;si blas_daxpy2.v2re;r Smmm(llefi_m,l/< si_m,l/es_mr en si Nk da/es_m._ f3 nv/es_m_S oh,eL.rre3r en si blas_daxpy2.v2re;r Smmm(llefi_m,l/es2_mr en si floatmr2Data[](= { e2.10871,e1.46959,e1.46959,e1.58155 };SE /es2_m_S oh)=_r2Data;si si Nk daNk >ru(/es2_m_S oh._ f3 nv/es2_m,lL.rre3));si si si log( "v2re;r vmatrix-matrixomultip_icil- g (A*BJ. siA*A^T)rby multip_N,daxpy's",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "lefivmatrixi\n":<< lefi_m << "\n"SE << ",t da_imatrixi\n"SE << "shouldob \n":<< /es2_m_S oh)<< "\n"S"[ "( Sc:::<< "is\n":<< /es2_mr<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C si siSE JvoECtok * }C EenS}* t dda_spacelvmmlaavmmlibo( 3.5/tests/blas_daxpy_test.hpp0000644000076500000240000rre052711770276420016661 0us nc eeiles nffr Sc:inl__ine __BLAS_DAXPY_TEST2_HPP__ #:in*,2 __ine __BLAS_DAXPY_TEST2_HPP__ yr nclude "nlinetest.hpp" ydda_spacelvmmlaNS class blas_daxpy_test : p; _ic nlinetest NSEp; _ic:si blas_daxpyetest Sc: nlinetest( "daxpy Sc:duct using blas"* N}C virtf3 i );n,ru, r;si siSc:t Sc-1:si si};* t class blas_daxpy_testenS}* t dda_spacelvmmlaa_inc4,tavmmlibo( 3.5/tests/blas_dgemm_test.cpp0000644000076500000240000rr1251011770276420016613 0us nc eeiles nffr nclude "blas_dgemm_test.hpp" yr nclude dda_spacelvmmlaNS 3LLL blas_dgemm_test::ru, r NSE );n,Nk dafae;3LL si matrix da_ 6,_3d; _N,N A;si matrix da_ 3,_3d; _N,N CLL matrix da_ 3,_3d; _N,N C_S ohLL si 3d; _N,AData[](= { 1,e2_ 3,_4,e5_ 6,_7, 8, 9,e10,e11,e12_ 13,_14,e15_ 16,_17, 18 };SE A(= AData;si si blas_dgemm da_ 6,_3,_3d; _N,N blas_cov;si blas_cov.v2re;r ( A, Cr en si 3d; _N,CData[](= { 91,e217, 343, 217, 559,e901, 343, 901, 1459 };SE C_S oh(= CData;si Nk daCin ,C_S ohLLsi tensor3 da_ 2,_3,_3d; _N> t3;si 3d; _N,A2Data[](= { 1,e2_ 7,8,13,14,e3,4,9,10,15_16,5,6,11,12_17,18 };SE t3.:r ScA2Data,cA2Data +a_8);si blas_cov.v2re;r ( t3, Cr en si Nk da(Cin ,C_S oh) >ruohLL si log( "symmetricvmatrix-matrixomultip_icil- g (nI_NI lefivmatrix) (MxK) x (KxN>o= (MxN), while M=N",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "nI_NI matrixo(lefivmatrix)\n":<< A)<< "\n"S"[ "( Sc:::<< "cova rr_c vmatrix shouldob \n":<< C_S oh(<< "\n"S"[ "( Sc:::<< "cova rr_c vmatrix is\n":<< C(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C si //A*BJ= D (MxK, KxN, MxN) (nI_NI N< sizmatrix)L matrix d6,_3,_3d; _N,N ELL matrix da_ 3,_3d; _N,N FLL matrix da_ 3,_3d; _N,N F_S ohLL si 3d; _N,EData[](= { 1,e2_ 3,_4,e5_ 6,_7, 8, 9,e10,e11,e12_ 13,_14,e15_ 16,_17, 18 };SE E(= EData;si si blas_dgemm da_ 6,_3,_3d; _N,N blas_cov3;si blas_cov3.v2re;r S ScE, Fr en si 3d; _N,FData[](= { 591,e642,e693,e642,e699,e756,e693,e756,e819 };SE F_S oh(= FData;si si Nk daFin ,F_S ohLL si log( "symmetricvmatrix-matrixomultip_icil- g (nI_NI N< sizmatrix) (MxK) x (KxN>o= (MxN), while M=N",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "nI_NI matrixo(N< sizmatrix) \n":<< E)<< "\n"S"[ "( Sc:::<< "cova rr_c vmatrix shouldob \n":<< F_S oh(<< "\n"S"[ "( Sc:::<< "cova rr_c vmatrix is\n":<< F(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }Csi //A*BJ= D (MxK, KxN, MxN)L matrix d6,_2,_3d; _N,N BLL matrix da_ 2,_3d; _N,N DLL matrix da_ 2,_3d; _N,N D_S ohLL si 3d; _N,BData[](= { 1,e2_ 3,_4,e5_ 6,_7, 8, 9,e10,e11,e12 };SE B(= BData;ssi blas_dgemm da_ 6,_2,_3d; _N,N blas_v_dgemm;si blas_v_dgemm.v2re;r ( A, B, D );ssi 3d; _N,DData[](= { 161,e182_ 377, 434,e593,e686 };SE D_S oh(= DData;si si Nk daDin ,D_S ohLL si blas_dgemm da_ 6,_2,_3d; _N,N blas_cov3_t3_2;si blas_v_dgemm.v2re;r ( t3, B, D );ssi Nk da(Din ,D_S oh) >ruohLL si log( "matrix-matrixomultip_icil- g (MxK) x (KxN>o= (MxN)",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "nI_NI matrixoA\n":<< A)<< "\n"S"[ "( Sc:::<< "nI_NI matrixoB\n":<< B:<< "\n"S"[ "( Sc:::<< "matrixoC shouldob \n":<< D_S oh(<< "\n"S"[ "( Sc:::<< "matrixoC is\n":<< D(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C si //A*BJ= D (MxK, KxN, MxN) (nI_NI B is given as transpose)L matrix d2_ 6,_3d; _N,N B_tLL matrix da_ 2,_3d; _N,N GLL matrix da_ 2,_3d; _N,N G_S ohLL si 3d; _N,BtData[](= { 1,e2_ 3,_4,e5_ 6,_7, 8, 9,e10,e11,e12 };SE B_ da_BtDataLL si blas_dgemm da_ 6,_2,_3d; _N,N blas_dgemm5;si blas_dgemm5.v2re;r Sbt( A, B_t, Gr en si 3d; _N,GData[](= { 91,e217, 217, 559,e343, 901 };SE G_S oh(= GData;si si Nk daGin ,G_S ohLL si log( "matrix-matrixomultip_icil- g (nI_NI B is transpose) (MxK) x (NxK) = (MxN)",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "nI_NI matrixoA\n":<< A)<< "\n"S"[ "( Sc:::<< "nI_NI matrixoB_t\n":<< B_ d<< "\n"S"[ "( Sc:::<< "matrixoC shouldob \n":<< G_S oh(<< "\n"S"[ "( Sc:::<< "matrixoC is\n":<< G(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C si //A*BJ= H (MxK, KxN, MxN) (nI_NI A+B are given as transpose)L matrix d2_ 5,_3d; _N,N AtLL matrix d6,_2,_3d; _N,N BtLL matrix d5_ 6,_3d; _N,N HLL matrix d5_ 6,_3d; _N,N H_S ohLL si B da_BtDataLL A da_BtDataLL si blas_dgemm d5,d2_ 6,_3d; _N,N blas_dgemm6;si blas_dgemm6.v2re;r S ScAt, Bt, H );ssi 3d; _N,HData[](= { SE 13,_27, 41, 55,e69, 83 16,_34,e52_ 70,e88,e106 19, 41, 63,_85,e107, 129 22_ 48,e74,e100,e126,_152_ 25, 55,e85,e115_ 145_ 175 };SE H_S oh(= HData;si si Nk daHin ,H_S ohLL si log( "matrix-matrixomultip_icil- g (nI_NI A+B are transpose) (MxK) x (NxK) = (MxN)",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "nI_NI matrixoA\n":<< A)<< "\n"S"[ "( Sc:::<< "nI_NI matrixoB_t\n":<< B(<< "\n"S"[ "( Sc:::<< "matrixoH shouldob \n":<< H_S oh(<< "\n"S"[ "( Sc:::<< "matrixoH is\n":<< H(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C si //Sc:CrrMnidr ou ea Sc:duct Sc:Crray5,_3d; _N,N vALL Sc:Crray6,_3d; _N,N vBLL SAda_BtDataLL vBda_BtDataLL blas_dgemm d5,d1_ 6,_3d; _N,N blas_dgemm7LL blas_dgemm7.v2re;r Svv_ou ea( vA, vB, H );sn si 3d; _N,H2Data[](= { 1,e2_ 3,_4,e5_ 6, 2,_4,e6, 8, 10,e12_ a_ 6,_9,e12_ 15,d18_ 4, 8, 12_ 16,_20,e24_ 5, 10,e15,_20,e25,_30};SE H_S oh(= H2Data;si sisi Nk da(Hin ,H_S oh) LL si log( "Sc:CrrMnidr ou ea Sc:duct with dgemm (M)' x (N) = (MxN)",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "nI_NI nidr A\n":<< vA)<< "\n"S"[ "( Sc:::<< "nI_NI nidr B_t\n":<< vB(<< "\n"S"[ "( Sc:::<< "matrixoH shouldob \n":<< H_S oh(<< "\n"S"[ "( Sc:::<< "matrixoH is\n":<< H(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C en JvoECtok * }C EenS}* t dda_spacelvmmlaavmmlibo( 3.5/tests/blas_dgemm_test.hpp0000644000076500000240000rre055611770276420016627 0us nc eeiles nffr Sc:inl__ine __BLAS_DGEMM_TEST2_HPP__ #:in*,2 __ine __BLAS_DGEMM_TEST2_HPP__ yr nclude "nlinetest.hpp" ydda_spacelvmmlaNS class blas_dgemm_test : p; _ic nlinetest NSEp; _ic:si blas_dgemm_test Sc: nlinetest( "matrixomatrixomultip_icil- g (dgemm) using blas"* N}C virtf3 i );n,ru, r;si siSc:t Sc-1:si si};* t class blas_dgemm_testenS}* t dda_spacelvmmlaa_inc4,tavmmlibo( 3.5/tests/blas_dot_test.cpp0000644000076500000240000rre345511770276420016316 0us nc eeiles nffr nclude "blas_dot_test.hpp" yr nclude dda_spacelvmmlaNS 3LLL blas_dot_test::ru, r NSE );n,Nk dafae;3LL si Sc:Crray4,_3d; _N,N A;si Sc:Crray4,_3d; _N,N BLL si 3d; _N,AData[](= { 1,e2_ 3,_4};SE A(= AData;si 3d; _N,BData[](= { 5_ 6,_7, 8};SE B(= BData;si si 3d; _N,dot_Sc:d)=_0N< 3d; _N,dot_Sc:d_S oh(= 70LL si blas_dotay4,_3d; _N,N blas_dot1;si blas_dot1.v2re;r ( A, B, dot_Sc:d) en si Nk dadot_Sc:d)==,dot_Sc:d_S ohLL si log( "dot Sc:duct",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "dot Sc:duct of \n":<< A)<< "\n"SE << ". si\n":<< B:<< "\n"SE << "shouldob \n":<< dot_Sc:d_S oh(<< "\n"S"[ "( Sc:::<< "is\n":<< dot_Sc:d)<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C sien JvoECtok * }C EenS}* t dda_spacelvmmlaavmmlibo( 3.5/tests/blas_dot_test.hpp0000644000076500000240000rre052111770276420016314 0us nc eeiles nffr Sc:inl__ine __BLAS_DOT_TEST2_HPP__ #:in*,2 __ine __BLAS_DOT_TEST2_HPP__ yr nclude "nlinetest.hpp" ydda_spacelvmmlaNS class blas_dot_test : p; _ic nlinetest NSEp; _ic:si blas_dot_test Sc: nlinetest( "dot Sc:duct (dot) using blas"* N}C virtf3 i );n,ru, r;si siSc:t Sc-1:si si};* t class blas_dot_testenS}* t dda_spacelvmmlaa_inc4,tavmmlibo( 3.5/tests/cp3_tensor_test.cpp0000644000076500000240000rre514011770276420016601 0us nc eeiles nffr nclude "cp3_tensor_test.hpp" r nclude yr nclude yr nclude dda_spacelvmmlaNS 3LLL cp3_tensor_test::ru, r NSE );n,Nk dafae;3LL si siz:inleensor3 d4,4,4,_floatmalt3_tsiz Ci siz:inlcp3_tensor< 3,_4,e4,e4,efloat,_floatmalcp3_dec_tsiz Ci siz:inlt3_hopm< 3,_4,e4,e4,efloatmalt3_hopm_tsiz Ci Ci 3_tsizlt3_cp_nI_NI Ci floatmdata_nI_cp[](= { SE /* 0.3780,lL.3150,lL.3386,lL.2047, L.2913,_L.3071,eL.2835,eL.1024,eL.2362,eL.2835,eL.2677,eL.1024,eL.3543, 1.1181,e1.5354,eL.3858, SE L.2520,lL.2283,eL.3228,eL.2835,eL.2677,eL.2598,eL.2992,eL.2126,_L.2441,eL.2205,_L.2441,eL.2913,_L.9213,_L.6457,eL.4331,eL.1890,SE L.4409,eL.4409,eL.5591,eL.5039,eL.2362,eL.4409,eL.5984,eL.6142,eL.2520,lL.2835,eL.3465,eL.3543, L.5748,eL.2835,eL.2992,eL.2835,SE L.3386,lL.3150,lL.4488,eL.4173, L.2756,eL.3150,lL.3465,eL.3386,lL.2835,eL.2677,eL.2362,eL.2913,_L.2598,eL.2520,lL.2756,eL.3071 */ti Ci L.8147, L.6324,eL.9575,eL.9572,SE L.9058,eL.0975,eL.9649,eL.4854,SE L.1270,eL.2785,eL.1576,eL.8003,SE L.9134,eL.5469,eL.9706,eL.1419, SE L.4218,eL.6557,eL.6787,eL.6555,SE L.9157,eL.0357,eL.7577,eL.1712,SE L.7922,eL.8491,eL.7431,eL.7060,SE L.9595,eL.9340,lL.3922,eL.0318_ L.2769,eL.6948,eL.4387,eL.1869_ L.0462,eL.3171,eL.3816,eL.4898_ L.0971,eL.9502,eL.7655,lL.4456_ L.8235,eL.0344,eL.7952,_L.6463,SE L.7094,eL.6551,eL.9597,eL.7513,SE L.7547, L.1626,_L.3404,eL.2551, L.2760,lL.1190,lL.5853, L.5060,SE L.6797,eL.4984,eL.2238,eL.6991ti Ci };SE t3_cp_nI_NI.:r Sdata_nI_cp,mdata_nI_cp + 64 en si cp3_dec_tsizlcp3_dec;si cp3_dec.dec2reos ( t3_cp_nI_NI,lt3_hopm_tsiz::ilinehosv2,NI>eLi Ci 3_tsizlt3_cp_rec2;si cp3_dec.rec2nnoruct(lt3_cp_rec2 );si si si 3_tsizlt3_cp_rec2_S ohLL floatmdata_out_cp[](= { SE L.658735,eL.555868,eL.788278,eL.785259 1.0863, L.0696195,eL.878343,eL.328856_ L.204135,eL.525463, L.463267,eL.777254,SE 1.02116,eL.651616,eL.848481,eL.161661,SE L.744683,eL.569311,eL.851989,eL.790796_ L.858943,eL.169862,eL.734341,eL.338445,SE L.441856,eL.487661,eL.623644,eL.772226,SE L.706845,eL.750421,eL.656499,eL.211157,SE L.371909,eL.81205,_L.513955,lL.468264,SE L.144107,eL.359317,eL.24075,eL.291169_ L.254145,eL.824074,eL.388849,eL.334694,SE L.813514,e-L.rr44108,eL.792204,eL.67506,SE L.632346,eL.555974,eL.726074,eL.652605,SE L.559222,eL.221787,eL.517159,eL.297763,SE L.449981,eL.480387,eL.575679,eL.612093,SE L.534163, L.575728,eL.539401,eL.287718 Ci };SE t3_cp_rec2_S oh.:r Sdata_out_cp,mdata_out_cp + 64 en n si Nk dat3_cp_rec2._ f3 nvt3_cp_rec2_S oh, L.0re3r en si log( "vp3leensor rec2nnoruct- g ",,Nk r en si JvoECtok * }C Ee}* t dda_spacelvmmlaavmmlibo( 3.5/tests/cp3_tensor_test.hpp0000644000076500000240000rre056411770276420016613 0us nc eeiles nffr Sc:inl__ine __CP3_TENSOR_TEST2_HPP__ #:in*,2 __ine __CP3_TENSOR_TEST2_HPP__ yr nclude "nlinetest.hpp" yr nclude dda_spacelvmmlaNS class cp3_tensor_test : p; _ic nlinetest NSEp; _ic:si cp3_tensor_test Sc: nlinetest( "cp3_tensor (R) x (I1xR) x (I2xR) x (I3xR)"* N}C );n,ru, r;si siSc:t Sc-1:si si};* t class cp3_tensor_testenS}* t dda_spacelvmmlaa_inc4,taavmmlibo( 3.5/tests/cublas_dgemm_test.cpp0000644000076500000240000rre343511770276420017151 0us nc eeiles nffr nclude "cublas_dgemm_test.hpp" yr }:inline *,2USE_CUDA yr nclude dda_spacelvmmlaNS 3LLL cublas_dgemm_test::ru, r NSE );n,Nk dafae;3LLSE //cublas v2re;r i //A*BJ= D (MxK, KxN, MxN)L matrix da_ 6,_floatmalA;si matrix d6,_2,_floatmalBLL matrix da_ 2,_floatmalDLL matrix da_ 2,_floatmalD_S ohLL si floatmAData[](= { 1,e2_ 3,_4,e5_ 6,_7, 8, 9,e10,e11,e12_ 13,_14,e15_ 16,_17, 18 };SE A(= AData;si floatmBData[](= { 1,e2_ 3,_4,e5_ 6,_7, 8, 9,e10,e11,e12 };SE B(= BData;sn si cublas_dgemm da_ 6,_2,_floatmalcublas_multip_i e* cublas_multip_i e.v2re;r ( A, B, D );s si floatmDData[](= { 161,e182_ 377, 434,e593,e686 };SE D_S oh(= DData;si si Nk daDin ,D_S ohLL si log( "matrix-matrixomultip_icil- g (MxK) x (KxN>o= (MxN)",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "nI_NI matrixoA\n":<< A)<< "\n"S"[ "( Sc:::<< "nI_NI matrixoB\n":<< B:<< "\n"S"[ "( Sc:::<< "matrixoC shouldob \n":<< D_S oh(<< "\n"S"[ "( Sc:::<< "matrixoC is\n":<< D(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C si //cova rr_c vv2re;ril- g si matrix da_ 3, floatmalCLL matrix da_ 3,_floatmalC_S ohLL si cublas_dgemm da_ 6,_3,_floatmalblas_cov;si blas_cov.v2re;r ( A, Cr en si floatmCData[](= { 91,e217, 343, 217, 559,e901, 343, 901, 1459 };SE C_S oh(= CData;si i Nk daCin ,C_S ohLL si log( "symmetricvmatrix-matrixomultip_icil- g (nI_NI lefivmatrix) (MxK) x (KxN>o= (MxN), while M=N",,Nk en }ni.!,Nk en NSE S s(tstringstream ss;SE Ssp"[ "( Sc:::<< "nI_NI matrixo(lefivmatrix)\n":<< A)<< "\n"S"[ "( Sc:::<< "cova rr_c vmatrix shouldob \n":<< C_S oh(<< "\n"S"[ "( Sc:::<< "cova rr_c vmatrix is\n":<< C(<< "\n"S"[ "( Sc:::<< S s(tincl;SE log_irrnc( ss.str Sc ss.o(ttttttttt }C si en JvoECtok * }C EenS}* t dda_spacelvmmla_inc4,tvmmlibo( 3.5/tests/cublas_dgemm_test.hpp0000644000076500000240000rre057511770276420017160 0us nc eeiles nffr Sc:inl__ine __CUBLAS_DGEMM_TEST2_HPP__ #:in*,2 __ine __CUBLAS_DGEMM_TEST2_HPP__ yr nclude "nlinetest.hpp" ydda_spacelvmmlaNS class cublas_dgemm_test : p; _ic nlinetest NSEp; _ic:si cublas_dgemm_test Sc: nlinetest( "matrixomatrixomultip_icil- g (dgemm) using CUBLAS"* N}C C virtf3 i );n,ru, r;si siSc:t Sc-1:si si};* t class cublas_dgemm_testenS}* t dda_spacelvmmlaa_inc4,tavmmlibo( 3.5/tests/cutensor_tests.cpp0000644000076500000240000rr1426711770276420016561 0us nc eeiles nffr nclude "cutensor_tests.hpp" yr }:inline *,2USE_CUDA yr nclude yr nclude yr nclude dda_spacelvmmlaNS 3LLL cutensor_tests::ru, r NSE );n,Nk dafae;3LL si ensor3 d2_ 3,_4,efloatmal t3;si si //CUDA TTM_incM ensor3SE t3.l da_ ncreasing_v rr_s r;si matrix 5,_4,efloat> u3;si u3.l da(1r;si ensor3 2_ 3,_5,efloat> t3_jji; t3_jji.zero r;si t3_cublas_ttm::multip_y_horizontal_bwd(t3, u3, t3_jji en n si ensor3 6_ 3,_5,efloat> t3_iji; t3_iji.zero r;si matrix 6,_2,_float> u1;si u1.l da(2r;si t3_cublas_ttm::multip_y_2 * ral_bwd(t3_jji, u1, t3_ijiI>eLi Ci ensor3 6_ 7,_5,efloat> t3_iii; t3_iii.zero r;si matrix 7,_3,_float> u2;si u2.l da(3r;si t3_cublas_ttm::multip_y_frontal_bwd(t3_iji, u2, t3_iiiI>ei si si 3.l da_ ncreasing_v rr_s r;si ensor3 6_ 7,_5,efloat> t3_rec2;si t3_cublas_ttm::fuda_ ensor3_matrix_multip_icil- g( t3, u1, u2, u3, t3_rec2 ); Li Ci ensor3 6_ 7,_5,efloat> t3_iii_test;si t3_iii_test.l da(1656 en }ni.t3_iii_testin ,t3_rec2 &&.t3_iii_testin ,t3_iiiI>en N SE log( " ensor3 CUBLASomatrixomultip_icil- g along all thre vmodes",,true r en }.i Scpn NSE S s(tstringstream irrnc en nirrncM E << "T3_re da_i(all v rr_s shouldob 1656 : ":<< S s(tincl:<< t3_iii E << S s(tincl;SE log_irrnc( irrnc.str Sc ss }C si //floating poedreTTMsi ensor3 d2_ 3,_4,efloatmal t3f* s all 2006r;si t3f.l da_rand(tsr;si matrix 5,_4,efloat> u3f;si u3f.l da(1r;si ensor3 2_ 3,_5,efloat> t3f_jji; t3f_jji.zero r;si t3_cublas_ttm::multip_y_horizontal_bwd(t3f, u3f, t3f_jji );si si ssi //CUDA HOEIGS_incM ensor3SE floatmprecis- g ,per01;si si //hoeigs testen // hosv2 testmdata af ea 2 *hauwea et al. 2000a i tensor3 da_ a_ 3,_floatmalt3_data_hoeigsLL floatmdata_2 *hw[](= { SE L.9073, 1.7842,e2.1236,eL.8924,e1.7753, -0.6631,e2.1488,e4.2495,e1.8260,lSE L.7158,e1.6970,e-L.r704,e-L.4898_ o( 5077, 1.9103,_L.3054,eL.3207,e2.1335,eSE -L.3698,eL.0151,e1.4429,e2.4288,e4.0337_ o( 7495,e2.3753, 4.7146,e-L.2716 i };SE t3_data_hoeigs.:r Sdata_2 *hw,mdata_2 *hwu+a27);ssi matrix da_ 3,_floatmalu1_hoeigsLL matrix da_ 3,_floatmalu2_hoeigsLL matrix da_ 3,_floatmalu3_hoeigsLL matrix 3,_3,_float> u1_hoeigs_S ohLL matrix 3,_3,_float> u2_hoeigs_S ohLL matrix 3,_3,_float> u3_hoeigs_S ohLL L floatmdata_u1_hoeigs[](= { L.1122204363, L.7738507986,e-L.623347044,lSE L.5770543218,e-L.5614452958,e-L.5931168199_ L.8089591861,eL.2931452692,eL.5095595717};si u1_hoeigs_S oh.:r Scdata_u1_hoeigs,cdata_u1_hoeigsu+a9)LL floatmdata_u2_hoeigs[](= { -L.4624060392,e-L.r1022823341,eL.8866092563,SE -L.886639595,eL.01338403113, -0.4622673988_ L.007138226647, L.9998582006,eL.01525761187 };SE u2_hoeigs_S oh.:r Scdata_u2_hoeigs,cdata_u2_hoeigsu+a9)LL floatmdata_u3_hoeigs[](= { L.6208223701,eL.4985756576,eL.6049809456_ -L.r5741500854,eL.7985514402,e-L.5991820693,SE L.7818458676,e-L.3372507095,e-L.524384439 };SE u3_hoeigs_S oh.:r Scdata_u3_hoeigs,cdata_u3_hoeigsu+a9)LL i siz:inlt3_cublas_hosv2 da_ a_ 3,_3,_3,_3malhosv2_tLL hosv2_t::app_y_all(lt3_data_hoeigs, u1_hoeigs,cu2_hoeigs,cu3_hoeigsu)LL i }ni.u1_hoeigs._ f3 nvu1_hoeigs_S oh,mprecis- g ) >ruu2_hoeigs._ f3 nvu2_hoeigs_S oh,mprecis- g ) >ruu3_hoeigs._ f3 nvu3_hoeigs_S oh,mprecis- g )>en N SE log( "CUBLASoHOEIGS_v2re;r vfadr matric_s U1,eU2,eU3",,true r en }.i Scpn NSE S s(tstringstream irrnc en nirrncM E << "HOEIGS: ":<< S s(tincl E << "U1 shouldob : ":<< S s(tincl:<< u1_hoeigs_S oh:<< S s(tincl E << "U1 is: ":<< S s(tincl:<< u1_hoeigs:<< S s(tincl E << "U2 shouldob : ":<< S s(tincl:<< u2_hoeigs_S oh:<< S s(tincl E << "U2 is: ":<< S s(tincl:<< u2_hoeigs:<< S s(tincl E << "U3 shouldob : ":<< S s(tincl:<< u3_hoeigs_S oh:<< S s(tincl E << "U3 is: ":<< S s(tincl:<< u3_hoeigs:<< S s(tincl en nSE log_irrnc( irrnc.str Sc ss }C si //CUDA HOOI_incM ensor3SE si //testmdata from 2 *hauwea et al. 2000b paper i tensor3 da_ 2,_2,efloat> t3_data;si floatmdata[](= { 0, 1,e2_ 3,_4,e5_ -1,_4,e-2,e-5_ 3,_-6 };SE t3_data.:r Scdata,cdata +a_2u)LL i matrix da_ 2,_floatmalu1_hooi; u1_hooi.zero r;si matrix 2,_2,efloatmalu2_hooi; u2_hooi.zero r;si matrix 2,_1,_floatmalu3_hooi; u3_hooi.zero r;si matrix a_ 2,_floatmalu1_S ohLL matrix d2__2,efloatmalu2_S ohLL matrix d2__1,_floatmalu3_S ohLL floatmdata_u1[](= { SE -L.2789474111071824,eL.4141266306147135,eSE L.5983607967045262,eL.7806355076145295,lSE L.7511009910815754,e-L.4680890279285661 }; //origterl from paper (u1 : {-L.2789,e-L.4141,eL.5984,e-L.7806,eL.7511,lL.4681};si u1_S oh.:r Scdata_u1,cdata_u1 + 6)LL floatmdata_u2[](= { SE L.09816424894941811,lL.9951702267593202,eSE L.9951702267593202,e-L.098164248949418 }; //origterl in paper (u2 : L.0982,e-L.9952,_L.9952,_L.0982};SE u2_S oh.:r Scdata_u2,cdata_u2 + 4)LL floatmdata_u3[](= { -L.5104644303570166,eL.8598988692516616 };//origterl in paper (u3 : {L.5105,e-L.8599};SE u3_S oh.:r Scdata_u3,cdata_u3u+a2>eLi Ci ensor3 d2__2,e1,_floatmalcore_hooi;Ci ensor3 d2__2,e1,_floatmalcore_S ohLL floatmdata_core[](= { -1L.14733447424582,_L.0,_L.0,_-2.760705584847321 };SE core_S oh.:r Scdata_cnce, data_cnce + 4)LL i siz:inlt3_cublas_hooi d2__2,e1,_a_ 2,_2malhooi_cublas_tLL hooi_cublas_t::a nvt3_data,cu1_hooi, u2_hooi, u3_hooi,lcore_hooi, hooi_cublas_t::ilinehosv2,NI>eLi Ci Nk dau1_hooi._ f3 nvu1_S oh,mprecis- g ); i Nk daNk >ru( u2_hooi._ f3 nvu2_S oh,mprecis- g ) ); i Nk daNk >ru( u3_hooi._ f3 nvu3_S oh,mprecis- g ) ); i Nk daNk >ru( u3_hooi._ f3 nvu3_S oh,mprecis- g ) ); i Nk daNk >ru( core_hooi._ f3 nvcore_S oh,mprecis- g ) ); i i }ni.Nk en N SE log( "HOOI_rank-(2_2,1) approximil- g" ,,Nk r en }.i Scpn NSE S s(tstringstream irrnc en nirrncM E << "HOOI_rank-(2_2,1) approximil- g: ":<< S s(t:r precis- g(16):<< S s(tincl E << "U1 shouldob : ":<< S s(tincl:<< u1_S oh:<< S s(tincl E << "U1 is: ":<< S s(tincl:<< u1_hooi:<< S s(tincl E << "U2 shouldob : ":<< S s(tincl:<< u2_S oh:<< S s(tincl E << "U2 is: ":<< S s(tincl:<< u2_hooi:<< S s(tincl E << "U3 shouldob : ":<< S s(tincl:<< u3_S oh:<< S s(tincl E << "U3 is: ":<< S s(tincl:<< u3_hooi:<< S s(tincl E << "cnce shouldob : ":<< S s(tincl:<< core_S oh:<< S s(tincl E << "cnce is: ":<< S s(tincl:<< core_hooi:<< S s(tincl en nSE SE log_irrnc( irrnc.str Sc ss }C i en JvoECtok * }C EenS}* t dda_spacelvmmlaa_inc4,tvmmlibo( 3.5/tests/cutensor_tests.hpp0000644000076500000240000rre053211770276420016554 0us nc eeiles nffr Sc:inl__ine __T3_CUTENSOR_TESTS2_HPP__ #:in*,2 __ine __T3_CUTENSOR_TESTS2_HPP__ yr nclude "nlinetest.hpp" ydda_spacelvmmlaNS class cutensor_tests : p; _ic nlinetest NSEp; _ic:si cutensor_tests Sc: nlinetest( "CUDA ensor3 classes tests"* N}C virtf3 i );n,ru, r;si siSc:t Sc-1:si si};* t class cutensor_testsenS}* t dda_spacelvmmlaa_inc4,tavmmlibo( 3.5/tests/f2c_fix.h0000644000076500000240000rre020611770276420014446 0us nc eeiles nff#:in*,2 integer f2c_fix_integer #:in*,2 uinteger f2c_fix_uinteger siz:inledref2c_fix_integer; siz:inlunsignedledref2c_fix_uinteger; vmmlibo( 3.5/tests/frus um_test.cpp0000644000076500000240000rre056211770276420016232 0us nc eeiles nffr nclude "frus um_test.hpp" yr nclude yr nclude dda_spacelvmmlaNS 3LLLfrus um_test::ru, r aNStttt{s.o(ttttt t TODOs.o(tttttfrus um dda_spacelvmmlaNS 3LLLlapack_gaussian_eliminil- g_test::ru, r {Ctttt siz:inlSc:Crray3,_floatmalSc:3f;sStttt{s.o(ttttt );n,Nk datrue; .o(ttttts.o(tttttmatrix da_ 3,_floatmal lA;s.o(tttttSc:Crray3,_floatmallllllB;s.o(tttttSc:Crray3,_floatmallllllXss.o(ttttttttt ttttttttA( 0, 0* da2; ttttttttA( 0, 1* da1; ttttttttA( 0, 2* da-1; ttttttttB( 0* da8;sSttttttttA( 1, 0* da-3;SttttttttA( 1, 1* da-1; ttttttttA( 1, 2* da2; ttttttttB( 1* da-11;sSttttttttA( 2, 0* da-2; ttttttttA( 2, 1* da1; ttttttttA( 2, 2* da2; ttttttttB( 2* da-3;sStttttttts.o(tttttSmml::lapack::gaussian_eliminil- g dda_spacelvmmlaNS 3LLLlapack_l*,2ar_least_squares_test::ru, r {Ctttt siz:inlSc:Crray3,_floatmalSc:3f;sStttt{s.o(ttttt );n,Nk datrue; .o(ttttts.o(tttttmatrix da_ 2,_floatmal lA;s.o(tttttSc:Crray3,_floatmallllllB;s.o(tttttSc:Crray2,_floatmallllllXss.o(ttttttttt ttttttttA( 0, 0* da1; ttttttttA( 0, 1* da4; ttttttttB( 0* da7;sSttttttttA( 1, 0* da2;SttttttttA( 1, 1* da5; ttttttttB( 1* da8;sSttttttttA( 2, 0* da3; ttttttttA( 2, 1* da6; ttttttttB( 2* da9;sStttttttts.o(tttttSmml::lapack::l*,2ar_least_squares_xgi S da_ 2,_floatmalllsq; .o(ttttttry .o(ttttt{s.o(tttttttttllsq.v2re;r ( A, B, Xc ss.o(ttttttttt }ni.X( 0* - o( 0 yr nclude dda_spacelvmmlaNS 3LLLlapack_sv2_test::ru, r {Ctttt );n,Nkss.o(ts.o(tmatrix d6,_3,_3d; _N,N A;s.o(tmatrix d6,_6,_3d; _N,N U;s.o(tmatrix d6,_3,_3d; _N,N Umnss.o(ts.o(t3d; _N,AData[](= {Stttttttt.814723686393178936349102,ettt.278498218867048397129338,ettt.957166948242945569980122,Stttttttt.905791937075619224550849,ettt.546881519204983845838797,ettt.485375648722841224191882,Stttttttt.126986816293506055153273, ttt.957506835434297598474984,ettt.8002804688888rr111670889,Stttttttt.913375856139019393076239,ettt.964888535199276531351131,ettt.141886338627215335961296,Stttttttt.632359246225409510344662,ettt.157613081677548283465740,lttt.421761282626274991436333,Stttttttt.975404049994095245779135e-1,ettt.970592781760615697095318_tttt.915735525189067089968376s.o(t}ss.o(ts.o(tA(= AData;s.o(ts.o(tSc:Crray3,_3d; _N,N ttttSigma;s.o(tmatrix d3,_3,_3d; _N,N V, Vt;s s.o(t//sv2ec2reos ( U, Wdiag, Vt ettttlapack_sv2 d6,_3,_3d; _N,N sv2 ettttsv2.v2re;r _fuda( A, U, Sigma, Vc ss s.o(ts.o(tVt datranseos ( V etttt s.o(tmatrix d6,_6,_3d; _N,N UCorrc:C;s.o(tmatrix d6,_6,_3d; _N,N UCorrc:C1;s.o(tmatrix d6,_6,_3d; _N,N UCorrc:C2;si // Thet Jduced SVD is nlique up to thetsigns of thetsingulnc Sc:Crrs // Thetfuda SVD instead is not nlique. I.e., thetcolumns MXN in U change according to thetsign. // Therefnce there ace two c4,ferent testscdata sets used. 3d; _N,UCorrc:CData_fuda1[](= { -.435998653539668934442375,eeee-.248052501692949872724725,eeee-.641901537841745417622974,eL.306824841164616279876043, -0.484835942345876347303602,eL.0844403463147926913734409, -.413858526085397582239267,eeee-.365805126224619969743657,e .390978936345444602618038e-1,e-L.771262625195255790977455,e-L.0348587030490726257347944,e-L.311958199966299087879662,ettt -.425433159981805031346624,ettt.515921235828120217092874,et.609523103830292567462124e-1,etL.261339720039846845622833, L.0834226912479650445364499,e-L.688374117746225255842774, -.43848803846546968721043, -L.318922843372823061613985,eL.722667517578294171798348,eL.345009020353229722832123525,eL.34500902035322972284,f ttttttttA(e}* t.345209488846601-.4 -.455033061612874486.43090,ee7.957.03180261801ttt355data1662,085,et417454176262250844,e-80352eL.45,eL.29083 10o(t1tA(188851989,ee-.8446177429o(t13975822681355e-.733,12021709.435973,et59720430L.64637462180ettt47203371159,61808709t.6577,ee-1097807307262573273, 3315429.4557.984,L.0981Stt510 33486c:Crr8588,eL.2800844,2098375404036813d; _N,N 668934442375,eeee-.248052201692949802724725,eeee-.648849,eL2974,eL.3065.7547,3, -0.4848359hoeigs180157,633398569087879867,84,85,et1ttt888rra5,e-L.49802743657,e .39097838e-1,e-L.772019087879977455,e-L.033e-L.5243385398683763a_u2,cd33085,e7124 oh.:r40 3320157502 (u1 4980272874,et.609523-L.52424e-1,etL.261816287875622833, L.08346908787338422.9175022656499,471 6986722.67506tt33720491 498027985,eL.7226675.6750648,eL.3450090226257342352560,lSE5084461646545,e,eL.24,26625-1,e53019087803452403550265-L.498022874486.43090,e3473031ttt355data1662849,eL62250844,e-807_S oh.427ttt59334,eL.610848,lt97383a_u2,cd6,e361841395620-L.498027.435973,et597981805180ettt47203.0981S08709t.6577,e,269087875977571548,l2885198051.o(224.03,lt5,eL.0139976-1,eout_5507 a27); d6,_6,si // Th6922375,eeee-.2480525;6,_6,si // T26922375,eeee-.248052s of theSetrnc.,eee22375,eee (wo c4,ferent t:CDrc:si3444 MXN in Us/ TSc:ts) imil- U en N SE si // Th,Scpt8,1) 4982375,eee =;si // Thet ttca 4982375,eee =;si // Ts of t d6,_6,3d; _N,N V, Vt;s s.o(t//sv2eo(tmatrix d6,, Vt;s /sv2eo(tmatr.27849821atrix S da_ 2,_f21,eL,mda4 -87441ta1668_ 1875946197804850Sttt78537, .708,e384624560o(t3452,S5 d; _N,N tttt/sv2eo(tmatr821/sv2eo(tmatr.278uares_x ( U, Wdiag, Vt ettttlato(tmatri x d6,, Vt;s ato(tmatr.2784982188c4,teigs,e-.2,e09,89193649481eL.5095851,et73819,mda4 o(t7952,_083487282829722140St5da3 };SE.593114688710o48,829.90157577,e10885865-486894 o5006499,6L.65e-82,S510 64073.2,};SE.59180eL2Sttt4639173 L49.4429,3;s.o(084140098 5 L.9-_ 9,et47591eL.203,d; _N,N 6t d6,_6,ato(tmatr821ato(tmatr.278 of t dck_sv2_en N Seigsow_inverted_// Ther u_ransCoret Jduced SV_en N Seigsow_inverted_// Ther v_ransCoret Jdut Jdu#mil1 Jdut JdudaNk >_ransCor sv2 2375,eee a_ 3,mil- g" ,,da_ 2,_fdaNk /sv2emult/sv2eo(tmatrix d6,mil- g" ,,da_ 2,_fdaNk v_ransCor sVt,,ato(tmatr8elvmmlaa#ttcatch(.t JdudaNk UmultUo(tmatrix d6,mil- g" ,fdaNk /sv2emult/sv2eo(tmatrix d6,mil- g" ,fdaNk Vomultato(tmatria#td6,_6,NI lefilique. I. << 3d; _N,Ni e.o(ttttt{s.o(tttttttD,uceximum_rank-(2_2ttS sc en ni)uares_xt etttoler(tinc Xc":8;t Jdu#mil1t JdudaNk >_ransCor sv2 2375,eee,ttoler(tinc)ix d6,mil- g" ,,da_ 2,_fdaNk /sv2e en N SE /sv2eo(tmatr,ttoler(tinc)ix d6,mil- g" ,,da_ 2,_fdaNk v_ransCor sVt,,ato(tmatr,ttoler(tinc)ix d6,a#ttcatch(.daNk U en N SE si // T,ttoler(tinc)ix d6,mil- g" ,fdaNk /sv2e en N SE /sv2eo(tmatr,ttoler(tinc)ix d6,mil- g" ,fdaNk Vo en N SE ato(tmatr,ttoler(tinc)ix d6,#t d6,a6,_6,NI lefilique. I. << 3d; _N,Ni e.o(ttttt{s.o(tttttttD,utoler(tincc":8ttS s(tcox d6,mil- s(tincl e.o8867048397 matrixo(lefivmatrix)\67048397 < A)<< "\n"S"[ "( Uni.fabU<< C(<< "\n"S"[ "( Sc:::Urnc.,eee2i.fabUo(tmatr8< C(<< "ncl E yr ym_ncl:<_squavmmlaNS 3LLLlapack_sv2spacelvmmlaNS 3LLLlapa.hpp>yr ym_ncl:, r {Ct NSE );n,Nk dafae;3LL si .hpp>yr ym_ncl:<_4,efloatmal t3;si si /r;si matrix vpc ssrix d6,_3,_3r;si rix d6, };SE t3_da-2.u2,cd671347308753, 4.5792SE L.78671347124: L.0983.219805189 u1_hoei753, .0983.2198054660.50958542, L.8089,eL.013189 50958542,5770588_ 6,_7malu1_hooi; u1_h+16ecis- g ,atmalC Scpn iii nclenE << si matrix vpc ssrix d6,_3ncl.e., this- 3d; _N,N ssrix d6,_3ncl. << is- .hpp>yr ym_ncl:,N ssrix d6,_33nclis- ncltranseos aV ettncl.e., th,3ncl. << )_3r;si rix d6, };S_ncl. << E t3_d, da768.o(0359424,eL698,e5827,e09992u1_S o03199_5988_ 13508409,14Scda31905tmdatarix d6, };S_ncl.e., th4982188c4.007141757ta16ttt.1_S o054tttt-80376335.442952201284Sc25255842435809147576s.SE L.78922827234015722.67007114243512676,eL.19805452282,S7660019087826,e19,m0448,e6i u1_hoe40622568532791821980535,ee724507893,eL.289tttt4502813517_S oh7885668m042 };SE u2238.771512958978805455Crr12945862990.2908212629o(8,eL.222581219h7897114};si matrix vpc ssrix d6,_3ncl.e., th2,_L.0,_L.3d; _N,N ssrix d6,_3ncl. << 2,_L.0,_L.ncl. << 2,_L.0821 };S_ncl. << ,_L.ncl.e., th2,_L.0cublas_hooincl.e., th,3_hooincl.e., thooi.6zero r;si rix d6,testmdata af1.0e-10ecis- g )ncl. << en N SE ncl. << 2,_L.0S oh,mprecis- g ) ); i Nk dncl.e., th en N SE ncl.e., th2,_L.0S oh,mprecis- g oximil- g" ,188c4.NI lefivmatrix) nclenE << 3d; _N,Ni e.o(ttttt{s.o(t ;SE Ssp"[E << OI_rank-(2_2,1) approximil- g: ":<< S s(t:r preivmatrix) nclenE << 3d; _N,Ni e.o(ttttt{s.o(tncl:<< u1_hoeigs_S oh:yr ym_ncl:,N ssrix d6,_33ncl ,_L.nclstranseos x ettnclx.e., th,3nclx. << )_3r;si matrix vpc3ssrix d6,_3nclx.e., th2,_L.0,_L.3d; _N,N3ssrix d6,_3nclx. << 2,_L.0,_L.3d; _N,N ssrix d6,_3ncl.d; _N2,_L.0,_L.rix d6,first_ncl. << dada768.o(0359424,datarix d6, };S_nclx. << E t3_d, da768.o(0359424,eL698,e5827,e09992u1_S409,14Scda31905t mdatarix d6, };S_nclx.e., th4982188c4.007141757ta16ttt.1_S o054tttt-80376335.442942435809147576s.S L.59836022827234015722.67007114243512676,eL.1980526,e19,m0448,e6i u1_hoe40622568532791821980535,ee724507893,eL oh7885668m042 };SE u2238.771512958978805455Crr12945862990.222581219h7897114 mdatanclx. << 2,_L.0821 };S_nclx. << ,_L.nclx.e., th2,_L.0cublas_hooinclx.e., th,3_hooinclx.e., thooi.ensor3nclx.e., th2,_L.0c( "l// ThetA( 1ncl.d; _N2,_L.0rix d6atma( ",first(ncl. << aCU ncl.d; _N_L.3d; _N,N ssrix d6,_3ncl.d; _Ndatarix d6,ncl. <<,_L.nclstranseos 1virtettncl.e., t,3ncl. < m, m_inver S s(tinmt3_M_hoo4x4N ttttSigmaMk_sv24_mix tryl tmal ;mmarB(30*2 et 8; de;3c<< S si rom csSch(...cl tm}x tryl tmal ;mil- g" , mmarB( 1*, 0r;rom csSch(...cl tmt 8; de;3c<< S si rom tryl tmal ;mil- g" , al ;mal ; m[ 3 ][ 2 ]ix 8; de;3c<< S si rom rom csSch(...cl tm}x NI lefsafe access tho(debug opSc:t) ;SE Ssp"} getSubMk_sv2l e.o8867048397ced SVD 2pc3ssrix d6,_3 m_src7;sSttttttrix d6,m_src_ };SE t3_da1, 2pc3ss L2196N,N tttt8397c_srce;3m_src_ };Sttttttttced SVD 1pc2ssrix d6,_33m_subspp d6, d6,m_srcc( "lsub_ced SV(3m_sub,( 1*, 0tttttttto,,,,ttttced SVD 1pc2ssrix d6,_3resultN ttttttttrix d6,res_ };SE t3_da5906N,N ttttttttresultt3_res_ };Stttttttto,,,,,,,,atrix de;3m_sube;;3resultN ttttttttNI lef( "lsub_ced SV() ;SE Ssp"} tttto,,,,8867048397ced SVD 2pc3ssrix d6,_3 m_src7;sSttttttrix d6,m_src_ };SE t3_da1, 2pc3ss L2196N,N tttt8397c_srce;3m_src_ };Stttttttt867048397ced SVD 2pc2ssrix d6,_33m_subspsSttttttrix d6,m_sub_ };SE t3_da.28828i f0N,N tttt8397c_sube;,m_sub_ };Stttttttt867048397c_srccs "lsub_ced SV(3m_sub,(01*, 0tttttttto,,,,ttttced SVD 2pc3ssrix d6,_3resultN ttttttttrix d6,res_ };SE t3_da1, .28828428i f0N,N tttt8397resultt3_res_ };Stttttttto,,,,,,,,atrix de;3m_srce;;3resultN ttttttttNI lefs "lsub_ced SV() ;SE Ssptttto,,,,} a_spmatrix inver e.ofk 2x2l e.o8867048397t3;si si /ttttttttced SVD 2pc2ssrix d6,_3M,3M_inver S,SM_inver S_c(tmatria8397t ettM_hooE t3_a8397#mil1t Jdu8397{ 18, 3., 4. 2.N,N tttttttt#ttca,da_ 2,_f886704839783977114o256863931389363491 94665.44127586ettt9350551532728823,8670483978397790579193707561922455Cr486e488eL.19r91337585613901939323933927973t Jdu8397,N tttttttt#t d6,ttttMt3_M_hooa8397t ettM_inver S_c(tmatr_ };SE t3_867048397#mil1t Jdu8397{ 095264993442948051N,N tttttttt#ttca,da_ 2,_f8 971.45181e64646601823940136455348.S -.2018466181e88e985784450236678822,8670483978397-1.472763942s.2288790699985838.280, 15270010188118449h789778227641364t Jdu8397,N tttttttt#t d6,ttttM_inver S_c(tmatrt3_M_inver S_c(tmatr_ };Sa8397M.inver S(3M_inver S )ix d6,,,,,,,,,,,,x d6,,,,, de;3M_inver S =3_M_inver S_c(tmatr si NI lefmatrix inver e.ofk 2x2tced Sces,tceximumrfadr ma ;SE ,/ Ssp d6, d6,mil- ! g" ,,da_ 2,_f88670483978397 de;3M_inver Smen N SE M_inver S_c(tmatr,Scpt15 et 8;NI lefmatrix inver e.o2x2,ttoler(tin:Scpt15. ;SE Ssp d6, d6,}p d6, d6,mil- ! g" ,,da_ 2,_f8tto ;;nk-(2_2,1) approximil- g: ":<< S 8 d6,,,,,,,,,,,, prematrix Mt"s JvMs8 d6,,,,,,,,,,,, preinver S,(lC Scpnd)"s JvM_inver S,8 d6,,,,,,,,,,,, preinver S,(lCtmatr)"s JvM_inver S_c(tmatrt8 d6,,,,,,,,,,,, pre fs "s JvM_inver S,-vM_inver S_c(tmatrt8 d6,,,,,,,,,,,, pru1_hoeigsA HOOcM ensor3SE si //testmdatatttttttt}otttt}oc a_spmatrix inver e.ofk 3x3m867048867048397t3;si si /67048397ced SVD 30*3,_3M,3M_inver S,SM_inver S_c(tmatria8397t ettM_hooE t3_{88281196, 3 L219.28428i f2N,N ttttttttMcublasM_hoo,sM_hoo + 9 Sspp d6, d6,t ettM_inver S_c(tmatr_ };SE t3_8670483972,_f8tt414o22222222222222222222222222222S -.1444444444444444444444444444444419r63888888888888888888888888888889pt1,8 d6,,,,,,,,,,,, -.61111111111111111111111111111111pt1, .22222222222222222222222222222222pt1, .10555555555555555555555555555556,8 d6,,,,,,,,,,,, -.19444444444444444444444444444444pt1, .188888888888888888888888888888u1_S-.10277777777777777777777777777778N,N o,,,,,,,,M_inver S_c(tmatrcublasM_inver S_c(tmatr_ };S,SM_inver S_c(tmatr__hoo + 9 Sspp d6, d6,M.inver S(3M_inver S )ix d6,,,,,x d6,,,,, de;3M_inver S =3_M_inver S_c(tmatr si NI lefmatrix inver e.ofk 3x3mced Sces,tceximumrfadr ma ;SE ,/ Ssp d6, d6,mil- ! g" ,,da_ 2,_f88670483978397 de;3M_inver Smen N SE M_inver S_c(tmatr,Scpt15 et 8;NI lefmatrix inver e.o3x3,ttoler(tin:Scpt15. ;SE Ssp d6, d6,}p d6, d6,mil- ! g" ,,da_ 2,_f8tto ;;nk-(2_2,1) approximil- g: ":<< S 8 d6,,,,,,,,,,,, prematrix Mt"s JvMs8 d6,,,,,,,,,,,, preinver S,(lC Scpnd)"s JvM_inver S,8 d6,,,,,,,,,,,, preinver S,(lCtmatr)"s JvM_inver S_c(tmatrt8 d6,,,,,,,,,,,, pru1_hoeigsA HOOcM ensor3SE si //testmdatatttttttt}otttt}oc a_spmatrix inver e.ofk 4x4 867048867048397t3;si si /67048397ced SVD vpc ssrix d6,_3M,3M_inver S,SM_inver S_c(tmatria8397t ettM_hooE t3_{817., 24. 18, 8., 23., 5., 7., 14. t dda_________4. 6., 13., 20., 10., 12., 19., 21.N,N ttttttttMcublasM_hoo,sM_hoo + 16 Sspp d6, d6,t ettM_inver S_c(tmatr_ };SE t3_{ 05.780346820809248e-03S04.962209424633130e-02S -47111027123165852e-02S 1.49399733214o622e-02S 8 d6,,,,,,,,,,,, 4.2774566473988e4e-02S -3.7972432192.3907e-02S -1.01378t3957314e-02S 1.867496665184526e-02S 8 d6,,,,,,,,,,,, -3.93635838150288e-02S -1.333926189417519e-02S -1.333036905291240e-0 1*,.5Cr22587ett8074e-0 1*8 d6,,,,,,,,,,,, 1.38.28336i94219e-02S 1.01378t3957314e-02S 1.4931080481343e-0 1*-1.066251667407707e-01N,N o,,,,,,,,M_inver S_c(tmatrcublasM_inver S_c(tmatr_ };S,SM_inver S_c(tmatr__hoo + 16 Sspp d6, d6,M.inver S(3M_inver S )ix d6,,,,,x d6,,,,, de;3M_inver S =3_M_inver S_c(tmatr si NI lefmatrix inver e.ofk 4x4 ced Sces,tceximumrfadr ma ;SE ,/ Ssp d6, d6,mil- ! g" ,,da_ 2,_f88670483978397 de;3M_inver Smen N SE M_inver S_c(tmatr,Scpt9 et 8;NI lefmatrix inver e.o4x4,ttoler(tin:Scpt15. ;SE Ssp d6, d6,}p d6, d6,mil- ! g" ,,da_ 2,_f8tto ;;nk-(2_2,1) approximil- g: ":<< S 8 d6,,,,,,,,,,,, prematrix Mt"s JvMs8 d6,,,,,,,,,,,, preinver S,(lC Scpnd)"s JvM_inver S,8 d6,,,,,,,,,,,, preinver S,(lCtmatr)"s JvM_inver S_c(tmatrt"\n"S"[ "( SSSSSoh:"fS"s JvM_inver S,-vM_inver S_c(tmatr8 d6,,,,,,,,,,,, pru1_hoeigsA HOOcM ensor3SE si //testmdatatttttttt}otttt}o,,,,x d6,ublas....ncl e.o8867048397t3;si si /tttttttto,,,,,,,,rix d6,m.278498218 7,a1, 2pc3ss L2196, .28828i f1 0*110*120*130*14_S12N,N tttttttt67048397ced SVD vpc ssrix d6,_3m4x4N tttt8397ced SVD vpc ssrix d6,_3m4x4CN tttt8397c4x4Ce;3mD};Sa8397c4x4malu1_mDhoo,_mDhoo + 16,/ Ssp d6, d6,x d6,,,,, de;3c4x4 ==3m4x4CN tttt8397 tttt8397c4x4Ce;3 UCorrc:C;sm4x4Ce0tttttttto,,,,ttttc4x4malu1_mDhoo,_mDhoo + 16,/c<< S tcotttttttto,,,,,,,, de;3m4x4 ==3m4x4CN tttt8397 tttt8397NI lefs "(itersS t_r,St3;si) ;SE tcou dib/matrix_fucstd>b/matrix_fu_ys/time.h>ib);n__ #::Ve., t3f,3d;3f;b);n__ #::Ve., t3d,3d;3d;b);n__ #::Ve., t4f,3d;4f;b);n__ #::Ve., t4d,3d;4d;b timeval t_ime, _ime;b .o(ts.( "lrandom() { ttttstsScc_casribttt );n,Nkss.o(ts.void perform(tin_::new_lelCnsnk-(2_2,1) & ) { tttt_NI ,oh:b/matrix_fuEe., teltttt );n,Nkss.o(ts.class perform(tin_(tsp eSc: ttttvirtual ~perform(tin_() {}p d6,virtual void N,N A d0;octtttvoid new_lelCnsnk-(2_2,1) & );cttttvoid tet(elCnsnk-(2_2,1) & );cttttvoid teoptm;ttttoelvmcttttvoid lC Sare(); ttttoelvmfri nk-(2oapprox&SopersSor oh:(tsk-(2oapprox&Sos, 8 d6,,,,,lCnsperform(tin_&sperform(tin__ oatmal oi,oh:perform(tin__._NI /testmsp"[ssp"} protd; ed:ctttto(t} _2,1) approxiiiiiii_NI ; ttttime/ _ime/;ctttto(t} 3d; _N,Nrix d6,_333_lasr_imes;c;class perform(tin_(qr_delC Sc:ition_c0000644000076500000240000rr13465117702722254 00610320100us nc eeiles nffvmmlaNS "qr_delC Sc:ition_vmmlib/matrix_fu/qr_delC Sc:itionvmm>b/matrix_fu/mad SVvmm>bi/matrix_fu_approx>btttt );n,Nkss.o(tst3;s qr_delC Sc:ition_::N,N A { ttttt3;si si /6704celvms qr delC Sc:ition us1) 1moied gram-schmidtl e.o8867048397ced SVD 3pc3ssrix d6,_3A, Q, Rcoelvmmlaarix d6,A };SE t3_da1228-51pc ss62816.S -17L.-4ag24S -41N,N ttttttttAmalu1_A };S,_A_hoo + 9 Sspttttttttqr_delC Sc:e_gram_schmidt(3A, Q, R Sspp d6, d6,t ettQc(tmatrE t3_d8 d6,,,,,,,,,6./.S -19./1751958./17518 d6,,,,,,,,,3./.S 158./1751 -1./17518 d6,,,,,,,,,-2./.S 1./352833./35t}tttttttto,,,,ttttt ettRc(tmatrE t3_d*14_S210*-14_S 0*1751 -70,70,70,-35t}ttttttttced SVD 3pc3ssrix d6,_3Qc, Rc7;sSttttttQcmalu1_Qc(tmatr,SQc(tmatr + 9 SspttttttttRcmalu1_Rc(tmatr,SRc(tmatr + 9 Ssppttttttttfk * }ize_t iP__x 3_0; dek diP__x < 3; ++iP__x ,,da_ 2,_f886704839783973d; _N,N3ssrix d6,_3q 3_Q/( "l// ThetAiP__x ,;86704839783973d; _N,N3ssrix d6,_3qce;3Qc/( "l// ThetAiP__x ,;8670483978397 si /q}== qc;vt dda_spacelviil- ! g" , a dda_spacelv886704839783977777qe*=3-1.0N tttt839783978397 si /q}== qc; tttt83978397} tttttttt}ottttttttfk * }ize_t iP__x 3_0; dek diP__x < 3; ++iP__x ,,da_ 2,_f886704839783973d; _N,N3ssrix d6,_3re;3R/( "lrowBAiP__x ,;86704839783973d; _N,N3ssrix d6,_3rce;3Rc/( "lrowBAiP__x ,;8670483978397 si /re;;3rc;vt dda_spacelviil- ! g" , a dda_spacelv886704839783977777re*=3-1.0N tttt839783978397 si /re;;3rc; tttt83978397} tttttttt}ottttttttottttttttNI lefQR delC Sc:ition us1) 1moied gram-schmidt,tceximal fadr ma ;SE ,/ Ssp d6, d6,p d6, d6,mil- ! g" ,,da_ 2,_f88670483978397 de;3670483977777rix d6, oler(tint3 1e-9670483977777fk * }ize_t iP__x 3_0; dek diP__x < 3; ++iP__x ,,da_ 2,_fcelv8867048397839777773d; _N,N3ssrix d6,_3q 3_Q/( "l// ThetAiP__x ,;867048397839777773d; _N,N3ssrix d6,_3qce;3Qc/( "l// ThetAiP__x ,;86704839783978397 de;3qmen N SE qc,ttoler(tin );vt dda_spacelv d6,mil- ! g" ,vt dda_spacelv d6,8867048397839777777777qe*=3-1.0N tttt8397839783978397 de;3qmen N SE qc,ttoler(tin ); tttt839783978397} tttt83978397} ttttttttttttfk * }ize_t iP__x 3_0; dek diP__x < 3; ++iP__x ,,da_ 2,_fcelv8867048397839777773d; _N,N3ssrix d6,_3re;3R/( "lrowBAiP__x ,;867048397839777773d; _N,N3ssrix d6,_3rce;3Rc/( "lrowBAiP__x ,;86704839783978397 de;3rmen N SE rc,ttoler(tin );vt dda_spacelv d6,mil- ! g" ,vt dda_spacelv d6,8867048397839777777777re*=3-1.0N tttt8397839783978397 de;3rmen N SE rc ); tttt839783978397} tttt83978397} ttttttttttttNI lefQR delC Sc:ition us1) 1moied gram-schmidt,ttoler(tin 1e-9 ;SE Ssp d6, d6, d6,mil- ! g" ,vt dda_spacelv886704839783977777nk-(2_2,1) approximil- g:6704839783977777<< S soh:" A "s JvASoh:u1_hoeigsA celvvvvvvvvv7777<< S soh:" Q "s JvQSoh:u1_hoeigsA celvvvvvvvvv7777<< S soh:" Qc "s JvQcSoh:u1_hoeigsA celvvvvvvvvv7777<< S soh:" fS"s JvQ -vQcSoh:u1_hoeigsA celvvvvvvvvv7777<< S soh:" RS"s JvRSoh:u1_hoeigsA celvvvvvvvvv7777<< S soh:" Rc "s JvRcSoh:u1_hoeigsA celvvvvvvvvv7777<< S soh:" fS"s JvR -vRcSoh:u1_hoeigsA celvvvvvvvvv7777o(t} s.o(t Jv si //testmdoh:u1_hoeigsA celvvvvvvvvv} tttttttt}otttt} tttt} qr_delC Sc:ition_h0000644000076500000240000rr13465117702722254 00053320106us nc eeiles nff_HPP__ #__nclu__QR_DECOMPOSITION_TEST__HPP__ #HPP__e#__nclu__QR_DECOMPOSITION_TEST__HPP__ tvmmlaNS "unit_vmmlibttt );n,Nkss.o(ts.class qr_delC Sc:ition_ : p eScdunit_(tsp eSc: qr_delC Sc:ition_() : unit_lefQR delC Sc:ition" ) {}p ttttt3;siN,N A; protd; ed:c;class qr_delC Sc:ition_(qtu.0er3_ns t_rc0000644000076500000240000rr134651177027622254 0135667us nc eeiles nffvmmlaNS "qtu.0er3_ns t_rvmmli/matrix_fu/qtu.0er3_ns tvmm>b/matrix_fu_approx>btttt );n,Nkss.o(ts t3;s qtu.0er3_ns t_r::N,N A tmal t3;si si /c<< S si rix d6,fadr ma =3ig001et 8 g );n__ #rix d6,TlvaluS; g );n__ #rix d6,Tlcoeff; g );n__ #ns t3D iag2ss2ssTlvaluS> t3_);n; g );n__ #ced SVD iag2ssTlcoeff,_3u1_);n; g );n__ #ced SVD 2ag2ssTlcoeff,_3u2_);n; g );n__ #ced SVD 2ag1ssTlcoeff,_3u3_);n; g );n__ #ns t3D 2ag2ss1ssTlcoeff,_3core_);n; g );n__ #3_hooiD 2ag2ss1ssiag2ss2ss.o(ts.o(hooi_);n; g );n__ #qtu.0er3_ns tD 2ag2ss1ssiag2ss2ssTlvaluS,.Tlcoeff,_3tu.03_);n; g g g maS_hoo from lathauwer et al. 2b paper (s SasAiP#3_hooi_( TlvaluS. };S_<< 498218 7,a1, 2pc3ss L219-1pc ss-228-5pc3ss-6N,N OOt3_);n#3_ };S_<< N OOt3_ };S_<< malu1_hooi_<< ,_hooi_<< ooi.2,)et 8 g Tlcoeff, };S_u1_hooi498218 E L-2789474111071824S 0.4141266306147135288c4.0.89836079670452622878063550.6145295288c4.0.75110099108157548054680899285661N,Noriginal from paper (u1): {-27898054141, 0.89848057806287511, 0.4681,N OOu1_);n u1_hooi_,_L.0r;u1_hooi_,_L.0malu1_hooi_u1_hooi,_hooi_u1_hooiooi6)et 8 g Tlcoeff, };S_u2_hooi498218 E Lig09814894941811, 0.995267593202288c4.0.99526759320228-ig098148949418N,Noriginal iP#paper (u2): ig098228-ig9952, 0.9952, 0.0982,N OOu2_);n u2_hooi_,_L.0r;u2_hooi_,_L.0malu1_hooi_u2_hooi,_hooi_u2_hooiooi4)et 8 g Tlcoeff, };S_u3_hooi498218-81044 303570166288898988692516616};original iP#paper (u3): {8108-8899,N OOu3_);n#u3_hooi_,_L.0r;u3_hooi_,_L.0malu1_hooi_u3_hooi,_hooi_u3_hooiooi2)et 8 g Tlcoeff, };S_core_hooi498218 -1014o33447424582eL.24eL.24ss-2.76070558eL.7321N,N OOcore_);n core_hooi_,_L.0r;core_hooi_,_L.0malu1_hooi_core_hooi,_hooi_core_hooiooi4)et 8// fill S_hoot 8 g u1_);n u1_hooi; u1_hooi.zero()et 8u2_);n u2_hooi; u2_hooi.zero()et 8u3_);n#u3_hooi;#u3_hooi.zero()et 8core_);n core_hooiet 8 g u.03_);n3tu.03_hooiet 8tu.03_hooi.tu.0er_N SE t3_ };S_<< ,(hooi_);n::__iS_hosvdtmdata ftu.03_hooi.( "lu1( u1_hooidata ftu.03_hooi.( "lu2( u2_hooidata ftu.03_hooi.( "lu3(#u3_hooidata ftu.03_hooi.( "lcore( core_hooi )et 8 g - g )u1_hooi.en N SE u1_hooi_,_L.0,,fadr ma tcor; de;3 dek du2_hooi.en N SE u2_hooi_,_L.0,,fadr ma tcor; de;3 dek du3_hooi.en N SE u3_hooi_,_L.0,,fadr ma tcor; de;3 dek dcore_hooi.en N SE core_hooi_,_L.0,,fadr maoet 8 g mil- g" ,, tm t 8;NI lefTu.0er ALS: rank-(2,2,1 approximation (s SasAT3_HOOI)" ;S Ssp"[E << l tmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh:bt/matrix_fu/madhvmm>bius1) 1u1_;tttt );n,Nkss.o(ts);n__ #quaternion(_QD};S,_QD};Sooi4 Ssp d6, d6,mil- dek dtquaternion_t!= q ,,da_ 2,_fcelv si /c<< S stttt83978397stttt8397 stttt8397NI lefopersSor= ;SE tc8397sttttacelvmcelvm; _N.sl e.o8aottttttttt3;si si /67048397quaterniond qq( q ,N tttt8397mil- q != qq ,,da_ 2,_fcelv si /c<< S s67048397quaterniond t(a1.S 1.ag3.ag8 Ssp d6, d6,mil- dek dq != t ,,da_ 2,_fcelv si /c<< S s670483973d; _N,N3ssrix d6,_3xyzcoelvmmlaarix d6,xyzD};SE t3_da1.S 1.ag3.t}ttttttttxyzt3_xyzD};S stttt8397stttt8397quaterniond s(_xyzag8 Ssp d6, d6,mil- dek dq != s ,,da_ 2,_fcelv si /c<< S stttt83978397 0467048397ced SVD 3pc3ssrix d6,_3cedcoelvmmlaarix d6,cedD};SE t3_da1.S 0.S 0.S 0.S 0.S 1.S 0.S -1.S 0.t}ttttttttced =,cedD};S67048397quaterniond u- ced Ssp d6, d6,p d6, d6,mil- u.w() ! )( sqt(e2. , /e2. , ,,da_ 2,_f88670483978397 de;3c<< S stttt8397}ottttttttottttttttmil- u.x() ! )- t*, / sqt(e2. , , ,,da_ 2,_f88670483978397 de;3c<< S stttt8397}ottttttttottttttttmil- u.y() ! )0 || u.z() ! )0 ,,da_ 2,_f88670483978397 de;3c<< S stttt8397}ottttttttottttttttNI lefcontesutrors ;SE tcosttttaccelvms " r2,_f8aottttttttt3;si si /67048397quaterniond qqq67048397qqqmalu (a1.S 1.ag3.ag8.t,N tttt8397mil- qqq != q ,,da_ 2,_fcelv si /c<< S stttt83978397stttt8397NI lefs "(_x,y,z,w ) ;SE tcou db/matrix_f"unit_vmmlibttt );n,Nkss.o(tsclass quaternion_ : p eScdunit_(tsp eSc: quaternion_() : unit_lefquaternion" ) {}p d6,virtual t3;siN,N A; ,N o}_2,1) c0000644000076500000240000rr13465117702764200000022254 010626060us nc eeiles nff/matrix_fu/Evmm>bi/matrix_fu_2,1) el/matrix_fuioapprox>b/matrix_fuEe., teltSns.main( Sns.argc, lCnschar* argv[] ) { 4ma)ced SV3 _2,1) .sl;nk-(2_2,1) )ced SV3_hoo = "1.0 3.2e2.1a1.5 6.4 2 7 15.3_1.0";//" 3.2e2.1a1.5 6.4 2 7 15.3" ::Med SV3 token N Onk-(2_2,1) )cutmant_okenN Ofk * }ize_t i 3_0; i < 9; ++i ,, mal ::_2,1) Utils::to__2,1) < }ize_t >( S,)cutmant_okendata ftoken .push_back(:cutmant_okendata }s. si /m3malu18token t,N mil- g" ,vtHOo(t} s.o(t Jvm3 oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:lmed SV3 "alu(elCnsnk-(23d; _N,Nnk-(2_2,1) )>&valuSs )",oh:u1_hoeigsA mad SV3_hoo.cleastmsp" si /m3mgetS2,1) 18ced SV3_hoo, SE"t,N mil- g" ,tHOo(t} s.o(t Jvmed SV3_hoo oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:lmed SV3 "getS2,1) 18.. , ",oh:u1_hoeigsA ma)ced SV4 _2,1) .sl;nk-(2_2,1) )ced SV4_hoo = "1.0 3.2e2.1a1.5 6.4 2 7 15.3_1.0 3.2e2.1a1.5 6.4 2 7 15.3"; ::Med SV4( S,)cutmant_okendata ftoken .push_back(:cutmant_okendata }s. si /m4malu18token t,N mil- g" ,vtHOo(t} s.o(t Jvm4 oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:lmed SV4 "alu(elCnsnk-(23d; _N,Nnk-(2_2,1) )>&valuSs )",oh:u1_hoeigsA mad SV4_hoo.cleastmsp" si /m4mgetS2,1) 18ced SV4_hoo, S:"t,N mil- g" ,tHOo(t} s.o(t Jvmed SV4_hoo oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:lmed SV4 "getS2,1) 18.. , ",oh:u1_hoeigsA ma)3d; _N2 _2,1) .sl;nk-(2_2,1) )3d; _N2_hoo = "1.0 3.2"; ::Ve., t2( S,)cutmant_okendata ftoken .push_back(:cutmant_okendata }s. si /v2malu18token t,N mil- g" ,vtHOo(t} s.o(t Jvv2 oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:l3d; _N2 "alu(elCnsnk-(23d; _N,Nnk-(2_2,1) )>&valuSs )",oh:u1_hoeigsA 3d; _N2_hoo.cleastmsp" si /v2mgetS2,1) 183d; _N2_hoo, SE"t,N mil- g" ,tHOo(t} s.o(t Jv3d; _N2_hoo oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:l3d; _N2 "getS2,1) 18.. , ",oh:u1_hoeigsA ma)3d; _N3 _2,1) .sl;nk-(2_2,1) )3d; _N3_hoo = "1.0:3.2:23:"; ::Ve., t3( S,)cutmant_okendata ftoken .push_back(:cutmant_okendata }s. si /v3malu18token t,N mil- g" ,vtHOo(t} s.o(t Jvv3 oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:l3d; _N3 "alu(elCnsnk-(23d; _N,Nnk-(2_2,1) )>&valuSs )",oh:u1_hoeigsA 3d; _N3_hoo.cleastmsp" si /v3mgetS2,1) 183d; _N3_hoo, S,E"t,N mil- g" ,tHOo(t} s.o(t Jv3d; _N3_hoo oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:l3d; _N3 "getS2,1) 18.. , ",oh:u1_hoeigsA ma)3d; _N4 _2,1) .sl;nk-(2_2,1) )3d; _N4_hoo = "1.0,3.2,5.5555, 9797.7"; ::Ve., t4&valuSs )",oh:u1_hoeigsA 3d; _N4_hoo.cleastmsp" si /v4mgetS2,1) 183d; _N4_hoo, S,E"t,N mil- g" ,tHOo(t} s.o(t Jv3d; _N4_hoo oh:u1_hoeigsA H << l to(t} s.o(t Jv"failed:l3d; _N4 "getS2,1) 18.. , ",oh:u1_hoeigsA }_vd_lapack_vs_oldc0000644000076500000240000rr134651177027642022254 0041170143us nc eeiles nff/matrix_f"_vd_lapack_vs_oldvmmlib/matrix_fu/mad SVvmm>b/matrix_fu/Ee., tvmm>bi/matrix_fu/lapackvmm>b/matrix_fu/_vdvmm>bi/HPP__e#ncluIB_LAPACK_DEBUG_OUTibttt );n,Nkss.o(ts.void _vd_lapack_vs_old::N,N A { 2,_fs.nsnize_t itersSionst3_10spp d6,new_le"_vd old vs lapack (rix d6,fadr ma)" tcou d<8867048397ced SVD 4pc ssrix d6,_3A;867048397ced SVD 4pc ssrix d6,_3U;867048397ced SVD 4pc ssrix d6,_3Vtsp d6, d6,3d; _N,N ssrix d6,_3sigmS67048397rix d6,AD};SE t3_d6704.567821640725221121748234,6704.77916723012011165726594,6704.46939541058205826396943,6704.79428454068395496996049, 8 d.758542895630636149206794e-1pc704.93410684229182985838236, .11920695012413968427722e-1pc704.31121504480487931761 0*8 d.53950118666601497199937e-1pc704.12995420L.73730133690083,6704.3371224 39888151ack04.7stmsp"fk * }ize_m5331529562121746or5,,,lCn8660 566008970488992628 * }ize4889260872192715or5108 * }iz1621890819321pc5238stm5 * }iz16561 0294997809325 6pc5lvmc #d6,3d; _N,NA4.5A048397quaterniUet 8 g97quaterniVtet 8 g97quaterni70483et 8 g977quaterni7nsnk"apa<886704833333ttfk * }ize_t iP__x 3_0< 4; ++i ,nst3_1 mal fk * }iz978397 de;3c<b/matrix_fu/Ee., tvmm>bi/matrix_fu/lapackvbi/HPP__e#nu/lc>biux_fu/Elimitsx_fuioapprox>b/matrix_fuEe., telbtttt );n,_fu/Ee., tvmm>bi/matrix__Nkss.o(ts.class qr /m3mck_vli/m{ ttttt3;si si /6704celvsi si6ag2ssTlcoe3,_3A;867048397ced 6ag2ssTlcoe3,_3A;867048397ced 7ced D};SE t3_d6704.56782166666.814111686708 d89363491981666.278495228828969889328 * }iz957or904.429455, 8804412782166666.90512704075619224551339 * }ize4604.7s-1p4953954539 939541m537561 0239544141382812782166666.1269868 6p9395605553273 * }iz95756996543429757807478062666.876160444406594,708892782166666.93,6563067220270960 6239 * }iz961 8m537s-9276531521132995420L42882328pc253359688962782166666.6323592462254095103446681666.157672081677504.834657e34795412 d.528262pc49914363332782166666.97500000999409524501235.934106847059278 d.0615o47095318 * }iz9157355251890,7089999676lvmc #d6ced 7ced A4.5A048397quatU4.5A048397quattual ~ssrix d6,_3v1(s-6 LLLLLWdiag97ced 6ag2ssTlx d6,_3cedcoelv, d6,3d; 7ve( t3_ };S_U,iWdiag,iVte867048370483704836ag2ssTlcoe3,_3A;867048 U,,da_ 2;7ced D};SE tU,,da_ 2_d6704.5678216-.435998653739668934442375 * }iz248052501692949 02724115 * }i-.64135378417454176229706266678216-.4138630260m539758223926939543658051264146199o474365939.2209d8936345444602618038.93410678216-.425433159981805031546684 * }i-.559212354.81202 d092870626.609523103830292567462124.93410678216-.43958803846546999c23012150892395,652828 d2636288 * }i .0236675175782945607d.045 * }78216-.25434864793286530*8 d49112150504015595128p0363684 * }i-..42833917615244552016442 * }78216-.8r;596900685962883095981666-.580c254d093578371878660628.39 54599d.5m539139750704.1299542lvmc #d6,3d; U,,da_ 24.5U,,da_ 2_d6d6,3d; ~ssrix d6,_3v1(s-6 LLLLLWdiag,,da_ 2;7ced D};SE tWdiag,,da_ 2_d6704.57048396,NI lefcr2.65122281254341951265670,7.05962597504600228876192, .04.4033219956050582.8155 lvmc #d6ced Wdiag,,da_ 24.5Wdiag,,da_ 2_d6lvsi si6ag2ssTlx d6,_3cedcoelv, d,,da_ 2;7ced D};SE t d,,da_ 2_d6704.5678216-.52396589395.8512357062.2928pc75.93478216-.6235539395-.80,76365 * }iz66766152478216-.580248529395-.331573599395-.74344444,lvmc #d6ced d,,da_ 24.5 d,,da_ 2_d66704837048367U, ,,U,,da_ 2;7ced ,vtHOo(t} 67Wdiag, ,,Wdiag,,da_ 2;7ced ,vtHOo(t} 67Vtet=, d,,da_ 2;7ced 7ced "(_x,y,ingusSio;S_<< 4tion_(l fadr umma ;SE ,/ Ssp d6, d6,7ced D};SE tnt3 1e-9670488;7048367U core_hooU,,da_ 2tin ); tttt83978397,vtHOo(t} 67Wdiag core_hooWdiag,,da_ 2tin ); tttt83978397,vtHOo(t} 67Vt core_hoo d,,da_ 2tin ); tttt83978397"(_x,y,ingusSio;S_<< 4tion_(l n 1e-9 ;SE S8ostttt8397 ttt" ,,da_ 2,_f886767821666661) approximil- g: ssvvvvvv77777s7quaterni_N,Ned:lU_hoeigUoeig"\n"7quaterni_N,Ned:lU_+ 9 SspphoeigU,,da_ 24eig"\n"7quaterni_N,Ned:lU_JvR -vRcSoU,,da_ 24-gUoeig"\n"7quaterni_N,Ned:lWdiag,vRcSoWdiag,eig"\n"7quaterni_N,Ned:lWdiag,+ 9 SspvRcSoWdiag,,da_ 24eig"\n"7quaterni_N,Ned:lWdiag,JvR -vRcSoWdiag,,da_ 24-oWdiag,eig"\n"7quaterni_N,Ned:lVpphoeigV24eig"\n"7quaterni_N,Ned:lV24+ 9 SspvRcSo d,,da_ 24eig"\n"7quaterni_N,Ned:lV24JvR -vRcSo d,,da_ 24-gV24eig"\n"7quaterni_N,Ned:sA celvvvvvvvvv77773SE si //tessta fr 8t 8quaterni_N,Nvmfri}_N,Nvm} _N,Nv}_vd_lapack_v0000644000076500000240000rr1346511770276420022254 00000000004406143532us nc eeiles nff__nclu__QSVDT_He#__nclu__QSVDT_He#_fu/lapackvbi/HPP__e "unit_vmmlibttt );n,Nkss.o(ts.class qr_delC ck_vcdunit_(tsp eSc: quaternick_vt_lefquaterniSVD,i70ngusSio;S_<< 4tion_(d6,virtual t3;siN,N A; ,N o};_vd_lapa( Tlval0000644000076500000240000rr13465117702777777722254 000000447107143607us nc eeiles nff "unit_( Tlvaltrix_fu/"apackv( matrix_fu_2,1) elttttt );n,Nkss.o(ts t3;s qtu.0er3( Tlvaltmal t3;si si /c<< S si rix d6,f ,fadr ma =3ig001et 8 g ); S_hoo from lathauwer et al. 2b paper (s .puiag2ss2ssTlvaluS_adr >_hooi_3 ettrm S2 =(dda1.S 0.S c3ss L219-1pc ss-228-5pc3ss-6N,N OOt3_);n#3_astmsi_core_hoooi_3ot 8 g Tlc;n#iag2ssTlcoeff,3cedcoelvill(2)e 8core_);2ag2ssTlcoeff,3cedcoelvill(3)e 8core_);2ag2ssTlcoe1f,3cedcoelvill(1at 8core_);2ag2ssTlcoeff,3cedcoelvilr;t3_adro_2ag2ssTlcoeff,3cedcoelvilr;t3_adro_2ag2ssTlcoe1f,3cedcoelvilr;t3_adro_m S2 =(dda1_u1 L-2789474111071824S 0.4141266306147135288c4.0.89836079670452622878063550.6145295288c4.0.75110099108157548054680899285661N,Noriginal from paper (u1): {-27898054141, 0.89848057806287511, 0.4681,N OOu1_);n u1_u1_hooi_u1_hooi,_h1_hooiooi8 g Tlcoem S2 =(dda1_u2 Lig09814894941811, 0.995267593202288c4.0.99526759320228-ig098148949418N,Noriginal iP#paper (u2): ig098228-ig9952, 0.9952, 0.0982,N OOu2_);n u2_u1_hooi_u2_hooi,_h2_hooiooi8// fim S2 =(dda1_u7,a1.441 303570166288898988692516616};orig inal iP#paper (u3): {8108-8899,N OOu3_);n#u3_u1_hooi_u3_hooi,_h3_hooiooi8 g Tlcoeff, 2ag2ss1ssTlcoeff,3cedcoelvre.fiff, 2ag2ss1ssTlcoeff,3cedcoelvre.fr;t3_adro_m S2 =(dda1_re.f1014o33447424582eL.24eL.24ss-2.76070558eL.7321N,N OOcore_);n coru1_hooi_core_hooi,_hore_hooiooi8 g Tlcoeff,3_hooiD 2ag2ss1ssiag2ss2ss.o(ts.o(3cedcoelvn; g );n__ #n::__iS_hos };S_<< ,(ho,.u3data ftu,1,.u2,.n::__iS_hosvdtmdata ftu.03_ho 1_hooi.en u1_hooi_,_Ladr ma tcor; de;3 dek dcore_hooi_,_ u2_hooi_,_Ladr ma tcor; de;e;3 dek dcore_hooi_,3 u3_hooi_,_Ladr ma tcor; de;e;3 dek dcore_hooi_,3 u3_hooi_,_Ladr ma tcor; de;e;3 dek dcore_hooi_l_inccore_hooi_,_Ladr ma tcor; de;e;3 de " ,, tm t 8;NI lefTu.0er AS,2,1 approximation SE liSsp"[t quatmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh:gIc #ced SVD 5ss LTl6,_2,_3Vtsp d6,cp2_u );n__ #qtu.0er3 ssrix d2,_3sigmS6,cp2_lambda g g t3r_ccp2_lambda g lambda;t3_a2.o(tslambda;t3_a2.at(0)Lig2.90660014380309; lambda;t3_a2.at(1)spp d48448 028026089;Nvo_m S2 =(dda1_u1cp2 Lig098149560855746269228988600195698393958127,52499395710711924826 302855747938156128,5235*8 d21195352.7605445058643817902,52634599939730670627699815606msp2282 adro_N,Ncp2_u );nvilr;t3_a2d u1_u1_ho2oi_u1_hooi,_hcp2,(dda1__hcpi8//8Tlcoem S2 =(dda1_u2cp2 Lig0981 3496342189150423826 3038914.3891992569,81 35994e48236726141, 0.5OOc663005439758,81 369895327094,679,N OO119437694e39561,5 3523e44662*122898-0.stm9524285616core_);np2_u );nvi2r;t3_a2d u2_u1_ho2oi_u1_hooi,_2cp2,(dda1__2cpi8//8Tlcoem S2 =(dda1_u3cp2 Lig0981 3344210Oc6433181826 3916926819953918,81 3667301689392041, 0.06667951844177,81 3641760 665619512.7634395,5325622559,81 3569278 269550Oc12.761e-0334884260178 re_);np2_u );nvi3r;t3_a2d u3_u1_ho2oi_u1_hooi,_3cp2,(dda1__3cpi8//8Tlcoer_ccp2_lambda g lambda2_);np2_u );nvi12_);np2_u );nvi22_);np2_u );nvi32_);_ #qtu.0er3(pm 2 d6,_6,_4o(3cedcoelvn;pm2Tl);n__ #n:pm2Tl);nos };S_<< cp_input,.u3_2 m,_La ftuLa flambda2, n:pm2Tl);nosvdtmdata ftu, 5 d6,m ,m a =3ig001et 8 g 01 ek dco,3_2 u1_hooi_,_Ladr 2 ma tcor; de;3 dek dco,___ u2_hooi_,_Ladr 2 ma tcor; de;e&& ek dco,3__ u2_hooi_,3Ladr 2 ma tcor; de;e&& ek dcolambda2 u3_hooi_lambda;t3_a2 ma tcor; de;e&& e " ,,tm t8;NI lefTu.0er ASPMoCP-ALS: 2,1 Rmation SE liR(RLgI #ced SVD 5ss LTl6,_6,_3Vtsp d6,cp3_u );n__ #qtu.0er3 ssrix d6,_3sigmS6,cp3_lambda g g t3r_ccp3_lambda g lambda;t3_a3.o(tslambda;t3_a3.at(0)Lig2.9490885OO455O11; lambda;t3_a3.at(1)spp d269372027771144.o(tslambda;t3_a3.at(2)et 8 736128449440; lambda;t3_a3.at(5)et 8 30520126413e4415; (tslambda;t3_a3.at(3)et 8 607221066759387; lambda;t3_a3.at(4)et 8 32or902501168115; (tsvo_m S2 =(dda1_u1cp3 Lig0981447322028329670627616o7277647634.890.03429102531960 62890.545880.3 * S6009890.378656181334512.7681659643832535479881443r;5 d896455126276166634467441311143652364139 d3337890.60 8584294591635 *N O63028984421147.890.84198145439517469881431o396316725582663O47829820583308589886096745148053d.049,N O46147572170, 0.138425 * 451478826 3023202 63842595.75110099694.7stm6313667826 39709094198932075 *N O92569334025O13899,N O34635m95152888063550.o39911111 6625.890.06 0900709844862 madro cp3_u );n_,_L:u1_h3d u1_u1_ho3oi_u1_hooi,_hcp3,(dda1__hcpi8 g Tlcoeff,m S2 =(dda1_u2cp3 Lig0981 346114150O6543006355032*144138 d93286 *N O92655c4.0034960 9886311999514349950 9886806730070981276114776617286082291995-45258024640955c499,N O459273212847311435OO1759323859814895896757121132070, 0.12897537773348270, 0.3d.7214814465603995-44.7993231729,NN OO23606642210958988611 555954723154726 302855775384.364826 3426324608580c780628027088504842526N3995-43701pc7397089777890.0938056438.00500 9886e39 d9302344635509 6595881440952, 0.3880688202456170, 0.5041951253278271 madro cp3_u );n_,2L:u1_h3d u2_u1_ho3oi_u1_hooi,_2cp3,(dda1__2cpi8 g Tlcoeff,m S2 =(dda1_u3cp3 Lig0981 3558026082986675 98868586222949685896276168934146116867793-439941447155520.890.s5-1pc20228063s26 0129223805000995-4390446127000050 9886O4710d9327582298480850315991520057835503206 141pc572298863149977291492115808572380,75667,81 35808069004867293-437944788345436270, 0.42221115590514012.7665144417452366ms28231437714404170, 0.3939178133263827,981 3458252231380,79,N O341879385822206288676701066035282890.55972216202 d99826 34444 662009389162663140984932022889681 adro cp3_u );n_,3L:u1_h3d u3_u1_ho3oi_u1_hooi,_3cp3,(dda1__3cpi8 g Tlcoeff,cp3_lambda g lambda3dro cp3_u );n_,_L3dro cp3_u );n_,2L3dro cp3_u );n_,3L3dro numberhoo fronorm k 2ag3sff,m S2 =(u1_ho_norm = 326 9332639286851lcoem S2 =(nrm = n:pm2Tl);nosnorm_k 2ag3s(.u3_2 m,_La ftuLa flambda2 d6,m ,m a =3ig001et 8 g 00g 01 ek dco(u1_ho_norm -(nrm gIc -(vdtmRwith DCTou dgIc -(vdtmRwith DCTo"alufadr ma(16mdoh:u1_hoeigs_S oh:gI (vdtmRwith DCT)#__nclu__D 5 #ced SVD 5ss LTl6,_D,_3Vtsp d6,cp4_u );n__ #qtu.0er3 ssrix dD,_3sigmS6,cp4_lambda g g t3r_ccp4_lambda g lambda;t3_a4.o(tslambda;t3_a4.at(0)Lig2.49817705383710d; lambda;t3_a4.at(1)spp d562078745241165; (tslambda;t3_a4.at(2)et d489490792770005; lambda;t3_a4.at(3)et d34455297258195; (tslambda;t3_a4.at(4)et d38784958; (tsvo_m S2 =(dda1_u1cp4 Lig09814493423756 073134800284504 6639111012.7687825481180245511489798657543690282890.5480083760825146,523947.01372038.890.03580481 0*884801890.03535O2113254467789 0.14* 45.o37568501, 0.45814stms30387,5235*033934133690826 3087815344491*0339890.044212109315349899,N O 0.435703271061,.7634069277006915O2,5268677693013315526798928323620086 *N O90*884321560034826 397O94.4466549 652, 0.28075241159290*ore_);np4_u );n_,_L:u1_h4d u1_u1_ho4oi_u1_hooi,_hcp4,(dda1__hcp48 g Tlcoeff,m S2 =(dda1_u2cp4 Lig09814L.734sp22029069480893312568584667580888305349120.312627610402049 O49494898860760074664461847,52471370457082512.76461830492409d848988666793619176307506285c437866750457899,N O32604607d4679831,524792104321519126276147888041, 0.0726009373529,NN OO350120248652, 0.64563645543925498814427094154d482781486634470315267831141652386730814359,N OO2109298094481362, 0.68866344767672re_);np4_u );n_,2L:u1_h4d u2_u1_ho4oi_u1_hooi,_2cp4,(dda1__2cp48 g Tlcoeff,m S2 =(dda1_u3cp4 Lig098144879274471565801890.0392561 0295051152.76058781893020405992670929869 606465219459279250754,5253904Ou7745054660, 0.2992465735252-06286 05174583715575801123954549 56829,N OO0804843391782326,52375775721919334s27753824955314058266377567988828948826 300068 0.715615289,NN O95422990488127,525145*039578298670, 0.554d00.8128067739,N O33115447195178214804621890300504410628804288561 1369re_);np4_u );n_,3L:u1_h4d u3_u1_ho4oi_u1_hooi,_3cp4,(dda1__3cp48 g Tlcoeff,cp4_lambda g lambda4_);np4_u );n_,_L4_);np4_u );n_,2L4_);np4_u );n_,3L4_); #qtu.0er3(pm D d6,_6,_4o(3cedcoelvn;pm4Tl);n__ #n:pm4Tl);nos };S_<< cp_input,.u3_4 m,_L4 ftuL4,1lambdaL4, n:pm4Tl);nosvdtmddcttu, 10 d6,m ,m k dco,3_4 u1_hooi_,_Ladr 4 ma tcor; de;3 dek dco,__4 u2_hooi_,_Ladr 4 ma tcor; de;e&& ek dco,3_4 u3_hooi_,_Ladr 4 ma tcor; de;e&& ek dcolambdaL4 u3_hooi_lambda;t3_a4 ma tcor; de;e&& e,,tm t8;NI lefTu.0er ASPMoCP-ALSRwith vdtmRDCT: 2,1 Rmation SE liR(RL>gIcou dgIco"alufadr ma(16mdoh:u1_hoeigs_S oh: (; oo fronorg2ss SP LTl6 multip0era #ns3ll_inc- g70ng_",oh:u();t3r ag2ssTcoe5c ss-int>__ #qtuu3ll_in(1)#iag2ss2ssT9-1pc 5s-int>_i(jji#3_cp_ttv::multip0y_horizol_ };bwd(t3u,1lami(jji fi fim Sg2ss2ssT6-1pc 5s-int>_i(iji#3_2ssTcoe6o(3ceint>__1 u1_u1ll_in(2)#3_cp_ttv::multip0y_later };bwd(t3(jji3data i(iji fi fim Sg2ss2ssT6-17c 5s-int>_i(iii#3_2ssTcoe7-1pc int>__2 u1_u1ll_in(3)#3_cp_ttv::multip0y_frol_ };bwd(t3(ijia ftu,i(iii,m ,m ns3ll_inc- g70ng_",oh:u();t3r agg2ss2ssT6-17c 5s-int>_i(mdoo#3_cp_ttv::fuincg2ss2ss_2ssTco_multip0era #< cp3data ftu,1lami(mdoo,m agg2ss2ssT6-17c 5s-int>_i(mdoo2#3_cp_ttv::fuincg2ss2ss_2ssTco_kroloeier_mult< cp3data ftu,1lami(mdoo2,m agsi rii(mdoo,==_i(mdoo2#3_m Sg2ss2ssT6-17c 5s-int>_i(iiial#3_cp_iiialll_in(165coer_ctm_hcp_iiial,==_i(mdoo cp_iiial,==_i(iii, NI lefTu.0er ASSg2ss SP LTl6 multip0era # along all three modesp"[E << l tmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh:_2,1) eltttckvi2ss2ss_iter torix_Nk2,1) eltttckvi2ss2ssix_Nks/qttttt );n,Nkss.o(ts t3;s qtu.0er3i2ss2ss_iter torall t3;si si /c<< S si rix d6,f ,fadrg3ss x d9-1pc ss-t8 16_t > (; oons3ll_inc- g70ng_",oh:u();t3r ag _N,Nvo_ .0er32ag3ss x d9-1pc ss-t8 16_t > my(; oonmy(::iter tor it rii.begin 10 uat trii. t3r _N,Nvo_ _N,Nvo_ oh:rix dW*Lt8 16_t > ts_iter_order; _N,Nvo_ oh:rix dW*Lt8 16_t > hand_iter_order; _N,Nvo_ bumberhoafestm; it != uat ; ++it I lef _N,Nvo_ vo_ .s_iter_order.push_back( *it Imanumb_N,Nvo_ _N,Nvo_ festmsize_t i__Qx8 34; i__Qx8< 4; ++i__Qx8) _N,Nvo_ f _N,Nvo_ vo_ 2ssTlcoeff,3s-t8 16_t >& mtrii.get_frol_ };s0ere_fwd( i__Qx83r _N,Nvo_ vo_ _N,Nvo_ vo_ .3ss x d9-1pc ss-t8 16_t >::mssTco_iter tor _N,Nvo_ vo_ it = m.begin 10 _N,Nvo_ vo_ itt t = m. t3r _N,Nvo_ vo_ festm; it != uat ; ++it I _N,Nvo_ vo_ { _N,Nvo_ vo_ hand_iter_order.push_back( *it Imavo_ vo_ mb_N,Nvo_ mb_N,Nvo_ _N,Nvo_ si rii(iter_order,==_hand_iter_order; _N,Nvo_ bumr ASSg2ss SPiter tor d (; vo_ .3ss x d9-1pc ss-int > (_tmpat f fronorsize ctm_hi.size==_24i si bumr ASSsizep"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: (_2; vo_ .3ss x d9-1pc ss-int > (_(; vo_ .3ss x d9-1pc ss-int > (_mdsult#3t3ol_in(06,m ,m(_2ol_in(05,m ,m(_3ol_in(05,m ,m r fronorhooi_l oper tf,m tm_h!hi==(_2& (t3(2==(_3) cp != t3(2 !(t3(2!=(_3)I li bumr ASSoper tf,==_and9oper tf,!= p"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: t3hsw; ag2ss2ssTlvavavar elv<< ,(hmdsult_sw#3t3hswol_in(01,m ,m(_swoapp0y_spherical_weights( ,(hmdsult_sw,m ,m ma =3ig001et 8 g1.0e-5_2atm_hcp_mdsult_swohooi_lamt3hmdsult_sw3_adro tcor; de;e&& I li bumr ASSapp0yrspherical weightsp"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: nodaho_noed,msince every time new h:u();"-> cannodabe ernieith o fh:u(); ns3ll_incrandL ro_2 vo_ .3ss x d9-1pc ss-int16_t > (s ,m(s.fill_randL _signedro_2 bu fronorget_n_rix dW functions ,tndai18 31f ,tndai28 32f ,tndai38 33; ns3ll_inc- g70ng_",oh:u();t3r ai 31f 3;s h:rix dW*L3s-int > rono_I2ho( a3;s h:rix dW*L3s-int > I2ho( ai.get_row( iL21i3s-I2ho( 3r aiono_I2ho(ooi_39.o(3,9043r aff3;s h:rix dW*L2s-int > rono_I1ho( a3;s h:rix dW*L2s-int > I1ho( ai.get_column(1i.o(i3, I1ho( 3r aiono_I1ho(ooi_391,9043r aff3;s h:rix dW*L4s-int > rono_I3ho( a3;s h:rix dW*L4s-int > I3ho( ai.get_I3hrix dW( iL21i.o(I3ho( 3r aiono_I3ho(ooi_386-139-128,9043r affhotm_hI2ho( r= tono_I2ho( I1ho( r= tono_I1ho( I3ho( r= tono_I3ho(I li bumr ASSget_n_rix dW/get_row/get_column/get_tubep"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: I2ho(_2 ai.get_row( iL21i3s-I2ho(d6,m ,m I1ho(ooi_306,m ,mono_I1ho(ooi_3s.o(3,m ,m(ooi__column(1i.o(i3, I1ho( 3r a3;s h:rix dW*L2s-int > I1ho(_2 ai.get_column(1i.o(i3, I1ho(d6,m ,m I3ho(ooi_383 3r aiono_I3ho(ooi_38sTlx d6,_3,m ,m(ooi__tube iL21i.o(I3ho( 3r a3;s h:rix dW*L4s-int > I3ho(_2 ai.get_tube iL21i.o(I3ho(d6,m ,hotm_hI2ho(d6,r= tono_I2ho( I1ho(d6,r= tono_I1ho( I3ho(d6,r= tono_I3ho(I li bumr ASSset_n_rix dW/oi__row/oi__column/set_tubep"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: 2ss_frol_ }; 2ssTlcoeff,3s-int > tono_2ss_frol_ }; tnda1 ); 0.S c3s2828.760662,N O3;n#3tono_2ss_frol_ }ooi_3,,indda1_2t8 gT6m ,m(oget_frol_ };s0ere_fwd( dda2ss_frol_ },m ,ho2ssTlcoeff,3s-int > 2ss_frol_ }_2; m2ssTlcoeff,3s-int > tono_2ss_frol_ }_2; mono_2ss_frol_ }_2ol_in(7m ,m(ooi__frol_ };s0ere_fwd( ddaono_2ss_frol_ }_2m ,m(oget_frol_ };s0ere_fwd( dda2ss_frol_ }_2m ,hotm_h2ss_frol_ },r= tono_2ss_frol_ }, 2ss_frol_ }_2,r= tono_2ss_frol_ }_2I li bumr ASSget/oi__frol_ };s0ere_fwd()_hI2xI1p"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: 2ss_frol_ }ebw triiranspose 2ss_frol_ },m ,m2ssTlcoe3,L2s-int > tono_2ss_frol_ }_bw ttriiranspose tono_2ss_frol_ },m ,m(oget_frol_ };s0ere_bwd( dda2ss_frol_ }_bw tm ,m 2ssTlcoe3,L2s-int > 2ss_frol_ }e2_bw ttriiranspose 2ss_frol_ },m ,m2ssTlcoe3,L2s-int > tono_2ss_frol_ }_2ebw triiranspose tono_2ss_frol_ }_2 m ,m(ooi__frol_ };s0ere_bwd( ddaono_2ss_frol_ }_2_bwdm ,m(oget_frol_ };s0ere_bwd( dda2ss_frol_ }_2_bwdm ,mffhotm_h2ss_frol_ }ebw tr= tono_2ss_frol_ }_bw t 2ss_frol_ }_2ebw tr= tono_2ss_frol_ }_2_bwdm li bumr ASSget/oi__frol_ };s0ere_bwd()_hI1xI2p"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: 2ss_later }; 2ssTlcoeff,4s-int > tono_2ss_later }; tnda1 );3ig0836L21721721, 0.40 d0 721,;n#3tono_2ss_later }ooi_3,,in3da1_2t T8m ,m(oget_later };s0ere_bwd( 0, 2ss_later }tm ,m 2ssTlcoeff,4s-int > 2ss_later }_2; m2ssTlcoeff,4s-int > tono_2ss_later }_2; mono_2ss_later }_2ol_in(6m ,m(ooi__later };s0ere_bwd( 0, ono_2ss_later }_2 m ,m(oget_later };s0ere_bwd( 0, 2ss_later }d6,m ,m tm_h2ss_later }tr= tono_2ss_later }t 2ss_later }d6,r= tono_2ss_later }_2I li bumr ASSget/oi__later };s0ere_bwd()_hI1xI3p"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: 2ss_later };fw triiranspose 2ss_later },m ,m2ssTlcoe4,L2s-int > tono_2ss_later }_fw ttriiranspose tono_2ss_later },m ,m(oget_later };s0ere_fwd( 0, 2ss_later }dfw tm ,m 2ssTlcoe4,L2s-int > 2ss_later };2;fw triiranspose 2ss_later }d6,m ,m2ssTlcoe4,L2s-int > tono_2ss_later }_2_fw ttriiranspose tono_2ss_later }_2 m ,m(ooi__later };s0ere_fwd( 0, tono_2ss_later }_2_fw tm ,m(oget_later };s0ere_fwd( 0, 2ss_later }d2_fw tm , tm_h2ss_later };fw tr= tono_2ss_later }_fw t 2ss_later };2;fw tr= tono_2ss_later }_2;fw I li bumr ASSget/oi__later };s0ere_fwd()_hI3xI1p"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: 2ss_igrizol_ }; 2ssTlcoe3f,4s-int > tono_2ss_igrizol_ }; //tnda1 );4ig08366s-2283286-1 .53286-17c 7286-1 O3;n#3tnda1 );4ig08366s-6s-6s-6s-5-1 .57-1 O3 O3 ON O3;n#3tono_2ss_igrizol_ }ooi_3,,in4da1_2t4 gTlcoeff(oget_horizol_ };s0ere_fwd( 1, 2ss_igrizol_ }tm ,m 2ssTlcoe3,L4s-int > 2ss_igrizol_ }_2; m2ssTlcoe3f,4s-int > tono_2ss_igrizol_ }_2; mono_2ss_later }_2ol_in(5m ,m(ooi__horizol_ };s0ere_fwd( 1, tono_2ss_igrizol_ }_2 oeff(oget_horizol_ };s0ere_fwd( 1, 2ss_igrizol_ }d6,m ,m tm_h2ss_igrizol_ }tr= tono_2ss_igrizol_ }t 2ss_igrizol_ }d6,r= tono_2ss_igrizol_ }_2 I li bumr ASSget/oi__horizol_ };s0ere_fwd()_hI2xI3p"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: 2ss_igrizol_ }_bw ttriiranspose 2ss_igrizol_ }tm ,m2ssTlcoe4,L3s-int > tono_2ss_igrizol_ }_bw triiranspose tono_2ss_igrizol_ }tm ,m(oget_horizol_ };s0ere_bwd( 1, 2ss_igrizol_ }dbw tm ,m 2ssTlcoe4,L3s-int > 2ss_igrizol_ }_2_bw ttriiranspose 2ss_igrizol_ }d6,m ,m2ssTlcoe4,L3s-int > tono_2ss_igrizol_ }_2ebw triiranspose tono_2ss_igrizol_ }_2 oeff(ooi__horizol_ };s0ere_bwd( 1, tono_2ss_igrizol_ }_2dbw tm ,m(oget_horizol_ };s0ere_bwd( 1, 2ss_igrizol_ }d2dbw tm , tm_h2ss_igrizol_ }ebw tr= tono_2ss_igrizol_ }ebw t 2ss_igrizol_ }d6ebw tr= tono_2ss_igrizol_ }e2dbw tm li bumr ASSget/oi__horizol_ };s0ere_bwd()_hI3xI2p"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: m_igrizol_ }; //2ssTlcoeI1s-I2*I3, T> m_later }; //2ssTlcoeI2, I1*I3, T> m_frol_ }; 2ssTlcoe4s-6s-int>_m_igrizol_ }; 2ssTlcoeff,12s-int>_m_later }; 2ssTlcoe3c 8, int>_m_frol_ }; ns3ll_inc- g70ng_",oh:u();t3r ai.igrizol_ }eunfoldil-_bwd( m_igrizol_ }3r ai.later }_unfoldil-_bwd( m_later }3r ai.frol_ }_unfoldil-_bwd( _m_frol_ }__naff2ssTlcoe4,L6s-int>_m_igrizol_ }al#3tnda1 );50.S c011,L219-1pc ss-2286-17c 8, 90 d0 .539-12828.760662,N O2469, 0..7622L219.o(3 } ,m2_igrizol_ }alooi_3,,in5,a1_2.5 Tlcoeff2ssTlcoeff,12s-int>_m_later }al#3tnda1 );60.S c011,6-139-128,9 .57-1 369, 0..c 8, 28.7623, 90 5622L2140 d0 6629.o(5-1 .5,N O3 } ,m2_later }alooi_3,,in6,a1_2.6 Tlcoeff2ssTlcoe3c 8, int>_m_frol_ }al#3tnda1 );70.S c011,3286-19-139-125-128,90L21L214.57-1 0-1 369,669, 0..20..c 5c 8, 2128.70..7622 } ,m2_frol_ }alooi_3,,in7,a1_2.7 Tlcoeff2atm_h2_igrizol_ }altr= 2_igrizol_ }t 2_later }altr= 2_later }t 2_frol_ }altr= 2_frol_ },m li bumr ASSbackward unfoldil- along all modesp"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: (_diag; ag2ss2ssTlvalvalvalint > (_diag1_hoei; (_diag1_hoeilore_ro_(_diag1_hoeil0)Lp,1L21L38 31f(_diag1_hoeil0)L20..c 2p d42; mrix dW*L3s-int > diag1h:u();;,m iag1h:u();_0)Lig2.90; iag1h:u();_0)LL38 31f iag1h:u();_0)L2p d42; m(_diag.diag( iag1h:u(); o_2 butm_hcp_ iag r= t3(diag1_hoeiNI li bumr ASSfill diagonal h:u();p"[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: (_t0er_b;rg3ss x d9-1pc ss-int > (_t0er_b1_hoei; bum(_t0er_all_in(2.4m agg(_t0er_b1_hoeill_in(2)#3_cp_t0er_b.ca_weLmt(_t0er_a,m ,m tm_hi_t0er_b1_hoei r= t3(t0er_bNI lefTu.0er ASSg0er ca p"[E << l tmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh: (_t0er_b;rg3ss x d9-1pc ss-unsigned-char > (_t0er_b1_hoei; bum(_t0er_all_in(2.4m agg(_t0er_3_0)Li,0,0p d42.67 agg(_t0er_3_0)Li,2,0p d42.67 agg(_t0er_b1_hoeill_in(2)#3_cp_t0er_b1_hoeil0)Li,0,0p d43 agg(_t0er_b1_hoeil0)Li,2,0p d43 agg(_t0er_b.float_t_to_t8 _t(_t0er_a,m ,m tm_hi_t0er_b1_hoei r= t3(t0er_bNI lefTu.0er ASSweL efloat_t"to t8 _ p"[E << l tmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh: (_get_min_max_2ai_get_min_maxll_inc- g70ng_",oh:u();t3r affint i_min rii(get_min_maxlget_min 1;ffint i_max rii(get_min_maxlget_max eff2atm_h(i_min r=59) (t3(max rd429& Ili bumr ASSget min/maxp "[E << l tml ;nk-(2i /capproximil- g: ":<< S s_S h: (_maw#3_cp_mawll_in(6737692)#3_cp_mawl4)e 0,2,2 8 56867777; cp_mawl4)e1,0,p)2.90.111111; cp_mawl4)e1,2,0p d435O23; cp_mawl4)e1,3,0p d435O99#3_cp_mawl4)e1,0,0p d41198; cp_mawl4)e1,2,p)2.90.0; cp_mawl4)e0,3,2 8 56899# cp_mawl4)e0,1,0p d45O23;rg3ss x d9-14,L3s-unsigned-char > (_ooint;(_oointlore_ro_2arg3ss x d9-14,L3s-unsigned-char > (_ooint1_hoei;dS tnda1 );_unsigned0.S c0188622,518862288622228862*50251886228862288622886224262288622*5022886228862288622 562255188622886228862288}#3_cp_ooint1_hoeiooi_3,,inunsigned,a1 );_unsigned+lcoeffMhoafloat min_h:u()2.950f ,afloat max_h:u()2.9-50f ,a3_cp_mawloointize((_ooint, min_h:u(), max_h:u()2oeffMhoag3ss x d9-14,L3s-char > (_ooint1sign;(_ooint1signlore_ro_2arg3ss x d9-14,L3s-char > (_ooint1sign1_hoei;dS tnda1 );_signed0.S c0 590.30 3590.590.-10502590.-290.-180.2590.590.590.590.,462590.20.590.590.590.85180.2590.590.590.59 }#3_cp_ooint1sign1_hoeiooi_3,,insigned,a1 );_signed-+lc2oeffMhoagp_mawloointize((_ooint_sign, min_h:u(), max_h:u()2oeffMhoa /c fdeoointize crg3ss x d9-14,L3s-float > (_deooint_2arg3ss x d9-14,L3s-float > (_deooint1sign;ffMhoagp_oointldeoointize((_deooint, min_h:u(), max_h:u()2oeffM(_ooint1signldeoointize((_deooint_sign, min_h:u(), max_h:u()2oeffMhoasi ri((_ooint1_hoei r= t3(ooint&& ((_ooint1sign1_hoei r= t3(ooint1sign ) cp_deoointleooi_la(_deooint_sign, 9901oef#tm_0 /capprocout eSE oointiza #: is:< (_ooint1 si;(_oointlore_ro_2arg3ss x d9-14,L3s-float > (_maw2((_maw)#3_cp_maw2l0)Li,2,p)2.9200f ,ag3ss x d9-14,L3s-unsigned-char > (_ooint2;(_ooint2lore_ro_2argp_maw2loointize((_ooint9-1lmin_h:u(), lmax_h:u()2oeffM3ss x d9-14,L3s-float > (_deooint2effM(_ooint2ldeoointize((_deooint9-1lmin_h:u(), lmax_h:u()2oeffMffMunsigned-char tt_rang)2.9127_2arg3ss x d9-14,L3s-char > signs_2argp_maw2loointize_r AS(_ooint1 si,signs-1lmin_h:u(), lmax_h:u(), tt_rang)2oeffM3ss x d9-14,L3s-float > (_deooint1 si;ffM(_ooint1 sildeoointize_r AS(_deooint1 si,signs-1lmin_h:u(), lmax_h:u() oeffMhoafloat deo1 si1_hoei0.S c0OcM 673761550280.32166306737615502803761550OcM 11979,055306737615502-80.321663035O9505550OcM 067376155028037615509200028037615509OcM 06713313306737615502802803761550OcM 06737615502803761550968650590.2679505550OcM 067376155028037615509803761550980376155anumeffM3ss x d9-14,L3s-float > (_deooint1 si1_hoei; (_deooint1 si1_hoeiooi_3,eo1 si1_hoei, deo1 si1_hoei-+lc2oeffMhoasi risi (_deooint1 si1_hoeioeooi_lamt3hdeooint1 si,990012oeffMh#tm_0 /capprocout eSE oointiza #: is:< (_maw3;rsignslore_ro_(_oointlore_ro_2argp_mawloointize_to( (_ooint, signs-1min_h:u(), max_h:u(), tt_rang)2oeffMhoagp_oointldeoointize((_maw3, signs-1min_h:u(), max_h:u() o_2 afloat (_maw3_1 );ig0836OcM 6737992102522389956737992102523799210OcM 1198012.7625937992102-5223899535O99,OcM 673799210252379921025237992102523799210OcM 67102.74025237992102502523799210OcM 6737992102523799210252678189624899,OcM 67379921025237992102523799210252379921anumeffM3ss x d9-14,L3s-float > (_maw3__hoei; (_maw3__hoeiu1_hoo(_maw3_1 );,o(_maw3_1 );-+lc2oeffMhoasi risi (_maw3ohooi_lamt3hmaw3__hoei,990012oeffMh otm_h NIefTu.0er ASSoointizefdeoointizep "[ quatmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh: t3hnnz; (_nnzll_inc- g70ng_",oh:u();t3r a (_nnzla_38sTsTsg2.90; (_nnzla_382TsTsg2.9-la S size_t number_nonore_s rii(nnzlnnz( manu hoag3ss x dss-ss-ss-float > i(nnz2r a (_nnz2ol_in(0489878)r a (_nnz2oa_38sTsTsg2.90; (_nnz2la_382TsTsg2.9-1; (_nnz2la_382T2Tsg2.90.045; (_nnz2la_381T2Tsg2.9299085_2a (_nnz2oa_380T2Tsg2.90.00000035; (_nnz2la_380,1,sg2.929900000035; S size_t number_nonore_s2 rii(nnz2lnnz(90.000012oeffMhoasi ri(number_nonore_s r g118&& (number_nonore_s2 r= 61)oOcM siSSget number ofsnonore_sp "[ quatmaan} { /c fthresholdil- aMhoag3ss x dss-2286-1float > i(thresh#3_cp_threshll_in(675673)#3_cp_threshla_38sTsTsg2.90; (_threshla_382TsTsg2.9-1; (_threshla_382T2Tsg2.90.045; (_threshla_381T2Tsg2.9299085_2a (_threshla_380T2Tsg2.90.00000035; (_threshla_380T1,sg2.929900000035; S cp_threshla_38sTsTsg2.90; (_threshla_382TsTsg2.999001; (_threshla_380T3Tsg2.90.00001manu hoag3ss x dss-2286-1float > i(thresh2((_thresh)#3_cp_threshlthreshold(90.001fquatmasize_t number_nonore_s rii(threshlnnz( manuhoag3ss x dss-2286-1unsigned-char > i(thresh_char#3_cp_thresh_charol_in(06)#3_cp_thresh_charo0)Li,0,0p d43 3_cp_thresh_charothreshold(94quatmasize_t number_nonore_s_char rii(thresh_charonnz( manuhoasi ri(number_nonore_s r g115&& (number_nonore_s_char r g119)oOcM siSSthresholdil-p "[ quatm} { /c fget_sub_g2ss S3ffMhoag3ss x dss-2286-1int > t3hbigger#3_cp_biggerll_inc- g70ng_",oh:u();t3r a ffM3ss x d9-13,L2s-int > t3_sub__hoei; tnda1 );_sub__hoeiig083639-13valv4,L3N O35229505576226,59559}#3_cp_sub__hoeiu1_hooi,_h1sub__hoei,oi,_h1sub__hoei gTlcoeff ffM3ss x d9-13,L2s-int > t3_sub#3_cp_biggerlget_sub_g2ss S3( t3_sub0..c 221L,m ,mSi.en E3_sub r= t3(sub__hoei; 3_cp_subll_inc- g70ng_",oh:u();t3r a (_biggerlset_sub_g2ss S3( t3_sub0.021L21L,m ,mMhoag3ss x dss-2286-1int > t3hbigger__hoei; (_bigger__hoeien E3_bigger#3_cp_bigger1_hoeil0)Li,1L21L,m2.90; (_bigger1_hoeil0)Li,1221L,m2.91; (_bigger1_hoeil0)Li,1321L,m2.92#3_cp_bigger1_hoeil0)L1,1L21L,m2.93; (_bigger1_hoeil0)L1,1221L,m2.94; (_bigger1_hoeil0)L1,1321L,m2.95#3_cp_bigger1_hoeil0)Li,1L212,m2.96; (_bigger1_hoeil0)Li,12212,m2.97; (_bigger1_hoeil0)Li,13212,m2.98#3_cp_bigger1_hoeil0)L1,1L212,m2.99; (_bigger1_hoeil0)L1,12212,m2.910; (_bigger1_hoeil0)L1,13212,m2.911effMhoasi risi ( (_bigger r= t3(bigger1_hoeim ,mMtm_h NIefTu.0er ASSget/oi_rsuboi3ss xp "[ quatmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh: (x_2 vo_ vo_ .3xlore_ro_2vo_ vo_ .3xlget_frol_ };s0ere_fwd( 0 )(1L212,m2.912_2vo_ vo_ .3xlget_frol_ };s0ere_fwd( 0 )(1221L,m2.921_2 vo_ vo_ tm_hcpx(L219-10,m2..912 (x(1221L-10,m2..921 I vo_ vo_ { vo_ vo_ r ASSoper tf, iL21i.o(i3 ip"[E << l tvo_ }tvo_ ;nk-(vo_ vo_ { vo_ vo_ approximil- g: ":<< S s_Svo_ vo_ h: (x_2vo_ vo_ vo_ .3xlore_ro_2vo_ vo_ .3xlget_frol_ };s0ere_fwd( 0 )(10-10,m2. 23_2vo_ vo_ .3xlget_frol_ };s0ere_fwd( 0 )(1L210,m2.912_2vo_ vo_ vo_ vo_ tnt* arrayen E3xlget_array_ptrro_2vo_ vo_ vo_ vo_ tm_harray[10,]2..923 array[11,]2..912 I vo_ vo_ { vo_ vo_ r ASSget_array_ptrp"[E << l tvo_ }tvo_ ;nk-(vo_ vo_ { vo_ vo_ approximil- g: ":<< S s_Svo_ vo_ h: (x_2vo_ vo_ vo_ .3xlore_ro_2vo_ vo_ .3xlget_frol_ };s0ere_fwd( 0 )(10-10,m2. 23_2vo_ vo_ .3xlget_frol_ };s0ere_fwd( 0 )(1L210,m2.912_2vo_ vo_ .3xlget_frol_ };s0ere_fwd( 0 )(10-11,m2.911efvo_ vo_ .3xlget_frol_ };s0ere_fwd( 2 )(1L211,m2.913_2vo_ vo_ vo_ vo_ vo_ .3ss x dss-pc ss-int >::iter tf, vo_ vo_ it_ n E3xlbegin 1;fvo_ vo_ vo_ bool si ri*it2..923; vo_ vo_ tm_h! NI (vo_ vo_ { vo_ vo_ approcout eSE*it2snce is: :< uc_t3__hoei; uc_t3__hoeiu1_hooi,_h1_ct,oi,_h1_ct gTlc8m ,mMhoag3ss x d8,8a52s-unsigned-char > uc_t3; uc_t3ll_incrandL r8m ,mMhoa//approcout eSEtx:i ":<::remove1_ct_cylinder( ir, in_l_ienam), out l_ienam), t3#3_cpll_inc- g70ng_",oh:u();t3r a 3ss x d9-19-19-1dunsigned-tnda> t3(sub__hoei; unsigned-tndat3(sub_1 );ig08369,669,8, 8862.8c 66-1N20.90.6N8 } agg(_sub__hoeiu1_hoot3(sub_1 );,ot3(sub_1 ); T82oeffMhoag3ss x d9-12a52s-unsigned-int > t3_sub#3_cp.aver ge_8to1oot3(sub manu ff oasi ri((_sub r= t3(sub__hoeiNI effMhoar ASSsubsampleoi3ss x:(aver ge 8 vox;nk"to 1 vox;n)p "[ quatmaan} { /c ffill s0ere symmeimicrg2ss Shoag3ss x d3-13,L2s-unsigned-char > i#3_cpll_incrand_sym;s0eres383 3r au hoag3ss x dvalvalvalunsigned-char > i(2#3_cp_2ll_incrand_sym( 62oeffMhoa /ci.en E3la_380T1L210) r= t3la_381T10-10,m ,mSi.en si (t3la_381T1221L,m2.= t3la_382,1L21L3oeffMffMunsigned-char h:u_102en i(2la_381T10-12 oeffMunsigned-char h:u_012en i(2la_38i,1L212,meffMunsigned-char h:u_021en i(2la_38i,1221L,m ,mSunsigned-char h:u_201en i(2la_38502802L,m ,mSunsigned-char h:u_120en i(2la_381T12-10,m ,mSunsigned-char h:u_210en i(2la_385021-10,m ,mS,mSi.en si h:u_102en= h:u_012e h:u_102en= h:u_021e h:u_102en= h:u_201 aSi.en si h:u_102en= h:u_120e h:u_102en= h:u_210effMhoar ASSfill i3ss x:h o fsymmeimicrrandL h:u();p "[ quatmaan} { /c fmean, h:riance and9appevhoag3ss x d3-13,L2s-unsigned-char > i#3_cpll_incrandLmt32m ,mMhoa elv i(to( 3_cp_to(ol_incrandLmt32m ,mMcp_to(owrite_to_raw( ir, l_ienam)2 manuhoag2ss2ssTl4,4,4,runsigned-char > i( ir, l_ienam), lank-2oeffMffMunsigned-tnda1 );_mmpal3ig09814 i,1152-19-13956 22 10762160.498862886 22 N20.90.2354,2 4262962242622.763 22 0.80813N O6, 22 760569,4469886 22 3469, 5 ON0-11886 22 5802208022760776 22 .7i,12*502284698476 22 36-1N20.2802556 22 57622446942,12*50 22 .5802246266-12666 22 .780.23 .51251826 22 74690L0-1176-123,2 7669, 0.,80.2139,OcM 1L0-112548624 numeffM3ss x d4,4,4,runsigned-char > i(_hoei; (__hoeiu1_hooi,_h1mmpal3,oi,_h1mmpal3 Tlc__naa /c fd elv i3(t33r aa//approcout eSEi3\n"dohoi3ts_S oh: t33(t33r aa//approcout eSEi33\n"dohoi33ts_S oh: i(in; (_in.l_incrandLmt32m ,mMcp_in.write_to_raw( ir, in_l_ienam)2m ,mMhoa3__onverter<4,4,4,runsigned-char>roconvert_raw( ir, in_l_ienam), out l_ienam)2 manuhoag2ss2ssTl4,4,4,rfloat > i(out ,mMcp_out.r "d1weLm_raw( ir, out l_ienam)2 ma /ci.en E31out.eooi_lamt3hin,99001)oOcM siSSt3 _onverter: _onvert raw" "[ quatmaanu remove("in.raw" manuremove("out.raw"oeffMh }ffMh i.en E <;hvo_ return e }2 } //9nam)space vmml vmmlib-1.3.5/ronosfross S3alohpp00006440000765000002400000000503125702,N420016122 0uapar e_ieapaff#ifndef __VMML__TENSOR3_TEST__HPP__ #define __VMML__TENSOR3_TEST__HPP__ #- gludeEunitalohpp" #- glude nam)space vmml { class ross S3al : p elicrunital { p elic: ag2ss2ssal() : unitalSSi3ss x hI1xI2xI3p8) {}fvo_ bool runt3r protected: } // class ross S3al } //9nam)space vmml vmmlib-1.3.5/ronosfrimer.cpp00006440000765000002400000003160125702,N420014612 0uapar e_ieapaff#- gludeErimer.hpp" #- glude nam)space vmml { #ifdef __APPLE__ mach_rimebasehinfo_1_2.1t_ rimer::_rimebasehinfo; d elv<<<<<<<<<<<<<<<<<<<<< #- glude #;nk-(#ifdef __LINUX__ #- glude #;nk-(#i glude #; /** * @brief an efficiendatimer class fes multipleoarchs * * since clock() is very very slow"in mac os x, this timer class uses * mach_absolute_lime on macs, clock() on linux and9get_rime_of_day() on * all otheroxystems. * * @authes jonas boesch */ nam)space vmml { class rimer { p elic: rimer(Imavo_ in ine void3apart(Imavo_ in ine void3apopt3r vo_ //9returns rime"in sdoonds:weL eapart(I"to now. vo_ elv #i glude #i glude //@SUS: _hoei hot oore oointiza #, is it oorrectly impleme e ed nam)space vmml { bool rueier3_exporter_importer_l::runt3 { /cbool si rilank- ,mMhoa elv<"[g001et 8 g1.0e-6ma /ct0erdef g2ss2ssTlva52s-2s- elv> i(t0er; /ct0erdef g3_hooi d9-12a51,lva52s-2s-float > hooi(t0er; /ct0erdef gueier3_g2ss2s d9-12a51,lva52s-2s- elv63 elv<< ,uei(t0er; /ct0erdef gueier3_exporter<9-12a51,lva52s-2s- elv63 elv< ,uei(exporter_t; /ct0erdef gueier3_importer d9-12a51,lva52s-2s- elv63 elv<< ,uei(importer_l; /ct0erdef 2ssTlcoe3c 263 elv<< u1(t0er; /ct0erdef 2ssTlcoeff,263 elv<< u2(t0er; /ct0erdef 2ssTlcoeff,163 elv<< u(t0er; /ct0erdef g2ss2ssT9-12a51,l elv< oore(t0er; /ct0erdef oh:rix dW*Lfloat > out rix(t0er; /choa//"[gpare _hoei 1 );hoa elv iq(t0er; /ct0erdef qgueier3_g2ss2s d9-12a52,lva52s-2s-Toh:u(), T_ooeff<< ,ueiq(t0er; /ct0erdef g3_hooi d9-12a52,lva52s-2s-float > hooi(t0er1; /ct0erdef gueier3_exporter out rixq(t0er; /ct0erdef 2ssTlcoe3s-2s-Toooeff<< u1q(t0er; /ct0erdef 2ssTlcoe2s-2s-Toooeff<< u2q(t0er; /ct0erdef 2ssTlcoe2s-2s-Toooeff<< u3q(t0er; /ct0erdef g3ss x d9-12a52s-Toooeff<< ooreq(t0er; /choa mSunsigned-char 1_2.120.S c011,L369,2ff,12369,2269521L76276425-1263 ON8}#3_cpq_t0erocp_ ,_h2#3_cp_ ,_h2ooi_3,,in2,oi,_h12 gTlcoeff ffM afloat oore(min-1oore(max, u(min-1u_max_2auhoagueiq(t0er ,ueiq;3_,ueiq.enaelv_oointify_ ineart3r a ueiq.deoomposet(_ ,_h2, u(min-1u_max, oore(min-1oore(max, hooi(t0er1::initahosvd g manu /ccpq_t0erocp_or;o2r a ueiq.or;onromuchoo(_mr;o2, u(min-1u_max, oore(min-1oore(maxg manu /c fexport byron (fes one min/max h:u() fes all Us) r out rixq(t0er export_rixr a ueiq(exporter_t::export_oointized_to( export_rix, ,ueiqg manu /c f_hoei exported 1 );hoa elv nam)space vmml { u class rueier3_exporter_importer_l : p elicrunital _2,1p elic: a rueier3_exporter_importer_l() : unitalSSiueier3 g3ss exporter/importer2ronop8) {}f/cbool runt3r nu protected: fMh } // class rueier3_exporter_importer_l } //9nam)space vmml vmmlib-1.3.5/ronosfrueier3_g3ss _locpp00006440000765000002400000017670125702,N420017516 0uapar e_ieapaff#- gludeErueier3_g3ss _lohpp" #- glude #i glude nam)space vmml { bool rueier3_g3ss _l::runt3 { /cbool si rilank- ,mM elv<"[g001et 8 g99001;anuhoag0erdef elv i(t0er; /ct0erdef 2ssTlcoe3s-2s-Toooeff<< u1(t0er; /ct0erdef 2ssTlcoe2s-2s-Toooeff<< u2(t0er; /ct0erdef 2ssTlcoeff,163Toooeff<< u3(t0er; /ct0erdef g3ss x d9-12a51s-Toooeff<< oore(t0er; /ct0erdef g3_hooi d9-12a51,lva52s-2s-float > hooi(t0er; /ct0erdef gueier3_g2ss2s d9-12a51,lva52s-2s-Toh:u(), T_ooeff<< ,uei(t0er; /choa mS fronor1 );"weL elathauweroet al.92000b papero(sam)2ronora;"in g3_hooial agToh:u() ir(t0er; /ct0erdef g3ss x d9-1pc ss-Toooeff_3 > ir(oore(t0er; /ct0erdef 2ssTlcoe6s-2s-Toooeff_3 > u1r(t0er; /ct0erdef 2ssTlcoe7-1pc Toooeff_3 > u2r(t0er; /ct0erdef 2ssTlcoe5c ss-Toooeff_3 > ur(t0er; /ct0erdef gueier3_g2ss2s d9-1pc ss-0.6Ns-228Toh:u()_3s-Toooeff_3 > iueir(t0er; /choa mSir(oore(t0erooore;ooorell_inc- g70ng_",oh:u();t3r a u1r(t0er u1; _hll_in(2o_2aru2r(t0er u2; _2ll_in(3o_2arur(t0er u3;tc3ll_in(1m ,mMcpr_t0erocp_or;omanuhoagueir(t0er ,ueiamoore, _1,o_2,ou3 manu,uei.or;onromuchoo(_mr;og manu /ccpr_t0erocp_or;o(_hoei; (_or;o(_hoeill_in(1656uatmaanu/frhresholded gueierhoagueir(t0er ,uei(oopy( ,uei2m ,mMhoacpr_t0eroocp_or;o(rhresh1;hoacpr_t0eroocp_or;o(rhresh2manusize_t nnz1oore 34; nu,uei(oopy.rhreshold_oore( ss-nnz1oore ); nu,uei(oopy.or;onromuchoo(_mr;o(rhresh1 ); nu,uei(oopy.rhreshold_oore( 12s-nnz1oore ); nu,uei(oopy.or;onromuchoo(_mr;o(rhresh2g manu /ccpr_t0erocp_or;o(rhresh1(_hoei; (_or;o(rhresh1(_hoeill_in(1596m ,mMcpr_t0erocp_or;o(rhresh2(_hoei; (_or;o(rhresh2(_hoeill_in(1188 manu /csi ri(ocp_or;o(_hoei r= t3(mr;og (o(_mr;o(rhresh1 r= t3(mr;o(rhresh1(_hoeig (o(_mr;o(rhresh2 r= t3(mr;o(rhresh21_hoeioeffM siSStueier3 or;onromuche;e (incl.9oore rhreshold_",)""[ oeffMffM /c frank orduche;e /ct0erdef g3ss x d0.6Ns-228Toh:u()_3 > irr(t0er; /ct0erdef g3ss x dL219-1pc Toooeff_3 > irr(oore(t0er; /ct0erdef 2ssTlcoe6s-1s-Toooeff_3 > u1rr(t0er; /ct0erdef 2ssTlcoe7-12s-Toooeff_3 > u2rr(t0er; /ct0erdef 2ssTlcoe5-1pc Toooeff_3 > urr(t0er; /ct0erdef gueier3_g2ss2s dL219-1pc 0.6Ns-228Toh:u()_3s-Toooeff_3 > iueirr(t0er; /choau1rr(t0erouh3red; uh3redll_in(2o_2aru2rr(t0er u23red; u23redll_in(3o_2arurr(t0er u33red; u33redll_in(1m ,mShoaToh:u()_3 1 );ig083691,L210.6Ns-12s-13 }#3_cprr(oore(t0erooore3red;2aroore(redloi_3,,in,oi,_h Tlm /choa mSirr(oore(t0erooore3red2;hoau1rr(t0erouh3red2_2aru2rr(t0er u23red2_2arurr(t0er u33red2manuhoagueirr(t0er ,uei(red(ooore3red,ouh3red, u23red, u33red ); nu,uei(redlorducecranks( ,uei2m ,mMhoacuei(redlget_u1( _h3red2,m ,uei(redlget_u2( _23red2,m ,uei(redlget_u3(tc33red2,m ,uei(redlget_oore( oore(red2,m ffMh otm_h _h3red2,== _h3red _23red2,== _23red _33red2,== _33red oore(red2,== oore(redI s_2Tu.0er ASStueier3 orducerranks""[E << l tmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh: is(t0er; /ct0erdef gueier3_g2ss2s d9-1pc ss-pc ss-328Toh:u()_3s-Toooeff_3 > iueis(t0er; /choais(t0er t3_sub#3_cueis(t0er ,uei(sub# ,mMhoacuei(sub.subsamplil-( ,uei,T2m ,mMcuei(sub.or;onromuchoo(_sub manuhoais(t0er t3_sub(_hoei; (_sub__hoeiul_in(1656uatmatm_ht3(sub__hoeiNr= t3(subNI s_2Tu.0er ASSfax dW 2ssTlces subsamplil-""[E << l tmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh: iuei_roi(t0er; /ct0erdef g3ss x dL211s-328Toh:u()_3 > i_roi(t0er; /c (_ooi(t0er i_roi; nu,uei(roi(t0er iuei(roi ,mMhoacuei(roi.reg #_of_tnderono( ,uei,T0s-1a51,l2a51,l4);hoacuei(roi.re;onromuchoo(_moi manu /c(_ooi(t0er i_roial; /c(_ooi(tol_in(1656uatmatm_ht3(ooi(t r= t3(moim s_2Tu.0er ASSfax dW 2ssTlces reg #rof tnderonorseleche;e""[E << l tmal ;nk-(2_2,1) approximil- g: ":<< S s_S oh: nam)space vmml { u class rueier3_g3ss _l : p elicrunital __2,1)p elic: a rueier3_g3ss _l() : unitalSSiueier3_g3ss (R1xR2xR3) x hI1xR1) x hI2xR2) x hI3xR3)p8) {}f/ccbool runt3r nuS mSprotected: fMS mS} // class rueier3_g3ss _l } //9nam)space vmml vmmlib-1.3.5/ronosfunitalocpp00006440000765000002400000001121125702,N420015474 0uapar e_ieapaff#- gludeEunitalohpp" nam)space vmml { unital::unitalS;onro approximil-&2rono_nam)2 vo_ : _toler ncet31e-9 ) { _ A2.9"UNIT TEST":<; _ A2+=2rono_nam); _ A2+=2"\n"; }2 void unital::r AS;onro approximil-&2event, bool apatus_ok, bool warnil-_only ) { tm_hapatus_ok2m s__ A2+=2"[ [ q]:<; ;nk- tm_h! warnil-_only ) s__ A2+=2"[ FAILq]:<; ;nk- s__ A2+=2"[ WARNq]:<; _ A2+=2event; _ A2+=2"\n"; }2 void unital::r A //testm;onro approximil-&2e/tes_msg, bool warnil-_only ) { _ A2+=2"[ WARNq]:<; _ A2+=2e/tes_msg; _ A2+=2"\n"; }2 } //9nam)space vmml vmmlib-1.3.5/ronosfunitalohpp00006440000765000002400000001251125702,N420015505 0uapar e_ieapaff#ifndef __VMML__UNIT_TEST__HPP__ #define __VMML__UNIT_TEST__HPP__ #- glude #- glude nam)space vmml { class unital { p elic: aunitalS;onro approximil-&2rono_nam)2 ; virtual ~unitalS) {}f virtual bool runt3 34; n frien tapproo g: ":& oper dW eS(tapproo g: ":& os, avo_ ;onro unital& unital_ 3 { /cos #i glude #i glude #- glude nam)space vmml { bool rix dWal::runt3 {fvo_ bool i.en E <;h avo_ rix dW*L463 elv<< v; vo_ elv<1 );ig08369L219-1pc s }#o_ avo_ v.iter_1_hooi,_h,oi,_h+4g mao_ vo_ //9ronos oopyFrom1DimCArray funche;e /i.en E <;ho{ /csize_t rmp8 31;hoafestmsize_t index8 30; si index8<94e ++index, ++rmp8i s_2,vo_ i.en v.ahooindex8) r= tmpatnumhvo_ avo_ rmp8 34; float i,_hfig083694,lva52s-1 }#o_ v.iter_1_hooi,_hf,oi,_hf T4g manufestmsize_t index8 30; si index8<94e ++index, --rmp8i s_2,vo_ i.en v.ahooindex8) r= tmpatnumh 0er ASS1_hooinput_iter dW begin_,oinput_iter dW v0(9L219-1pquat vix dW*L3s-float > v1( -6s-228-s );hvo_ tm_hv0.dothv18) != -8e),vo_ i.en lank- ,vo_ r ASSdottcooduch63 t()""[ oef }2 vo_ //9oross v0(9L219-1pquat vix dW*L3s-float > v1( -6s-228-s );hvo_ vix dW*L3s-float > vcoror;t( -2369-14s-17 );hvo_ tm_hv0.orosshv18) != vcoror;te),vo_ i.en lank- ,vo_ r ASSoross v0(9L219-1pquat vix dW*L3s-float > v1( -6s-228-s );hvo_ vix dW*L3s-float > v2(5-2231 );hvo_ v0.squared_dist ncet3v1 );hvo_ avo_ vix dW*L3s-float > nmavo_ n.oompute_normalhv069vL21v9 );hvo_ avo_ vix dW*L363 elv<< vd(9va52s-1 );hvo_ v0en vd;hvo_ avo_ }2 avo_ 2,vo_ h vix dW*L463float > vf(5-1.0f693.0f69-99.0f69-0.9fg mavo_ vix dW*L463size_t > vui(11,5a52s-4g mao_ vo_ bool i.en E <;h size_t index8 3vf.find(min_index( mao_ float f8 3vf.find(min();hvo_ avo_ tm_hindex8!=T2N|| f8!= -99.0fe),vo_ i.en lank- ,vo_ vo_ tm_h NI vo_ 2,vo_ index8 3vf.find(max_index( mao_ f8 3vf.find(max( mao_ ,vo_ im_hindex8!=T1N|| f8!= 3.0fe),vo_ i.en lank- ,vo_ mhvo_ avo_ size_t uimao_ tm_h NI vo_ 2,vo_ index8 3vui.find(min_index( mao_ ui8 3vui.find(min( mao_ im_hindex8!=T0N|| ui8!=T0N),vo_ {,vo_ i.en lank- ,vo_ mhvo_ mh vo_ tm_h NI vo_ 2,vo_ index8 3vui.find(max_index( mao_ ui8 3vui.find(max( mao_ im_hindex8!=T1N|| ui8!=T5N),vo_ {,vo_ i.en lank- ,vo_ mhvo_ mh vo_ r ASSfind(min/max( 63find(min_index/max_index( ""[ oef avo_ }2 {,vo_ vix dW*L463float > v(5-1.0f693.0f69-99.0f69-0.9fg mavo_ float f8 3420fmavo_ vix dW*L463float > v_scaled = f *Tvat,vo_ i.en E <;h tm_hv_scaled != vix dW*L463float >(5-4.0f6939.0f69-396.0f69-3.6f8) ) o_ 2,vo_ i.en lank- ,vo_ }avo_ vo_ r ASSoper dW*(3float, vix dW )""[ oefavo_ }2 {,vo_ vix dW*L363float > vf(53.0-12.0-13.0g mavo_ vix dW*L363 elv<< vd(9vfg mavo_ vix dW*L363 elv<roconro_iter dW fiten vf.begin( ;hvo_ bool i.en E <;h festm; si i != it_en e ++it, ++fiteI vo_ 2,vo_ im_h*i != *fiteI vo_ i.en lank- ,vo_ }avo_ v tn 0.0; vo_ v tn vf;h festm; si i != it_en e ++it, ++fiteI vo_ 2,vo_ im_h*i != *fiteI vo_ i.en lank- ,vo_ }avo_ ,vo_ //9ro-homogenous-coords an tfrom-homogenous-coords assignment ops,vo_ //9are already9ronoed in ghe9ronos fes ghe9respecheve x dWs,,vo_ //9sincetghe9chors calltghe9assignment ops,vo_ vo_ r ASSoonverde;e&oper dW=-1oonverde;e&chor""[ oef }2 vo_ {,vo_ vix dW*L463float > vf(53.0-12.0-13.0-13.0g mavo_ vix dW*L363float >& v3en vflget_sub(vix dW*L3 >( ;hvo_ bool i.en v3.x( ==Tvflx( v3.y( ==Tvfly();hvo_ v3.normalize( ma vo_ tm_h NI ,vo_ i.en v3.x( ==Tvflx( v3.y( ==Tvfly();hvo_ r ASSget_sub(vix dW*LN >( ""[ oef vo_ }2 vo_ #ifndef VMMLIB_NO_CONVERSION_OPERATORS {,vo_ vix dW*L463 elv<< v; vo_ elv*9array n v; vo_ //;onro elv*9conro_array =Tvat,vo_ array[T1N] n 2.0; vo_ //;onro_array[T2N] = 3.0ef avo_ }2 vo_ {,mM//elementwise sqrh,vo_ vix dW*L463float > vsq( 9.0-14.0-13.0-12.0g mavo_ vix dW*L463float > vsq__hoei(53.0-12.0-13.0-13.414213538169861 ); nuvsq.sqrh_elementwise( ;hvo_ bool i.en vsqg== vsq__hoeimanu /cr ASSelementwise sqrh ""[ oef }2 {,mM//elementwise sqrh,vo_ vix dW*L463float > vr( 9.0-14.0-13.0-12.0g mavo_ vix dW*L463float > vr__hoei(50.1111111119389534025225a51,l9*5 ); nuvr.re;icoocal( ;hvo_ bool i.en vrg== vr__hoeimanunu /cr ASSre;icoocal ""[ oef }2 {,mM//l22norm,vo_ vix dW*L463float > vr( 9.0-14.0-13.0-12.0g mamM elv nam)space vmml { class rix dWal : p elicrunital { p elic: arix dWal() : unitalSSvix dW (m)p8) {}f bool runt3r protected: } // class rix dWal } //9nam)space vmml vmmlib-1.3.5/ronosfrmmlib_lapack(mainocpp00006440000765000002400000003153125702,N420017272 0uapar e_ieapaff #i glude #- glude #- gludeEsvd_lapack(vs_oldohpp" ug_",9nam)space vmml; int main( tndaargc,m;onro char*9argv[] ) { #if 1f svd_lapack(vs_old vsef vs.runt3r s oh:cout int main( tndaargc,m;onro char*9argv[] ) { o_ vmml::2ssTlc_oompare_perfal mcpal; vo_ 2cpal.runt3r s oh:cout #ifdef VMMLIB_USE_LAPACK # inglude"lapack( inear_learo_squares_lohpp" # inglude"lapack(gaussian_eliminar #_lohpp" # inglude"lapack(svd_lohpp" # inglude"lapack(sym_eigs_lohpp" # inglude"blas_daxpy_lohpp" # inglude"blas_dgemm_lohpp" # inglude"blas_dot_lohpp" # inglude"cp3_g3ss _lohpp" # inglude"qrueier3_g3ss _lohpp" # inglude"g3_hooialohpp" # inglude"g3_hopm_lohpp" # inglude"g3_hosvd_lohpp" # inglude"g3_ihopm_lohpp" # inglude"g3_ttm_lohpp" # inglude"g3ss x_iter dW_lohpp" # inglude"g3ss x_lohpp" # inglude"gueier3_exporter_importer_lohpp" # inglude"gueier3_g3ss _lohpp" # inglude"2ssTlc_pseudoinverdealohpp" # #ifdef VMMLIB_USE_CUDA # inglude"cublas_dgemm_lohpp" # inglude"cug3ss _lsohpp" # void run_and_r ASvmml::unital& l 3 {fvo_ l.runt3r s oh:cout"; }#3_982449FC0E3F584A0018E13A /* lapack( inear_learo_squaresohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack( inear_learo_squaresohpp; path = inglude/vmmlibflapack( inear_learo_squaresohpp; sourceTre)9r3""; }#3_982449FD0E3F584A0018E13A /* lapackohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapackohpp; path = inglude/vmmlibflapackohpp; sourceTre)9r3""; }#3_98244A3B0E3F5AEE0018E13A /* lapack(svd_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3lapack(svd_locpp; path = ls/lapack(svd_locpp; sourceTre)9r3""; }#3_98244A3C0E3F5AEE0018E13A /* lapack(svd_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack(svd_lohpp; path = ls/lapack(svd_lohpp; sourceTre)9r3""; }#3_98244A3D0E3F5AEE0018E13A /* lapack( inear_learo_squares_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3lapack( inear_learo_squares_locpp; path = ls/lapack( inear_learo_squares_locpp; sourceTre)9r3""; }#3_98244A3E0E3F5AEE0018E13A /* lapack( inear_learo_squares_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack( inear_learo_squares_lohpp; path = ls/lapack( inear_learo_squares_lohpp; sourceTre)9r3""; }#3_9839FA1D0E2B5A6C00A16721 /* svdohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3svdohpp; path = inglude/vmmlibfsvdohpp; sourceTre)9r3""; }#3_9839FA220E2B5BBB00A16721 /* svd_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3svd_locpp; path = ls/svd_locpp; sourceTre)9r3""; }#3_9839FA230E2B5BBB00A16721 /* svd_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3svd_lohpp; path = ls/svd_lohpp; sourceTre)9r3""; }#3_9839FE0E0E2BB16D00A16721 /* Acceler te.framework */0836isa083PBXF_ieReference; lastKnownF_ieType9r3wrapper.framework;9nam)9r3Acceler te.framework; path = /System/Library/Frameworks/Acceler te.framework; sourceTre)9r3""; }#3_9839FE1F0E2BB24700A16721 /* rmmlib_lapack(l */0836isa083PBXF_ieReference; explicitF_ieType9r3"oompiled.mach-o.execugable"; ingludeInIndex8 30; path = rmmlib_lapack(l; sourceTre)9r3BUILT_PRODUCTS_DIR; }#3_9839FE5D0E2BB5B300A16721 /* rmmlib_lapack(mainocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3rmmlib_lapack(mainocpp; path = ls/rmmlib_lapack(mainocpp; sourceTre)9r3""; }#3_9839FEF60E2BC67400A16721 /* svd_lapack(vs_oldocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3svd_lapack(vs_oldocpp; path = ls/svd_lapack(vs_oldocpp; sourceTre)9r3""; }#3_9839FEF70E2BC67400A16721 /* svd_lapack(vs_oldohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3svd_lapack(vs_oldohpp; path = ls/svd_lapack(vs_oldohpp; sourceTre)9r3""; }#3_984763FE110DDB3C0024A1F8 /* t3ss xohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3ss xohpp; path = inglude/vmmlibft3ss xohpp; sourceTre)9r3""; }#3_98476417110DDB940024A1F8 /* t3ss x_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3t3ss x_locpp; path = ls/t3ss x_locpp; sourceTre)9r3""; }#3_98476418110DDB940024A1F8 /* t3ss x_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3ss x_lohpp; path = ls/t3ss x_lohpp; sourceTre)9r3""; }#3_984F581211B8CFD90027D673 /* rix dWalraitsohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3rix dWalraitsohpp; path = inglude/vmmlibfrix dWalraitsohpp; sourceTre)9r3""; }#3_984F581311B8CFD90027D673 /* 2ssTlc_lraitsohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r32ssTlc_lraitsohpp; path = inglude/vmmlibf2ssTlc_lraitsohpp; sourceTre)9r3""; }#3_98584AF50E643AEC00314C4C /* lapack(typesohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack(typesohpp; path = inglude/vmmlibflapack(typesohpp; sourceTre)9r3""; }#3_98584B140E643BFC00314C4C /* lapack(ingludesohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack(ingludesohpp; path = inglude/vmmlibflapack(ingludesohpp; sourceTre)9r3""; }#3_985964770FB177A6006CA0F8 /* 2sshohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r32sshohpp; path = inglude/vmmlibf2sshohpp; sourceTre)9r3""; }#3_98596E620FB4891E006CA0F8 /* enable_ifohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3enable_ifohpp; path = inglude/vmmlibfenable_ifohpp; sourceTre)9r3""; }#3_98596E730FB4897C006CA0F8 /* jacobiasolver.hpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3jacobiasolver.hpp; path = inglude/vmmlibfjacobiasolver.hpp; sourceTre)9r3""; }#3_98596E840FB489D4006CA0F8 /* fruapumaculler.hpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3fruapumaculler.hpp; path = inglude/vmmlibffruapumaculler.hpp; sourceTre)9r3""; }#3_985F6FCC0C6B7C67002B05C5 /* LICENSE */0836isa083PBXF_ieReference; f_ieEncod_",9r330; lastKnownF_ieType9r3text;9nam)9r3LICENSE; path = inglude/vmmlibfLICENSE; sourceTre)9r3""; }#3_9863B6E711903E5D00887FFC /* lapack(gaussian_eliminar #ohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack(gaussian_eliminar #ohpp; path = inglude/vmmlibflapack(gaussian_eliminar #ohpp; sourceTre)9r3""; }#3_9863B6F011903EFE00887FFC /* lapack(gaussian_eliminar #_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack(gaussian_eliminar #_lohpp; path = ls/lapack(gaussian_eliminar #_lohpp; sourceTre)9r3""; }#3_9863B6F111903EFE00887FFC /* lapack(gaussian_eliminar #_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3lapack(gaussian_eliminar #_locpp; path = ls/lapack(gaussian_eliminar #_locpp; sourceTre)9r3""; }#3_9868345B0E24F8F300618F55 /* rix dWohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3rix dWohpp; path = inglude/vmmlibfrix dWohpp; sourceTre)9r3""; }#3_9868345D0E24F97D00618F55 /* rmmlib_configohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3rmmlib_configohpp; path = inglude/vmmlibfrmmlib_configohpp; sourceTre)9r3""; }#3_986834BF0E24FFD400618F55 /* rix dWalocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3rix dWalocpp; path = ls/rix dWalocpp; sourceTre)9r3""; }#3_986834C00E24FFD400618F55 /* rix dWalohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3rix dWalohpp; path = ls/rix dWalohpp; sourceTre)9r3""; }#3_988F5A100C22CAFE0005AC92 /* README */0836isa083PBXF_ieReference; f_ieEncod_",9r330; lastKnownF_ieType9r3text;9path = README; sourceTre)9r3""; }#3_98B22A260FB8353900EEDF5F /* fruapumalocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3fruapumalocpp; path = ls/fruapumalocpp; sourceTre)9r3""; }#3_98B22A270FB8353900EEDF5F /* fruapumalohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3fruapumalohpp; path = ls/fruapumalohpp; sourceTre)9r3""; }#3_98B230710FB985D700EEDF5F /* jacobialocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3jacobialocpp; path = ls/jacobialocpp; sourceTre)9r3""; }#3_98B230720FB985D700EEDF5F /* jacobialohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3jacobialohpp; path = ls/jacobialohpp; sourceTre)9r3""; }#3_98B7A2490E24C85C0064264E /* rmmlib_performanceals */0836isa083PBXF_ieReference; explicitF_ieType9r3"oompiled.mach-o.execugable"; ingludeInIndex8 30; path = rmmlib_performanceals; sourceTre)9r3BUILT_PRODUCTS_DIR; }#3_98B7A2500E24C8E70064264E /* rmmlib_unitals(mainocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3rmmlib_unitals(mainocpp; path = ls/rmmlib_unitals(mainocpp; sourceTre)9r3""; }#3_98B7A2510E24C8E70064264E /* rmmlib_performanceals(mainocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3rmmlib_performanceals(mainocpp; path = ls/rmmlib_performanceals(mainocpp; sourceTre)9r3""; }#3_98B7A2550E24C9540064264E /* timerohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3timerohpp; path = ls/timerohpp; sourceTre)9r3""; }#3_98B7A2560E24C9540064264E /* timerocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3timerocpp; path = ls/timerocpp; sourceTre)9r3""; }#3_98B7A2680E24CB140064264E /* performancealocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3performancealocpp; path = ls/performancealocpp; sourceTre)9r3""; }#3_98B7A2690E24CB140064264E /* performancealohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3performancealohpp; path = ls/performancealohpp; sourceTre)9r3""; }#3_98B7A2A30E24DF910064264E /* 2ssTlc_oompare_perfalocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r32ssTlc_oompare_perfalocpp; path = ls/2ssTlc_oompare_perfalocpp; sourceTre)9r3""; }#3_98B7A2A40E24DF910064264E /* 2ssTlc_oompare_perfalohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r32ssTlc_oompare_perfalohpp; path = ls/2ssTlc_oompare_perfalohpp; sourceTre)9r3""; }#3_98B7A3F00E24EAA30064264E /* 2ssTlc_funchorsohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r32ssTlc_funchorsohpp; path = inglude/vmmlibf2ssTlc_funchorsohpp; sourceTre)9r3""; }#3_98D402D30E38D6A000B24DF1 /* quatern #ohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3quatern #ohpp; path = inglude/vmmlibfquatern #ohpp; sourceTre)9r3""; }#3_98D402D40E38D6A000B24DF1 /* quatern #_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3quatern #_locpp; path = ls/quatern #_locpp; sourceTre)9r3""; }#3_98D402D50E38D6A000B24DF1 /* quatern #_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3quatern #alohpp; path = ls/quatern #alohpp; sourceTre)9r3""; }#3_98D4102C0E2658FE00BEFA71 /* excepr #ohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3excepr #ohpp; path = inglude/vmmlibfexcepr #ohpp; sourceTre)9r3""; }#3_98D9E40F0E3E269700B046DD /* rmmlibohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3rmmlibohpp; path = inglude/vmmlibfrmmlibohpp; sourceTre)9r3""; }#3_98D9E4110E3E26E000B046DD /* fruapumohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3fruapum.hpp; path = inglude/vmmlibffruapumohpp; sourceTre)9r3""; }#3_98D9E4C10E3E314700B046DD /* risibilityohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3risibilityohpp; path = inglude/vmmlibfrisibilityohpp; sourceTre)9r3""; }#3_98F556320E2437540044BA3E /* 2ssTlcohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r32ssTlcohpp; path = inglude/vmmlibf2ssTlcohpp; sourceTre)9r3""; }#3_98F556330E2437540044BA3E /* qr_deoomposit #ohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3qr_deoomposit #ohpp; path = inglude/vmmlibfqr_deoomposit #ohpp; sourceTre)9r3""; }#3_98F556350E24377F0044BA3E /* 2ssTlc_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r32ssTlc_locpp; path = ls/2ssTlc_locpp; sourceTre)9r3""; }#3_98F556360E24377F0044BA3E /* 2ssTlc_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r32ssTlc_lohpp; path = ls/2ssTlc_lohpp; sourceTre)9r3""; }#3_98F556370E24377F0044BA3E /* qr_deoomposit #_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3qr_deoomposit #_locpp; path = ls/qr_deoomposit #_locpp; sourceTre)9r3""; }#3_98F556380E24377F0044BA3E /* qr_deoomposit #_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3qr_deoomposit #alohpp; path = ls/qr_deoomposit #alohpp; sourceTre)9r3""; }#3_98FE7DC50E224E8700B1E17F /* rmmlib_unitals */0836isa083PBXF_ieReference; explicitF_ieType9r3"oompiled.mach-o.execugable"; ingludeInIndex8 30; path = rmmlib_unitals; sourceTre)9r3BUILT_PRODUCTS_DIR; }#3_98FE7DCD0E224EC400B1E17F /* unitalocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3unitalocpp; path = ls/unitalocpp; sourceTre)9r3""; }#3_98FE7DCE0E224EC400B1E17F /* unitalohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3unitalohpp; path = ls/unitalohpp; sourceTre)9r3""; }#3_CF0647971446DE52007DD062 /* qrueier3_g3ss ohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3qrueier3_g3ss ohpp; path = inglude/vmmlibfqrueier3_g3ss ohpp; sourceTre)9r3""; }#3_CF0647981446E152007DD062 /* tueier3_exporterohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3tueier3_exporterohpp; path = inglude/vmmlibftueier3_exporterohpp; sourceTre)9r3""; }#3_CF06479A1446E17B007DD062 /* tueier3_importerohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3tueier3_importerohpp; path = inglude/vmmlibftueier3_importerohpp; sourceTre)9r3""; }#3_CF06479D1446E4B7007DD062 /* tueier3_exporter_importer_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3tueier3_exporter_importer_lohpp; path = ls/tueier3_exporter_importer_lohpp; sourceTre)9r3""; }#3_CF06479E1446E4B7007DD062 /* tueier3_exporter_importer_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3tueier3_exporter_importer_locpp; path = ls/tueier3_exporter_importer_locpp; sourceTre)9r3""; }#3_CF0649C614472249007DD062 /* qrueier3_g3ss _lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3qrueier3_g3ss alohpp; path = ls/qrueier3_g3ss alohpp; sourceTre)9r3""; }#3_CF0649C714472249007DD062 /* qrueier3_g3ss _locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3qrueier3_g3ss _locpp; path = ls/qrueier3_g3ss alocpp; sourceTre)9r3""; }#3_CF2DD1EF126C7A4A0036DE05 /* cp3_g3ss ohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3cp3_g3ss ohpp; path = inglude/vmmlibfcp3_g3ss ohpp; sourceTre)9r3""; }#3_CF2DD25B126C8E530036DE05 /* t3ss x_iter dWohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3ss x_iter dWohpp; path = inglude/vmmlibft3ss x_iter dWohpp; sourceTre)9r3""; }#3_CF2DD25C126C8EAE0036DE05 /* t3ss x_iter dW_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3ss x_iter dW_lohpp; path = ls/t3ss x_iter dW_lohpp; sourceTre)9r3""; }#3_CF2DD25D126C8EAE0036DE05 /* t3ss x_iter dW_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3t3ss x_iter dW_locpp; path = ls/t3ss x_iter dW_locpp; sourceTre)9r3""; }#3_CF2DD263126C91670036DE05 /* cp3_g3ss _lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3cp3_g3ss _lohpp; path = ls/cp3_g3ss _lohpp; sourceTre)9r3""; }#3_CF2DD264126C91670036DE05 /* cp3_g3ss _locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3cp3_g3ss _locpp; path = ls/cp3_g3ss _locpp; sourceTre)9r3""; }#3_CF42E5E7125F736E00C0A38E /* 2ssTlc_pseudoinverdealohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r32ssTlc_pseudoinverdealohpp; path = ls/2ssTlc_pseudoinverdealohpp; sourceTre)9r3""; }#3_CF42E5E9125F738600C0A38E /* 2ssTlc_pseudoinverdealocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r32ssTlc_pseudoinverdealocpp; path = ls/2ssTlc_pseudoinverdealocpp; sourceTre)9r3""; }#3_CF42E65B125F7F2100C0A38E /* 2ssTlc_pseudoinverdeohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r32ssTlc_pseudoinverdeohpp; path = inglude/vmmlibf2ssTlc_pseudoinverdeohpp; sourceTre)9r3""; }#3_CF75FFD11432315C00CFD46E /* blas_dotohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3blas_dotohpp; path = inglude/vmmlibfblas_dotohpp; sourceTre)9r3""; }#3_CF75FFF31432383D00CFD46E /* blas_dot_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3blas_dotalohpp; path = ls/blas_dotalohpp; sourceTre)9r3""; }#3_CF75FFF41432383D00CFD46E /* blas_dot_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3blas_dot_locpp; path = ls/blas_dotalocpp; sourceTre)9r3""; }#3_CF7F632B151F8D4400F033B4 /* g3_converterohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_converterohpp; path = inglude/vmmlibft3_converterohpp; sourceTre)9r3""; }#3_CF7FA84C114AAC01003076E4 /* tueier3_g3ss ohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3tueier3_g3ss ohpp; path = inglude/vmmlibfrueier3_g3ss ohpp; sourceTre)9r3""; }#3_CF7FA8D4114EB617003076E4 /* tueier3_g3ss _locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3tueier3_g3ss _locpp; path = ls/rueier3_g3ss alocpp; sourceTre)9r3""; }#3_CF7FA8D9114EB696003076E4 /* tueier3_g3ss _lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3tueier3_g3ss _lohpp; path = ls/tueier3_g3ss _lohpp; sourceTre)9r3""; }#3_CF9069FA14F561E70043CF23 /* cublas_dgemm.cu */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3text;9nam)9r3cublas_dgemm.cu; path = inglude/vmmlibfcublas_dgemm.cu; sourceTre)9r3""; }#3_CF9069FB14F561E70043CF23 /* cublas_ingludesohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3cublas_ingludesohpp; path = inglude/vmmlibfcublas_ingludesohpp; sourceTre)9r3""; }#3_CF9069FC14F561E70043CF23 /* cublas_typesohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3cublas_typesohpp; path = inglude/vmmlibfcublas_typesohpp; sourceTre)9r3""; }#3_CF906A1F14F562F90043CF23 /* cublas_dgemm_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3cublas_dgemm_locpp; path = ls/cublas_dgemm_locpp; sourceTre)9r3""; }#3_CF906A2014F562F90043CF23 /* cublas_dgemm_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3cublas_dgemm_lohpp; path = ls/cublas_dgemm_lohpp; sourceTre)9r3""; }#3_CF906ABE14F56D510043CF23 /* g3_ttmohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_ttmohpp; path = inglude/vmmlibft3_ttmohpp; sourceTre)9r3""; }#3_CF906ACC14F56FEC0043CF23 /* g3_ttm_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_ttm_lohpp; path = ls/t3_ttm_lohpp; sourceTre)9r3""; }#3_CF906ACD14F56FEC0043CF23 /* g3_ttm_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3t3_ttm_locpp; path = ls/t3_ttm_locpp; sourceTre)9r3""; }#3_CF906B7714F57B640043CF23 /* g3_cublas_ttmohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_cublas_ttmohpp; path = inglude/vmmlibft3_cublas_ttmohpp; sourceTre)9r3""; }#3_CF906B7914F57D3C0043CF23 /* g3_cublas_hosvdohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_cublas_hosvdohpp; path = inglude/vmmlibft3_cublas_hosvdohpp; sourceTre)9r3""; }#3_CF906B7A14F57D7C0043CF23 /* g3_cublas_hooiohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_cublas_hooiohpp; path = inglude/vmmlibft3_cublas_hooiohpp; sourceTre)9r3""; }#3_CF906B8714F6313A0043CF23 /* cug3ss _lsohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3cug3ss _lsohpp; path = ls/cug3ss _lsohpp; sourceTre)9r3""; }#3_CF906B8814F6313A0043CF23 /* cug3ss _lsocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3cug3ss _lsocpp; path = ls/cug3ss _lsocpp; sourceTre)9r3""; }#3_CFA7FE00142242BD001EE112 /* g3_ihopmohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_ihopmohpp; path = inglude/vmmlibft3_ihopmohpp; sourceTre)9r3""; }#3_CFA7FE4914225C03001EE112 /* g3_ihopm_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_ihopm_lohpp; path = ls/t3_ihopm_lohpp; sourceTre)9r3""; }#3_CFA7FE4A14225C03001EE112 /* g3_ihopm_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3t3_ihopm_locpp; path = ls/t3_ihopm_locpp; sourceTre)9r3""; }#3_CFCE701F1509F53100A29C68 /* blas_daxpyohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3blas_daxpyohpp; path = inglude/vmmlibfblas_daxpyohpp; sourceTre)9r3""; }#3_CFCE7022150A004300A29C68 /* blas_daxpy_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3blas_daxpyalohpp; path = ls/blas_daxpyalohpp; sourceTre)9r3""; }#3_CFCE7023150A004300A29C68 /* blas_daxpy_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3blas_daxpy_locpp; path = ls/blas_daxpyalocpp; sourceTre)9r3""; }#3_CFD85BC61398E2A100266D85 /* g3_hosvdohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_hosvdohpp; path = inglude/vmmlibft3_hosvdohpp; sourceTre)9r3""; }#3_CFD85BC71398E2BE00266D85 /* g3_hooiohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_hooiohpp; path = inglude/vmmlibft3_hooiohpp; sourceTre)9r3""; }#3_CFD85BC81398E2D400266D85 /* g3_hopmohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_hopmohpp; path = inglude/vmmlibft3_hopmohpp; sourceTre)9r3""; }#3_CFD85C531399060300266D85 /* g3_hosvd_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_hosvd_lohpp; path = ls/t3_hosvd_lohpp; sourceTre)9r3""; }#3_CFD85C541399060300266D85 /* g3_hosvd_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3t3_hosvd_locpp; path = ls/t3_hosvd_locpp; sourceTre)9r3""; }#3_CFD85C7F139909EF00266D85 /* g3_hooialohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_hooi_lohpp; path = ls/t3_hooialohpp; sourceTre)9r3""; }#3_CFD85C80139909EF00266D85 /* g3_hooialocpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3t3_hooialocpp; path = ls/t3_hooialocpp; sourceTre)9r3""; }#3_CFD85C8213990A0E00266D85 /* g3_hopm_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3t3_hopm_lohpp; path = ls/t3_hopm_lohpp; sourceTre)9r3""; }#3_CFD85C8313990A0E00266D85 /* g3_hopm_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3t3_hopm_locpp; path = ls/t3_hopm_locpp; sourceTre)9r3""; }#3_CFF0C1F21406E4DC00C3ADDB /* blas_dgemmohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3blas_dgemmohpp; path = inglude/vmmlibfblas_dgemmohpp; sourceTre)9r3""; }#3_CFF0C1F31406E4DC00C3ADDB /* blas_ingludesohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3blas_ingludesohpp; path = inglude/vmmlibfblas_ingludesohpp; sourceTre)9r3""; }#3_CFF0C1F41406E4DC00C3ADDB /* blas_typesohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3blas_typesohpp; path = inglude/vmmlibfblas_typesohpp; sourceTre)9r3""; }#3_CFF0C1F81406E55200C3ADDB /* blas_dgemm_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3blas_dgemm_locpp; path = ls/blas_dgemm_locpp; sourceTre)9r3""; }#3_CFF0C1F91406E55200C3ADDB /* blas_dgemm_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3blas_dgemmalohpp; path = ls/blas_dgemm_lohpp; sourceTre)9r3""; }#3_CFF1967D14F3F31A00758DF7 /* ralid dWohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3ralid dWohpp; path = inglude/vmmlibfralid dWohpp; sourceTre)9r3""; }#3_CFF952C41312B52C00071FB3 /* lapack(sym_eigsohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack(sym_eigsohpp; path = inglude/vmmlibflapack(sym_eigsohpp; sourceTre)9r3""; }#3_CFF95531131CECD100071FB3 /* lapack(sym_eigs_lohpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.h;9nam)9r3lapack(sym_eigsalohpp; path = ls/lapack(sym_eigsalohpp; sourceTre)9r3""; }#3_CFF95532131CECD100071FB3 /* lapack(sym_eigs_locpp */0836isa083PBXF_ieReference; f_ieEncod_",9r34; lastKnownF_ieType9r3sourcecodeocpp.cpp; nam)9r3lapack(sym_eigs_locpp; path = ls/lapack(sym_eigsalocpp; sourceTre)9r3""; }#/* End PBXF_ieReference seche;e */ /* Begin PBXFrameworksBuildPhasetseche;e */ 9839FE1D0E2BB24700A16721 /* Frameworks */0836 isa083PBXFrameworksBuildPhase#3_ buildAche;eMask0832147483647#3_ f_ies083(3_ 9839FE440E2BB25200A16721 /* Acceler te.framework in Frameworks */,3_ )#3_ runOnlyForDeploymentPostprocess_",9r30#3_}#3_98B7A2470E24C85C0064264E /* Frameworks */0836 isa083PBXFrameworksBuildPhase#3_ buildAche;eMask0832147483647#3_ f_ies083(3_ 98C561060F1BA62B0026B925 /* Acceler te.framework in Frameworks */,3_ )#3_ runOnlyForDeploymentPostprocess_",9r30#3_}#3_98FE7DC30E224E8700B1E17F /* Frameworks */0836 isa083PBXFrameworksBuildPhase#3_ buildAche;eMask0832147483647#3_ f_ies083(3_ 98244C010E3F76930018E13A /* Acceler te.framework in Frameworks */,3_ )#3_ runOnlyForDeploymentPostprocess_",9r30#3_}#/* End PBXFrameworksBuildPhasetseche;e */ /* Begin PBXGrouptseche;e */ 034768DFFF38A50411DB9C8B /* Products */0836 isa083PBXGroup#3_ children083(3_ 98FE7DC50E224E8700B1E17F /* rmmlib_unitals */,3_ 98B7A2490E24C85C0064264E /* rmmlib_performanceals */,3_ 9839FE1F0E2BB24700A16721 /* rmmlib_lapack(l */,3_ )#3_ nam)9r3Products#3_ sourceTre)9r3"";3_}#3_0867D691FE84028FC02AAC07 /* VMMLib */0836 isa083PBXGroup#3_ children083(3_ 08FB77AEFE84172EC02AAC07 /* Library */,3_ 988F58330C22C0720005AC92 /* Ts */,3_ 089C1665FE841158C02AAC07 /* Resources */,3_ 0867D69AFE84028FC02AAC07 /* External Frameworks and Libraries */,3_ 034768DFFF38A50411DB9C8B /* Products */,3_ )#3_ nam)9r3VMMLib#3_ sourceTre)9r3"";3_}#3_0867D69AFE84028FC02AAC07 /* External Frameworks and Libraries */0836 isa083PBXGroup#3_ children083(3_ 9839FE0E0E2BB16D00A16721 /* Acceler te.framework */,3_ )#3_ nam)9r3"External Frameworks and Libraries"#3_ sourceTre)9r3"";3_}#3_089C1665FE841158C02AAC07 /* Resources */0836 isa083PBXGroup#3_ children083(3_ 985F6FCC0C6B7C67002B05C5 /* LICENSE */,3_ 988F5A100C22CAFE0005AC92 /* README */,3_ )#3_ nam)9r3Resources#3_ sourceTre)9r3"";3_}#3_08FB77AEFE84172EC02AAC07 /* Library */0836 isa083PBXGroup#3_ children083(3_ 98D9E40F0E3E269700B046DD /* rmmlibohpp */,3_ 9868345D0E24F97D00618F55 /* rmmlib_configohpp */,3_ 98F556320E2437540044BA3E /* 2ssTlcohpp */,3_ 98B7A3F00E24EAA30064264E /* 2ssTlc_funchorsohpp */,3_ 9868345B0E24F8F300618F55 /* rix dWohpp */,3_ 98D402D30E38D6A000B24DF1 /* quatern #ohpp */,3_ CF42E65B125F7F2100C0A38E /* 2ssTlc_pseudoinverdeohpp */,3_ 98596E640FB48941006CA0F8 /* advanced */,3_ 98596E630FB48923006CA0F8 /* 2isc */,3_ 98596E740FB489AC006CA0F8 /* fruapum */,3_ 984763FD110DDB210024A1F8 /* t3ss */,3_ CF906B7814F57D0F0043CF23 /* cug3ss */,3_ CFF0C1F11406E4BA00C3ADDB /* blas */,3_ CF9069F914F561CF0043CF23 /* cublas */,3_ 9839FE5C0E2BB59800A16721 /* lapack */,3_ 984F581111B8CFB50027D673 /* boost la */,3_ )#3_ nam)9r3Library#3_ sourceTre)9r3"";3_}#3_9839FE5C0E2BB59800A16721 /* lapack */0836 isa083PBXGroup#3_ children083(3_ 9839FE5D0E2BB5B300A16721 /* rmmlib_lapack(mainocpp */,3_ 982449FD0E3F584A0018E13A /* lapackohpp */,3_ 98584AF50E643AEC00314C4C /* lapack(typesohpp */,3_ 98584B140E643BFC00314C4C /* lapack(ingludesohpp */,3_ 982449FC0E3F584A0018E13A /* lapack( inear_learo_squaresohpp */,3_ 982449FB0E3F584A0018E13A /* lapack(svdohpp */,3_ 9863B6E711903E5D00887FFC /* lapack(gaussian_eliminar #ohpp */,3_ CFF952C41312B52C00071FB3 /* lapack(sym_eigsohpp */,3_ )#3_ nam)9r3lapack#3_ sourceTre)9r3"";3_}#3_984763FD110DDB210024A1F8 /* t3ss */0836 isa083PBXGroup#3_ children083(3_ 984763FE110DDB3C0024A1F8 /* t3ss xohpp */,3_ CF2DD25B126C8E530036DE05 /* t3ss x_iter dWohpp */,3_ CF7FA84C114AAC01003076E4 /* tueier3_g3ss ohpp */,3_ CF0647971446DE52007DD062 /* qrueier3_g3ss ohpp */,3_ CF0647981446E152007DD062 /* tueier3_exporterohpp */,3_ CF06479A1446E17B007DD062 /* tueier3_importerohpp */,3_ CF2DD1EF126C7A4A0036DE05 /* cp3_g3ss ohpp */,3_ CF906ABE14F56D510043CF23 /* g3_ttmohpp */,3_ CFD85BC61398E2A100266D85 /* g3_hosvdohpp */,3_ CFD85BC71398E2BE00266D85 /* g3_hooiohpp */,3_ CFD85BC81398E2D400266D85 /* g3_hopmohpp */,3_ CFA7FE00142242BD001EE112 /* g3_ihopmohpp */,3_ CF7F632B151F8D4400F033B4 /* g3_converterohpp */,3_ )#3_ nam)9r3g3ss #3_ sourceTre)9r3"";3_}#3_984F581111B8CFB50027D673 /* boost la */0836 isa083PBXGroup#3_ children083(3_ 984F581211B8CFD90027D673 /* rix dWalraitsohpp */,3_ 984F581311B8CFD90027D673 /* 2ssTlc_lraitsohpp */,3_ )#3_ nam)9r3"boost la"#3_ sourceTre)9r3"";3_}#3_98596E630FB48923006CA0F8 /* 2isc */0836 isa083PBXGroup#3_ children083(3_ 985964770FB177A6006CA0F8 /* 2sshohpp */,3_ 98596E620FB4891E006CA0F8 /* enable_ifohpp */,3_ 98D4102C0E2658FE00BEFA71 /* excepr #ohpp */,3_ CFF1967D14F3F31A00758DF7 /* ralid dWohpp */,3_ )#3_ nam)9r32isc#3_ sourceTre)9r3"";3_}#3_98596E640FB48941006CA0F8 /* advanced */0836 isa083PBXGroup#3_ children083(3_ 98F556330E2437540044BA3E /* qr_deoomposit #ohpp */,3_ 9839FA1D0E2B5A6C00A16721 /* svdohpp */,3_ 98596E730FB4897C006CA0F8 /* jacobiasolver.hpp */,3_ )#3_ nam)9r3advanced#3_ sourceTre)9r3"";3_}#3_98596E740FB489AC006CA0F8 /* fruapum */0836 isa083PBXGroup#3_ children083(3_ 98D9E4110E3E26E000B046DD /* fruapumohpp */,3_ 98596E840FB489D4006CA0F8 /* fruapumaculler.hpp */,3_ 98D9E4C10E3E314700B046DD /* risibilityohpp */,3_ )#3_ nam)9r3fruapum#3_ sourceTre)9r3"";3_}#3_988F58330C22C0720005AC92 /* Ts */0836 isa083PBXGroup#3_ children083(3_ 98B7A24D0E24C8750064264E /* unit l_",9*/,3_ 98B7A24F0E24C87E0064264E /* performance l_",9*/,3_ )#3_ nam)9r3Ts#3_ sourceTre)9r3"";3_}#3_98B7A24D0E24C8750064264E /* unit l_",9*/0836 isa083PBXGroup#3_ children083(3_ 98B7A2500E24C8E70064264E /* rmmlib_unitals(mainocpp */,3_ 98FE7DCE0E224EC400B1E17F /* unitalohpp */,3_ 98FE7DCD0E224EC400B1E17F /* unitalocpp */,3_ 98B7A2620E24CA760064264E /* unit ls */,3_ )#3_ nam)9r3"unit l_","#3_ sourceTre)9r3"";3_}#3_98B7A24F0E24C87E0064264E /* performance l_",9*/0836 isa083PBXGroup#3_ children083(3_ 98B7A2510E24C8E70064264E /* rmmlib_performanceals(mainocpp */,3_ 98B7A2690E24CB140064264E /* performancealohpp */,3_ 98B7A2680E24CB140064264E /* performancealocpp */,3_ 98B7A2550E24C9540064264E /* timerohpp */,3_ 98B7A2560E24C9540064264E /* timerocpp */,3_ 98B7A2A20E24DF7A0064264E /* performance ls */,3_ )#3_ nam)9r3"performance l_","#3_ sourceTre)9r3"";3_}#3_98B7A2620E24CA760064264E /* unit ls */0836 isa083PBXGroup#3_ children083(3_ 98F556360E24377F0044BA3E /* 2ssTlc_lohpp */,3_ 98F556350E24377F0044BA3E /* 2ssTlc_locpp */,3_ 986834C00E24FFD400618F55 /* rix dWalohpp */,3_ 986834BF0E24FFD400618F55 /* rix dWalocpp */,3_ 98D402D50E38D6A000B24DF1 /* quatern #_lohpp */,3_ 98D402D40E38D6A000B24DF1 /* quatern #_locpp */,3_ 98B22A270FB8353900EEDF5F /* fruapumalohpp */,3_ 98B22A260FB8353900EEDF5F /* fruapumalocpp */,3_ 98F556380E24377F0044BA3E /* qr_deoomposit #_lohpp */,3_ 98F556370E24377F0044BA3E /* qr_deoomposit #_locpp */,3_ 9839FA230E2B5BBB00A16721 /* svd_lohpp */,3_ 9839FA220E2B5BBB00A16721 /* svd_locpp */,3_ 98B230720FB985D700EEDF5F /* jacobialohpp */,3_ 98B230710FB985D700EEDF5F /* jacobialocpp */,3_ 98244A3C0E3F5AEE0018E13A /* lapack(svdalohpp */,3_ 98244A3B0E3F5AEE0018E13A /* lapack(svdalocpp */,3_ 98244A3E0E3F5AEE0018E13A /* lapack( inear_learo_squaresalohpp */,3_ 98244A3D0E3F5AEE0018E13A /* lapack( inear_learo_squaresalocpp */,3_ 9863B6F011903EFE00887FFC /* lapack(gaussian_eliminar #_lohpp */,3_ 9863B6F111903EFE00887FFC /* lapack(gaussian_eliminar #_locpp */,3_ CFF95531131CECD100071FB3 /* lapack(sym_eigs_lohpp */,3_ CFF95532131CECD100071FB3 /* lapack(sym_eigs_locpp */,3_ CF42E5E7125F736E00C0A38E /* 2ssTlc_pseudoinverdealohpp */,3_ CF42E5E9125F738600C0A38E /* 2ssTlc_pseudoinverdealocpp */,3_ 98476418110DDB940024A1F8 /* t3ss x_lohpp */,3_ 98476417110DDB940024A1F8 /* t3ss x_locpp */,3_ CF2DD25C126C8EAE0036DE05 /* t3ss x_iter dW_lohpp */,3_ CF2DD25D126C8EAE0036DE05 /* t3ss x_iter dW_locpp */,3_ CF7FA8D9114EB696003076E4 /* tueier3_g3ss _lohpp */,3_ CF7FA8D4114EB617003076E4 /* tueier3_g3ss _locpp */,3_ CF0649C614472249007DD062 /* qrueier3_g3ss _lohpp */,3_ CF0649C714472249007DD062 /* qrueier3_g3ss _locpp */,3_ CF06479D1446E4B7007DD062 /* tueier3_exporter_importer_lohpp */,3_ CF06479E1446E4B7007DD062 /* tueier3_exporter_importer_locpp */,3_ CF2DD263126C91670036DE05 /* cp3_g3ss _lohpp */,3_ CF2DD264126C91670036DE05 /* cp3_g3ss _locpp */,3_ CF906ACC14F56FEC0043CF23 /* g3_ttm_lohpp */,3_ CF906ACD14F56FEC0043CF23 /* g3_ttm_locpp */,3_ CFD85C531399060300266D85 /* g3_hosvd_lohpp */,3_ CFD85C541399060300266D85 /* g3_hosvd_locpp */,3_ CFD85C7F139909EF00266D85 /* g3_hooialohpp */,3_ CFD85C80139909EF00266D85 /* g3_hooialocpp */,3_ CFD85C8213990A0E00266D85 /* g3_hopm_lohpp */,3_ CFD85C8313990A0E00266D85 /* g3_hopm_locpp */,3_ CFA7FE4914225C03001EE112 /* g3_ihopm_lohpp */,3_ CFA7FE4A14225C03001EE112 /* g3_ihopm_locpp */,3_ CFF0C1F91406E55200C3ADDB /* blas_dgemm_lohpp */,3_ CFF0C1F81406E55200C3ADDB /* blas_dgemm_locpp */,3_ CF75FFF31432383D00CFD46E /* blas_dot_lohpp */,3_ CF75FFF41432383D00CFD46E /* blas_dot_locpp */,3_ CFCE7022150A004300A29C68 /* blas_daxpy_lohpp */,3_ CFCE7023150A004300A29C68 /* blas_daxpy_locpp */,3_ CF906A2014F562F90043CF23 /* cublas_dgemm_lohpp */,3_ CF906A1F14F562F90043CF23 /* cublas_dgemm_locpp */,3_ CF906B8714F6313A0043CF23 /* cug3ss _lsohpp */,3_ CF906B8814F6313A0043CF23 /* cug3ss _lsocpp */,3_ )#3_ nam)9r3"unit ls"#3_ sourceTre)9r3"";3_}#3_98B7A2A20E24DF7A0064264E /* performance ls */0836 isa083PBXGroup#3_ children083(3_ 98B7A2A40E24DF910064264E /* 2ssTlc_oompare_perfalohpp */,3_ 98B7A2A30E24DF910064264E /* 2ssTlc_oompare_perfalocpp */,3_ 9839FEF70E2BC67400A16721 /* svd_lapack(vs_oldohpp */,3_ 9839FEF60E2BC67400A16721 /* svd_lapack(vs_oldocpp */,3_ )#3_ nam)9r3"performance ls"#3_ sourceTre)9r3"";3_}#3_CF9069F914F561CF0043CF23 /* cublas */0836 isa083PBXGroup#3_ children083(3_ CF9069FA14F561E70043CF23 /* cublas_dgemm.cu */,3_ CF9069FB14F561E70043CF23 /* cublas_ingludesohpp */,3_ CF9069FC14F561E70043CF23 /* cublas_typesohpp */,3_ )#3_ nam)9r3cublas#3_ sourceTre)9r3"";3_}#3_CF906B7814F57D0F0043CF23 /* cug3ss */0836 isa083PBXGroup#3_ children083(3_ CF906B7714F57B640043CF23 /* g3_cublas_ttmohpp */,3_ CF906B7914F57D3C0043CF23 /* g3_cublas_hosvdohpp */,3_ CF906B7A14F57D7C0043CF23 /* g3_cublas_hooiohpp */,3_ )#3_ nam)9r3cug3ss #3_ sourceTre)9r3"";3_}#3_CFF0C1F11406E4BA00C3ADDB /* blas */0836 isa083PBXGroup#3_ children083(3_ CFF0C1F21406E4DC00C3ADDB /* blas_dgemmohpp */,3_ CF75FFD11432315C00CFD46E /* blas_dotohpp */,3_ CFCE701F1509F53100A29C68 /* blas_daxpyohpp */,3_ CFF0C1F31406E4DC00C3ADDB /* blas_ingludesohpp */,3_ CFF0C1F41406E4DC00C3ADDB /* blas_typesohpp */,3_ )#3_ nam)9r3blas#3_ sourceTre)9r3"";3_}#/* End PBXGrouptseche;e */ /* Begin PBXNar veTargettseche;e */ 9839FE1E0E2BB24700A16721 /* rmmlib_lapack(l */0836 isa083PBXNar veTarget#3_ buildConfigurar #Li = 9839FE470E2BB26400A16721 /* Build configurar # li for PBXNar veTargett"rmmlib_lapack(l" */#3_ buildPhases083(3_ 9839FE1C0E2BB24700A16721 /* Sources */,3_ 9839FE1D0E2BB24700A16721 /* Frameworks */,3_ )#3_ buildRuies083(3_ )#3_ dependencies083(3_ )#3_ nam)9r3rmmlib_lapack(l#3_ productNam)9r3rmmlib_lapack(l#3_ productReference = 9839FE1F0E2BB24700A16721 /* rmmlib_lapack(l */#3_ productType9r3"oom.apple.product-type.tool";3_}#3_98B7A2480E24C85C0064264E /* rmmlib_performanceals */0836 isa083PBXNar veTarget#3_ buildConfigurar #Li = 98B7A24E0E24C8750064264E /* Build configurar # li for PBXNar veTargett"rmmlib_performanceals" */#3_ buildPhases083(3_ 98B7A2460E24C85C0064264E /* Sources */,3_ 98B7A2470E24C85C0064264E /* Frameworks */,3_ )#3_ buildRuies083(3_ )#3_ dependencies083(3_ )#3_ nam)9r3rmmlib_performanceals;3_ productNam)9r3rmmlib_performanceals;3_ productReference = 98B7A2490E24C85C0064264E /* rmmlib_performanceals */#3_ productType9r3"oom.apple.product-type.tool";3_}#3_98FE7DC40E224E8700B1E17F /* rmmlib_unitals */0836 isa083PBXNar veTarget#3_ buildConfigurar #Li = 98FE7DCA0E224E9800B1E17F /* Build configurar # li for PBXNar veTargett"rmmlib_unitals" */#3_ buildPhases083(3_ 98FE7DC20E224E8700B1E17F /* Sources */,3_ 98FE7DC30E224E8700B1E17F /* Frameworks */,3_ )#3_ buildRuies083(3_ )#3_ dependencies083(3_ )#3_ nam)9r3rmmlib_unitals;3_ productNam)9r3rmmlib_unitals;3_ productReference = 98FE7DC50E224E8700B1E17F /* rmmlib_unitals */#3_ productType9r3"oom.apple.product-type.tool";3_}#/* End PBXNar veTargettseche;e */ /* Begin PBXProjechtseche;e */ 0867D690FE84028FC02AAC07 /* Projechtobjecht*/0836 isa083PBXProjech#3_ buildConfigurar #Li = 1DEB91B108733DA50010E9CD /* Build configurar # li for PBXProjecht"rmmlib" */#3_ oompatibilityVers # r3"Xcode 2.4"#3_ developmentRegi # r3Englih#3_ hasScannedForEncod_",s0831#3_ knownRegi #s083(3_ Englih,3_ Japanese,3_ French,3_ German,3_ )#3_ mainGroupt= 0867D691FE84028FC02AAC07 /* VMMLib */;3_ productRefGroupt= 034768DFFF38A50411DB9C8B /* Products */;3_ projechDirPath = "";3_ projechRoot = "";3_ targets083(3_ 98FE7DC40E224E8700B1E17F /* rmmlib_unitals */,3_ 98B7A2480E24C85C0064264E /* rmmlib_performanceals */,3_ 9839FE1E0E2BB24700A16721 /* rmmlib_lapack(l */,3_ )#3_}#/* End PBXProjechtseche;e */ /* Begin PBXSourcesBuildPhasetseche;e */ 9839FE1C0E2BB24700A16721 /* Sources */0836 isa083PBXSourcesBuildPhase#3_ buildAche;eMask0832147483647#3_ f_ies083(3_ 9839FE5E0E2BB5B300A16721 /* rmmlib_lapack(mainocpp in Sources */,3_ 9839FEF80E2BC67400A16721 /* svd_lapack(vs_oldocpp in Sources */,3_ 9839FF000E2BC75D00A16721 /* performancealocpp in Sources */,3_ 9839FF020E2BC76600A16721 /* timerocpp in Sources */,3_ 98D402D60E38D6A000B24DF1 /* quatern #_locpp in Sources */,3_ 98244A330E3F5A5E0018E13A /* unitalocpp in Sources */,3_ 98244A3F0E3F5AEE0018E13A /* lapack(svdalocpp in Sources */,3_ 98244A400E3F5AEE0018E13A /* lapack( inear_learo_squaresalocpp in Sources */,3_ )#3_ runOnlyForDeploymentPostprocess_",9r30#3_}#3_98B7A2460E24C85C0064264E /* Sources */0836 isa083PBXSourcesBuildPhase#3_ buildAche;eMask0832147483647#3_ f_ies083(3_ 98B7A2540E24C8F40064264E /* rmmlib_performanceals(mainocpp in Sources */,3_ 98B7A2570E24C9540064264E /* timerocpp in Sources */,3_ 98B7A26A0E24CB140064264E /* performancealocpp in Sources */,3_ 98B7A2A50E24DF910064264E /* 2ssTlc_oompare_perfalocpp in Sources */,3_ 986834C20E24FFD400618F55 /* rix dWalocpp in Sources */,3_ 9839FA250E2B5BBB00A16721 /* svd_locpp in Sources */,3_ 98FAB2960E30CDF400C1A8FC /* unitalocpp in Sources */,3_ 98D402D80E38D6A000B24DF1 /* quatern #_locpp in Sources */,3_ 98244A430E3F5AEE0018E13A /* lapack(svdalocpp in Sources */,3_ 98244A440E3F5AEE0018E13A /* lapack( inear_learo_squaresalocpp in Sources */,3_ )#3_ runOnlyForDeploymentPostprocess_",9r30#3_}#3_98FE7DC20E224E8700B1E17F /* Sources */0836 isa083PBXSourcesBuildPhase#3_ buildAche;eMask0832147483647#3_ f_ies083(3_ 98FE7DCF0E224EC400B1E17F /* unitalocpp in Sources */,3_ 98F5563A0E24377F0044BA3E /* 2ssTlc_locpp in Sources */,3_ 98F5563B0E24377F0044BA3E /* qr_deoomposit #_locpp in Sources */,3_ 98B7A2520E24C8E70064264E /* rmmlib_unitals(mainocpp in Sources */,3_ 986834C10E24FFD400618F55 /* rix dWalocpp in Sources */,3_ 9839FA240E2B5BBB00A16721 /* svd_locpp in Sources */,3_ 98D402D70E38D6A000B24DF1 /* quatern #_locpp in Sources */,3_ 98244A410E3F5AEE0018E13A /* lapack(svdalocpp in Sources */,3_ 98244A420E3F5AEE0018E13A /* lapack( inear_learo_squaresalocpp in Sources */,3_ 98B22A280FB8353900EEDF5F /* fruapumalocpp in Sources */,3_ 98B230730FB985D700EEDF5F /* jacobialocpp in Sources */,3_ 98476419110DDB940024A1F8 /* t3ss x_locpp in Sources */,3_ CF7FA8D5114EB617003076E4 /* tueier3_g3ss _locpp in Sources */,3_ 9863B6F211903EFE00887FFC /* lapack(gaussian_eliminar #_locpp in Sources */,3_ CF42E5EA125F738600C0A38E /* 2ssTlc_pseudoinverdealocpp in Sources */,3_ CF2DD25E126C8EAE0036DE05 /* t3ss x_iter dW_locpp in Sources */,3_ CF2DD265126C91670036DE05 /* cp3_g3ss _locpp in Sources */,3_ CFF95533131CECD100071FB3 /* lapack(sym_eigs_locpp in Sources */,3_ CFD85C551399060300266D85 /* g3_hosvd_locpp in Sources */,3_ CFD85C81139909EF00266D85 /* g3_hooialocpp in Sources */,3_ CFD85C8413990A0E00266D85 /* g3_hopm_locpp in Sources */,3_ CFF0C1FA1406E55200C3ADDB /* blas_dgemm_locpp in Sources */,3_ CFA7FE4B14225C03001EE112 /* g3_ihopm_locpp in Sources */,3_ CF75FFF51432383D00CFD46E /* blas_dot_locpp in Sources */,3_ CF06479F1446E4B7007DD062 /* tueier3_exporter_importer_locpp in Sources */,3_ CF0649C814472249007DD062 /* qrueier3_g3ss _locpp in Sources */,3_ CF906A2114F562F90043CF23 /* cublas_dgemm_locpp in Sources */,3_ CF906ACE14F56FEC0043CF23 /* g3_ttm_locpp in Sources */,3_ CF906B8914F6313A0043CF23 /* cug3ss _lsocpp in Sources */,3_ CFCE7024150A004300A29C68 /* blas_daxpy_locpp in Sources */,3_ )#3_ runOnlyForDeploymentPostprocess_",9r30#3_}#/* End PBXSourcesBuildPhasetseche;e */ /* Begin XCBuildConfigurar #tseche;e */ 1DEB91B208733DA50010E9CD /* Debu,9*/0836 isa083XCBuildConfigurar ##3_ buildSett_",s0836 ARCHS083(3_ ppc,3_ ppc64,3_ i386,3_ x86_64,3_ )#3_ ENABLE_OPENMP_SUPPORT083YES#3_ GCC_WARN_ABOUT_RETURN_TYPE083YES#3_ GCC_WARN_UNUSED_VARIABLE083YES#3_ PREBINDING083NO#3_ SDKROOT = "";3_ USER_HEADER_SEARCH_PATHS083"$(SRCROOT)/inglude";3_ }#3_ nam)9r3Debu,#3_}#3_1DEB91B308733DA50010E9CD /* Releare9*/0836 isa083XCBuildConfigurar ##3_ buildSett_",s0836 ARCHS083(3_ ppc,3_ ppc64,3_ i386,3_ x86_64,3_ )#3_ GCC_OPTIMIZATION_LEVEL0833#3_ GCC_WARN_ABOUT_RETURN_TYPE083YES#3_ GCC_WARN_UNUSED_VARIABLE083YES#3_ PREBINDING083NO#3_ SDKROOT = "";3_ USER_HEADER_SEARCH_PATHS083"$(SRCROOT)/inglude";3_ }#3_ nam)9r3Releare#3_}#3_9839FE210E2BB24800A16721 /* Debu,9*/0836 isa083XCBuildConfigurar ##3_ buildSett_",s0836 COPY_PHASE_STRIP083NO#3_ GCC_DYNAMIC_NO_PIC083NO#3_ GCC_ENABLE_FIX_AND_CONTINUE083YES#3_ GCC_MODEL_TUNING083G5#3_ GCC_OPTIMIZATION_LEVEL0830#3_ GCC_PREPROCESSOR_DEFINITIONS083VMMLIB_NO_TYPEDEFS#3_ INSTALL_PATH083/usr/local/bin#3_ PREBINDING083NO#3_ PRODUCT_NAME9r3rmmlib_lapack(l#3_ ZERO_LINK083YES#3_ }#3_ nam)9r3Debu,#3_}#3_9839FE220E2BB24800A16721 /* Releare9*/0836 isa083XCBuildConfigurar ##3_ buildSett_",s0836 COPY_PHASE_STRIP083YES#3_ DEBUG_INFORMATION_FORMAT083"dwarf-with-dsym"#3_ GCC_ENABLE_FIX_AND_CONTINUE083NO#3_ GCC_MODEL_TUNING083G5#3_ GCC_OPTIMIZATION_LEVEL0833#3_ GCC_PREPROCESSOR_DEFINITIONS083VMMLIB_NO_TYPEDEFS#3_ INSTALL_PATH083/usr/local/bin#3_ OTHER_CFLAGS = "";3_ PREBINDING083NO#3_ PRODUCT_NAME9r3rmmlib_lapack(l#3_ ZERO_LINK083NO#3_ }#3_ nam)9r3Releare#3_}#3_98B7A24B0E24C85C0064264E /* Debu,9*/0836 isa083XCBuildConfigurar ##3_ buildSett_",s0836 COPY_PHASE_STRIP083NO#3_ GCC_DYNAMIC_NO_PIC083NO#3_ GCC_ENABLE_FIX_AND_CONTINUE083YES#3_ GCC_MODEL_TUNING083G5#3_ GCC_OPTIMIZATION_LEVEL0830#3_ GCC_PREPROCESSOR_DEFINITIONS083VMMLIB_NO_TYPEDEFS#3_ INSTALL_PATH083/usr/local/bin#3_ PREBINDING083NO#3_ PRODUCT_NAME9r3rmmlib_