コード例 #1
0
ファイル: unmqr.hpp プロジェクト: fluxdark/jflib
 inline void unmqr( char const side, char const trans, integer_t const m,
         integer_t const n, integer_t const k, traits::complex_d* a,
         integer_t const lda, traits::complex_d* tau, traits::complex_d* c,
         integer_t const ldc, traits::complex_d* work,
         integer_t const lwork, integer_t& info ) {
     LAPACK_ZUNMQR( &side, &trans, &m, &n, &k, traits::complex_ptr(a),
             &lda, traits::complex_ptr(tau), traits::complex_ptr(c), &ldc,
             traits::complex_ptr(work), &lwork, &info );
 }
コード例 #2
0
ファイル: ormqr.hpp プロジェクト: bpedret/Sassena-GPU
      inline 
      void ormqr (char const side, char const trans, int const m, int const n,
		 int const k, const traits::complex_d* a, int const lda,
		 const traits::complex_d* tau, traits::complex_d* c,
		 int const ldc, traits::complex_d* work, int const lwork,
                 int& info) 
      {
        assert ( trans=='N' || trans=='C' );
        LAPACK_ZUNMQR (&side, &trans, &m, &n, &k,
		      traits::complex_ptr(a), &lda,
		      traits::complex_ptr(tau),
		      traits::complex_ptr(c), &ldc,
		      traits::complex_ptr(work), &lwork,
		      &info);
      }