#/*
#==============================================================================
#
# simd_generic.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 real(4), dimension(SIMD_WIDTH_R4)
# define SIMD_VECTOR_R8 real(8), dimension(SIMD_WIDTH_R8)
#else
# error "works only with Fortran"
#endif

# define LoadS_r4(a)     a
# define LoadS_r8(a)     a

# define Load_r4(a)      a
# define Load_r8(a)      a

# define LoadU_r4(a)     a
# define LoadU_r8(a)     a

# define Store_r4(a, b)  a = b
# define Store_r8(a, b)  a = b

# define Sum_r4(a, b)   (a + b)
# define Sum_r8(a, b)   (a + b)

# define Diff_r4(a, b)  (a - b)
# define Diff_r8(a, b)  (a - b)

# define Prod_r4(a, b)  (a * b)
# define Prod_r8(a, b)  (a * b)

# define Fmadd_r4(a, b, c) (a * b + c)
# define Fmadd_r8(a, b, c) (a * b + c)

# define Fmsub_r4(a, b, c) (a * b - c)
# define Fmsub_r8(a, b, c) (a * b - c)

# define ShiftLeft2_r4(a, b, n) !!error_ShiftLeft2_is_not_defined!!
# define ShiftLeft2_r8(a, b, n) !!error_ShiftLeft2_is_not_defined!!
