elpa_generated_fortran_interfaces.h

Go to the documentation of this file.

#ifdef HAVE_AVX
 interface
   subroutine single_hh_trafo_complex_avx_avx2_1hv(q, hh, pnb, pnq, pldq) bind(C, name="single_hh_trafo_complex_avx_avx2_1hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq
     complex(kind=c_double)     :: q(*)
     complex(kind=c_double)     :: hh(pnb,2)
   end subroutine
 end interface
#endif
#ifdef HAVE_AVX
 interface
   subroutine double_hh_trafo_complex_avx_avx2_2hv(q, hh, pnb, pnq, pldq, pldh) bind(C, name="double_hh_trafo_complex_avx_avx2_2hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq, pldh
     complex(kind=c_double)     :: q(*)
     complex(kind=c_double)     :: hh(pnb,2)
   end subroutine
 end interface
#endif
#ifdef HAVE_SSE_INTRINSICS
 interface
   subroutine single_hh_trafo_complex_sse_1hv(q, hh, pnb, pnq, pldq) bind(C, name="single_hh_trafo_complex_sse_1hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq
     complex(kind=c_double)     :: q(*)
     complex(kind=c_double)     :: hh(pnb,2)
   end subroutine
 end interface
#endif
#ifdef HAVE_SSE_INTRINSICS
 interface
   subroutine double_hh_trafo_complex_sse_2hv(q, hh, pnb, pnq, pldq, pldh) bind(C, name="double_hh_trafo_complex_sse_2hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq, pldh
     complex(kind=c_double)     :: q(*)
     complex(kind=c_double)     :: hh(pnb,2)
   end subroutine
 end interface
#endif
#ifdef HAVE_AVX
 interface
   subroutine double_hh_trafo_real_avx_avx2_2hv(q, hh, pnb, pnq, pldq, pldh) bind(C, name="double_hh_trafo_real_avx_avx2_2hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq, pldh
     real(kind=c_double)     :: q(*)
     real(kind=c_double)     :: hh(pnb,6)
   end subroutine
 end interface
#endif
#ifdef HAVE_AVX
 interface
   subroutine quad_hh_trafo_real_avx_avx2_4hv(q, hh, pnb, pnq, pldq, pldh) bind(C, name="quad_hh_trafo_real_avx_avx2_4hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq, pldh
     real(kind=c_double)     :: q(*)
     real(kind=c_double)     :: hh(pnb,6)
   end subroutine
 end interface
#endif
#ifdef HAVE_AVX
 interface
   subroutine hexa_hh_trafo_real_avx_avx2_6hv(q, hh, pnb, pnq, pldq, pldh) bind(C, name="hexa_hh_trafo_real_avx_avx2_6hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq, pldh
     real(kind=c_double)     :: q(*)
     real(kind=c_double)     :: hh(pnb,6)
   end subroutine
 end interface
#endif
#ifdef HAVE_SSE_INTRINSICS
 interface
   subroutine double_hh_trafo_real_sse_2hv(q, hh, pnb, pnq, pldq, pldh) bind(C, name="double_hh_trafo_real_sse_2hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq, pldh
     real(kind=c_double)     :: q(*)
     real(kind=c_double)     :: hh(pnb,6)
   end subroutine
 end interface
#endif
#ifdef HAVE_SSE_INTRINSICS
 interface
   subroutine quad_hh_trafo_real_sse_4hv(q, hh, pnb, pnq, pldq, pldh) bind(C, name="quad_hh_trafo_real_sse_4hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq, pldh
     real(kind=c_double)     :: q(*)
     real(kind=c_double)     :: hh(pnb,6)
   end subroutine
 end interface
#endif
#ifdef HAVE_SSE_INTRINSICS
 interface
   subroutine hexa_hh_trafo_real_sse_6hv(q, hh, pnb, pnq, pldq, pldh) bind(C, name="hexa_hh_trafo_real_sse_6hv")
     use, intrinsic :: iso_c_binding
     integer(kind=c_int)     :: pnb, pnq, pldq, pldh
     real(kind=c_double)     :: q(*)
     real(kind=c_double)     :: hh(pnb,6)
   end subroutine
 end interface
#endif