#/*
#==============================================================================
#
# simd_generic2.h
#
#------------------------------------------------------------------------------
#
# Copyright (C) 2012-2016 Hinnerk Stueben
#
# This file is part of BQCD -- Berlin Quantum ChromoDynamics program
#
# BQCD 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.
#
# BQCD 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 BQCD.  If not, see <http://www.gnu.org/licenses/>.
#
#------------------------------------------------------------------------------
#*/

#ifdef LANGUAGE_FORTRAN
# define SIMD_WIDTH_R4 8
# define SIMD_WIDTH_R8 4
# define SIMD_VECTOR_R4 type (simd_real_r4)
# define SIMD_VECTOR_R8 type (simd_real_r8)
#else
# error "works only with Fortran"
#endif

# define LoadS_r4(a)    simd_loads_r4(a)
# define LoadS_r8(a)    simd_loads_r8(a)

# define Load_r4(a)     simd_load_r4(a)
# define Load_r8(a)     simd_load_r8(a)

# define LoadU_r4(a)    simd_loadu_r4(a)
# define LoadU_r8(a)    simd_loadu_r8(a)

# define Store_r4(a, b) call simd_store_r4(a, b)
# define Store_r8(a, b) call simd_store_r8(a, b)

# define Sum_r4(a, b)   simd_sum_r4(a, b)
# define Sum_r8(a, b)   simd_sum_r8(a, b)

# define Diff_r4(a, b)  simd_diff_r4(a, b)
# define Diff_r8(a, b)  simd_diff_r8(a, b)

# define Prod_r4(a, b)  simd_prod_r4(a, b)
# define Prod_r8(a, b)  simd_prod_r8(a, b)

# define Fmadd_r4(a, b, c) simd_fmadd_r4(a, b, c)
# define Fmadd_r8(a, b, c) simd_fmadd_r8(a, b, c)

# define Fmsub_r4(a, b, c) simd_fmsub_r4(a, b, c)
# define Fmsub_r8(a, b, c) simd_fmsub_r8(a, b, c)

# define ShiftLeft2_r4(a, b, n) simd_shiftleft2_r4(a, b, n)
# define ShiftLeft2_r8(a, b, n) simd_shiftleft2_r8(a, b, n)
