elpa_generated_fortran_interfaces.h

Go to the documentation of this file.

#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 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
#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_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_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_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_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_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_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 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 WITH_REAL_SSE_ASSEMBLY_KERNEL
  interface
    subroutine double_hh_trafo(q, hh, nb, nq, ldq, ldh) bind(C,name="double_hh_trafo")
      use, intrinsic :: iso_c_binding
      integer(kind=c_int)  :: nb, nq, ldq, ldh
      real(kind=c_double)  :: q(*)
      real(kind=c_double)  :: hh(nb,6)
    end subroutine
  end interface
#endif
#ifdef WITH_COMPLEX_SSE_ASSEMBLY_KERNEL
  interface
    subroutine single_hh_trafo_complex(q, hh, nb, nq, ldq) bind(C,name="single_hh_trafo_complex")
      use, intrinsic :: iso_c_binding
      integer(kind=c_int)  :: nb, nq, ldq
      complex(kind=c_double)  :: q(*)
      complex(kind=c_double)  :: hh(nb,2)
    end subroutine
  end interface
#endif