Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

91 lines (72 sloc) 3.301 kb
/***********************************************************************
*
* Copyright (C) 2006,2007,2008 Karl Jansen, Thomas Chiarappa,
* Carsten Urbach
*
* This file is part of tmLQCD.
*
* tmLQCD is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* tmLQCD is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with tmLQCD. If not, see <http://www.gnu.org/licenses/>.
***********************************************************************/
#ifndef _NONDEGENRATE_MATRIX_H
#define _NONDEGENRATE_MATRIX_H
void mul_one_minus_imubar(spinor * const l, spinor * const k);
/******************************************
* mul_one_plus_imubar_inv computes
* l = [(1-i\mubar\gamma_5) * l
*
*/
void mul_one_plus_imubar(spinor * const l, spinor * const k);
/******************************************
* mul_one_plus_imubar_inv computes
* l = [(1+i\mubar\gamma_5) * l
*
*/
void mul_one_pm_itau2(spinor * const p, spinor * const q,
spinor * const r, spinor * const s,
const double sign, const int N);
void QNon_degenerate(spinor * const l_strange, spinor * const l_charm,
spinor * const k_strange, spinor * const k_charm);
void QdaggerNon_degenerate(spinor * const l_strange, spinor * const l_charm,
spinor * const k_strange, spinor * const k_charm);
void Q_Qdagger_ND(spinor * const l_strange, spinor * const l_charm,
spinor * const k_strange, spinor * const k_charm);
void Q_Qdagger_ND_BI(bispinor * const bisp_l, bispinor * const bisp_k);
void Q_tau1_min_cconst_ND(spinor * const l_strange, spinor * const l_charm,
spinor * const k_strange, spinor * const k_charm,
const _Complex double z);
void H_eo_ND(spinor * const l_strange, spinor * const l_charm,
spinor * const k_strange, spinor * const k_charm,
const int ieo);
void M_ee_inv_ND(spinor * const l_strange, spinor * const l_charm,
spinor * const k_strange, spinor * const k_charm);
void Q_test_epsilon(spinor * const l_strange, spinor * const l_charm,
spinor * const k_strange, spinor * const k_charm);
void Qtau1_P_ND(spinor * const l_strange, spinor * const l_charm,
spinor * const k_strange, spinor * const k_charm);
void Qtm_pm_Ptm_pm_psi(spinor * const l, spinor * const k);
void Qtm_pm_min_cconst_nrm(spinor * const l, spinor * const k,const _Complex double z);
/* ************************************************
* for noise reduction
* this implements
* a = B^dagger H b
*
* with Hopping matrix H and
*
* B = (1-i\g5\tau^1\musigma-\tau^3\mudelta)/c
* where
* c = 1+\musigma^2-\mudelta^2
*
**************************************************/
void red_noise_nd(spinor * const lse, spinor * const lso, spinor * const lce, spinor * const lco);
#endif
Jump to Line
Something went wrong with that request. Please try again.