mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-13 07:03:29 +01:00
71 lines
2.5 KiB
Fortran
71 lines
2.5 KiB
Fortran
|
module intel
|
||
|
use, intrinsic :: iso_c_binding
|
||
|
interface
|
||
|
subroutine ippsSortRadixIndexGetBufferSize(len, dataType, pBufSize) bind(C, name='ippsSortRadixIndexGetBufferSize')
|
||
|
use iso_c_binding
|
||
|
integer, intent(in), value :: len
|
||
|
integer, intent(in), value :: dataType
|
||
|
integer, intent(out) :: pBufSize
|
||
|
end
|
||
|
end interface
|
||
|
interface
|
||
|
subroutine ippsSortAscend_32s_I(pSrc, len) bind(C, name='ippsSortAscend_32s_I')
|
||
|
use iso_c_binding
|
||
|
integer, intent(in), value :: len
|
||
|
integer, intent(inout) :: pSrc(len)
|
||
|
end
|
||
|
end interface
|
||
|
interface
|
||
|
subroutine ippsSortRadixAscend_32s_I(pSrc, len, pTmp) bind(C, name='ippsSortRadixAscend_32s_I')
|
||
|
use iso_c_binding
|
||
|
integer, intent(in), value :: len
|
||
|
integer, intent(inout) :: pSrc(len)
|
||
|
integer, intent(inout) :: pTmp(len)
|
||
|
end
|
||
|
end interface
|
||
|
interface
|
||
|
subroutine ippsSortRadixIndexAscend_32s(pSrc, srcStrideBytes, pDstIndx, len, pTmpIndx) bind(C, name='ippsSortRadixIndexAscend_32s')
|
||
|
use iso_c_binding
|
||
|
integer, intent(in), value :: len
|
||
|
integer, intent(inout) :: pSrc(len)
|
||
|
integer, intent(in), value :: srcStrideBytes
|
||
|
integer, intent(inout) :: pDstIndx(len)
|
||
|
integer, intent(inout) :: pTmpIndx(len)
|
||
|
end
|
||
|
end interface
|
||
|
interface
|
||
|
subroutine ippsSortRadixIndexAscend_32f(pSrc, srcStrideBytes, pDstIndx, len, pTmpIndx) bind(C,name='ippsSortRadixIndexAscend_32f')
|
||
|
use iso_c_binding
|
||
|
integer, intent(in), value :: len
|
||
|
real , intent(inout) :: pSrc(len)
|
||
|
integer, intent(in), value :: srcStrideBytes
|
||
|
integer, intent(inout) :: pDstIndx(len)
|
||
|
integer, intent(inout) :: pTmpIndx(len)
|
||
|
end
|
||
|
end interface
|
||
|
interface
|
||
|
subroutine ippsSortIndexAscend_32f_I(pSrcDst, pDstIndx, len) bind(C,name='ippsSortIndexAscend_32f_I')
|
||
|
use iso_c_binding
|
||
|
real(4), intent(in) :: pSrcDst(*)
|
||
|
integer(4), intent(inout) :: pDstIndx(*)
|
||
|
integer(4), intent(in), value :: len
|
||
|
end
|
||
|
end interface
|
||
|
interface
|
||
|
subroutine ippsSortIndexAscend_32s_I(pSrcDst, pDstIndx, len) bind(C,name='ippsSortIndexAscend_32s_I')
|
||
|
use iso_c_binding
|
||
|
integer(4), intent(in) :: pSrcDst(*)
|
||
|
integer(4), intent(inout) :: pDstIndx(*)
|
||
|
integer(4), intent(in), value :: len
|
||
|
end
|
||
|
end interface
|
||
|
interface
|
||
|
subroutine ippsSortIndexAscend_64f_I(pSrcDst, pDstIndx, len) bind(C,name='ippsSortIndexAscend_64f_I')
|
||
|
use iso_c_binding
|
||
|
real(8), intent(in) :: pSrcDst(*)
|
||
|
integer(4), intent(inout) :: pDstIndx(*)
|
||
|
integer(4), intent(in), value :: len
|
||
|
end
|
||
|
end interface
|
||
|
end module
|